vim: src/evalfunc.c annotate

annotate src/evalfunc.c @ 17964:6d4d3bce365d v8.1.1978

patch 8.1.1978: the eval.c file is too big Commit: https://github.com/vim/vim/commit/1e1d30048e722906a13665bd6c3c24c87eb2fe25 Author: Bram Moolenaar <Bram@vim.org> Date: Wed Sep 4 14:41:14 2019 +0200 patch 8.1.1978: the eval.c file is too big Problem: The eval.c file is too big. Solution: Move filter() and map() to list.c.

author	Bram Moolenaar <Bram@vim.org>
date	Wed, 04 Sep 2019 14:45:04 +0200
parents	1f6d5f9ddeb0
children	46f95606b9ec

rev	line source
10042 4aead6a9b7a9 commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47 Christian Brabandt <cb@256bit.org> parents: 10009 diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2 *
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4 *
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6 * Do ":help credits" in Vim to see a list of people who contributed.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7 * See README.txt for an overview of the Vim source code.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11 * evalfunc.c: Builtin functions
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	13 #define USING_FLOAT_STUFF
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	14
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	15 #include "vim.h"
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	16
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	17 #if defined(FEAT_EVAL) \|\| defined(PROTO)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	18
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	19 #ifdef VMS
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	20 # include <float.h>
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	21 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	22
12716 351cf7c67bbe patch 8.0.1236: Mac features are confusing Christian Brabandt <cb@256bit.org> parents: 12564 diff changeset	23 #ifdef MACOS_X
17893 e4d3b6c466d4 patch 8.1.1943: more code can be moved to evalvars.c Bram Moolenaar <Bram@vim.org> parents: 17873 diff changeset	24 # include <time.h> // for time_t
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	25 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	26
15579 391ac26c9412 patch 8.1.0797: error E898 is used twice Bram Moolenaar <Bram@vim.org> parents: 15571 diff changeset	27 static char *e_listblobarg = N_("E899: Argument of %s must be a List or Blob");
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	28
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	29 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	30 static void f_abs(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	31 static void f_acos(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	32 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	33 static void f_add(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	34 static void f_and(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	35 static void f_append(typval_T argvars, typval_T rettv);
14039 acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	36 static void f_appendbufline(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	37 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	38 static void f_asin(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	39 static void f_atan(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	40 static void f_atan2(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	41 #endif
11014 fb2bcfa6a8de patch 8.0.0396: 'balloonexpr' only works synchronously Christian Brabandt <cb@256bit.org> parents: 11006 diff changeset	42 #ifdef FEAT_BEVAL
16600 ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	43 static void f_balloon_gettext(typval_T argvars, typval_T rettv);
11014 fb2bcfa6a8de patch 8.0.0396: 'balloonexpr' only works synchronously Christian Brabandt <cb@256bit.org> parents: 11006 diff changeset	44 static void f_balloon_show(typval_T argvars, typval_T rettv);
12885 10cb5c3df3f5 patch 8.0.1319: can't build GUI on MS-Windows Christian Brabandt <cb@256bit.org> parents: 12883 diff changeset	45 # if defined(FEAT_BEVAL_TERM)
12883 058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	46 static void f_balloon_split(typval_T argvars, typval_T rettv);
12885 10cb5c3df3f5 patch 8.0.1319: can't build GUI on MS-Windows Christian Brabandt <cb@256bit.org> parents: 12883 diff changeset	47 # endif
11014 fb2bcfa6a8de patch 8.0.0396: 'balloonexpr' only works synchronously Christian Brabandt <cb@256bit.org> parents: 11006 diff changeset	48 #endif
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	49 static void f_browse(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	50 static void f_browsedir(typval_T argvars, typval_T rettv);
17221 a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17218 diff changeset	51 static void f_bufadd(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	52 static void f_bufexists(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	53 static void f_buflisted(typval_T argvars, typval_T rettv);
17221 a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17218 diff changeset	54 static void f_bufload(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	55 static void f_bufloaded(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	56 static void f_bufname(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	57 static void f_bufnr(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	58 static void f_bufwinid(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	59 static void f_bufwinnr(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	60 static void f_byte2line(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	61 static void byteidx(typval_T argvars, typval_T rettv, int comp);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	62 static void f_byteidx(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	63 static void f_byteidxcomp(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	64 static void f_call(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	65 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	66 static void f_ceil(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	67 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	68 static void f_changenr(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	69 static void f_char2nr(typval_T argvars, typval_T rettv);
16576 bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	70 static void f_chdir(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	71 static void f_cindent(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	72 static void f_col(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	73 static void f_confirm(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	74 static void f_copy(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	75 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	76 static void f_cos(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	77 static void f_cosh(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	78 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	79 static void f_count(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	80 static void f_cscope_connection(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	81 static void f_cursor(typval_T argsvars, typval_T rettv);
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15850 diff changeset	82 #ifdef MSWIN
14147 de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	83 static void f_debugbreak(typval_T argvars, typval_T rettv);
de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	84 #endif
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	85 static void f_deepcopy(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	86 static void f_delete(typval_T argvars, typval_T rettv);
14043 cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	87 static void f_deletebufline(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	88 static void f_did_filetype(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	89 static void f_diff_filler(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	90 static void f_diff_hlID(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	91 static void f_empty(typval_T argvars, typval_T rettv);
16604 1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	92 static void f_environ(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	93 static void f_escape(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	94 static void f_eval(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	95 static void f_eventhandler(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	96 static void f_executable(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	97 static void f_execute(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	98 static void f_exepath(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	99 static void f_exists(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	100 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	101 static void f_exp(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	102 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	103 static void f_expand(typval_T argvars, typval_T rettv);
17020 1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	104 static void f_expandcmd(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	105 static void f_extend(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	106 static void f_feedkeys(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	107 static void f_filereadable(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	108 static void f_filewritable(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	109 static void f_finddir(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	110 static void f_findfile(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	111 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	112 static void f_float2nr(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	113 static void f_floor(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	114 static void f_fmod(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	115 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	116 static void f_fnameescape(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	117 static void f_fnamemodify(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	118 static void f_foreground(typval_T argvars, typval_T rettv);
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	119 static void f_funcref(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	120 static void f_function(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	121 static void f_garbagecollect(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	122 static void f_get(typval_T argvars, typval_T rettv);
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	123 static void f_getbufinfo(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	124 static void f_getbufline(typval_T argvars, typval_T rettv);
13280 fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	125 static void f_getchangelist(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	126 static void f_getchar(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	127 static void f_getcharmod(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	128 static void f_getcharsearch(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	129 static void f_getcmdline(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	130 static void f_getcmdpos(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	131 static void f_getcmdtype(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	132 static void f_getcmdwintype(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	133 static void f_getcwd(typval_T argvars, typval_T rettv);
16604 1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	134 static void f_getenv(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	135 static void f_getfontname(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	136 static void f_getfperm(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	137 static void f_getfsize(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	138 static void f_getftime(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	139 static void f_getftype(typval_T argvars, typval_T rettv);
13246 dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	140 static void f_getjumplist(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	141 static void f_getline(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	142 static void f_getpid(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	143 static void f_getcurpos(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	144 static void f_getpos(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	145 static void f_getreg(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	146 static void f_getregtype(typval_T argvars, typval_T rettv);
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	147 static void f_gettabinfo(typval_T argvars, typval_T rettv);
15016 c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	148 static void f_gettagstack(typval_T argvars, typval_T rettv);
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	149 static void f_getwininfo(typval_T argvars, typval_T rettv);
13379 0f9dd1b43244 patch 8.0.1563: timeout of getwinposx() can be too short Christian Brabandt <cb@256bit.org> parents: 13367 diff changeset	150 static void f_getwinpos(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	151 static void f_getwinposx(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	152 static void f_getwinposy(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	153 static void f_glob(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	154 static void f_globpath(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	155 static void f_glob2regpat(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	156 static void f_has(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	157 static void f_haslocaldir(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	158 static void f_hasmapto(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	159 static void f_hlID(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	160 static void f_hlexists(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	161 static void f_hostname(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	162 static void f_iconv(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	163 static void f_indent(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	164 static void f_index(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	165 static void f_input(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	166 static void f_inputdialog(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	167 static void f_inputlist(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	168 static void f_inputrestore(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	169 static void f_inputsave(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	170 static void f_inputsecret(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	171 static void f_insert(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	172 static void f_invert(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	173 static void f_isdirectory(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	174 static void f_islocked(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	175 #if defined(FEAT_FLOAT) && defined(HAVE_MATH_H)
16213 2c33b119ba92 patch 8.1.1111: it is not easy to check for infinity Bram Moolenaar <Bram@vim.org> parents: 16162 diff changeset	176 static void f_isinf(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	177 static void f_isnan(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	178 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	179 static void f_last_buffer_nr(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	180 static void f_len(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	181 static void f_libcall(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	182 static void f_libcallnr(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	183 static void f_line(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	184 static void f_line2byte(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	185 static void f_lispindent(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	186 static void f_localtime(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	187 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	188 static void f_log(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	189 static void f_log10(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	190 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	191 #ifdef FEAT_LUA
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	192 static void f_luaeval(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	193 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	194 static void f_maparg(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	195 static void f_mapcheck(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	196 static void f_match(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	197 static void f_matchend(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	198 static void f_matchlist(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	199 static void f_matchstr(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	200 static void f_matchstrpos(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	201 static void f_max(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	202 static void f_min(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	203 static void f_mkdir(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	204 static void f_mode(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	205 #ifdef FEAT_MZSCHEME
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	206 static void f_mzeval(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	207 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	208 static void f_nextnonblank(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	209 static void f_nr2char(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	210 static void f_or(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	211 static void f_pathshorten(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	212 #ifdef FEAT_PERL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	213 static void f_perleval(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	214 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	215 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	216 static void f_pow(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	217 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	218 static void f_prevnonblank(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	219 static void f_printf(typval_T argvars, typval_T rettv);
17756 a7afcea6f40a patch 8.1.1875: cannot get size and position of the popup menu Bram Moolenaar <Bram@vim.org> parents: 17744 diff changeset	220 static void f_pum_getpos(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	221 static void f_pumvisible(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	222 #ifdef FEAT_PYTHON3
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	223 static void f_py3eval(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	224 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	225 #ifdef FEAT_PYTHON
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	226 static void f_pyeval(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	227 #endif
10722 7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	228 #if defined(FEAT_PYTHON) \|\| defined(FEAT_PYTHON3)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	229 static void f_pyxeval(typval_T argvars, typval_T rettv);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	230 #endif
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	231 static void f_range(typval_T argvars, typval_T rettv);
16231 0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	232 static void f_readdir(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	233 static void f_readfile(typval_T argvars, typval_T rettv);
14004 e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	234 static void f_reg_executing(typval_T argvars, typval_T rettv);
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	235 static void f_reg_recording(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	236 static void f_reltime(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	237 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	238 static void f_reltimefloat(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	239 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	240 static void f_reltimestr(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	241 static void f_remote_expr(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	242 static void f_remote_foreground(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	243 static void f_remote_peek(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	244 static void f_remote_read(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	245 static void f_remote_send(typval_T argvars, typval_T rettv);
11177 76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	246 static void f_remote_startserver(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	247 static void f_remove(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	248 static void f_rename(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	249 static void f_repeat(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	250 static void f_resolve(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	251 static void f_reverse(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	252 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	253 static void f_round(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	254 #endif
16103 518f44125207 patch 8.1.1056: no eval function for Ruby Bram Moolenaar <Bram@vim.org> parents: 16078 diff changeset	255 #ifdef FEAT_RUBY
518f44125207 patch 8.1.1056: no eval function for Ruby Bram Moolenaar <Bram@vim.org> parents: 16078 diff changeset	256 static void f_rubyeval(typval_T argvars, typval_T rettv);
518f44125207 patch 8.1.1056: no eval function for Ruby Bram Moolenaar <Bram@vim.org> parents: 16078 diff changeset	257 #endif
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	258 static void f_screenattr(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	259 static void f_screenchar(typval_T argvars, typval_T rettv);
16133 eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	260 static void f_screenchars(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	261 static void f_screencol(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	262 static void f_screenrow(typval_T argvars, typval_T rettv);
16133 eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	263 static void f_screenstring(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	264 static void f_search(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	265 static void f_searchdecl(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	266 static void f_searchpair(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	267 static void f_searchpairpos(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	268 static void f_searchpos(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	269 static void f_server2client(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	270 static void f_serverlist(typval_T argvars, typval_T rettv);
12319 c7e95667d14b patch 8.0.1039: cannot change a line in not current buffer Christian Brabandt <cb@256bit.org> parents: 12317 diff changeset	271 static void f_setbufline(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	272 static void f_setcharsearch(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	273 static void f_setcmdpos(typval_T argvars, typval_T rettv);
16604 1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	274 static void f_setenv(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	275 static void f_setfperm(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	276 static void f_setline(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	277 static void f_setpos(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	278 static void f_setreg(typval_T argvars, typval_T rettv);
15016 c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	279 static void f_settagstack(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	280 #ifdef FEAT_CRYPT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	281 static void f_sha256(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	282 #endif /* FEAT_CRYPT */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	283 static void f_shellescape(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	284 static void f_shiftwidth(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	285 static void f_simplify(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	286 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	287 static void f_sin(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	288 static void f_sinh(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	289 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	290 static void f_soundfold(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	291 static void f_spellbadword(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	292 static void f_spellsuggest(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	293 static void f_split(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	294 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	295 static void f_sqrt(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	296 static void f_str2float(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	297 #endif
16235 219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	298 static void f_str2list(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	299 static void f_str2nr(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	300 static void f_strchars(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	301 #ifdef HAVE_STRFTIME
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	302 static void f_strftime(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	303 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	304 static void f_strgetchar(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	305 static void f_stridx(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	306 static void f_strlen(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	307 static void f_strcharpart(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	308 static void f_strpart(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	309 static void f_strridx(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	310 static void f_strtrans(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	311 static void f_strdisplaywidth(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	312 static void f_strwidth(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	313 static void f_submatch(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	314 static void f_substitute(typval_T argvars, typval_T rettv);
14599 72d6f6f7ead7 patch 8.1.0313: information about a swap file is unavailable Christian Brabandt <cb@256bit.org> parents: 14587 diff changeset	315 static void f_swapinfo(typval_T argvars, typval_T rettv);
14778 20653d6f3d95 patch 8.1.0401: can't get swap name of another buffer Christian Brabandt <cb@256bit.org> parents: 14756 diff changeset	316 static void f_swapname(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	317 static void f_synID(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	318 static void f_synIDattr(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	319 static void f_synIDtrans(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	320 static void f_synstack(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	321 static void f_synconcealed(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	322 static void f_system(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	323 static void f_systemlist(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	324 static void f_tabpagebuflist(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	325 static void f_tabpagenr(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	326 static void f_tabpagewinnr(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	327 static void f_taglist(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	328 static void f_tagfiles(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	329 static void f_tempname(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	330 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	331 static void f_tan(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	332 static void f_tanh(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	333 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	334 #ifdef FEAT_TIMERS
9790 34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	335 static void f_timer_info(typval_T argvars, typval_T rettv);
9810 6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	336 static void f_timer_pause(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	337 static void f_timer_start(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	338 static void f_timer_stop(typval_T argvars, typval_T rettv);
9810 6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	339 static void f_timer_stopall(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	340 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	341 static void f_tolower(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	342 static void f_toupper(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	343 static void f_tr(typval_T argvars, typval_T rettv);
13513 4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	344 static void f_trim(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	345 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	346 static void f_trunc(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	347 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	348 static void f_type(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	349 static void f_undofile(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	350 static void f_undotree(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	351 static void f_virtcol(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	352 static void f_visualmode(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	353 static void f_wildmenumode(typval_T argvars, typval_T rettv);
16833 6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	354 static void f_win_execute(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	355 static void f_win_findbuf(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	356 static void f_win_getid(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	357 static void f_win_gotoid(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	358 static void f_win_id2tabwin(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	359 static void f_win_id2win(typval_T argvars, typval_T rettv);
12977 2d817fd289ba patch 8.0.1364: there is no easy way to get the window position Christian Brabandt <cb@256bit.org> parents: 12918 diff changeset	360 static void f_win_screenpos(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	361 static void f_winbufnr(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	362 static void f_wincol(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	363 static void f_winheight(typval_T argvars, typval_T rettv);
14587 d33220d3bc27 patch 8.1.0307: there is no good way to get the window layout Christian Brabandt <cb@256bit.org> parents: 14509 diff changeset	364 static void f_winlayout(typval_T argvars, typval_T rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	365 static void f_winline(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	366 static void f_winnr(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	367 static void f_winrestcmd(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	368 static void f_winrestview(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	369 static void f_winsaveview(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	370 static void f_winwidth(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	371 static void f_writefile(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	372 static void f_wordcount(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	373 static void f_xor(typval_T argvars, typval_T rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	374
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	375 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	376 * Array with names and number of arguments of all internal functions
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	377 * MUST BE KEPT SORTED IN strcmp() ORDER FOR BINARY SEARCH!
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	378 */
17612 e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	379 typedef struct
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	380 {
17620 072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	381 char *f_name; // function name
072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	382 char f_min_argc; // minimal number of arguments
072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	383 char f_max_argc; // maximal number of arguments
072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	384 char f_argtype; // for method: FEARG_ values
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	385 void (f_func)(typval_T args, typval_T *rvar);
17620 072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	386 // implementation of function
17612 e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	387 } funcentry_T;
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	388
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	389 // values for f_argtype; zero means it cannot be used as a method
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	390 #define FEARG_1 1 // base is the first argument
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	391 #define FEARG_2 2 // base is the second argument
17728 68ea27d26d5b patch 8.1.1861: only some assert functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17704 diff changeset	392 #define FEARG_3 3 // base is the third argument
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	393 #define FEARG_LAST 9 // base is the last argument
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	394
17612 e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	395 static funcentry_T global_functions[] =
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	396 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	397 #ifdef FEAT_FLOAT
17765 545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	398 {"abs", 1, 1, FEARG_1, f_abs},
545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	399 {"acos", 1, 1, FEARG_1, f_acos}, // WJMc
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	400 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	401 {"add", 2, 2, FEARG_1, f_add},
17783 45eca7143d7c patch 8.1.1888: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17781 diff changeset	402 {"and", 2, 2, FEARG_1, f_and},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	403 {"append", 2, 2, FEARG_LAST, f_append},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	404 {"appendbufline", 3, 3, FEARG_LAST, f_appendbufline},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	405 {"argc", 0, 1, 0, f_argc},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	406 {"argidx", 0, 0, 0, f_argidx},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	407 {"arglistid", 0, 2, 0, f_arglistid},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	408 {"argv", 0, 2, 0, f_argv},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	409 #ifdef FEAT_FLOAT
17765 545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	410 {"asin", 1, 1, FEARG_1, f_asin}, // WJMc
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	411 #endif
17728 68ea27d26d5b patch 8.1.1861: only some assert functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17704 diff changeset	412 {"assert_beeps", 1, 2, FEARG_1, f_assert_beeps},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	413 {"assert_equal", 2, 3, FEARG_2, f_assert_equal},
17825 ce993ba17adb patch 8.1.1909: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17817 diff changeset	414 {"assert_equalfile", 2, 2, FEARG_1, f_assert_equalfile},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	415 {"assert_exception", 1, 2, 0, f_assert_exception},
17728 68ea27d26d5b patch 8.1.1861: only some assert functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17704 diff changeset	416 {"assert_fails", 1, 3, FEARG_1, f_assert_fails},
68ea27d26d5b patch 8.1.1861: only some assert functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17704 diff changeset	417 {"assert_false", 1, 2, FEARG_1, f_assert_false},
68ea27d26d5b patch 8.1.1861: only some assert functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17704 diff changeset	418 {"assert_inrange", 3, 4, FEARG_3, f_assert_inrange},
68ea27d26d5b patch 8.1.1861: only some assert functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17704 diff changeset	419 {"assert_match", 2, 3, FEARG_2, f_assert_match},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	420 {"assert_notequal", 2, 3, FEARG_2, f_assert_notequal},
17728 68ea27d26d5b patch 8.1.1861: only some assert functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17704 diff changeset	421 {"assert_notmatch", 2, 3, FEARG_2, f_assert_notmatch},
17825 ce993ba17adb patch 8.1.1909: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17817 diff changeset	422 {"assert_report", 1, 1, FEARG_1, f_assert_report},
17728 68ea27d26d5b patch 8.1.1861: only some assert functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17704 diff changeset	423 {"assert_true", 1, 2, FEARG_1, f_assert_true},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	424 #ifdef FEAT_FLOAT
17765 545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	425 {"atan", 1, 1, FEARG_1, f_atan},
545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	426 {"atan2", 2, 2, FEARG_1, f_atan2},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	427 #endif
11014 fb2bcfa6a8de patch 8.0.0396: 'balloonexpr' only works synchronously Christian Brabandt <cb@256bit.org> parents: 11006 diff changeset	428 #ifdef FEAT_BEVAL
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	429 {"balloon_gettext", 0, 0, 0, f_balloon_gettext},
17783 45eca7143d7c patch 8.1.1888: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17781 diff changeset	430 {"balloon_show", 1, 1, FEARG_1, f_balloon_show},
12885 10cb5c3df3f5 patch 8.0.1319: can't build GUI on MS-Windows Christian Brabandt <cb@256bit.org> parents: 12883 diff changeset	431 # if defined(FEAT_BEVAL_TERM)
17783 45eca7143d7c patch 8.1.1888: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17781 diff changeset	432 {"balloon_split", 1, 1, FEARG_1, f_balloon_split},
12885 10cb5c3df3f5 patch 8.0.1319: can't build GUI on MS-Windows Christian Brabandt <cb@256bit.org> parents: 12883 diff changeset	433 # endif
11014 fb2bcfa6a8de patch 8.0.0396: 'balloonexpr' only works synchronously Christian Brabandt <cb@256bit.org> parents: 11006 diff changeset	434 #endif
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	435 {"browse", 4, 4, 0, f_browse},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	436 {"browsedir", 2, 2, 0, f_browsedir},
17783 45eca7143d7c patch 8.1.1888: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17781 diff changeset	437 {"bufadd", 1, 1, FEARG_1, f_bufadd},
45eca7143d7c patch 8.1.1888: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17781 diff changeset	438 {"bufexists", 1, 1, FEARG_1, f_bufexists},
45eca7143d7c patch 8.1.1888: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17781 diff changeset	439 {"buffer_exists", 1, 1, FEARG_1, f_bufexists}, // obsolete
17855 285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	440 {"buffer_name", 0, 1, FEARG_1, f_bufname}, // obsolete
285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	441 {"buffer_number", 0, 1, FEARG_1, f_bufnr}, // obsolete
17783 45eca7143d7c patch 8.1.1888: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17781 diff changeset	442 {"buflisted", 1, 1, FEARG_1, f_buflisted},
45eca7143d7c patch 8.1.1888: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17781 diff changeset	443 {"bufload", 1, 1, FEARG_1, f_bufload},
45eca7143d7c patch 8.1.1888: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17781 diff changeset	444 {"bufloaded", 1, 1, FEARG_1, f_bufloaded},
17855 285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	445 {"bufname", 0, 1, FEARG_1, f_bufname},
285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	446 {"bufnr", 0, 2, FEARG_1, f_bufnr},
17825 ce993ba17adb patch 8.1.1909: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17817 diff changeset	447 {"bufwinid", 1, 1, FEARG_1, f_bufwinid},
ce993ba17adb patch 8.1.1909: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17817 diff changeset	448 {"bufwinnr", 1, 1, FEARG_1, f_bufwinnr},
17829 1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17825 diff changeset	449 {"byte2line", 1, 1, FEARG_1, f_byte2line},
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17825 diff changeset	450 {"byteidx", 2, 2, FEARG_1, f_byteidx},
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17825 diff changeset	451 {"byteidxcomp", 2, 2, FEARG_1, f_byteidxcomp},
1090d6637cfd patch 8.1.1911: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17825 diff changeset	452 {"call", 2, 3, FEARG_1, f_call},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	453 #ifdef FEAT_FLOAT
17765 545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	454 {"ceil", 1, 1, FEARG_1, f_ceil},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	455 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	456 #ifdef FEAT_JOB_CHANNEL
17831 4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	457 {"ch_canread", 1, 1, FEARG_1, f_ch_canread},
4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	458 {"ch_close", 1, 1, FEARG_1, f_ch_close},
4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	459 {"ch_close_in", 1, 1, FEARG_1, f_ch_close_in},
4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	460 {"ch_evalexpr", 2, 3, FEARG_1, f_ch_evalexpr},
4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	461 {"ch_evalraw", 2, 3, FEARG_1, f_ch_evalraw},
4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	462 {"ch_getbufnr", 2, 2, FEARG_1, f_ch_getbufnr},
4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	463 {"ch_getjob", 1, 1, FEARG_1, f_ch_getjob},
4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	464 {"ch_info", 1, 1, FEARG_1, f_ch_info},
4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	465 {"ch_log", 1, 2, FEARG_1, f_ch_log},
4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	466 {"ch_logfile", 1, 2, FEARG_1, f_ch_logfile},
4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	467 {"ch_open", 1, 2, FEARG_1, f_ch_open},
4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	468 {"ch_read", 1, 2, FEARG_1, f_ch_read},
4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	469 {"ch_readblob", 1, 2, FEARG_1, f_ch_readblob},
4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	470 {"ch_readraw", 1, 2, FEARG_1, f_ch_readraw},
4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	471 {"ch_sendexpr", 2, 3, FEARG_1, f_ch_sendexpr},
4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	472 {"ch_sendraw", 2, 3, FEARG_1, f_ch_sendraw},
4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	473 {"ch_setoptions", 2, 2, FEARG_1, f_ch_setoptions},
4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	474 {"ch_status", 1, 2, FEARG_1, f_ch_status},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	475 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	476 {"changenr", 0, 0, 0, f_changenr},
17837 f71ee7b04f0b patch 8.1.1915: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17831 diff changeset	477 {"char2nr", 1, 2, FEARG_1, f_char2nr},
f71ee7b04f0b patch 8.1.1915: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17831 diff changeset	478 {"chdir", 1, 1, FEARG_1, f_chdir},
f71ee7b04f0b patch 8.1.1915: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17831 diff changeset	479 {"cindent", 1, 1, FEARG_1, f_cindent},
f71ee7b04f0b patch 8.1.1915: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17831 diff changeset	480 {"clearmatches", 0, 1, FEARG_1, f_clearmatches},
f71ee7b04f0b patch 8.1.1915: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17831 diff changeset	481 {"col", 1, 1, FEARG_1, f_col},
f71ee7b04f0b patch 8.1.1915: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17831 diff changeset	482 {"complete", 2, 2, FEARG_2, f_complete},
f71ee7b04f0b patch 8.1.1915: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17831 diff changeset	483 {"complete_add", 1, 1, FEARG_1, f_complete_add},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	484 {"complete_check", 0, 0, 0, f_complete_check},
17837 f71ee7b04f0b patch 8.1.1915: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17831 diff changeset	485 {"complete_info", 0, 1, FEARG_1, f_complete_info},
f71ee7b04f0b patch 8.1.1915: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17831 diff changeset	486 {"confirm", 1, 4, FEARG_1, f_confirm},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	487 {"copy", 1, 1, FEARG_1, f_copy},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	488 #ifdef FEAT_FLOAT
17765 545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	489 {"cos", 1, 1, FEARG_1, f_cos},
545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	490 {"cosh", 1, 1, FEARG_1, f_cosh},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	491 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	492 {"count", 2, 4, FEARG_1, f_count},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	493 {"cscope_connection",0,3, 0, f_cscope_connection},
17837 f71ee7b04f0b patch 8.1.1915: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17831 diff changeset	494 {"cursor", 1, 3, FEARG_1, f_cursor},
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15850 diff changeset	495 #ifdef MSWIN
17837 f71ee7b04f0b patch 8.1.1915: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17831 diff changeset	496 {"debugbreak", 1, 1, FEARG_1, f_debugbreak},
f71ee7b04f0b patch 8.1.1915: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17831 diff changeset	497 #endif
f71ee7b04f0b patch 8.1.1915: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17831 diff changeset	498 {"deepcopy", 1, 2, FEARG_1, f_deepcopy},
f71ee7b04f0b patch 8.1.1915: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17831 diff changeset	499 {"delete", 1, 2, FEARG_1, f_delete},
f71ee7b04f0b patch 8.1.1915: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17831 diff changeset	500 {"deletebufline", 2, 3, FEARG_1, f_deletebufline},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	501 {"did_filetype", 0, 0, 0, f_did_filetype},
17837 f71ee7b04f0b patch 8.1.1915: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17831 diff changeset	502 {"diff_filler", 1, 1, FEARG_1, f_diff_filler},
f71ee7b04f0b patch 8.1.1915: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17831 diff changeset	503 {"diff_hlID", 2, 2, FEARG_1, f_diff_hlID},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	504 {"empty", 1, 1, FEARG_1, f_empty},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	505 {"environ", 0, 0, 0, f_environ},
17849 73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	506 {"escape", 2, 2, FEARG_1, f_escape},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	507 {"eval", 1, 1, FEARG_1, f_eval},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	508 {"eventhandler", 0, 0, 0, f_eventhandler},
17849 73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	509 {"executable", 1, 1, FEARG_1, f_executable},
73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	510 {"execute", 1, 2, FEARG_1, f_execute},
73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	511 {"exepath", 1, 1, FEARG_1, f_exepath},
73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	512 {"exists", 1, 1, FEARG_1, f_exists},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	513 #ifdef FEAT_FLOAT
17765 545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	514 {"exp", 1, 1, FEARG_1, f_exp},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	515 #endif
17849 73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	516 {"expand", 1, 3, FEARG_1, f_expand},
73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	517 {"expandcmd", 1, 1, FEARG_1, f_expandcmd},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	518 {"extend", 2, 3, FEARG_1, f_extend},
17849 73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	519 {"feedkeys", 1, 2, FEARG_1, f_feedkeys},
73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	520 {"file_readable", 1, 1, FEARG_1, f_filereadable}, // obsolete
73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	521 {"filereadable", 1, 1, FEARG_1, f_filereadable},
73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	522 {"filewritable", 1, 1, FEARG_1, f_filewritable},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	523 {"filter", 2, 2, FEARG_1, f_filter},
17849 73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	524 {"finddir", 1, 3, FEARG_1, f_finddir},
73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	525 {"findfile", 1, 3, FEARG_1, f_findfile},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	526 #ifdef FEAT_FLOAT
17765 545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	527 {"float2nr", 1, 1, FEARG_1, f_float2nr},
545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	528 {"floor", 1, 1, FEARG_1, f_floor},
545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	529 {"fmod", 2, 2, FEARG_1, f_fmod},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	530 #endif
17849 73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	531 {"fnameescape", 1, 1, FEARG_1, f_fnameescape},
73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	532 {"fnamemodify", 2, 2, FEARG_1, f_fnamemodify},
73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	533 {"foldclosed", 1, 1, FEARG_1, f_foldclosed},
73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	534 {"foldclosedend", 1, 1, FEARG_1, f_foldclosedend},
73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	535 {"foldlevel", 1, 1, FEARG_1, f_foldlevel},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	536 {"foldtext", 0, 0, 0, f_foldtext},
17849 73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	537 {"foldtextresult", 1, 1, FEARG_1, f_foldtextresult},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	538 {"foreground", 0, 0, 0, f_foreground},
17849 73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	539 {"funcref", 1, 3, FEARG_1, f_funcref},
73ddc462979d patch 8.1.1921: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17837 diff changeset	540 {"function", 1, 3, FEARG_1, f_function},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	541 {"garbagecollect", 0, 1, 0, f_garbagecollect},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	542 {"get", 2, 3, FEARG_1, f_get},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	543 {"getbufinfo", 0, 1, 0, f_getbufinfo},
17857 4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	544 {"getbufline", 2, 3, FEARG_1, f_getbufline},
4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	545 {"getbufvar", 2, 3, FEARG_1, f_getbufvar},
4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	546 {"getchangelist", 0, 1, FEARG_1, f_getchangelist},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	547 {"getchar", 0, 1, 0, f_getchar},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	548 {"getcharmod", 0, 0, 0, f_getcharmod},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	549 {"getcharsearch", 0, 0, 0, f_getcharsearch},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	550 {"getcmdline", 0, 0, 0, f_getcmdline},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	551 {"getcmdpos", 0, 0, 0, f_getcmdpos},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	552 {"getcmdtype", 0, 0, 0, f_getcmdtype},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	553 {"getcmdwintype", 0, 0, 0, f_getcmdwintype},
17857 4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	554 {"getcompletion", 2, 3, FEARG_1, f_getcompletion},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	555 {"getcurpos", 0, 0, 0, f_getcurpos},
17857 4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	556 {"getcwd", 0, 2, FEARG_1, f_getcwd},
4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	557 {"getenv", 1, 1, FEARG_1, f_getenv},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	558 {"getfontname", 0, 1, 0, f_getfontname},
17857 4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	559 {"getfperm", 1, 1, FEARG_1, f_getfperm},
4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	560 {"getfsize", 1, 1, FEARG_1, f_getfsize},
4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	561 {"getftime", 1, 1, FEARG_1, f_getftime},
4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	562 {"getftype", 1, 1, FEARG_1, f_getftype},
4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	563 {"getjumplist", 0, 2, FEARG_1, f_getjumplist},
4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	564 {"getline", 1, 2, FEARG_1, f_getline},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	565 {"getloclist", 1, 2, 0, f_getloclist},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	566 {"getmatches", 0, 1, 0, f_getmatches},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	567 {"getpid", 0, 0, 0, f_getpid},
17857 4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	568 {"getpos", 1, 1, FEARG_1, f_getpos},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	569 {"getqflist", 0, 1, 0, f_getqflist},
17857 4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	570 {"getreg", 0, 3, FEARG_1, f_getreg},
4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	571 {"getregtype", 0, 1, FEARG_1, f_getregtype},
4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	572 {"gettabinfo", 0, 1, FEARG_1, f_gettabinfo},
4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	573 {"gettabvar", 2, 3, FEARG_1, f_gettabvar},
4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	574 {"gettabwinvar", 3, 4, FEARG_1, f_gettabwinvar},
17912 9fac6d0de69a patch 8.1.1952: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17893 diff changeset	575 {"gettagstack", 0, 1, FEARG_1, f_gettagstack},
9fac6d0de69a patch 8.1.1952: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17893 diff changeset	576 {"getwininfo", 0, 1, FEARG_1, f_getwininfo},
9fac6d0de69a patch 8.1.1952: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17893 diff changeset	577 {"getwinpos", 0, 1, FEARG_1, f_getwinpos},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	578 {"getwinposx", 0, 0, 0, f_getwinposx},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	579 {"getwinposy", 0, 0, 0, f_getwinposy},
17912 9fac6d0de69a patch 8.1.1952: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17893 diff changeset	580 {"getwinvar", 2, 3, FEARG_1, f_getwinvar},
9fac6d0de69a patch 8.1.1952: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17893 diff changeset	581 {"glob", 1, 4, FEARG_1, f_glob},
9fac6d0de69a patch 8.1.1952: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17893 diff changeset	582 {"glob2regpat", 1, 1, FEARG_1, f_glob2regpat},
9fac6d0de69a patch 8.1.1952: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17893 diff changeset	583 {"globpath", 2, 5, FEARG_2, f_globpath},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	584 {"has", 1, 1, 0, f_has},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	585 {"has_key", 2, 2, FEARG_1, f_has_key},
17914 af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17912 diff changeset	586 {"haslocaldir", 0, 2, FEARG_1, f_haslocaldir},
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17912 diff changeset	587 {"hasmapto", 1, 3, FEARG_1, f_hasmapto},
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17912 diff changeset	588 {"highlightID", 1, 1, FEARG_1, f_hlID}, // obsolete
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17912 diff changeset	589 {"highlight_exists",1, 1, FEARG_1, f_hlexists}, // obsolete
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17912 diff changeset	590 {"histadd", 2, 2, FEARG_2, f_histadd},
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17912 diff changeset	591 {"histdel", 1, 2, FEARG_1, f_histdel},
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17912 diff changeset	592 {"histget", 1, 2, FEARG_1, f_histget},
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17912 diff changeset	593 {"histnr", 1, 1, FEARG_1, f_histnr},
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17912 diff changeset	594 {"hlID", 1, 1, FEARG_1, f_hlID},
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17912 diff changeset	595 {"hlexists", 1, 1, FEARG_1, f_hlexists},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	596 {"hostname", 0, 0, 0, f_hostname},
17914 af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17912 diff changeset	597 {"iconv", 3, 3, FEARG_1, f_iconv},
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17912 diff changeset	598 {"indent", 1, 1, FEARG_1, f_indent},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	599 {"index", 2, 4, FEARG_1, f_index},
17914 af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17912 diff changeset	600 {"input", 1, 3, FEARG_1, f_input},
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17912 diff changeset	601 {"inputdialog", 1, 3, FEARG_1, f_inputdialog},
af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17912 diff changeset	602 {"inputlist", 1, 1, FEARG_1, f_inputlist},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	603 {"inputrestore", 0, 0, 0, f_inputrestore},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	604 {"inputsave", 0, 0, 0, f_inputsave},
17914 af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17912 diff changeset	605 {"inputsecret", 1, 2, FEARG_1, f_inputsecret},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	606 {"insert", 2, 3, FEARG_1, f_insert},
17783 45eca7143d7c patch 8.1.1888: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17781 diff changeset	607 {"invert", 1, 1, FEARG_1, f_invert},
17914 af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17912 diff changeset	608 {"isdirectory", 1, 1, FEARG_1, f_isdirectory},
16213 2c33b119ba92 patch 8.1.1111: it is not easy to check for infinity Bram Moolenaar <Bram@vim.org> parents: 16162 diff changeset	609 #if defined(FEAT_FLOAT) && defined(HAVE_MATH_H)
17765 545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	610 {"isinf", 1, 1, FEARG_1, f_isinf},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	611 #endif
17914 af3d441845cd patch 8.1.1953: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17912 diff changeset	612 {"islocked", 1, 1, FEARG_1, f_islocked},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	613 #if defined(FEAT_FLOAT) && defined(HAVE_MATH_H)
17765 545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	614 {"isnan", 1, 1, FEARG_1, f_isnan},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	615 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	616 {"items", 1, 1, FEARG_1, f_items},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	617 #ifdef FEAT_JOB_CHANNEL
17831 4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	618 {"job_getchannel", 1, 1, FEARG_1, f_job_getchannel},
4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	619 {"job_info", 0, 1, FEARG_1, f_job_info},
4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	620 {"job_setoptions", 2, 2, FEARG_1, f_job_setoptions},
4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	621 {"job_start", 1, 2, FEARG_1, f_job_start},
4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	622 {"job_status", 1, 1, FEARG_1, f_job_status},
4ab97fdf7ff7 patch 8.1.1912: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17829 diff changeset	623 {"job_stop", 1, 2, FEARG_1, f_job_stop},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	624 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	625 {"join", 1, 2, FEARG_1, f_join},
17916 2e53305f2239 patch 8.1.1954: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17914 diff changeset	626 {"js_decode", 1, 1, FEARG_1, f_js_decode},
2e53305f2239 patch 8.1.1954: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17914 diff changeset	627 {"js_encode", 1, 1, FEARG_1, f_js_encode},
2e53305f2239 patch 8.1.1954: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17914 diff changeset	628 {"json_decode", 1, 1, FEARG_1, f_json_decode},
2e53305f2239 patch 8.1.1954: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17914 diff changeset	629 {"json_encode", 1, 1, FEARG_1, f_json_encode},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	630 {"keys", 1, 1, FEARG_1, f_keys},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	631 {"last_buffer_nr", 0, 0, 0, f_last_buffer_nr}, // obsolete
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	632 {"len", 1, 1, FEARG_1, f_len},
17916 2e53305f2239 patch 8.1.1954: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17914 diff changeset	633 {"libcall", 3, 3, FEARG_3, f_libcall},
2e53305f2239 patch 8.1.1954: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17914 diff changeset	634 {"libcallnr", 3, 3, FEARG_3, f_libcallnr},
17942 664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	635 {"line", 1, 2, FEARG_1, f_line},
17916 2e53305f2239 patch 8.1.1954: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17914 diff changeset	636 {"line2byte", 1, 1, FEARG_1, f_line2byte},
2e53305f2239 patch 8.1.1954: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17914 diff changeset	637 {"lispindent", 1, 1, FEARG_1, f_lispindent},
2e53305f2239 patch 8.1.1954: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17914 diff changeset	638 {"list2str", 1, 2, FEARG_1, f_list2str},
2e53305f2239 patch 8.1.1954: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17914 diff changeset	639 {"listener_add", 1, 2, FEARG_2, f_listener_add},
2e53305f2239 patch 8.1.1954: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17914 diff changeset	640 {"listener_flush", 0, 1, FEARG_1, f_listener_flush},
2e53305f2239 patch 8.1.1954: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17914 diff changeset	641 {"listener_remove", 1, 1, FEARG_1, f_listener_remove},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	642 {"localtime", 0, 0, 0, f_localtime},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	643 #ifdef FEAT_FLOAT
17765 545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	644 {"log", 1, 1, FEARG_1, f_log},
545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	645 {"log10", 1, 1, FEARG_1, f_log10},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	646 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	647 #ifdef FEAT_LUA
17916 2e53305f2239 patch 8.1.1954: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17914 diff changeset	648 {"luaeval", 1, 2, FEARG_1, f_luaeval},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	649 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	650 {"map", 2, 2, FEARG_1, f_map},
17930 0cdb6ac20748 patch 8.1.1961: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17928 diff changeset	651 {"maparg", 1, 4, FEARG_1, f_maparg},
0cdb6ac20748 patch 8.1.1961: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17928 diff changeset	652 {"mapcheck", 1, 3, FEARG_1, f_mapcheck},
0cdb6ac20748 patch 8.1.1961: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17928 diff changeset	653 {"match", 2, 4, FEARG_1, f_match},
0cdb6ac20748 patch 8.1.1961: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17928 diff changeset	654 {"matchadd", 2, 5, FEARG_1, f_matchadd},
0cdb6ac20748 patch 8.1.1961: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17928 diff changeset	655 {"matchaddpos", 2, 5, FEARG_1, f_matchaddpos},
0cdb6ac20748 patch 8.1.1961: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17928 diff changeset	656 {"matcharg", 1, 1, FEARG_1, f_matcharg},
0cdb6ac20748 patch 8.1.1961: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17928 diff changeset	657 {"matchdelete", 1, 2, FEARG_1, f_matchdelete},
0cdb6ac20748 patch 8.1.1961: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17928 diff changeset	658 {"matchend", 2, 4, FEARG_1, f_matchend},
0cdb6ac20748 patch 8.1.1961: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17928 diff changeset	659 {"matchlist", 2, 4, FEARG_1, f_matchlist},
0cdb6ac20748 patch 8.1.1961: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17928 diff changeset	660 {"matchstr", 2, 4, FEARG_1, f_matchstr},
0cdb6ac20748 patch 8.1.1961: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17928 diff changeset	661 {"matchstrpos", 2, 4, FEARG_1, f_matchstrpos},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	662 {"max", 1, 1, FEARG_1, f_max},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	663 {"min", 1, 1, FEARG_1, f_min},
17930 0cdb6ac20748 patch 8.1.1961: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17928 diff changeset	664 {"mkdir", 1, 3, FEARG_1, f_mkdir},
0cdb6ac20748 patch 8.1.1961: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17928 diff changeset	665 {"mode", 0, 1, FEARG_1, f_mode},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	666 #ifdef FEAT_MZSCHEME
17930 0cdb6ac20748 patch 8.1.1961: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17928 diff changeset	667 {"mzeval", 1, 1, FEARG_1, f_mzeval},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	668 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	669 {"nextnonblank", 1, 1, 0, f_nextnonblank},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	670 {"nr2char", 1, 2, 0, f_nr2char},
17783 45eca7143d7c patch 8.1.1888: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17781 diff changeset	671 {"or", 2, 2, FEARG_1, f_or},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	672 {"pathshorten", 1, 1, 0, f_pathshorten},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	673 #ifdef FEAT_PERL
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	674 {"perleval", 1, 1, 0, f_perleval},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	675 #endif
16778 eda4d65f232c patch 8.1.1391: no popup window support Bram Moolenaar <Bram@vim.org> parents: 16764 diff changeset	676 #ifdef FEAT_TEXT_PROP
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	677 {"popup_atcursor", 2, 2, 0, f_popup_atcursor},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	678 {"popup_beval", 2, 2, 0, f_popup_beval},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	679 {"popup_clear", 0, 0, 0, f_popup_clear},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	680 {"popup_close", 1, 2, 0, f_popup_close},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	681 {"popup_create", 2, 2, 0, f_popup_create},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	682 {"popup_dialog", 2, 2, 0, f_popup_dialog},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	683 {"popup_filter_menu", 2, 2, 0, f_popup_filter_menu},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	684 {"popup_filter_yesno", 2, 2, 0, f_popup_filter_yesno},
17817 e8a7029efa40 patch 8.1.1905: cannot set all properties of the info popup Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	685 {"popup_findinfo", 0, 0, 0, f_popup_findinfo},
e8a7029efa40 patch 8.1.1905: cannot set all properties of the info popup Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	686 {"popup_findpreview", 0, 0, 0, f_popup_findpreview},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	687 {"popup_getoptions", 1, 1, 0, f_popup_getoptions},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	688 {"popup_getpos", 1, 1, 0, f_popup_getpos},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	689 {"popup_hide", 1, 1, 0, f_popup_hide},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	690 {"popup_locate", 2, 2, 0, f_popup_locate},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	691 {"popup_menu", 2, 2, 0, f_popup_menu},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	692 {"popup_move", 2, 2, 0, f_popup_move},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	693 {"popup_notification", 2, 2, 0, f_popup_notification},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	694 {"popup_setoptions", 2, 2, 0, f_popup_setoptions},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	695 {"popup_settext", 2, 2, 0, f_popup_settext},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	696 {"popup_show", 1, 1, 0, f_popup_show},
16778 eda4d65f232c patch 8.1.1391: no popup window support Bram Moolenaar <Bram@vim.org> parents: 16764 diff changeset	697 #endif
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	698 #ifdef FEAT_FLOAT
17765 545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	699 {"pow", 2, 2, FEARG_1, f_pow},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	700 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	701 {"prevnonblank", 1, 1, 0, f_prevnonblank},
17676 14ac8c31e598 patch 8.1.1835: cannot use printf() as a method Bram Moolenaar <Bram@vim.org> parents: 17672 diff changeset	702 {"printf", 1, 19, FEARG_2, f_printf},
14019 dc67449d648c patch 8.1.0027: difficult to make a plugin that feeds a line to a job Christian Brabandt <cb@256bit.org> parents: 14004 diff changeset	703 #ifdef FEAT_JOB_CHANNEL
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	704 {"prompt_setcallback", 2, 2, 0, f_prompt_setcallback},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	705 {"prompt_setinterrupt", 2, 2, 0, f_prompt_setinterrupt},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	706 {"prompt_setprompt", 2, 2, 0, f_prompt_setprompt},
14019 dc67449d648c patch 8.1.0027: difficult to make a plugin that feeds a line to a job Christian Brabandt <cb@256bit.org> parents: 14004 diff changeset	707 #endif
15138 9df130fd5e0d patch 8.1.0579: cannot attach properties to text Bram Moolenaar <Bram@vim.org> parents: 15121 diff changeset	708 #ifdef FEAT_TEXT_PROP
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	709 {"prop_add", 3, 3, 0, f_prop_add},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	710 {"prop_clear", 1, 3, 0, f_prop_clear},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	711 {"prop_list", 1, 2, 0, f_prop_list},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	712 {"prop_remove", 1, 3, 0, f_prop_remove},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	713 {"prop_type_add", 2, 2, 0, f_prop_type_add},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	714 {"prop_type_change", 2, 2, 0, f_prop_type_change},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	715 {"prop_type_delete", 1, 2, 0, f_prop_type_delete},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	716 {"prop_type_get", 1, 2, 0, f_prop_type_get},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	717 {"prop_type_list", 0, 1, 0, f_prop_type_list},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	718 #endif
17756 a7afcea6f40a patch 8.1.1875: cannot get size and position of the popup menu Bram Moolenaar <Bram@vim.org> parents: 17744 diff changeset	719 {"pum_getpos", 0, 0, 0, f_pum_getpos},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	720 {"pumvisible", 0, 0, 0, f_pumvisible},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	721 #ifdef FEAT_PYTHON3
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	722 {"py3eval", 1, 1, 0, f_py3eval},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	723 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	724 #ifdef FEAT_PYTHON
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	725 {"pyeval", 1, 1, 0, f_pyeval},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	726 #endif
10722 7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	727 #if defined(FEAT_PYTHON) \|\| defined(FEAT_PYTHON3)
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	728 {"pyxeval", 1, 1, 0, f_pyxeval},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	729 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	730 {"range", 1, 3, 0, f_range},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	731 {"readdir", 1, 2, 0, f_readdir},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	732 {"readfile", 1, 3, 0, f_readfile},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	733 {"reg_executing", 0, 0, 0, f_reg_executing},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	734 {"reg_recording", 0, 0, 0, f_reg_recording},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	735 {"reltime", 0, 2, 0, f_reltime},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	736 #ifdef FEAT_FLOAT
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	737 {"reltimefloat", 1, 1, 0, f_reltimefloat},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	738 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	739 {"reltimestr", 1, 1, 0, f_reltimestr},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	740 {"remote_expr", 2, 4, 0, f_remote_expr},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	741 {"remote_foreground", 1, 1, 0, f_remote_foreground},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	742 {"remote_peek", 1, 2, 0, f_remote_peek},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	743 {"remote_read", 1, 2, 0, f_remote_read},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	744 {"remote_send", 2, 3, 0, f_remote_send},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	745 {"remote_startserver", 1, 1, 0, f_remote_startserver},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	746 {"remove", 2, 3, FEARG_1, f_remove},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	747 {"rename", 2, 2, 0, f_rename},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	748 {"repeat", 2, 2, FEARG_1, f_repeat},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	749 {"resolve", 1, 1, 0, f_resolve},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	750 {"reverse", 1, 1, FEARG_1, f_reverse},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	751 #ifdef FEAT_FLOAT
17765 545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	752 {"round", 1, 1, FEARG_1, f_round},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	753 #endif
16103 518f44125207 patch 8.1.1056: no eval function for Ruby Bram Moolenaar <Bram@vim.org> parents: 16078 diff changeset	754 #ifdef FEAT_RUBY
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	755 {"rubyeval", 1, 1, 0, f_rubyeval},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	756 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	757 {"screenattr", 2, 2, 0, f_screenattr},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	758 {"screenchar", 2, 2, 0, f_screenchar},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	759 {"screenchars", 2, 2, 0, f_screenchars},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	760 {"screencol", 0, 0, 0, f_screencol},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	761 {"screenpos", 3, 3, 0, f_screenpos},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	762 {"screenrow", 0, 0, 0, f_screenrow},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	763 {"screenstring", 2, 2, 0, f_screenstring},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	764 {"search", 1, 4, 0, f_search},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	765 {"searchdecl", 1, 3, 0, f_searchdecl},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	766 {"searchpair", 3, 7, 0, f_searchpair},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	767 {"searchpairpos", 3, 7, 0, f_searchpairpos},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	768 {"searchpos", 1, 4, 0, f_searchpos},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	769 {"server2client", 2, 2, 0, f_server2client},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	770 {"serverlist", 0, 0, 0, f_serverlist},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	771 {"setbufline", 3, 3, 0, f_setbufline},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	772 {"setbufvar", 3, 3, 0, f_setbufvar},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	773 {"setcharsearch", 1, 1, 0, f_setcharsearch},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	774 {"setcmdpos", 1, 1, 0, f_setcmdpos},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	775 {"setenv", 2, 2, 0, f_setenv},
17857 4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	776 {"setfperm", 2, 2, FEARG_1, f_setfperm},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	777 {"setline", 2, 2, 0, f_setline},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	778 {"setloclist", 2, 4, 0, f_setloclist},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	779 {"setmatches", 1, 2, 0, f_setmatches},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	780 {"setpos", 2, 2, 0, f_setpos},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	781 {"setqflist", 1, 3, 0, f_setqflist},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	782 {"setreg", 2, 3, 0, f_setreg},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	783 {"settabvar", 3, 3, 0, f_settabvar},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	784 {"settabwinvar", 4, 4, 0, f_settabwinvar},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	785 {"settagstack", 2, 3, 0, f_settagstack},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	786 {"setwinvar", 3, 3, 0, f_setwinvar},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	787 #ifdef FEAT_CRYPT
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	788 {"sha256", 1, 1, 0, f_sha256},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	789 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	790 {"shellescape", 1, 2, 0, f_shellescape},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	791 {"shiftwidth", 0, 1, 0, f_shiftwidth},
15209 3a99b2e6d136 patch 8.1.0614: placing signs can be complicated Bram Moolenaar <Bram@vim.org> parents: 15146 diff changeset	792 #ifdef FEAT_SIGNS
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	793 {"sign_define", 1, 2, 0, f_sign_define},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	794 {"sign_getdefined", 0, 1, 0, f_sign_getdefined},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	795 {"sign_getplaced", 0, 2, 0, f_sign_getplaced},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	796 {"sign_jump", 3, 3, 0, f_sign_jump},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	797 {"sign_place", 4, 5, 0, f_sign_place},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	798 {"sign_placelist", 1, 1, 0, f_sign_placelist},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	799 {"sign_undefine", 0, 1, 0, f_sign_undefine},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	800 {"sign_unplace", 1, 2, 0, f_sign_unplace},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	801 {"sign_unplacelist", 1, 2, 0, f_sign_unplacelist},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	802 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	803 {"simplify", 1, 1, 0, f_simplify},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	804 #ifdef FEAT_FLOAT
17765 545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	805 {"sin", 1, 1, FEARG_1, f_sin},
545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	806 {"sinh", 1, 1, FEARG_1, f_sinh},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	807 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	808 {"sort", 1, 3, FEARG_1, f_sort},
17004 353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: 16890 diff changeset	809 #ifdef FEAT_SOUND
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	810 {"sound_clear", 0, 0, 0, f_sound_clear},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	811 {"sound_playevent", 1, 2, 0, f_sound_playevent},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	812 {"sound_playfile", 1, 2, 0, f_sound_playfile},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	813 {"sound_stop", 1, 1, 0, f_sound_stop},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	814 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	815 {"soundfold", 1, 1, 0, f_soundfold},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	816 {"spellbadword", 0, 1, 0, f_spellbadword},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	817 {"spellsuggest", 1, 3, 0, f_spellsuggest},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	818 {"split", 1, 3, FEARG_1, f_split},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	819 #ifdef FEAT_FLOAT
17765 545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	820 {"sqrt", 1, 1, FEARG_1, f_sqrt},
545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	821 {"str2float", 1, 1, FEARG_1, f_str2float},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	822 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	823 {"str2list", 1, 2, FEARG_1, f_str2list},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	824 {"str2nr", 1, 2, 0, f_str2nr},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	825 {"strcharpart", 2, 3, 0, f_strcharpart},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	826 {"strchars", 1, 2, 0, f_strchars},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	827 {"strdisplaywidth", 1, 2, 0, f_strdisplaywidth},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	828 #ifdef HAVE_STRFTIME
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	829 {"strftime", 1, 2, 0, f_strftime},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	830 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	831 {"strgetchar", 2, 2, 0, f_strgetchar},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	832 {"stridx", 2, 3, 0, f_stridx},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	833 {"string", 1, 1, FEARG_1, f_string},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	834 {"strlen", 1, 1, FEARG_1, f_strlen},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	835 {"strpart", 2, 3, 0, f_strpart},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	836 {"strridx", 2, 3, 0, f_strridx},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	837 {"strtrans", 1, 1, FEARG_1, f_strtrans},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	838 {"strwidth", 1, 1, FEARG_1, f_strwidth},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	839 {"submatch", 1, 2, 0, f_submatch},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	840 {"substitute", 4, 4, FEARG_1, f_substitute},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	841 {"swapinfo", 1, 1, 0, f_swapinfo},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	842 {"swapname", 1, 1, 0, f_swapname},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	843 {"synID", 3, 3, 0, f_synID},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	844 {"synIDattr", 2, 3, FEARG_1, f_synIDattr},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	845 {"synIDtrans", 1, 1, FEARG_1, f_synIDtrans},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	846 {"synconcealed", 2, 2, 0, f_synconcealed},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	847 {"synstack", 2, 2, 0, f_synstack},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	848 {"system", 1, 2, FEARG_1, f_system},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	849 {"systemlist", 1, 2, FEARG_1, f_systemlist},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	850 {"tabpagebuflist", 0, 1, 0, f_tabpagebuflist},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	851 {"tabpagenr", 0, 1, 0, f_tabpagenr},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	852 {"tabpagewinnr", 1, 2, 0, f_tabpagewinnr},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	853 {"tagfiles", 0, 0, 0, f_tagfiles},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	854 {"taglist", 1, 2, 0, f_taglist},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	855 #ifdef FEAT_FLOAT
17765 545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	856 {"tan", 1, 1, FEARG_1, f_tan},
545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	857 {"tanh", 1, 1, FEARG_1, f_tanh},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	858 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	859 {"tempname", 0, 0, 0, f_tempname},
11846 1c65cad8b967 patch 8.0.0804: terminal window functions not yet implemented Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	860 #ifdef FEAT_TERMINAL
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	861 {"term_dumpdiff", 2, 3, 0, f_term_dumpdiff},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	862 {"term_dumpload", 1, 2, 0, f_term_dumpload},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	863 {"term_dumpwrite", 2, 3, 0, f_term_dumpwrite},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	864 {"term_getaltscreen", 1, 1, 0, f_term_getaltscreen},
13626 ab89131d30e0 patch 8.0.1685: can't set ANSI colors of a terminal window Christian Brabandt <cb@256bit.org> parents: 13587 diff changeset	865 # if defined(FEAT_GUI) \|\| defined(FEAT_TERMGUICOLORS)
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	866 {"term_getansicolors", 1, 1, 0, f_term_getansicolors},
13626 ab89131d30e0 patch 8.0.1685: can't set ANSI colors of a terminal window Christian Brabandt <cb@256bit.org> parents: 13587 diff changeset	867 # endif
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	868 {"term_getattr", 2, 2, 0, f_term_getattr},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	869 {"term_getcursor", 1, 1, 0, f_term_getcursor},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	870 {"term_getjob", 1, 1, 0, f_term_getjob},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	871 {"term_getline", 2, 2, 0, f_term_getline},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	872 {"term_getscrolled", 1, 1, 0, f_term_getscrolled},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	873 {"term_getsize", 1, 1, 0, f_term_getsize},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	874 {"term_getstatus", 1, 1, 0, f_term_getstatus},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	875 {"term_gettitle", 1, 1, 0, f_term_gettitle},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	876 {"term_gettty", 1, 2, 0, f_term_gettty},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	877 {"term_list", 0, 0, 0, f_term_list},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	878 {"term_scrape", 2, 2, 0, f_term_scrape},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	879 {"term_sendkeys", 2, 2, 0, f_term_sendkeys},
13626 ab89131d30e0 patch 8.0.1685: can't set ANSI colors of a terminal window Christian Brabandt <cb@256bit.org> parents: 13587 diff changeset	880 # if defined(FEAT_GUI) \|\| defined(FEAT_TERMGUICOLORS)
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	881 {"term_setansicolors", 2, 2, 0, f_term_setansicolors},
13626 ab89131d30e0 patch 8.0.1685: can't set ANSI colors of a terminal window Christian Brabandt <cb@256bit.org> parents: 13587 diff changeset	882 # endif
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	883 {"term_setkill", 2, 2, 0, f_term_setkill},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	884 {"term_setrestore", 2, 2, 0, f_term_setrestore},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	885 {"term_setsize", 3, 3, 0, f_term_setsize},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	886 {"term_start", 1, 2, 0, f_term_start},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	887 {"term_wait", 1, 2, 0, f_term_wait},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	888 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	889 {"test_alloc_fail", 3, 3, 0, f_test_alloc_fail},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	890 {"test_autochdir", 0, 0, 0, f_test_autochdir},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	891 {"test_feedinput", 1, 1, 0, f_test_feedinput},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	892 {"test_garbagecollect_now", 0, 0, 0, f_test_garbagecollect_now},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	893 {"test_garbagecollect_soon", 0, 0, 0, f_test_garbagecollect_soon},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	894 {"test_getvalue", 1, 1, 0, f_test_getvalue},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	895 {"test_ignore_error", 1, 1, 0, f_test_ignore_error},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	896 {"test_null_blob", 0, 0, 0, f_test_null_blob},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	897 #ifdef FEAT_JOB_CHANNEL
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	898 {"test_null_channel", 0, 0, 0, f_test_null_channel},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	899 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	900 {"test_null_dict", 0, 0, 0, f_test_null_dict},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	901 #ifdef FEAT_JOB_CHANNEL
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	902 {"test_null_job", 0, 0, 0, f_test_null_job},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	903 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	904 {"test_null_list", 0, 0, 0, f_test_null_list},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	905 {"test_null_partial", 0, 0, 0, f_test_null_partial},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	906 {"test_null_string", 0, 0, 0, f_test_null_string},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	907 {"test_option_not_set", 1, 1, 0, f_test_option_not_set},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	908 {"test_override", 2, 2, 0, f_test_override},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	909 {"test_refcount", 1, 1, 0, f_test_refcount},
14756 a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 14752 diff changeset	910 #ifdef FEAT_GUI
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	911 {"test_scrollbar", 3, 3, 0, f_test_scrollbar},
14756 a179e5cfcab7 patch 8.1.0390: scrollbars are not tested Christian Brabandt <cb@256bit.org> parents: 14752 diff changeset	912 #endif
16568 9e991ede1b59 patch 8.1.1287: cannot build with +eval but without +mouse Bram Moolenaar <Bram@vim.org> parents: 16527 diff changeset	913 #ifdef FEAT_MOUSE
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	914 {"test_setmouse", 2, 2, 0, f_test_setmouse},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	915 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	916 {"test_settime", 1, 1, 0, f_test_settime},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	917 #ifdef FEAT_TIMERS
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	918 {"timer_info", 0, 1, 0, f_timer_info},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	919 {"timer_pause", 2, 2, 0, f_timer_pause},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	920 {"timer_start", 2, 3, 0, f_timer_start},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	921 {"timer_stop", 1, 1, 0, f_timer_stop},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	922 {"timer_stopall", 0, 0, 0, f_timer_stopall},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	923 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	924 {"tolower", 1, 1, 0, f_tolower},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	925 {"toupper", 1, 1, 0, f_toupper},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	926 {"tr", 3, 3, 0, f_tr},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	927 {"trim", 1, 2, 0, f_trim},
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	928 #ifdef FEAT_FLOAT
17765 545119cd5554 patch 8.1.1879: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17756 diff changeset	929 {"trunc", 1, 1, FEARG_1, f_trunc},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	930 #endif
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	931 {"type", 1, 1, FEARG_1, f_type},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	932 {"undofile", 1, 1, 0, f_undofile},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	933 {"undotree", 0, 0, 0, f_undotree},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	934 {"uniq", 1, 3, FEARG_1, f_uniq},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	935 {"values", 1, 1, FEARG_1, f_values},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	936 {"virtcol", 1, 1, 0, f_virtcol},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	937 {"visualmode", 0, 1, 0, f_visualmode},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	938 {"wildmenumode", 0, 0, 0, f_wildmenumode},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	939 {"win_execute", 2, 3, 0, f_win_execute},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	940 {"win_findbuf", 1, 1, 0, f_win_findbuf},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	941 {"win_getid", 0, 2, 0, f_win_getid},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	942 {"win_gotoid", 1, 1, 0, f_win_gotoid},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	943 {"win_id2tabwin", 1, 1, 0, f_win_id2tabwin},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	944 {"win_id2win", 1, 1, 0, f_win_id2win},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	945 {"win_screenpos", 1, 1, 0, f_win_screenpos},
17825 ce993ba17adb patch 8.1.1909: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17817 diff changeset	946 {"winbufnr", 1, 1, FEARG_1, f_winbufnr},
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	947 {"wincol", 0, 0, 0, f_wincol},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	948 {"winheight", 1, 1, 0, f_winheight},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	949 {"winlayout", 0, 1, 0, f_winlayout},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	950 {"winline", 0, 0, 0, f_winline},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	951 {"winnr", 0, 1, 0, f_winnr},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	952 {"winrestcmd", 0, 0, 0, f_winrestcmd},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	953 {"winrestview", 1, 1, 0, f_winrestview},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	954 {"winsaveview", 0, 0, 0, f_winsaveview},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	955 {"winwidth", 1, 1, 0, f_winwidth},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	956 {"wordcount", 0, 0, 0, f_wordcount},
1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	957 {"writefile", 2, 3, 0, f_writefile},
17783 45eca7143d7c patch 8.1.1888: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17781 diff changeset	958 {"xor", 2, 2, FEARG_1, f_xor},
17612 e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	959 };
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	960
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	961 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	962 * Function given to ExpandGeneric() to obtain the list of internal
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	963 * or user defined function names.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	964 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	965 char_u *
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	966 get_function_name(expand_T *xp, int idx)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	967 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	968 static int intidx = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	969 char_u *name;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	970
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	971 if (idx == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	972 intidx = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	973 if (intidx < 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	974 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	975 name = get_user_func_name(xp, idx);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	976 if (name != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	977 return name;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	978 }
17612 e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	979 if (++intidx < (int)(sizeof(global_functions) / sizeof(funcentry_T)))
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	980 {
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	981 STRCPY(IObuff, global_functions[intidx].f_name);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	982 STRCAT(IObuff, "(");
17612 e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	983 if (global_functions[intidx].f_max_argc == 0)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	984 STRCAT(IObuff, ")");
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	985 return IObuff;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	986 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	987
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	988 return NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	989 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	990
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	991 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	992 * Function given to ExpandGeneric() to obtain the list of internal or
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	993 * user defined variable or function names.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	994 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	995 char_u *
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	996 get_expr_name(expand_T *xp, int idx)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	997 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	998 static int intidx = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	999 char_u *name;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1000
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1001 if (idx == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1002 intidx = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1003 if (intidx < 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1004 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1005 name = get_function_name(xp, idx);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1006 if (name != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1007 return name;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1008 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1009 return get_user_var_name(xp, ++intidx);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1010 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1011
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1012 /*
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	1013 * Find internal function "name" in table "global_functions".
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1014 * Return index, or -1 if not found
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1015 */
17612 e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1016 static int
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	1017 find_internal_func(char_u *name)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1018 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1019 int first = 0;
17612 e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1020 int last;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1021 int cmp;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1022 int x;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1023
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	1024 last = (int)(sizeof(global_functions) / sizeof(funcentry_T)) - 1;
17612 e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1025
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1026 // Find the function name in the table. Binary search.
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1027 while (first <= last)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1028 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1029 x = first + ((unsigned)(last - first) >> 1);
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	1030 cmp = STRCMP(name, global_functions[x].f_name);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1031 if (cmp < 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1032 last = x - 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1033 else if (cmp > 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1034 first = x + 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1035 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1036 return x;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1037 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1038 return -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1039 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1040
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1041 int
17612 e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1042 has_internal_func(char_u *name)
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1043 {
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	1044 return find_internal_func(name) >= 0;
17612 e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1045 }
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1046
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1047 int
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1048 call_internal_func(
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1049 char_u *name,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1050 int argcount,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1051 typval_T *argvars,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1052 typval_T *rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1053 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1054 int i;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1055
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	1056 i = find_internal_func(name);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1057 if (i < 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1058 return ERROR_UNKNOWN;
17612 e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1059 if (argcount < global_functions[i].f_min_argc)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1060 return ERROR_TOOFEW;
17612 e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1061 if (argcount > global_functions[i].f_max_argc)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1062 return ERROR_TOOMANY;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1063 argvars[argcount].v_type = VAR_UNKNOWN;
17612 e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1064 global_functions[i].f_func(argvars, rettv);
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1065 return ERROR_NONE;
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1066 }
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1067
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1068 /*
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1069 * Invoke a method for base->method().
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1070 */
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1071 int
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1072 call_internal_method(
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1073 char_u *name,
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1074 int argcount,
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1075 typval_T *argvars,
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1076 typval_T *rettv,
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1077 typval_T *basetv)
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1078 {
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1079 int i;
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1080 int fi;
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1081 typval_T argv[MAX_FUNC_ARGS + 1];
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1082
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	1083 fi = find_internal_func(name);
17732 1726c2db81bf patch 8.1.1863: confusing error when using a builtin function as method Bram Moolenaar <Bram@vim.org> parents: 17728 diff changeset	1084 if (fi < 0)
17612 e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1085 return ERROR_UNKNOWN;
17732 1726c2db81bf patch 8.1.1863: confusing error when using a builtin function as method Bram Moolenaar <Bram@vim.org> parents: 17728 diff changeset	1086 if (global_functions[fi].f_argtype == 0)
1726c2db81bf patch 8.1.1863: confusing error when using a builtin function as method Bram Moolenaar <Bram@vim.org> parents: 17728 diff changeset	1087 return ERROR_NOTMETHOD;
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	1088 if (argcount + 1 < global_functions[fi].f_min_argc)
17612 e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1089 return ERROR_TOOFEW;
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	1090 if (argcount + 1 > global_functions[fi].f_max_argc)
17612 e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1091 return ERROR_TOOMANY;
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1092
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	1093 if (global_functions[fi].f_argtype == FEARG_LAST)
17620 072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	1094 {
072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	1095 // base value goes last
072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	1096 for (i = 0; i < argcount; ++i)
072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	1097 argv[i] = argvars[i];
072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	1098 argv[argcount] = *basetv;
072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	1099 }
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	1100 else if (global_functions[fi].f_argtype == FEARG_2)
17620 072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	1101 {
072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	1102 // base value goes second
072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	1103 argv[0] = argvars[0];
072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	1104 argv[1] = *basetv;
072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	1105 for (i = 1; i < argcount; ++i)
072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	1106 argv[i + 1] = argvars[i];
072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	1107 }
17728 68ea27d26d5b patch 8.1.1861: only some assert functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17704 diff changeset	1108 else if (global_functions[fi].f_argtype == FEARG_3)
68ea27d26d5b patch 8.1.1861: only some assert functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17704 diff changeset	1109 {
68ea27d26d5b patch 8.1.1861: only some assert functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17704 diff changeset	1110 // base value goes third
68ea27d26d5b patch 8.1.1861: only some assert functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17704 diff changeset	1111 argv[0] = argvars[0];
68ea27d26d5b patch 8.1.1861: only some assert functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17704 diff changeset	1112 argv[1] = argvars[1];
68ea27d26d5b patch 8.1.1861: only some assert functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17704 diff changeset	1113 argv[2] = *basetv;
68ea27d26d5b patch 8.1.1861: only some assert functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17704 diff changeset	1114 for (i = 2; i < argcount; ++i)
68ea27d26d5b patch 8.1.1861: only some assert functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17704 diff changeset	1115 argv[i + 1] = argvars[i];
68ea27d26d5b patch 8.1.1861: only some assert functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17704 diff changeset	1116 }
17620 072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	1117 else
072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	1118 {
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	1119 // FEARG_1: base value goes first
17620 072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	1120 argv[0] = *basetv;
072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	1121 for (i = 0; i < argcount; ++i)
072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	1122 argv[i + 1] = argvars[i];
072efa9ca875 patch 8.1.1807: more functions can be used as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	1123 }
17612 e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1124 argv[argcount + 1].v_type = VAR_UNKNOWN;
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17588 diff changeset	1125
17636 1687c8935ab6 patch 8.1.1815: duplicating info for internal functions Bram Moolenaar <Bram@vim.org> parents: 17624 diff changeset	1126 global_functions[fi].f_func(argv, rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1127 return ERROR_NONE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1128 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1129
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1130 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1131 * Return TRUE for a non-zero Number and a non-empty String.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1132 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1133 static int
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1134 non_zero_arg(typval_T *argvars)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1135 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1136 return ((argvars[0].v_type == VAR_NUMBER
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1137 && argvars[0].vval.v_number != 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1138 \|\| (argvars[0].v_type == VAR_SPECIAL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1139 && argvars[0].vval.v_number == VVAL_TRUE)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1140 \|\| (argvars[0].v_type == VAR_STRING
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1141 && argvars[0].vval.v_string != NULL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1142 && *argvars[0].vval.v_string != NUL));
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1143 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1144
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1145 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1146 * Get the lnum from the first argument.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1147 * Also accepts ".", "$", etc., but that only works for the current buffer.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1148 * Returns -1 on error.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1149 */
17218 210c4c5f783d patch 8.1.1608: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17178 diff changeset	1150 linenr_T
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1151 tv_get_lnum(typval_T *argvars)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1152 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1153 linenr_T lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1154
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1155 lnum = (linenr_T)tv_get_number_chk(&argvars[0], NULL);
17956 1f6d5f9ddeb0 patch 8.1.1974: Coverity warns for using pointer as array Bram Moolenaar <Bram@vim.org> parents: 17942 diff changeset	1156 if (lnum == 0) // no valid number, try using arg like line()
1f6d5f9ddeb0 patch 8.1.1974: Coverity warns for using pointer as array Bram Moolenaar <Bram@vim.org> parents: 17942 diff changeset	1157 {
1f6d5f9ddeb0 patch 8.1.1974: Coverity warns for using pointer as array Bram Moolenaar <Bram@vim.org> parents: 17942 diff changeset	1158 int fnum;
1f6d5f9ddeb0 patch 8.1.1974: Coverity warns for using pointer as array Bram Moolenaar <Bram@vim.org> parents: 17942 diff changeset	1159 pos_T *fp = var2fpos(&argvars[0], TRUE, &fnum);
1f6d5f9ddeb0 patch 8.1.1974: Coverity warns for using pointer as array Bram Moolenaar <Bram@vim.org> parents: 17942 diff changeset	1160
1f6d5f9ddeb0 patch 8.1.1974: Coverity warns for using pointer as array Bram Moolenaar <Bram@vim.org> parents: 17942 diff changeset	1161 if (fp != NULL)
1f6d5f9ddeb0 patch 8.1.1974: Coverity warns for using pointer as array Bram Moolenaar <Bram@vim.org> parents: 17942 diff changeset	1162 lnum = fp->lnum;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1163 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1164 return lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1165 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1166
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1167 /*
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1168 * Get the lnum from the first argument.
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1169 * Also accepts "$", then "buf" is used.
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1170 * Returns 0 on error.
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1171 */
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1172 static linenr_T
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1173 tv_get_lnum_buf(typval_T argvars, buf_T buf)
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1174 {
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1175 if (argvars[0].v_type == VAR_STRING
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1176 && argvars[0].vval.v_string != NULL
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1177 && argvars[0].vval.v_string[0] == '$'
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1178 && buf != NULL)
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1179 return buf->b_ml.ml_line_count;
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1180 return (linenr_T)tv_get_number_chk(&argvars[0], NULL);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1181 }
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1182
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1183 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1184 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1185 * Get the float value of "argvars[0]" into "f".
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1186 * Returns FAIL when the argument is not a Number or Float.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1187 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1188 static int
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1189 get_float_arg(typval_T argvars, float_T f)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1190 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1191 if (argvars[0].v_type == VAR_FLOAT)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1192 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1193 *f = argvars[0].vval.v_float;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1194 return OK;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1195 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1196 if (argvars[0].v_type == VAR_NUMBER)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1197 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1198 *f = (float_T)argvars[0].vval.v_number;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1199 return OK;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1200 }
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	1201 emsg(_("E808: Number or Float required"));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1202 return FAIL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1203 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1204
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1205 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1206 * "abs(expr)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1207 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1208 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1209 f_abs(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1210 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1211 if (argvars[0].v_type == VAR_FLOAT)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1212 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1213 rettv->v_type = VAR_FLOAT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1214 rettv->vval.v_float = fabs(argvars[0].vval.v_float);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1215 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1216 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1217 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1218 varnumber_T n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1219 int error = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1220
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1221 n = tv_get_number_chk(&argvars[0], &error);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1222 if (error)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1223 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1224 else if (n > 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1225 rettv->vval.v_number = n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1226 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1227 rettv->vval.v_number = -n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1228 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1229 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1230
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1231 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1232 * "acos()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1233 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1234 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1235 f_acos(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1236 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1237 float_T f = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1238
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1239 rettv->v_type = VAR_FLOAT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1240 if (get_float_arg(argvars, &f) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1241 rettv->vval.v_float = acos(f);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1242 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1243 rettv->vval.v_float = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1244 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1245 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1246
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1247 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1248 * "add(list, item)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1249 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1250 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1251 f_add(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1252 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1253 list_T *l;
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	1254 blob_T *b;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1255
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1256 rettv->vval.v_number = 1; /* Default: Failed */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1257 if (argvars[0].v_type == VAR_LIST)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1258 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1259 if ((l = argvars[0].vval.v_list) != NULL
15780 5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference Bram Moolenaar <Bram@vim.org> parents: 15774 diff changeset	1260 && !var_check_lock(l->lv_lock,
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1261 (char_u *)N_("add() argument"), TRUE)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1262 && list_append_tv(l, &argvars[1]) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1263 copy_tv(&argvars[0], rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1264 }
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	1265 else if (argvars[0].v_type == VAR_BLOB)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	1266 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	1267 if ((b = argvars[0].vval.v_blob) != NULL
15780 5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference Bram Moolenaar <Bram@vim.org> parents: 15774 diff changeset	1268 && !var_check_lock(b->bv_lock,
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	1269 (char_u *)N_("add() argument"), TRUE))
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	1270 {
15468 1550cc188ff6 patch 8.1.0742: not all Blob operations are tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	1271 int error = FALSE;
1550cc188ff6 patch 8.1.0742: not all Blob operations are tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	1272 varnumber_T n = tv_get_number_chk(&argvars[1], &error);
1550cc188ff6 patch 8.1.0742: not all Blob operations are tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	1273
1550cc188ff6 patch 8.1.0742: not all Blob operations are tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	1274 if (!error)
1550cc188ff6 patch 8.1.0742: not all Blob operations are tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	1275 {
1550cc188ff6 patch 8.1.0742: not all Blob operations are tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	1276 ga_append(&b->bv_ga, (int)n);
1550cc188ff6 patch 8.1.0742: not all Blob operations are tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	1277 copy_tv(&argvars[0], rettv);
1550cc188ff6 patch 8.1.0742: not all Blob operations are tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	1278 }
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	1279 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	1280 }
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1281 else
15571 4af72c724093 patch 8.1.0793: incorrect error messages for functions that take a Blob Bram Moolenaar <Bram@vim.org> parents: 15543 diff changeset	1282 emsg(_(e_listblobreq));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1283 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1284
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1285 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1286 * "and(expr, expr)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1287 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1288 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1289 f_and(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1290 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1291 rettv->vval.v_number = tv_get_number_chk(&argvars[0], NULL)
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1292 & tv_get_number_chk(&argvars[1], NULL);
14039 acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1293 }
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1294
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1295 /*
14043 cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	1296 * If there is a window for "curbuf", make it the current window.
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	1297 */
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	1298 static void
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	1299 find_win_for_curbuf(void)
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	1300 {
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	1301 wininfo_T *wip;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	1302
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	1303 for (wip = curbuf->b_wininfo; wip != NULL; wip = wip->wi_next)
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	1304 {
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	1305 if (wip->wi_win != NULL)
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	1306 {
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	1307 curwin = wip->wi_win;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	1308 break;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	1309 }
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	1310 }
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	1311 }
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	1312
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	1313 /*
14039 acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1314 * Set line or list of lines in buffer "buf".
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1315 */
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1316 static void
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1317 set_buffer_lines(
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1318 buf_T *buf,
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1319 linenr_T lnum_arg,
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1320 int append,
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1321 typval_T *lines,
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1322 typval_T *rettv)
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1323 {
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1324 linenr_T lnum = lnum_arg + (append ? 1 : 0);
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1325 char_u *line = NULL;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1326 list_T *l = NULL;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1327 listitem_T *li = NULL;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1328 long added = 0;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1329 linenr_T append_lnum;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1330 buf_T *curbuf_save = NULL;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1331 win_T *curwin_save = NULL;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1332 int is_curbuf = buf == curbuf;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1333
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1334 /* When using the current buffer ml_mfp will be set if needed. Useful when
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1335 * setline() is used on startup. For other buffers the buffer must be
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1336 * loaded. */
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1337 if (buf == NULL \|\| (!is_curbuf && buf->b_ml.ml_mfp == NULL) \|\| lnum < 1)
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1338 {
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1339 rettv->vval.v_number = 1; /* FAIL */
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1340 return;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1341 }
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1342
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1343 if (!is_curbuf)
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1344 {
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1345 curbuf_save = curbuf;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1346 curwin_save = curwin;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1347 curbuf = buf;
14043 cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	1348 find_win_for_curbuf();
14039 acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1349 }
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1350
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1351 if (append)
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1352 // appendbufline() uses the line number below which we insert
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1353 append_lnum = lnum - 1;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1354 else
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1355 // setbufline() uses the line number above which we insert, we only
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1356 // append if it's below the last line
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1357 append_lnum = curbuf->b_ml.ml_line_count;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1358
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1359 if (lines->v_type == VAR_LIST)
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1360 {
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1361 l = lines->vval.v_list;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1362 li = l->lv_first;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1363 }
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1364 else
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1365 line = tv_get_string_chk(lines);
14039 acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1366
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1367 /* default result is zero == OK */
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1368 for (;;)
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1369 {
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1370 if (l != NULL)
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1371 {
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1372 /* list argument, get next string */
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1373 if (li == NULL)
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1374 break;
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1375 line = tv_get_string_chk(&li->li_tv);
14039 acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1376 li = li->li_next;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1377 }
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1378
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1379 rettv->vval.v_number = 1; /* FAIL */
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1380 if (line == NULL \|\| lnum > curbuf->b_ml.ml_line_count + 1)
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1381 break;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1382
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1383 /* When coming here from Insert mode, sync undo, so that this can be
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1384 * undone separately from what was previously inserted. */
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1385 if (u_sync_once == 2)
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1386 {
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1387 u_sync_once = 1; /* notify that u_sync() was called */
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1388 u_sync(TRUE);
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1389 }
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1390
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1391 if (!append && lnum <= curbuf->b_ml.ml_line_count)
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1392 {
15365 01ee8dc12313 patch 8.1.0690: setline() and setbufline() do not clear text properties Bram Moolenaar <Bram@vim.org> parents: 15355 diff changeset	1393 // Existing line, replace it.
01ee8dc12313 patch 8.1.0690: setline() and setbufline() do not clear text properties Bram Moolenaar <Bram@vim.org> parents: 15355 diff changeset	1394 // Removes any existing text properties.
01ee8dc12313 patch 8.1.0690: setline() and setbufline() do not clear text properties Bram Moolenaar <Bram@vim.org> parents: 15355 diff changeset	1395 if (u_savesub(lnum) == OK && ml_replace_len(
01ee8dc12313 patch 8.1.0690: setline() and setbufline() do not clear text properties Bram Moolenaar <Bram@vim.org> parents: 15355 diff changeset	1396 lnum, line, (colnr_T)STRLEN(line) + 1, TRUE, TRUE) == OK)
14039 acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1397 {
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1398 changed_bytes(lnum, 0);
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1399 if (is_curbuf && lnum == curwin->w_cursor.lnum)
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1400 check_cursor_col();
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1401 rettv->vval.v_number = 0; /* OK */
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1402 }
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1403 }
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1404 else if (added > 0 \|\| u_save(lnum - 1, lnum) == OK)
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1405 {
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1406 /* append the line */
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1407 ++added;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1408 if (ml_append(lnum - 1, line, (colnr_T)0, FALSE) == OK)
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1409 rettv->vval.v_number = 0; /* OK */
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1410 }
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1411
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1412 if (l == NULL) /* only one string argument */
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1413 break;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1414 ++lnum;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1415 }
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1416
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1417 if (added > 0)
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1418 {
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1419 win_T *wp;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1420 tabpage_T *tp;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1421
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1422 appended_lines_mark(append_lnum, added);
17871 521ce0d887e5 patch 8.1.1932: ml_get errors after using append() Bram Moolenaar <Bram@vim.org> parents: 17857 diff changeset	1423
521ce0d887e5 patch 8.1.1932: ml_get errors after using append() Bram Moolenaar <Bram@vim.org> parents: 17857 diff changeset	1424 // Only adjust the cursor for buffers other than the current, unless it
521ce0d887e5 patch 8.1.1932: ml_get errors after using append() Bram Moolenaar <Bram@vim.org> parents: 17857 diff changeset	1425 // is the current window. For curbuf and other windows it has been
521ce0d887e5 patch 8.1.1932: ml_get errors after using append() Bram Moolenaar <Bram@vim.org> parents: 17857 diff changeset	1426 // done in mark_adjust_internal().
14039 acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1427 FOR_ALL_TAB_WINDOWS(tp, wp)
17871 521ce0d887e5 patch 8.1.1932: ml_get errors after using append() Bram Moolenaar <Bram@vim.org> parents: 17857 diff changeset	1428 if (wp->w_buffer == buf
521ce0d887e5 patch 8.1.1932: ml_get errors after using append() Bram Moolenaar <Bram@vim.org> parents: 17857 diff changeset	1429 && (wp->w_buffer != curbuf \|\| wp == curwin)
521ce0d887e5 patch 8.1.1932: ml_get errors after using append() Bram Moolenaar <Bram@vim.org> parents: 17857 diff changeset	1430 && wp->w_cursor.lnum > append_lnum)
14039 acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1431 wp->w_cursor.lnum += added;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1432 check_cursor_col();
17518 bfc5a2962f38 patch 8.1.1757: text added with appendbufline() isn't displayed Bram Moolenaar <Bram@vim.org> parents: 17506 diff changeset	1433 update_topline();
14039 acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1434 }
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1435
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1436 if (!is_curbuf)
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1437 {
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1438 curbuf = curbuf_save;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1439 curwin = curwin_save;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1440 }
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1441 }
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1442
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1443 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1444 * "append(lnum, string/list)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1445 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1446 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1447 f_append(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1448 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1449 linenr_T lnum = tv_get_lnum(&argvars[0]);
14039 acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1450
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1451 set_buffer_lines(curbuf, lnum, TRUE, &argvars[1], rettv);
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1452 }
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1453
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1454 /*
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1455 * "appendbufline(buf, lnum, string/list)" function
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1456 */
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1457 static void
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1458 f_appendbufline(typval_T argvars, typval_T rettv)
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1459 {
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1460 linenr_T lnum;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1461 buf_T *buf;
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1462
15355 73b153ed5af8 patch 8.1.0685: get_buf_tv() is named inconsistently Bram Moolenaar <Bram@vim.org> parents: 15343 diff changeset	1463 buf = tv_get_buf(&argvars[0], FALSE);
14039 acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1464 if (buf == NULL)
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1465 rettv->vval.v_number = 1; /* FAIL */
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1466 else
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1467 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1468 lnum = tv_get_lnum_buf(&argvars[1], buf);
14039 acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1469 set_buffer_lines(buf, lnum, TRUE, &argvars[2], rettv);
acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	1470 }
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1471 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1472
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1473 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1474 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1475 * "asin()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1476 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1477 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1478 f_asin(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1479 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1480 float_T f = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1481
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1482 rettv->v_type = VAR_FLOAT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1483 if (get_float_arg(argvars, &f) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1484 rettv->vval.v_float = asin(f);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1485 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1486 rettv->vval.v_float = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1487 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1488
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1489 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1490 * "atan()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1491 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1492 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1493 f_atan(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1494 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1495 float_T f = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1496
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1497 rettv->v_type = VAR_FLOAT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1498 if (get_float_arg(argvars, &f) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1499 rettv->vval.v_float = atan(f);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1500 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1501 rettv->vval.v_float = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1502 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1503
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1504 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1505 * "atan2()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1506 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1507 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1508 f_atan2(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1509 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1510 float_T fx = 0.0, fy = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1511
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1512 rettv->v_type = VAR_FLOAT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1513 if (get_float_arg(argvars, &fx) == OK
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1514 && get_float_arg(&argvars[1], &fy) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1515 rettv->vval.v_float = atan2(fx, fy);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1516 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1517 rettv->vval.v_float = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1518 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1519 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1520
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1521 /*
11014 fb2bcfa6a8de patch 8.0.0396: 'balloonexpr' only works synchronously Christian Brabandt <cb@256bit.org> parents: 11006 diff changeset	1522 * "balloon_show()" function
fb2bcfa6a8de patch 8.0.0396: 'balloonexpr' only works synchronously Christian Brabandt <cb@256bit.org> parents: 11006 diff changeset	1523 */
fb2bcfa6a8de patch 8.0.0396: 'balloonexpr' only works synchronously Christian Brabandt <cb@256bit.org> parents: 11006 diff changeset	1524 #ifdef FEAT_BEVAL
fb2bcfa6a8de patch 8.0.0396: 'balloonexpr' only works synchronously Christian Brabandt <cb@256bit.org> parents: 11006 diff changeset	1525 static void
16600 ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1526 f_balloon_gettext(typval_T argvars UNUSED, typval_T rettv)
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1527 {
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1528 rettv->v_type = VAR_STRING;
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1529 if (balloonEval != NULL)
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1530 {
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1531 if (balloonEval->msg == NULL)
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1532 rettv->vval.v_string = NULL;
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1533 else
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1534 rettv->vval.v_string = vim_strsave(balloonEval->msg);
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1535 }
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1536 }
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1537
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1538 static void
11014 fb2bcfa6a8de patch 8.0.0396: 'balloonexpr' only works synchronously Christian Brabandt <cb@256bit.org> parents: 11006 diff changeset	1539 f_balloon_show(typval_T argvars, typval_T rettv UNUSED)
fb2bcfa6a8de patch 8.0.0396: 'balloonexpr' only works synchronously Christian Brabandt <cb@256bit.org> parents: 11006 diff changeset	1540 {
11020 50f3e37bc210 patch 8.0.0399: crash when using balloon_show() when not supported Christian Brabandt <cb@256bit.org> parents: 11014 diff changeset	1541 if (balloonEval != NULL)
12883 058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1542 {
058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1543 if (argvars[0].v_type == VAR_LIST
058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1544 # ifdef FEAT_GUI
058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1545 && !gui.in_use
058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1546 # endif
058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1547 )
16600 ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1548 {
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1549 list_T *l = argvars[0].vval.v_list;
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1550
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1551 // empty list removes the balloon
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1552 post_balloon(balloonEval, NULL,
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1553 l == NULL \|\| l->lv_len == 0 ? NULL : l);
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1554 }
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1555 else
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1556 {
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1557 char_u *mesg = tv_get_string_chk(&argvars[0]);
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1558
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1559 if (mesg != NULL)
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1560 // empty string removes the balloon
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1561 post_balloon(balloonEval, *mesg == NUL ? NULL : mesg, NULL);
ff3c99bd1038 patch 8.1.1303: not possible to hide a balloon Bram Moolenaar <Bram@vim.org> parents: 16576 diff changeset	1562 }
12883 058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1563 }
058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1564 }
058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1565
12885 10cb5c3df3f5 patch 8.0.1319: can't build GUI on MS-Windows Christian Brabandt <cb@256bit.org> parents: 12883 diff changeset	1566 # if defined(FEAT_BEVAL_TERM)
12883 058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1567 static void
058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1568 f_balloon_split(typval_T argvars, typval_T rettv UNUSED)
058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1569 {
058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1570 if (rettv_list_alloc(rettv) == OK)
058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1571 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1572 char_u *msg = tv_get_string_chk(&argvars[0]);
12883 058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1573
058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1574 if (msg != NULL)
058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1575 {
058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1576 pumitem_T *array;
058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1577 int size = split_message(msg, &array);
058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1578 int i;
058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1579
058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1580 /* Skip the first and last item, they are always empty. */
058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1581 for (i = 1; i < size - 1; ++i)
058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1582 list_append_string(rettv->vval.v_list, array[i].pum_text, -1);
13236 fee03d646e42 patch 8.0.1492: memory leak in balloon_split() Christian Brabandt <cb@256bit.org> parents: 13229 diff changeset	1583 while (size > 0)
fee03d646e42 patch 8.0.1492: memory leak in balloon_split() Christian Brabandt <cb@256bit.org> parents: 13229 diff changeset	1584 vim_free(array[--size].pum_text);
12883 058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1585 vim_free(array);
058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1586 }
058e93aee621 patch 8.0.1318: terminal balloon only shows one line Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1587 }
11014 fb2bcfa6a8de patch 8.0.0396: 'balloonexpr' only works synchronously Christian Brabandt <cb@256bit.org> parents: 11006 diff changeset	1588 }
12885 10cb5c3df3f5 patch 8.0.1319: can't build GUI on MS-Windows Christian Brabandt <cb@256bit.org> parents: 12883 diff changeset	1589 # endif
11014 fb2bcfa6a8de patch 8.0.0396: 'balloonexpr' only works synchronously Christian Brabandt <cb@256bit.org> parents: 11006 diff changeset	1590 #endif
fb2bcfa6a8de patch 8.0.0396: 'balloonexpr' only works synchronously Christian Brabandt <cb@256bit.org> parents: 11006 diff changeset	1591
fb2bcfa6a8de patch 8.0.0396: 'balloonexpr' only works synchronously Christian Brabandt <cb@256bit.org> parents: 11006 diff changeset	1592 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1593 * "browse(save, title, initdir, default)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1594 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1595 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1596 f_browse(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1597 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1598 #ifdef FEAT_BROWSE
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1599 int save;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1600 char_u *title;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1601 char_u *initdir;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1602 char_u *defname;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1603 char_u buf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1604 char_u buf2[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1605 int error = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1606
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1607 save = (int)tv_get_number_chk(&argvars[0], &error);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1608 title = tv_get_string_chk(&argvars[1]);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1609 initdir = tv_get_string_buf_chk(&argvars[2], buf);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1610 defname = tv_get_string_buf_chk(&argvars[3], buf2);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1611
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1612 if (error \|\| title == NULL \|\| initdir == NULL \|\| defname == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1613 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1614 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1615 rettv->vval.v_string =
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1616 do_browse(save ? BROWSE_SAVE : 0,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1617 title, defname, NULL, initdir, NULL, curbuf);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1618 #else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1619 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1620 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1621 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1622 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1623
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1624 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1625 * "browsedir(title, initdir)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1626 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1627 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1628 f_browsedir(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1629 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1630 #ifdef FEAT_BROWSE
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1631 char_u *title;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1632 char_u *initdir;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1633 char_u buf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1634
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1635 title = tv_get_string_chk(&argvars[0]);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1636 initdir = tv_get_string_buf_chk(&argvars[1], buf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1637
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1638 if (title == NULL \|\| initdir == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1639 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1640 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1641 rettv->vval.v_string = do_browse(BROWSE_DIR,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1642 title, NULL, NULL, initdir, NULL, curbuf);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1643 #else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1644 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1645 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1646 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1647 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1648
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1649 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1650 * Find a buffer by number or exact name.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1651 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1652 static buf_T *
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1653 find_buffer(typval_T *avar)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1654 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1655 buf_T *buf = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1656
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1657 if (avar->v_type == VAR_NUMBER)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1658 buf = buflist_findnr((int)avar->vval.v_number);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1659 else if (avar->v_type == VAR_STRING && avar->vval.v_string != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1660 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1661 buf = buflist_findname_exp(avar->vval.v_string);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1662 if (buf == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1663 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1664 /* No full path name match, try a match with a URL or a "nofile"
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1665 * buffer, these don't use the full path. */
9649 fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07 Christian Brabandt <cb@256bit.org> parents: 9636 diff changeset	1666 FOR_ALL_BUFFERS(buf)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1667 if (buf->b_fname != NULL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1668 && (path_with_url(buf->b_fname)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1669 #ifdef FEAT_QUICKFIX
17095 10e0d7d96cb0 patch 8.1.1547: functionality of bt_nofile() is confusing Bram Moolenaar <Bram@vim.org> parents: 17045 diff changeset	1670 \|\| bt_nofilename(buf)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1671 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1672 )
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1673 && STRCMP(buf->b_fname, avar->vval.v_string) == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1674 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1675 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1676 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1677 return buf;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1678 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1679
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1680 /*
17221 a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17218 diff changeset	1681 * "bufadd(expr)" function
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17218 diff changeset	1682 */
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17218 diff changeset	1683 static void
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17218 diff changeset	1684 f_bufadd(typval_T argvars, typval_T rettv)
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17218 diff changeset	1685 {
17223 07bbe73b8e74 patch 8.1.1611: bufadd() reuses existing buffer without a name Bram Moolenaar <Bram@vim.org> parents: 17221 diff changeset	1686 char_u *name = tv_get_string(&argvars[0]);
07bbe73b8e74 patch 8.1.1611: bufadd() reuses existing buffer without a name Bram Moolenaar <Bram@vim.org> parents: 17221 diff changeset	1687
07bbe73b8e74 patch 8.1.1611: bufadd() reuses existing buffer without a name Bram Moolenaar <Bram@vim.org> parents: 17221 diff changeset	1688 rettv->vval.v_number = buflist_add(*name == NUL ? NULL : name, 0);
17221 a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17218 diff changeset	1689 }
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17218 diff changeset	1690
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17218 diff changeset	1691 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1692 * "bufexists(expr)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1693 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1694 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1695 f_bufexists(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1696 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1697 rettv->vval.v_number = (find_buffer(&argvars[0]) != NULL);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1698 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1699
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1700 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1701 * "buflisted(expr)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1702 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1703 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1704 f_buflisted(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1705 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1706 buf_T *buf;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1707
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1708 buf = find_buffer(&argvars[0]);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1709 rettv->vval.v_number = (buf != NULL && buf->b_p_bl);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1710 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1711
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1712 /*
17221 a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17218 diff changeset	1713 * "bufload(expr)" function
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17218 diff changeset	1714 */
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17218 diff changeset	1715 static void
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17218 diff changeset	1716 f_bufload(typval_T argvars, typval_T rettv UNUSED)
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17218 diff changeset	1717 {
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17218 diff changeset	1718 buf_T *buf = get_buf_arg(&argvars[0]);
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17218 diff changeset	1719
17225 09fa437d33d8 patch 8.1.1612: cannot show an existing buffer in a popup window Bram Moolenaar <Bram@vim.org> parents: 17223 diff changeset	1720 if (buf != NULL)
09fa437d33d8 patch 8.1.1612: cannot show an existing buffer in a popup window Bram Moolenaar <Bram@vim.org> parents: 17223 diff changeset	1721 buffer_ensure_loaded(buf);
17221 a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17218 diff changeset	1722 }
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17218 diff changeset	1723
a8fc7d97b54d patch 8.1.1610: there is no way to add or load a buffer without side effects Bram Moolenaar <Bram@vim.org> parents: 17218 diff changeset	1724 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1725 * "bufloaded(expr)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1726 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1727 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1728 f_bufloaded(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1729 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1730 buf_T *buf;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1731
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1732 buf = find_buffer(&argvars[0]);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1733 rettv->vval.v_number = (buf != NULL && buf->b_ml.ml_mfp != NULL);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1734 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1735
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1736 buf_T *
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1737 buflist_find_by_name(char_u *name, int curtab_only)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1738 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1739 int save_magic;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1740 char_u *save_cpo;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1741 buf_T *buf;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1742
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1743 /* Ignore 'magic' and 'cpoptions' here to make scripts portable */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1744 save_magic = p_magic;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1745 p_magic = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1746 save_cpo = p_cpo;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1747 p_cpo = (char_u *)"";
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1748
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1749 buf = buflist_findnr(buflist_findpat(name, name + STRLEN(name),
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1750 TRUE, FALSE, curtab_only));
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1751
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1752 p_magic = save_magic;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1753 p_cpo = save_cpo;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1754 return buf;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1755 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1756
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1757 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1758 * Get buffer by number or pattern.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1759 */
11846 1c65cad8b967 patch 8.0.0804: terminal window functions not yet implemented Christian Brabandt <cb@256bit.org> parents: 11828 diff changeset	1760 buf_T *
15355 73b153ed5af8 patch 8.1.0685: get_buf_tv() is named inconsistently Bram Moolenaar <Bram@vim.org> parents: 15343 diff changeset	1761 tv_get_buf(typval_T *tv, int curtab_only)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1762 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1763 char_u *name = tv->vval.v_string;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1764 buf_T *buf;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1765
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1766 if (tv->v_type == VAR_NUMBER)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1767 return buflist_findnr((int)tv->vval.v_number);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1768 if (tv->v_type != VAR_STRING)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1769 return NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1770 if (name == NULL \|\| *name == NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1771 return curbuf;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1772 if (name[0] == '$' && name[1] == NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1773 return lastbuf;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1774
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1775 buf = buflist_find_by_name(name, curtab_only);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1776
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1777 /* If not found, try expanding the name, like done for bufexists(). */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1778 if (buf == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1779 buf = find_buffer(tv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1780
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1781 return buf;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1782 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1783
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1784 /*
15418 51b3c36b0523 patch 8.1.0717: there is no function for the ":sign jump" command Bram Moolenaar <Bram@vim.org> parents: 15388 diff changeset	1785 * Get the buffer from "arg" and give an error and return NULL if it is not
51b3c36b0523 patch 8.1.0717: there is no function for the ":sign jump" command Bram Moolenaar <Bram@vim.org> parents: 15388 diff changeset	1786 * valid.
51b3c36b0523 patch 8.1.0717: there is no function for the ":sign jump" command Bram Moolenaar <Bram@vim.org> parents: 15388 diff changeset	1787 */
16638 4790302965fc patch 8.1.1321: no docs or tests for listener functions Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	1788 buf_T *
15418 51b3c36b0523 patch 8.1.0717: there is no function for the ":sign jump" command Bram Moolenaar <Bram@vim.org> parents: 15388 diff changeset	1789 get_buf_arg(typval_T *arg)
51b3c36b0523 patch 8.1.0717: there is no function for the ":sign jump" command Bram Moolenaar <Bram@vim.org> parents: 15388 diff changeset	1790 {
51b3c36b0523 patch 8.1.0717: there is no function for the ":sign jump" command Bram Moolenaar <Bram@vim.org> parents: 15388 diff changeset	1791 buf_T *buf;
51b3c36b0523 patch 8.1.0717: there is no function for the ":sign jump" command Bram Moolenaar <Bram@vim.org> parents: 15388 diff changeset	1792
51b3c36b0523 patch 8.1.0717: there is no function for the ":sign jump" command Bram Moolenaar <Bram@vim.org> parents: 15388 diff changeset	1793 ++emsg_off;
51b3c36b0523 patch 8.1.0717: there is no function for the ":sign jump" command Bram Moolenaar <Bram@vim.org> parents: 15388 diff changeset	1794 buf = tv_get_buf(arg, FALSE);
51b3c36b0523 patch 8.1.0717: there is no function for the ":sign jump" command Bram Moolenaar <Bram@vim.org> parents: 15388 diff changeset	1795 --emsg_off;
51b3c36b0523 patch 8.1.0717: there is no function for the ":sign jump" command Bram Moolenaar <Bram@vim.org> parents: 15388 diff changeset	1796 if (buf == NULL)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	1797 semsg(_("E158: Invalid buffer name: %s"), tv_get_string(arg));
15418 51b3c36b0523 patch 8.1.0717: there is no function for the ":sign jump" command Bram Moolenaar <Bram@vim.org> parents: 15388 diff changeset	1798 return buf;
51b3c36b0523 patch 8.1.0717: there is no function for the ":sign jump" command Bram Moolenaar <Bram@vim.org> parents: 15388 diff changeset	1799 }
51b3c36b0523 patch 8.1.0717: there is no function for the ":sign jump" command Bram Moolenaar <Bram@vim.org> parents: 15388 diff changeset	1800
51b3c36b0523 patch 8.1.0717: there is no function for the ":sign jump" command Bram Moolenaar <Bram@vim.org> parents: 15388 diff changeset	1801 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1802 * "bufname(expr)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1803 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1804 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1805 f_bufname(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1806 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1807 buf_T *buf;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1808
17855 285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	1809 if (argvars[0].v_type == VAR_UNKNOWN)
285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	1810 buf = curbuf;
285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	1811 else
285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	1812 {
285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	1813 (void)tv_get_number(&argvars[0]); // issue errmsg if type error
285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	1814 ++emsg_off;
285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	1815 buf = tv_get_buf(&argvars[0], FALSE);
285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	1816 --emsg_off;
285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	1817 }
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1818 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1819 if (buf != NULL && buf->b_fname != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1820 rettv->vval.v_string = vim_strsave(buf->b_fname);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1821 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1822 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1823 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1824
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1825 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1826 * "bufnr(expr)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1827 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1828 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1829 f_bufnr(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1830 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1831 buf_T *buf;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1832 int error = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1833 char_u *name;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1834
17855 285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	1835 if (argvars[0].v_type == VAR_UNKNOWN)
285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	1836 buf = curbuf;
285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	1837 else
285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	1838 {
285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	1839 (void)tv_get_number(&argvars[0]); // issue errmsg if type error
285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	1840 ++emsg_off;
285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	1841 buf = tv_get_buf(&argvars[0], FALSE);
285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	1842 --emsg_off;
285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	1843 }
285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	1844
285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	1845 // If the buffer isn't found and the second argument is not zero create a
285f7a700185 patch 8.1.1924: using empty string for current buffer is unexpected Bram Moolenaar <Bram@vim.org> parents: 17849 diff changeset	1846 // new buffer.
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1847 if (buf == NULL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1848 && argvars[1].v_type != VAR_UNKNOWN
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1849 && tv_get_number_chk(&argvars[1], &error) != 0
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1850 && !error
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1851 && (name = tv_get_string_chk(&argvars[0])) != NULL
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1852 && !error)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1853 buf = buflist_new(name, NULL, (linenr_T)1, 0);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1854
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1855 if (buf != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1856 rettv->vval.v_number = buf->b_fnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1857 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1858 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1859 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1860
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1861 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1862 buf_win_common(typval_T argvars, typval_T rettv, int get_nr)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1863 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1864 win_T *wp;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1865 int winnr = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1866 buf_T *buf;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1867
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1868 (void)tv_get_number(&argvars[0]); /* issue errmsg if type error */
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1869 ++emsg_off;
15355 73b153ed5af8 patch 8.1.0685: get_buf_tv() is named inconsistently Bram Moolenaar <Bram@vim.org> parents: 15343 diff changeset	1870 buf = tv_get_buf(&argvars[0], TRUE);
9649 fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07 Christian Brabandt <cb@256bit.org> parents: 9636 diff changeset	1871 FOR_ALL_WINDOWS(wp)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1872 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1873 ++winnr;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1874 if (wp->w_buffer == buf)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1875 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1876 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1877 rettv->vval.v_number = (wp != NULL ? (get_nr ? winnr : wp->w_id) : -1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1878 --emsg_off;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1879 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1880
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1881 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1882 * "bufwinid(nr)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1883 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1884 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1885 f_bufwinid(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1886 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1887 buf_win_common(argvars, rettv, FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1888 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1889
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1890 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1891 * "bufwinnr(nr)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1892 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1893 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1894 f_bufwinnr(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1895 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1896 buf_win_common(argvars, rettv, TRUE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1897 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1898
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1899 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1900 * "byte2line(byte)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1901 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1902 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1903 f_byte2line(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1904 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1905 #ifndef FEAT_BYTEOFF
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1906 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1907 #else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1908 long boff = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1909
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1910 boff = tv_get_number(&argvars[0]) - 1; /* boff gets -1 on type error */
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1911 if (boff < 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1912 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1913 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1914 rettv->vval.v_number = ml_find_line_or_offset(curbuf,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1915 (linenr_T)0, &boff);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1916 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1917 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1918
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1919 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1920 byteidx(typval_T argvars, typval_T rettv, int comp UNUSED)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1921 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1922 char_u *t;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1923 char_u *str;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1924 varnumber_T idx;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1925
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1926 str = tv_get_string_chk(&argvars[0]);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1927 idx = tv_get_number_chk(&argvars[1], NULL);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1928 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1929 if (str == NULL \|\| idx < 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1930 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1931
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1932 t = str;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1933 for ( ; idx > 0; idx--)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1934 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1935 if (t == NUL) / EOL reached */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1936 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1937 if (enc_utf8 && comp)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1938 t += utf_ptr2len(t);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1939 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1940 t += (*mb_ptr2len)(t);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1941 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1942 rettv->vval.v_number = (varnumber_T)(t - str);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1943 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1944
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1945 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1946 * "byteidx()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1947 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1948 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1949 f_byteidx(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1950 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1951 byteidx(argvars, rettv, FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1952 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1953
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1954 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1955 * "byteidxcomp()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1956 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1957 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1958 f_byteidxcomp(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1959 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1960 byteidx(argvars, rettv, TRUE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1961 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1962
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1963 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1964 * "call(func, arglist [, dict])" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1965 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1966 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1967 f_call(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1968 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1969 char_u *func;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1970 partial_T *partial = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1971 dict_T *selfdict = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1972
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1973 if (argvars[1].v_type != VAR_LIST)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1974 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	1975 emsg(_(e_listreq));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1976 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1977 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1978 if (argvars[1].vval.v_list == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1979 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1980
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1981 if (argvars[0].v_type == VAR_FUNC)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1982 func = argvars[0].vval.v_string;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1983 else if (argvars[0].v_type == VAR_PARTIAL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1984 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1985 partial = argvars[0].vval.v_partial;
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	1986 func = partial_name(partial);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1987 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1988 else
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1989 func = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1990 if (*func == NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1991 return; /* type error or empty name */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1992
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1993 if (argvars[2].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1994 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1995 if (argvars[2].v_type != VAR_DICT)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1996 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	1997 emsg(_(e_dictreq));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1998 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	1999 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2000 selfdict = argvars[2].vval.v_dict;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2001 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2002
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2003 (void)func_call(func, &argvars[1], partial, selfdict, rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2004 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2005
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2006 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2007 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2008 * "ceil({float})" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2009 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2010 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2011 f_ceil(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2012 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2013 float_T f = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2014
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2015 rettv->v_type = VAR_FLOAT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2016 if (get_float_arg(argvars, &f) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2017 rettv->vval.v_float = ceil(f);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2018 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2019 rettv->vval.v_float = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2020 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2021 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2022
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2023 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2024 * "changenr()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2025 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2026 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2027 f_changenr(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2028 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2029 rettv->vval.v_number = curbuf->b_u_seq_cur;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2030 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2031
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2032 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2033 * "char2nr(string)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2034 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2035 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2036 f_char2nr(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2037 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2038 if (has_mbyte)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2039 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2040 int utf8 = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2041
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2042 if (argvars[1].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2043 utf8 = (int)tv_get_number_chk(&argvars[1], NULL);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2044
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2045 if (utf8)
15967 ddd82b1c9e9d patch 8.1.0989: various small code ugliness Bram Moolenaar <Bram@vim.org> parents: 15955 diff changeset	2046 rettv->vval.v_number = utf_ptr2char(tv_get_string(&argvars[0]));
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2047 else
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2048 rettv->vval.v_number = (*mb_ptr2char)(tv_get_string(&argvars[0]));
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2049 }
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2050 else
15595 1ec942f1b648 patch 8.1.0805: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15579 diff changeset	2051 rettv->vval.v_number = tv_get_string(&argvars[0])[0];
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2052 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2053
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2054 /*
16576 bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2055 * "chdir(dir)" function
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2056 */
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2057 static void
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2058 f_chdir(typval_T argvars, typval_T rettv)
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2059 {
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2060 char_u *cwd;
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2061 cdscope_T scope = CDSCOPE_GLOBAL;
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2062
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2063 rettv->v_type = VAR_STRING;
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2064 rettv->vval.v_string = NULL;
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2065
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2066 if (argvars[0].v_type != VAR_STRING)
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2067 return;
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2068
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2069 // Return the current directory
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2070 cwd = alloc(MAXPATHL);
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2071 if (cwd != NULL)
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2072 {
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2073 if (mch_dirname(cwd, MAXPATHL) != FAIL)
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2074 {
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2075 #ifdef BACKSLASH_IN_FILENAME
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2076 slash_adjust(cwd);
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2077 #endif
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2078 rettv->vval.v_string = vim_strsave(cwd);
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2079 }
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2080 vim_free(cwd);
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2081 }
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2082
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2083 if (curwin->w_localdir != NULL)
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2084 scope = CDSCOPE_WINDOW;
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2085 else if (curtab->tp_localdir != NULL)
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2086 scope = CDSCOPE_TABPAGE;
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2087
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2088 if (!changedir_func(argvars[0].vval.v_string, TRUE, scope))
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2089 // Directory change failed
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2090 VIM_CLEAR(rettv->vval.v_string);
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2091 }
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2092
bcc343175103 patch 8.1.1291: not easy to change directory and restore Bram Moolenaar <Bram@vim.org> parents: 16568 diff changeset	2093 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2094 * "cindent(lnum)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2095 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2096 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2097 f_cindent(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2098 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2099 #ifdef FEAT_CINDENT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2100 pos_T pos;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2101 linenr_T lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2102
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2103 pos = curwin->w_cursor;
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2104 lnum = tv_get_lnum(argvars);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2105 if (lnum >= 1 && lnum <= curbuf->b_ml.ml_line_count)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2106 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2107 curwin->w_cursor.lnum = lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2108 rettv->vval.v_number = get_c_indent();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2109 curwin->w_cursor = pos;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2110 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2111 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2112 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2113 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2114 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2115
17472 dfd87ef822aa patch 8.1.1734: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17377 diff changeset	2116 win_T *
16158 aef0f93d3eba patch 8.1.1084: cannot delete a match from another window Bram Moolenaar <Bram@vim.org> parents: 16144 diff changeset	2117 get_optional_window(typval_T *argvars, int idx)
aef0f93d3eba patch 8.1.1084: cannot delete a match from another window Bram Moolenaar <Bram@vim.org> parents: 16144 diff changeset	2118 {
aef0f93d3eba patch 8.1.1084: cannot delete a match from another window Bram Moolenaar <Bram@vim.org> parents: 16144 diff changeset	2119 win_T *win = curwin;
aef0f93d3eba patch 8.1.1084: cannot delete a match from another window Bram Moolenaar <Bram@vim.org> parents: 16144 diff changeset	2120
aef0f93d3eba patch 8.1.1084: cannot delete a match from another window Bram Moolenaar <Bram@vim.org> parents: 16144 diff changeset	2121 if (argvars[idx].v_type != VAR_UNKNOWN)
aef0f93d3eba patch 8.1.1084: cannot delete a match from another window Bram Moolenaar <Bram@vim.org> parents: 16144 diff changeset	2122 {
aef0f93d3eba patch 8.1.1084: cannot delete a match from another window Bram Moolenaar <Bram@vim.org> parents: 16144 diff changeset	2123 win = find_win_by_nr_or_id(&argvars[idx]);
aef0f93d3eba patch 8.1.1084: cannot delete a match from another window Bram Moolenaar <Bram@vim.org> parents: 16144 diff changeset	2124 if (win == NULL)
aef0f93d3eba patch 8.1.1084: cannot delete a match from another window Bram Moolenaar <Bram@vim.org> parents: 16144 diff changeset	2125 {
aef0f93d3eba patch 8.1.1084: cannot delete a match from another window Bram Moolenaar <Bram@vim.org> parents: 16144 diff changeset	2126 emsg(_(e_invalwindow));
aef0f93d3eba patch 8.1.1084: cannot delete a match from another window Bram Moolenaar <Bram@vim.org> parents: 16144 diff changeset	2127 return NULL;
aef0f93d3eba patch 8.1.1084: cannot delete a match from another window Bram Moolenaar <Bram@vim.org> parents: 16144 diff changeset	2128 }
aef0f93d3eba patch 8.1.1084: cannot delete a match from another window Bram Moolenaar <Bram@vim.org> parents: 16144 diff changeset	2129 }
aef0f93d3eba patch 8.1.1084: cannot delete a match from another window Bram Moolenaar <Bram@vim.org> parents: 16144 diff changeset	2130 return win;
aef0f93d3eba patch 8.1.1084: cannot delete a match from another window Bram Moolenaar <Bram@vim.org> parents: 16144 diff changeset	2131 }
aef0f93d3eba patch 8.1.1084: cannot delete a match from another window Bram Moolenaar <Bram@vim.org> parents: 16144 diff changeset	2132
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2133 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2134 * "col(string)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2135 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2136 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2137 f_col(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2138 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2139 colnr_T col = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2140 pos_T *fp;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2141 int fnum = curbuf->b_fnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2142
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2143 fp = var2fpos(&argvars[0], FALSE, &fnum);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2144 if (fp != NULL && fnum == curbuf->b_fnum)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2145 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2146 if (fp->col == MAXCOL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2147 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2148 /* '> can be MAXCOL, get the length of the line then */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2149 if (fp->lnum <= curbuf->b_ml.ml_line_count)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2150 col = (colnr_T)STRLEN(ml_get(fp->lnum)) + 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2151 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2152 col = MAXCOL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2153 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2154 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2155 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2156 col = fp->col + 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2157 /* col(".") when the cursor is on the NUL at the end of the line
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2158 * because of "coladd" can be seen as an extra column. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2159 if (virtual_active() && fp == &curwin->w_cursor)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2160 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2161 char_u *p = ml_get_cursor();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2162
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2163 if (curwin->w_cursor.coladd >= (colnr_T)chartabsize(p,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2164 curwin->w_virtcol - curwin->w_cursor.coladd))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2165 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2166 int l;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2167
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2168 if (p != NUL && p[(l = (mb_ptr2len)(p))] == NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2169 col += l;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2170 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2171 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2172 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2173 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2174 rettv->vval.v_number = col;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2175 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2176
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2177 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2178 * "confirm(message, buttons[, default [, type]])" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2179 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2180 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2181 f_confirm(typval_T argvars UNUSED, typval_T rettv UNUSED)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2182 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2183 #if defined(FEAT_GUI_DIALOG) \|\| defined(FEAT_CON_DIALOG)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2184 char_u *message;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2185 char_u *buttons = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2186 char_u buf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2187 char_u buf2[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2188 int def = 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2189 int type = VIM_GENERIC;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2190 char_u *typestr;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2191 int error = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2192
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2193 message = tv_get_string_chk(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2194 if (message == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2195 error = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2196 if (argvars[1].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2197 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2198 buttons = tv_get_string_buf_chk(&argvars[1], buf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2199 if (buttons == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2200 error = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2201 if (argvars[2].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2202 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2203 def = (int)tv_get_number_chk(&argvars[2], &error);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2204 if (argvars[3].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2205 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2206 typestr = tv_get_string_buf_chk(&argvars[3], buf2);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2207 if (typestr == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2208 error = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2209 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2210 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2211 switch (TOUPPER_ASC(*typestr))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2212 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2213 case 'E': type = VIM_ERROR; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2214 case 'Q': type = VIM_QUESTION; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2215 case 'I': type = VIM_INFO; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2216 case 'W': type = VIM_WARNING; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2217 case 'G': type = VIM_GENERIC; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2218 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2219 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2220 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2221 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2222 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2223
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2224 if (buttons == NULL \|\| *buttons == NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2225 buttons = (char_u *)_("&Ok");
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2226
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2227 if (!error)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2228 rettv->vval.v_number = do_dialog(type, NULL, message, buttons,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2229 def, NULL, FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2230 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2231 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2232
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2233 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2234 * "copy()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2235 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2236 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2237 f_copy(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2238 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2239 item_copy(&argvars[0], rettv, FALSE, 0);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2240 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2241
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2242 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2243 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2244 * "cos()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2245 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2246 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2247 f_cos(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2248 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2249 float_T f = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2250
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2251 rettv->v_type = VAR_FLOAT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2252 if (get_float_arg(argvars, &f) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2253 rettv->vval.v_float = cos(f);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2254 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2255 rettv->vval.v_float = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2256 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2257
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2258 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2259 * "cosh()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2260 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2261 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2262 f_cosh(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2263 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2264 float_T f = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2265
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2266 rettv->v_type = VAR_FLOAT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2267 if (get_float_arg(argvars, &f) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2268 rettv->vval.v_float = cosh(f);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2269 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2270 rettv->vval.v_float = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2271 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2272 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2273
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2274 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2275 * "count()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2276 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2277 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2278 f_count(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2279 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2280 long n = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2281 int ic = FALSE;
11828 5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2282 int error = FALSE;
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2283
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2284 if (argvars[2].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2285 ic = (int)tv_get_number_chk(&argvars[2], &error);
11828 5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2286
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2287 if (argvars[0].v_type == VAR_STRING)
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2288 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2289 char_u *expr = tv_get_string_chk(&argvars[1]);
11828 5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2290 char_u *p = argvars[0].vval.v_string;
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2291 char_u *next;
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2292
13070 17720967656c patch 8.0.1410: hang when using count() with an empty string Christian Brabandt <cb@256bit.org> parents: 13020 diff changeset	2293 if (!error && expr != NULL && *expr != NUL && p != NULL)
11828 5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2294 {
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2295 if (ic)
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2296 {
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2297 size_t len = STRLEN(expr);
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2298
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2299 while (*p != NUL)
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2300 {
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2301 if (MB_STRNICMP(p, expr, len) == 0)
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2302 {
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2303 ++n;
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2304 p += len;
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2305 }
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2306 else
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2307 MB_PTR_ADV(p);
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2308 }
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2309 }
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2310 else
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2311 while ((next = (char_u )strstr((char )p, (char *)expr))
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2312 != NULL)
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2313 {
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2314 ++n;
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2315 p = next + STRLEN(expr);
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2316 }
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2317 }
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2318
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2319 }
5a07a3ff56c1 patch 8.0.0794: checking translations fails with multiple NL Christian Brabandt <cb@256bit.org> parents: 11690 diff changeset	2320 else if (argvars[0].v_type == VAR_LIST)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2321 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2322 listitem_T *li;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2323 list_T *l;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2324 long idx;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2325
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2326 if ((l = argvars[0].vval.v_list) != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2327 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2328 li = l->lv_first;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2329 if (argvars[2].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2330 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2331 if (argvars[3].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2332 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2333 idx = (long)tv_get_number_chk(&argvars[3], &error);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2334 if (!error)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2335 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2336 li = list_find(l, idx);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2337 if (li == NULL)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	2338 semsg(_(e_listidx), idx);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2339 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2340 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2341 if (error)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2342 li = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2343 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2344
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2345 for ( ; li != NULL; li = li->li_next)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2346 if (tv_equal(&li->li_tv, &argvars[1], ic, FALSE))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2347 ++n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2348 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2349 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2350 else if (argvars[0].v_type == VAR_DICT)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2351 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2352 int todo;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2353 dict_T *d;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2354 hashitem_T *hi;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2355
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2356 if ((d = argvars[0].vval.v_dict) != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2357 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2358 if (argvars[2].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2359 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2360 if (argvars[3].v_type != VAR_UNKNOWN)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	2361 emsg(_(e_invarg));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2362 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2363
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2364 todo = error ? 0 : (int)d->dv_hashtab.ht_used;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2365 for (hi = d->dv_hashtab.ht_array; todo > 0; ++hi)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2366 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2367 if (!HASHITEM_EMPTY(hi))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2368 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2369 --todo;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2370 if (tv_equal(&HI2DI(hi)->di_tv, &argvars[1], ic, FALSE))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2371 ++n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2372 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2373 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2374 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2375 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2376 else
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	2377 semsg(_(e_listdictarg), "count()");
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2378 rettv->vval.v_number = n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2379 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2380
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2381 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2382 * "cscope_connection([{num} , {dbpath} [, {prepend}]])" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2383 *
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2384 * Checks the existence of a cscope connection.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2385 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2386 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2387 f_cscope_connection(typval_T argvars UNUSED, typval_T rettv UNUSED)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2388 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2389 #ifdef FEAT_CSCOPE
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2390 int num = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2391 char_u *dbpath = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2392 char_u *prepend = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2393 char_u buf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2394
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2395 if (argvars[0].v_type != VAR_UNKNOWN
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2396 && argvars[1].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2397 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2398 num = (int)tv_get_number(&argvars[0]);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2399 dbpath = tv_get_string(&argvars[1]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2400 if (argvars[2].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2401 prepend = tv_get_string_buf(&argvars[2], buf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2402 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2403
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2404 rettv->vval.v_number = cs_connection(num, dbpath, prepend);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2405 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2406 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2407
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2408 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2409 * "cursor(lnum, col)" function, or
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2410 * "cursor(list)"
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2411 *
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2412 * Moves the cursor to the specified line and column.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2413 * Returns 0 when the position could be set, -1 otherwise.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2414 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2415 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2416 f_cursor(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2417 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2418 long line, col;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2419 long coladd = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2420 int set_curswant = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2421
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2422 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2423 if (argvars[1].v_type == VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2424 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2425 pos_T pos;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2426 colnr_T curswant = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2427
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2428 if (list2fpos(argvars, &pos, NULL, &curswant) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2429 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	2430 emsg(_(e_invarg));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2431 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2432 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2433 line = pos.lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2434 col = pos.col;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2435 coladd = pos.coladd;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2436 if (curswant >= 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2437 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2438 curwin->w_curswant = curswant - 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2439 set_curswant = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2440 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2441 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2442 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2443 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2444 line = tv_get_lnum(argvars);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2445 col = (long)tv_get_number_chk(&argvars[1], NULL);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2446 if (argvars[2].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2447 coladd = (long)tv_get_number_chk(&argvars[2], NULL);
15636 6f1c7e9a6393 patch 8.1.0826: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15615 diff changeset	2448 }
6f1c7e9a6393 patch 8.1.0826: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15615 diff changeset	2449 if (line < 0 \|\| col < 0 \|\| coladd < 0)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2450 return; /* type error; errmsg already given */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2451 if (line > 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2452 curwin->w_cursor.lnum = line;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2453 if (col > 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2454 curwin->w_cursor.col = col - 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2455 curwin->w_cursor.coladd = coladd;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2456
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2457 /* Make sure the cursor is in a valid position. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2458 check_cursor();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2459 /* Correct cursor for multi-byte character. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2460 if (has_mbyte)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2461 mb_adjust_cursor();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2462
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2463 curwin->w_set_curswant = set_curswant;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2464 rettv->vval.v_number = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2465 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2466
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15850 diff changeset	2467 #ifdef MSWIN
14147 de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2468 /*
de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2469 * "debugbreak()" function
de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2470 */
de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2471 static void
de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2472 f_debugbreak(typval_T argvars, typval_T rettv)
de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2473 {
de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2474 int pid;
de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2475
de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2476 rettv->vval.v_number = FAIL;
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2477 pid = (int)tv_get_number(&argvars[0]);
14147 de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2478 if (pid == 0)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	2479 emsg(_(e_invarg));
14147 de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2480 else
de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2481 {
de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2482 HANDLE hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, pid);
de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2483
de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2484 if (hProcess != NULL)
de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2485 {
de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2486 DebugBreakProcess(hProcess);
de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2487 CloseHandle(hProcess);
de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2488 rettv->vval.v_number = OK;
de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2489 }
de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2490 }
de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2491 }
de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2492 #endif
de75c249723d patch 8.1.0091: MS-Windows: Cannot interrupt gdb when program is running Christian Brabandt <cb@256bit.org> parents: 14103 diff changeset	2493
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2494 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2495 * "deepcopy()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2496 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2497 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2498 f_deepcopy(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2499 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2500 int noref = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2501 int copyID;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2502
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2503 if (argvars[1].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2504 noref = (int)tv_get_number_chk(&argvars[1], NULL);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2505 if (noref < 0 \|\| noref > 1)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	2506 emsg(_(e_invarg));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2507 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2508 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2509 copyID = get_copyID();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2510 item_copy(&argvars[0], rettv, TRUE, noref == 0 ? copyID : 0);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2511 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2512 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2513
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2514 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2515 * "delete()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2516 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2517 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2518 f_delete(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2519 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2520 char_u nbuf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2521 char_u *name;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2522 char_u *flags;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2523
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2524 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2525 if (check_restricted() \|\| check_secure())
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2526 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2527
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2528 name = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2529 if (name == NULL \|\| *name == NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2530 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	2531 emsg(_(e_invarg));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2532 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2533 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2534
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2535 if (argvars[1].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2536 flags = tv_get_string_buf(&argvars[1], nbuf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2537 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2538 flags = (char_u *)"";
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2539
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2540 if (*flags == NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2541 /* delete a file */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2542 rettv->vval.v_number = mch_remove(name) == 0 ? 0 : -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2543 else if (STRCMP(flags, "d") == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2544 /* delete an empty directory */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2545 rettv->vval.v_number = mch_rmdir(name) == 0 ? 0 : -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2546 else if (STRCMP(flags, "rf") == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2547 /* delete a directory recursively */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2548 rettv->vval.v_number = delete_recursive(name);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2549 else
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	2550 semsg(_(e_invexpr2), flags);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2551 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2552
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2553 /*
14043 cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2554 * "deletebufline()" function
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2555 */
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2556 static void
14391 46f14852a919 patch 8.1.0210: still a few K&R function declarations Christian Brabandt <cb@256bit.org> parents: 14375 diff changeset	2557 f_deletebufline(typval_T argvars, typval_T rettv)
14043 cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2558 {
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2559 buf_T *buf;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2560 linenr_T first, last;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2561 linenr_T lnum;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2562 long count;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2563 int is_curbuf;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2564 buf_T *curbuf_save = NULL;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2565 win_T *curwin_save = NULL;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2566 tabpage_T *tp;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2567 win_T *wp;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2568
15355 73b153ed5af8 patch 8.1.0685: get_buf_tv() is named inconsistently Bram Moolenaar <Bram@vim.org> parents: 15343 diff changeset	2569 buf = tv_get_buf(&argvars[0], FALSE);
14043 cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2570 if (buf == NULL)
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2571 {
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2572 rettv->vval.v_number = 1; /* FAIL */
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2573 return;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2574 }
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2575 is_curbuf = buf == curbuf;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2576
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2577 first = tv_get_lnum_buf(&argvars[1], buf);
14043 cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2578 if (argvars[2].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2579 last = tv_get_lnum_buf(&argvars[2], buf);
14043 cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2580 else
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2581 last = first;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2582
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2583 if (buf->b_ml.ml_mfp == NULL \|\| first < 1
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2584 \|\| first > buf->b_ml.ml_line_count \|\| last < first)
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2585 {
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2586 rettv->vval.v_number = 1; /* FAIL */
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2587 return;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2588 }
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2589
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2590 if (!is_curbuf)
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2591 {
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2592 curbuf_save = curbuf;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2593 curwin_save = curwin;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2594 curbuf = buf;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2595 find_win_for_curbuf();
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2596 }
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2597 if (last > curbuf->b_ml.ml_line_count)
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2598 last = curbuf->b_ml.ml_line_count;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2599 count = last - first + 1;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2600
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2601 // When coming here from Insert mode, sync undo, so that this can be
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2602 // undone separately from what was previously inserted.
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2603 if (u_sync_once == 2)
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2604 {
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2605 u_sync_once = 1; // notify that u_sync() was called
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2606 u_sync(TRUE);
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2607 }
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2608
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2609 if (u_save(first - 1, last + 1) == FAIL)
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2610 {
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2611 rettv->vval.v_number = 1; /* FAIL */
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2612 return;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2613 }
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2614
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2615 for (lnum = first; lnum <= last; ++lnum)
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2616 ml_delete(first, TRUE);
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2617
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2618 FOR_ALL_TAB_WINDOWS(tp, wp)
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2619 if (wp->w_buffer == buf)
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2620 {
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2621 if (wp->w_cursor.lnum > last)
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2622 wp->w_cursor.lnum -= count;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2623 else if (wp->w_cursor.lnum> first)
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2624 wp->w_cursor.lnum = first;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2625 if (wp->w_cursor.lnum > wp->w_buffer->b_ml.ml_line_count)
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2626 wp->w_cursor.lnum = wp->w_buffer->b_ml.ml_line_count;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2627 }
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2628 check_cursor_col();
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2629 deleted_lines_mark(first, count);
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2630
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2631 if (!is_curbuf)
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2632 {
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2633 curbuf = curbuf_save;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2634 curwin = curwin_save;
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2635 }
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2636 }
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2637
cbad3b3f46b2 patch 8.1.0039: cannot easily delete lines in another buffer Christian Brabandt <cb@256bit.org> parents: 14039 diff changeset	2638 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2639 * "did_filetype()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2640 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2641 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2642 f_did_filetype(typval_T argvars UNUSED, typval_T rettv UNUSED)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2643 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2644 rettv->vval.v_number = did_filetype;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2645 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2646
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2647 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2648 * "diff_filler()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2649 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2650 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2651 f_diff_filler(typval_T argvars UNUSED, typval_T rettv UNUSED)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2652 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2653 #ifdef FEAT_DIFF
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2654 rettv->vval.v_number = diff_check_fill(curwin, tv_get_lnum(argvars));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2655 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2656 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2657
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2658 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2659 * "diff_hlID()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2660 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2661 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2662 f_diff_hlID(typval_T argvars UNUSED, typval_T rettv UNUSED)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2663 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2664 #ifdef FEAT_DIFF
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2665 linenr_T lnum = tv_get_lnum(argvars);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2666 static linenr_T prev_lnum = 0;
10889 5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	2667 static varnumber_T changedtick = 0;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2668 static int fnum = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2669 static int change_start = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2670 static int change_end = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2671 static hlf_T hlID = (hlf_T)0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2672 int filler_lines;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2673 int col;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2674
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2675 if (lnum < 0) /* ignore type error in {lnum} arg */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2676 lnum = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2677 if (lnum != prev_lnum
10952 835604f3c37a patch 8.0.0365: might free a dict item that wasn't allocated Christian Brabandt <cb@256bit.org> parents: 10912 diff changeset	2678 \|\| changedtick != CHANGEDTICK(curbuf)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2679 \|\| fnum != curbuf->b_fnum)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2680 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2681 /* New line, buffer, change: need to get the values. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2682 filler_lines = diff_check(curwin, lnum);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2683 if (filler_lines < 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2684 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2685 if (filler_lines == -1)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2686 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2687 change_start = MAXCOL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2688 change_end = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2689 if (diff_find_change(curwin, lnum, &change_start, &change_end))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2690 hlID = HLF_ADD; /* added line */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2691 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2692 hlID = HLF_CHD; /* changed line */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2693 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2694 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2695 hlID = HLF_ADD; /* added line */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2696 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2697 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2698 hlID = (hlf_T)0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2699 prev_lnum = lnum;
10952 835604f3c37a patch 8.0.0365: might free a dict item that wasn't allocated Christian Brabandt <cb@256bit.org> parents: 10912 diff changeset	2700 changedtick = CHANGEDTICK(curbuf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2701 fnum = curbuf->b_fnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2702 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2703
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2704 if (hlID == HLF_CHD \|\| hlID == HLF_TXD)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2705 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2706 col = tv_get_number(&argvars[1]) - 1; /* ignore type error in {col} */
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2707 if (col >= change_start && col <= change_end)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2708 hlID = HLF_TXD; /* changed text */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2709 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2710 hlID = HLF_CHD; /* changed line */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2711 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2712 rettv->vval.v_number = hlID == (hlf_T)0 ? 0 : (int)hlID;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2713 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2714 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2715
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2716 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2717 * "empty({expr})" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2718 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2719 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2720 f_empty(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2721 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2722 int n = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2723
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2724 switch (argvars[0].v_type)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2725 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2726 case VAR_STRING:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2727 case VAR_FUNC:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2728 n = argvars[0].vval.v_string == NULL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2729 \|\| *argvars[0].vval.v_string == NUL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2730 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2731 case VAR_PARTIAL:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2732 n = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2733 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2734 case VAR_NUMBER:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2735 n = argvars[0].vval.v_number == 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2736 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2737 case VAR_FLOAT:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2738 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2739 n = argvars[0].vval.v_float == 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2740 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2741 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2742 case VAR_LIST:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2743 n = argvars[0].vval.v_list == NULL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2744 \|\| argvars[0].vval.v_list->lv_first == NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2745 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2746 case VAR_DICT:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2747 n = argvars[0].vval.v_dict == NULL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2748 \|\| argvars[0].vval.v_dict->dv_hashtab.ht_used == 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2749 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2750 case VAR_SPECIAL:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2751 n = argvars[0].vval.v_number != VVAL_TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2752 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2753
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	2754 case VAR_BLOB:
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	2755 n = argvars[0].vval.v_blob == NULL
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	2756 \|\| argvars[0].vval.v_blob->bv_ga.ga_len == 0;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	2757 break;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	2758
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2759 case VAR_JOB:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2760 #ifdef FEAT_JOB_CHANNEL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2761 n = argvars[0].vval.v_job == NULL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2762 \|\| argvars[0].vval.v_job->jv_status != JOB_STARTED;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2763 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2764 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2765 case VAR_CHANNEL:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2766 #ifdef FEAT_JOB_CHANNEL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2767 n = argvars[0].vval.v_channel == NULL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2768 \|\| !channel_is_open(argvars[0].vval.v_channel);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2769 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2770 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2771 case VAR_UNKNOWN:
10359 66f1b5bf3fa6 commit https://github.com/vim/vim/commit/95f096030ed1a8afea028f2ea295d6f6a70f466f Christian Brabandt <cb@256bit.org> parents: 10277 diff changeset	2772 internal_error("f_empty(UNKNOWN)");
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2773 n = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2774 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2775 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2776
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2777 rettv->vval.v_number = n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2778 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2779
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2780 /*
16604 1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2781 * "environ()" function
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2782 */
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2783 static void
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2784 f_environ(typval_T argvars UNUSED, typval_T rettv)
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2785 {
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2786 #if !defined(AMIGA)
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2787 int i = 0;
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2788 char_u entry, value;
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2789 # ifdef MSWIN
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2790 extern wchar_t **_wenviron;
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2791 # else
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2792 extern char **environ;
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2793 # endif
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2794
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2795 if (rettv_dict_alloc(rettv) != OK)
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2796 return;
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2797
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2798 # ifdef MSWIN
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2799 if (*_wenviron == NULL)
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2800 return;
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2801 # else
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2802 if (*environ == NULL)
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2803 return;
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2804 # endif
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2805
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2806 for (i = 0; ; ++i)
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2807 {
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2808 # ifdef MSWIN
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2809 short_u *p;
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2810
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2811 if ((p = (short_u *)_wenviron[i]) == NULL)
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2812 return;
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2813 entry = utf16_to_enc(p, NULL);
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2814 # else
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2815 if ((entry = (char_u *)environ[i]) == NULL)
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2816 return;
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2817 entry = vim_strsave(entry);
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2818 # endif
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2819 if (entry == NULL) // out of memory
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2820 return;
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2821 if ((value = vim_strchr(entry, '=')) == NULL)
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2822 {
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2823 vim_free(entry);
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2824 continue;
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2825 }
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2826 *value++ = NUL;
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2827 dict_add_string(rettv->vval.v_dict, (char *)entry, value);
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2828 vim_free(entry);
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2829 }
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2830 #endif
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2831 }
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2832
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	2833 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2834 * "escape({string}, {chars})" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2835 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2836 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2837 f_escape(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2838 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2839 char_u buf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2840
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2841 rettv->vval.v_string = vim_strsave_escaped(tv_get_string(&argvars[0]),
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2842 tv_get_string_buf(&argvars[1], buf));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2843 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2844 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2845
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2846 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2847 * "eval()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2848 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2849 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2850 f_eval(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2851 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2852 char_u s, p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2853
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2854 s = tv_get_string_chk(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2855 if (s != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2856 s = skipwhite(s);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2857
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2858 p = s;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2859 if (s == NULL \|\| eval1(&s, rettv, TRUE) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2860 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2861 if (p != NULL && !aborting())
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	2862 semsg(_(e_invexpr2), p);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2863 need_clr_eos = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2864 rettv->v_type = VAR_NUMBER;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2865 rettv->vval.v_number = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2866 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2867 else if (*s != NUL)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	2868 emsg(_(e_trailing));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2869 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2870
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2871 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2872 * "eventhandler()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2873 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2874 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2875 f_eventhandler(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2876 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2877 rettv->vval.v_number = vgetc_busy;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2878 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2879
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2880 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2881 * "executable()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2882 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2883 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2884 f_executable(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2885 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2886 char_u *name = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2887
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2888 /* Check in $PATH and also check directly if there is a directory name. */
17484 f1fd0b0b335c patch 8.1.1740: exepath() doesn't work for "bin/cat" Bram Moolenaar <Bram@vim.org> parents: 17472 diff changeset	2889 rettv->vval.v_number = mch_can_exe(name, NULL, TRUE);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2890 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2891
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2892 static garray_T redir_execute_ga;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2893
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2894 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2895 * Append "value[value_len]" to the execute() output.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2896 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2897 void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2898 execute_redir_str(char_u *value, int value_len)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2899 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2900 int len;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2901
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2902 if (value_len == -1)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2903 len = (int)STRLEN(value); /* Append the entire string */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2904 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2905 len = value_len; /* Append only "value_len" characters */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2906 if (ga_grow(&redir_execute_ga, len) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2907 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2908 mch_memmove((char *)redir_execute_ga.ga_data
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2909 + redir_execute_ga.ga_len, value, len);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2910 redir_execute_ga.ga_len += len;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2911 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2912 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2913
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2914 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2915 * Get next line from a list.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2916 * Called by do_cmdline() to get the next line.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2917 * Returns allocated string, or NULL for end of function.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2918 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2919
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2920 static char_u *
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2921 get_list_line(
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2922 int c UNUSED,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2923 void *cookie,
17178 40c4cb095d53 patch 8.1.1588: in :let-heredoc line continuation is recognized Bram Moolenaar <Bram@vim.org> parents: 17170 diff changeset	2924 int indent UNUSED,
40c4cb095d53 patch 8.1.1588: in :let-heredoc line continuation is recognized Bram Moolenaar <Bram@vim.org> parents: 17170 diff changeset	2925 int do_concat UNUSED)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2926 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2927 listitem_T p = (listitem_T )cookie;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2928 listitem_T item = p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2929 char_u buf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2930 char_u *s;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2931
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2932 if (item == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2933 return NULL;
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	2934 s = tv_get_string_buf_chk(&item->li_tv, buf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2935 *p = item->li_next;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2936 return s == NULL ? NULL : vim_strsave(s);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2937 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2938
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2939 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2940 * "execute()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2941 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2942 static void
16833 6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	2943 execute_common(typval_T argvars, typval_T rettv, int arg_off)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2944 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2945 char_u *cmd = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2946 list_T *list = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2947 int save_msg_silent = msg_silent;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2948 int save_emsg_silent = emsg_silent;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2949 int save_emsg_noredir = emsg_noredir;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2950 int save_redir_execute = redir_execute;
13101 9b3f8029a326 patch 8.0.1425: execute() does not work in completion of user command Christian Brabandt <cb@256bit.org> parents: 13088 diff changeset	2951 int save_redir_off = redir_off;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2952 garray_T save_ga;
15117 2fed75dee954 patch 8.1.0569: execute() always resets display column to zero Bram Moolenaar <Bram@vim.org> parents: 15062 diff changeset	2953 int save_msg_col = msg_col;
15121 895abc8a5195 patch 8.1.0571: non-silent execute() resets display column to zero Bram Moolenaar <Bram@vim.org> parents: 15117 diff changeset	2954 int echo_output = FALSE;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2955
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2956 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2957 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2958
16833 6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	2959 if (argvars[arg_off].v_type == VAR_LIST)
6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	2960 {
6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	2961 list = argvars[arg_off].vval.v_list;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2962 if (list == NULL \|\| list->lv_first == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2963 /* empty list, no commands, empty output */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2964 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2965 ++list->lv_refcount;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2966 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2967 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2968 {
16833 6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	2969 cmd = tv_get_string_chk(&argvars[arg_off]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2970 if (cmd == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2971 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2972 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2973
16833 6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	2974 if (argvars[arg_off + 1].v_type != VAR_UNKNOWN)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2975 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2976 char_u buf[NUMBUFLEN];
16833 6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	2977 char_u *s = tv_get_string_buf_chk(&argvars[arg_off + 1], buf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2978
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2979 if (s == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2980 return;
15121 895abc8a5195 patch 8.1.0571: non-silent execute() resets display column to zero Bram Moolenaar <Bram@vim.org> parents: 15117 diff changeset	2981 if (*s == NUL)
895abc8a5195 patch 8.1.0571: non-silent execute() resets display column to zero Bram Moolenaar <Bram@vim.org> parents: 15117 diff changeset	2982 echo_output = TRUE;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2983 if (STRNCMP(s, "silent", 6) == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2984 ++msg_silent;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2985 if (STRCMP(s, "silent!") == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2986 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2987 emsg_silent = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2988 emsg_noredir = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2989 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2990 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2991 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2992 ++msg_silent;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2993
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2994 if (redir_execute)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2995 save_ga = redir_execute_ga;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2996 ga_init2(&redir_execute_ga, (int)sizeof(char), 500);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	2997 redir_execute = TRUE;
13101 9b3f8029a326 patch 8.0.1425: execute() does not work in completion of user command Christian Brabandt <cb@256bit.org> parents: 13088 diff changeset	2998 redir_off = FALSE;
15121 895abc8a5195 patch 8.1.0571: non-silent execute() resets display column to zero Bram Moolenaar <Bram@vim.org> parents: 15117 diff changeset	2999 if (!echo_output)
895abc8a5195 patch 8.1.0571: non-silent execute() resets display column to zero Bram Moolenaar <Bram@vim.org> parents: 15117 diff changeset	3000 msg_col = 0; // prevent leading spaces
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3001
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3002 if (cmd != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3003 do_cmdline_cmd(cmd);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3004 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3005 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3006 listitem_T *item = list->lv_first;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3007
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3008 do_cmdline(NULL, get_list_line, (void *)&item,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3009 DOCMD_NOWAIT\|DOCMD_VERBOSE\|DOCMD_REPEAT\|DOCMD_KEYTYPED);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3010 --list->lv_refcount;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3011 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3012
10749 a7789921b514 patch 8.0.0264: memory error reported by ubsan Christian Brabandt <cb@256bit.org> parents: 10732 diff changeset	3013 /* Need to append a NUL to the result. */
a7789921b514 patch 8.0.0264: memory error reported by ubsan Christian Brabandt <cb@256bit.org> parents: 10732 diff changeset	3014 if (ga_grow(&redir_execute_ga, 1) == OK)
a7789921b514 patch 8.0.0264: memory error reported by ubsan Christian Brabandt <cb@256bit.org> parents: 10732 diff changeset	3015 {
a7789921b514 patch 8.0.0264: memory error reported by ubsan Christian Brabandt <cb@256bit.org> parents: 10732 diff changeset	3016 ((char *)redir_execute_ga.ga_data)[redir_execute_ga.ga_len] = NUL;
a7789921b514 patch 8.0.0264: memory error reported by ubsan Christian Brabandt <cb@256bit.org> parents: 10732 diff changeset	3017 rettv->vval.v_string = redir_execute_ga.ga_data;
a7789921b514 patch 8.0.0264: memory error reported by ubsan Christian Brabandt <cb@256bit.org> parents: 10732 diff changeset	3018 }
a7789921b514 patch 8.0.0264: memory error reported by ubsan Christian Brabandt <cb@256bit.org> parents: 10732 diff changeset	3019 else
a7789921b514 patch 8.0.0264: memory error reported by ubsan Christian Brabandt <cb@256bit.org> parents: 10732 diff changeset	3020 {
a7789921b514 patch 8.0.0264: memory error reported by ubsan Christian Brabandt <cb@256bit.org> parents: 10732 diff changeset	3021 ga_clear(&redir_execute_ga);
a7789921b514 patch 8.0.0264: memory error reported by ubsan Christian Brabandt <cb@256bit.org> parents: 10732 diff changeset	3022 rettv->vval.v_string = NULL;
a7789921b514 patch 8.0.0264: memory error reported by ubsan Christian Brabandt <cb@256bit.org> parents: 10732 diff changeset	3023 }
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3024 msg_silent = save_msg_silent;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3025 emsg_silent = save_emsg_silent;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3026 emsg_noredir = save_emsg_noredir;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3027
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3028 redir_execute = save_redir_execute;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3029 if (redir_execute)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3030 redir_execute_ga = save_ga;
13101 9b3f8029a326 patch 8.0.1425: execute() does not work in completion of user command Christian Brabandt <cb@256bit.org> parents: 13088 diff changeset	3031 redir_off = save_redir_off;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3032
15117 2fed75dee954 patch 8.1.0569: execute() always resets display column to zero Bram Moolenaar <Bram@vim.org> parents: 15062 diff changeset	3033 // "silent reg" or "silent echo x" leaves msg_col somewhere in the line.
15121 895abc8a5195 patch 8.1.0571: non-silent execute() resets display column to zero Bram Moolenaar <Bram@vim.org> parents: 15117 diff changeset	3034 if (echo_output)
895abc8a5195 patch 8.1.0571: non-silent execute() resets display column to zero Bram Moolenaar <Bram@vim.org> parents: 15117 diff changeset	3035 // When not working silently: put it in column zero. A following
895abc8a5195 patch 8.1.0571: non-silent execute() resets display column to zero Bram Moolenaar <Bram@vim.org> parents: 15117 diff changeset	3036 // "echon" will overwrite the message, unavoidably.
895abc8a5195 patch 8.1.0571: non-silent execute() resets display column to zero Bram Moolenaar <Bram@vim.org> parents: 15117 diff changeset	3037 msg_col = 0;
895abc8a5195 patch 8.1.0571: non-silent execute() resets display column to zero Bram Moolenaar <Bram@vim.org> parents: 15117 diff changeset	3038 else
895abc8a5195 patch 8.1.0571: non-silent execute() resets display column to zero Bram Moolenaar <Bram@vim.org> parents: 15117 diff changeset	3039 // When working silently: Put it back where it was, since nothing
895abc8a5195 patch 8.1.0571: non-silent execute() resets display column to zero Bram Moolenaar <Bram@vim.org> parents: 15117 diff changeset	3040 // should have been written.
895abc8a5195 patch 8.1.0571: non-silent execute() resets display column to zero Bram Moolenaar <Bram@vim.org> parents: 15117 diff changeset	3041 msg_col = save_msg_col;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3042 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3043
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3044 /*
16833 6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	3045 * "execute()" function
6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	3046 */
6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	3047 static void
6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	3048 f_execute(typval_T argvars, typval_T rettv)
6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	3049 {
6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	3050 execute_common(argvars, rettv, 0);
6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	3051 }
6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	3052
6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	3053 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3054 * "exepath()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3055 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3056 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3057 f_exepath(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3058 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3059 char_u *p = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3060
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	3061 (void)mch_can_exe(tv_get_string(&argvars[0]), &p, TRUE);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3062 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3063 rettv->vval.v_string = p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3064 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3065
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3066 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3067 * "exists()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3068 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3069 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3070 f_exists(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3071 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3072 char_u *p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3073 int n = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3074
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	3075 p = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3076 if (p == '$') / environment variable */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3077 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3078 /* first try "normal" environment variables (fast) */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3079 if (mch_getenv(p + 1) != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3080 n = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3081 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3082 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3083 /* try expanding things like $VIM and ${HOME} */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3084 p = expand_env_save(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3085 if (p != NULL && *p != '$')
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3086 n = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3087 vim_free(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3088 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3089 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3090 else if (p == '&' \|\| p == '+') /* option */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3091 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3092 n = (get_option_tv(&p, NULL, TRUE) == OK);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3093 if (*skipwhite(p) != NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3094 n = FALSE; /* trailing garbage */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3095 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3096 else if (p == '') /* internal or user defined function */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3097 {
9717 6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9707 diff changeset	3098 n = function_exists(p + 1, FALSE);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3099 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3100 else if (*p == ':')
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3101 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3102 n = cmd_exists(p + 1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3103 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3104 else if (*p == '#')
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3105 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3106 if (p[1] == '#')
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3107 n = autocmd_supported(p + 2);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3108 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3109 n = au_exists(p + 1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3110 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3111 else /* internal variable */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3112 {
13262 69278c25429d patch 8.0.1505: debugger can't break on a condition Christian Brabandt <cb@256bit.org> parents: 13248 diff changeset	3113 n = var_exists(p);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3114 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3115
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3116 rettv->vval.v_number = n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3117 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3118
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3119 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3120 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3121 * "exp()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3122 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3123 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3124 f_exp(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3125 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3126 float_T f = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3127
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3128 rettv->v_type = VAR_FLOAT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3129 if (get_float_arg(argvars, &f) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3130 rettv->vval.v_float = exp(f);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3131 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3132 rettv->vval.v_float = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3133 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3134 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3135
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3136 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3137 * "expand()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3138 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3139 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3140 f_expand(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3141 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3142 char_u *s;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3143 int len;
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	3144 char *errormsg;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3145 int options = WILD_SILENT\|WILD_USE_NL\|WILD_LIST_NOTFOUND;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3146 expand_T xpc;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3147 int error = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3148 char_u *result;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3149
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3150 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3151 if (argvars[1].v_type != VAR_UNKNOWN
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3152 && argvars[2].v_type != VAR_UNKNOWN
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	3153 && tv_get_number_chk(&argvars[2], &error)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3154 && !error)
11418 162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value Christian Brabandt <cb@256bit.org> parents: 11341 diff changeset	3155 rettv_list_set(rettv, NULL);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3156
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	3157 s = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3158 if (s == '%' \|\| s == '#' \|\| *s == '<')
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3159 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3160 ++emsg_off;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3161 result = eval_vars(s, s, &len, NULL, &errormsg, NULL);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3162 --emsg_off;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3163 if (rettv->v_type == VAR_LIST)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3164 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3165 if (rettv_list_alloc(rettv) != FAIL && result != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3166 list_append_string(rettv->vval.v_list, result, -1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3167 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3168 vim_free(result);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3169 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3170 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3171 rettv->vval.v_string = result;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3172 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3173 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3174 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3175 /* When the optional second argument is non-zero, don't remove matches
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3176 * for 'wildignore' and don't put matches for 'suffixes' at the end. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3177 if (argvars[1].v_type != VAR_UNKNOWN
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	3178 && tv_get_number_chk(&argvars[1], &error))
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3179 options \|= WILD_KEEP_ALL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3180 if (!error)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3181 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3182 ExpandInit(&xpc);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3183 xpc.xp_context = EXPAND_FILES;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3184 if (p_wic)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3185 options += WILD_ICASE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3186 if (rettv->v_type == VAR_STRING)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3187 rettv->vval.v_string = ExpandOne(&xpc, s, NULL,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3188 options, WILD_ALL);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3189 else if (rettv_list_alloc(rettv) != FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3190 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3191 int i;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3192
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3193 ExpandOne(&xpc, s, NULL, options, WILD_ALL_KEEP);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3194 for (i = 0; i < xpc.xp_numfiles; i++)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3195 list_append_string(rettv->vval.v_list, xpc.xp_files[i], -1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3196 ExpandCleanup(&xpc);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3197 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3198 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3199 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3200 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3201 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3202 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3203
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3204 /*
17020 1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3205 * "expandcmd()" function
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3206 * Expand all the special characters in a command string.
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3207 */
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3208 static void
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3209 f_expandcmd(typval_T argvars, typval_T rettv)
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3210 {
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3211 exarg_T eap;
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3212 char_u *cmdstr;
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3213 char *errormsg = NULL;
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3214
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3215 rettv->v_type = VAR_STRING;
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3216 cmdstr = vim_strsave(tv_get_string(&argvars[0]));
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3217
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3218 memset(&eap, 0, sizeof(eap));
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3219 eap.cmd = cmdstr;
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3220 eap.arg = cmdstr;
17336 81705f4d9e03 patch 8.1.1667: flags for Ex commands may clash with other symbols Bram Moolenaar <Bram@vim.org> parents: 17292 diff changeset	3221 eap.argt \|= EX_NOSPC;
17020 1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3222 eap.usefilter = FALSE;
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3223 eap.nextcmd = NULL;
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3224 eap.cmdidx = CMD_USER;
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3225
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3226 expand_filename(&eap, &cmdstr, &errormsg);
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3227 if (errormsg != NULL && *errormsg != NUL)
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3228 emsg(errormsg);
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3229
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3230 rettv->vval.v_string = cmdstr;
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3231 }
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3232
1841c03a9b5e patch 8.1.1510: a plugin cannot easily expand a command like done internally Bram Moolenaar <Bram@vim.org> parents: 17004 diff changeset	3233 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3234 * "extend(list, list [, idx])" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3235 * "extend(dict, dict [, action])" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3236 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3237 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3238 f_extend(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3239 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3240 char_u arg_errmsg = (char_u )N_("extend() argument");
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3241
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3242 if (argvars[0].v_type == VAR_LIST && argvars[1].v_type == VAR_LIST)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3243 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3244 list_T l1, l2;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3245 listitem_T *item;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3246 long before;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3247 int error = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3248
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3249 l1 = argvars[0].vval.v_list;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3250 l2 = argvars[1].vval.v_list;
15780 5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference Bram Moolenaar <Bram@vim.org> parents: 15774 diff changeset	3251 if (l1 != NULL && !var_check_lock(l1->lv_lock, arg_errmsg, TRUE)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3252 && l2 != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3253 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3254 if (argvars[2].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3255 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	3256 before = (long)tv_get_number_chk(&argvars[2], &error);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3257 if (error)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3258 return; /* type error; errmsg already given */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3259
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3260 if (before == l1->lv_len)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3261 item = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3262 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3263 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3264 item = list_find(l1, before);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3265 if (item == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3266 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	3267 semsg(_(e_listidx), before);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3268 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3269 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3270 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3271 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3272 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3273 item = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3274 list_extend(l1, l2, item);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3275
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3276 copy_tv(&argvars[0], rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3277 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3278 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3279 else if (argvars[0].v_type == VAR_DICT && argvars[1].v_type == VAR_DICT)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3280 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3281 dict_T d1, d2;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3282 char_u *action;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3283 int i;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3284
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3285 d1 = argvars[0].vval.v_dict;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3286 d2 = argvars[1].vval.v_dict;
15780 5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference Bram Moolenaar <Bram@vim.org> parents: 15774 diff changeset	3287 if (d1 != NULL && !var_check_lock(d1->dv_lock, arg_errmsg, TRUE)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3288 && d2 != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3289 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3290 /* Check the third argument. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3291 if (argvars[2].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3292 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3293 static char *(av[]) = {"keep", "force", "error"};
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3294
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	3295 action = tv_get_string_chk(&argvars[2]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3296 if (action == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3297 return; /* type error; errmsg already given */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3298 for (i = 0; i < 3; ++i)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3299 if (STRCMP(action, av[i]) == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3300 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3301 if (i == 3)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3302 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	3303 semsg(_(e_invarg2), action);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3304 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3305 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3306 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3307 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3308 action = (char_u *)"force";
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3309
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3310 dict_extend(d1, d2, action);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3311
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3312 copy_tv(&argvars[0], rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3313 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3314 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3315 else
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	3316 semsg(_(e_listdictarg), "extend()");
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3317 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3318
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3319 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3320 * "feedkeys()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3321 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3322 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3323 f_feedkeys(typval_T argvars, typval_T rettv UNUSED)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3324 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3325 int remap = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3326 int insert = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3327 char_u keys, flags;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3328 char_u nbuf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3329 int typed = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3330 int execute = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3331 int dangerous = FALSE;
15615 536fca2cee19 patch 8.1.0815: dialog for file changed outside of Vim not tested Bram Moolenaar <Bram@vim.org> parents: 15595 diff changeset	3332 int lowlevel = FALSE;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3333 char_u *keys_esc;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3334
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3335 /* This is not allowed in the sandbox. If the commands would still be
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3336 * executed in the sandbox it would be OK, but it probably happens later,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3337 * when "sandbox" is no longer set. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3338 if (check_secure())
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3339 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3340
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	3341 keys = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3342
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3343 if (argvars[1].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3344 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	3345 flags = tv_get_string_buf(&argvars[1], nbuf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3346 for ( ; *flags != NUL; ++flags)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3347 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3348 switch (*flags)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3349 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3350 case 'n': remap = FALSE; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3351 case 'm': remap = TRUE; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3352 case 't': typed = TRUE; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3353 case 'i': insert = TRUE; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3354 case 'x': execute = TRUE; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3355 case '!': dangerous = TRUE; break;
15615 536fca2cee19 patch 8.1.0815: dialog for file changed outside of Vim not tested Bram Moolenaar <Bram@vim.org> parents: 15595 diff changeset	3356 case 'L': lowlevel = TRUE; break;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3357 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3358 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3359 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3360
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3361 if (*keys != NUL \|\| execute)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3362 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3363 /* Need to escape K_SPECIAL and CSI before putting the string in the
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3364 * typeahead buffer. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3365 keys_esc = vim_strsave_escape_csi(keys);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3366 if (keys_esc != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3367 {
15615 536fca2cee19 patch 8.1.0815: dialog for file changed outside of Vim not tested Bram Moolenaar <Bram@vim.org> parents: 15595 diff changeset	3368 if (lowlevel)
536fca2cee19 patch 8.1.0815: dialog for file changed outside of Vim not tested Bram Moolenaar <Bram@vim.org> parents: 15595 diff changeset	3369 {
536fca2cee19 patch 8.1.0815: dialog for file changed outside of Vim not tested Bram Moolenaar <Bram@vim.org> parents: 15595 diff changeset	3370 #ifdef USE_INPUT_BUF
536fca2cee19 patch 8.1.0815: dialog for file changed outside of Vim not tested Bram Moolenaar <Bram@vim.org> parents: 15595 diff changeset	3371 add_to_input_buf(keys, (int)STRLEN(keys));
536fca2cee19 patch 8.1.0815: dialog for file changed outside of Vim not tested Bram Moolenaar <Bram@vim.org> parents: 15595 diff changeset	3372 #else
536fca2cee19 patch 8.1.0815: dialog for file changed outside of Vim not tested Bram Moolenaar <Bram@vim.org> parents: 15595 diff changeset	3373 emsg(_("E980: lowlevel input not supported"));
536fca2cee19 patch 8.1.0815: dialog for file changed outside of Vim not tested Bram Moolenaar <Bram@vim.org> parents: 15595 diff changeset	3374 #endif
536fca2cee19 patch 8.1.0815: dialog for file changed outside of Vim not tested Bram Moolenaar <Bram@vim.org> parents: 15595 diff changeset	3375 }
536fca2cee19 patch 8.1.0815: dialog for file changed outside of Vim not tested Bram Moolenaar <Bram@vim.org> parents: 15595 diff changeset	3376 else
15687 cb501b3c9fb5 patch 8.1.0851: feedkeys() with "L" does not work properly Bram Moolenaar <Bram@vim.org> parents: 15677 diff changeset	3377 {
15615 536fca2cee19 patch 8.1.0815: dialog for file changed outside of Vim not tested Bram Moolenaar <Bram@vim.org> parents: 15595 diff changeset	3378 ins_typebuf(keys_esc, (remap ? REMAP_YES : REMAP_NONE),
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3379 insert ? 0 : typebuf.tb_len, !typed, FALSE);
15687 cb501b3c9fb5 patch 8.1.0851: feedkeys() with "L" does not work properly Bram Moolenaar <Bram@vim.org> parents: 15677 diff changeset	3380 if (vgetc_busy
11583 ef8b233f07ae patch 8.0.0674: cannot build with eval but without timers Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	3381 #ifdef FEAT_TIMERS
15687 cb501b3c9fb5 patch 8.1.0851: feedkeys() with "L" does not work properly Bram Moolenaar <Bram@vim.org> parents: 15677 diff changeset	3382 \|\| timer_busy
cb501b3c9fb5 patch 8.1.0851: feedkeys() with "L" does not work properly Bram Moolenaar <Bram@vim.org> parents: 15677 diff changeset	3383 #endif
cb501b3c9fb5 patch 8.1.0851: feedkeys() with "L" does not work properly Bram Moolenaar <Bram@vim.org> parents: 15677 diff changeset	3384 )
cb501b3c9fb5 patch 8.1.0851: feedkeys() with "L" does not work properly Bram Moolenaar <Bram@vim.org> parents: 15677 diff changeset	3385 typebuf_was_filled = TRUE;
cb501b3c9fb5 patch 8.1.0851: feedkeys() with "L" does not work properly Bram Moolenaar <Bram@vim.org> parents: 15677 diff changeset	3386 }
cb501b3c9fb5 patch 8.1.0851: feedkeys() with "L" does not work properly Bram Moolenaar <Bram@vim.org> parents: 15677 diff changeset	3387 vim_free(keys_esc);
cb501b3c9fb5 patch 8.1.0851: feedkeys() with "L" does not work properly Bram Moolenaar <Bram@vim.org> parents: 15677 diff changeset	3388
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3389 if (execute)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3390 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3391 int save_msg_scroll = msg_scroll;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3392
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3393 /* Avoid a 1 second delay when the keys start Insert mode. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3394 msg_scroll = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3395
13829 044337cbf854 patch 8.0.1786: no test for 'termwinkey' Christian Brabandt <cb@256bit.org> parents: 13796 diff changeset	3396 if (!dangerous)
044337cbf854 patch 8.0.1786: no test for 'termwinkey' Christian Brabandt <cb@256bit.org> parents: 13796 diff changeset	3397 ++ex_normal_busy;
16263 d3377393e3d9 patch 8.1.1136: decoding of mouse click escape sequence is not tested Bram Moolenaar <Bram@vim.org> parents: 16253 diff changeset	3398 exec_normal(TRUE, lowlevel, TRUE);
13829 044337cbf854 patch 8.0.1786: no test for 'termwinkey' Christian Brabandt <cb@256bit.org> parents: 13796 diff changeset	3399 if (!dangerous)
044337cbf854 patch 8.0.1786: no test for 'termwinkey' Christian Brabandt <cb@256bit.org> parents: 13796 diff changeset	3400 --ex_normal_busy;
044337cbf854 patch 8.0.1786: no test for 'termwinkey' Christian Brabandt <cb@256bit.org> parents: 13796 diff changeset	3401
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3402 msg_scroll \|= save_msg_scroll;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3403 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3404 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3405 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3406 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3407
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3408 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3409 * "filereadable()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3410 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3411 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3412 f_filereadable(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3413 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3414 int fd;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3415 char_u *p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3416 int n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3417
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3418 #ifndef O_NONBLOCK
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3419 # define O_NONBLOCK 0
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3420 #endif
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	3421 p = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3422 if (p && !mch_isdir(p) && (fd = mch_open((char )p,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3423 O_RDONLY \| O_NONBLOCK, 0)) >= 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3424 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3425 n = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3426 close(fd);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3427 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3428 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3429 n = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3430
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3431 rettv->vval.v_number = n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3432 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3433
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3434 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3435 * Return 0 for not writable, 1 for writable file, 2 for a dir which we have
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3436 * rights to write into.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3437 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3438 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3439 f_filewritable(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3440 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	3441 rettv->vval.v_number = filewritable(tv_get_string(&argvars[0]));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3442 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3443
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3444 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3445 findfilendir(
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3446 typval_T *argvars UNUSED,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3447 typval_T *rettv,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3448 int find_what UNUSED)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3449 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3450 #ifdef FEAT_SEARCHPATH
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3451 char_u *fname;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3452 char_u *fresult = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3453 char_u path = curbuf->b_p_path == NUL ? p_path : curbuf->b_p_path;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3454 char_u *p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3455 char_u pathbuf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3456 int count = 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3457 int first = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3458 int error = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3459 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3460
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3461 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3462 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3463
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3464 #ifdef FEAT_SEARCHPATH
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	3465 fname = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3466
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3467 if (argvars[1].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3468 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	3469 p = tv_get_string_buf_chk(&argvars[1], pathbuf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3470 if (p == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3471 error = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3472 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3473 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3474 if (*p != NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3475 path = p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3476
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3477 if (argvars[2].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	3478 count = (int)tv_get_number_chk(&argvars[2], &error);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3479 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3480 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3481
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3482 if (count < 0 && rettv_list_alloc(rettv) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3483 error = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3484
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3485 if (*fname != NUL && !error)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3486 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3487 do
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3488 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3489 if (rettv->v_type == VAR_STRING \|\| rettv->v_type == VAR_LIST)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3490 vim_free(fresult);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3491 fresult = find_file_in_path_option(first ? fname : NULL,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3492 first ? (int)STRLEN(fname) : 0,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3493 0, first, path,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3494 find_what,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3495 curbuf->b_ffname,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3496 find_what == FINDFILE_DIR
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3497 ? (char_u *)"" : curbuf->b_p_sua);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3498 first = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3499
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3500 if (fresult != NULL && rettv->v_type == VAR_LIST)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3501 list_append_string(rettv->vval.v_list, fresult, -1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3502
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3503 } while ((rettv->v_type == VAR_LIST \|\| --count > 0) && fresult != NULL);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3504 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3505
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3506 if (rettv->v_type == VAR_STRING)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3507 rettv->vval.v_string = fresult;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3508 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3509 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3510
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3511 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3512 * "finddir({fname}[, {path}[, {count}]])" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3513 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3514 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3515 f_finddir(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3516 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3517 findfilendir(argvars, rettv, FINDFILE_DIR);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3518 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3519
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3520 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3521 * "findfile({fname}[, {path}[, {count}]])" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3522 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3523 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3524 f_findfile(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3525 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3526 findfilendir(argvars, rettv, FINDFILE_FILE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3527 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3528
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3529 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3530 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3531 * "float2nr({float})" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3532 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3533 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3534 f_float2nr(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3535 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3536 float_T f = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3537
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3538 if (get_float_arg(argvars, &f) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3539 {
11461 5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right Christian Brabandt <cb@256bit.org> parents: 11418 diff changeset	3540 if (f <= -VARNUM_MAX + DBL_EPSILON)
10658 77d66e9ac0ab patch 8.0.0219: ubsan reports errors for overflow Christian Brabandt <cb@256bit.org> parents: 10640 diff changeset	3541 rettv->vval.v_number = -VARNUM_MAX;
11461 5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right Christian Brabandt <cb@256bit.org> parents: 11418 diff changeset	3542 else if (f >= VARNUM_MAX - DBL_EPSILON)
10658 77d66e9ac0ab patch 8.0.0219: ubsan reports errors for overflow Christian Brabandt <cb@256bit.org> parents: 10640 diff changeset	3543 rettv->vval.v_number = VARNUM_MAX;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3544 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3545 rettv->vval.v_number = (varnumber_T)f;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3546 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3547 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3548
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3549 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3550 * "floor({float})" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3551 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3552 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3553 f_floor(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3554 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3555 float_T f = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3556
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3557 rettv->v_type = VAR_FLOAT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3558 if (get_float_arg(argvars, &f) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3559 rettv->vval.v_float = floor(f);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3560 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3561 rettv->vval.v_float = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3562 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3563
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3564 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3565 * "fmod()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3566 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3567 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3568 f_fmod(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3569 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3570 float_T fx = 0.0, fy = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3571
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3572 rettv->v_type = VAR_FLOAT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3573 if (get_float_arg(argvars, &fx) == OK
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3574 && get_float_arg(&argvars[1], &fy) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3575 rettv->vval.v_float = fmod(fx, fy);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3576 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3577 rettv->vval.v_float = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3578 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3579 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3580
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3581 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3582 * "fnameescape({string})" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3583 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3584 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3585 f_fnameescape(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3586 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3587 rettv->vval.v_string = vim_strsave_fnameescape(
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	3588 tv_get_string(&argvars[0]), FALSE);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3589 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3590 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3591
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3592 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3593 * "fnamemodify({fname}, {mods})" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3594 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3595 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3596 f_fnamemodify(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3597 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3598 char_u *fname;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3599 char_u *mods;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3600 int usedlen = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3601 int len;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3602 char_u *fbuf = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3603 char_u buf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3604
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	3605 fname = tv_get_string_chk(&argvars[0]);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	3606 mods = tv_get_string_buf_chk(&argvars[1], buf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3607 if (fname == NULL \|\| mods == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3608 fname = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3609 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3610 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3611 len = (int)STRLEN(fname);
14393 c62601adad69 patch 8.1.0211: expanding a file name "~" results in $HOME Christian Brabandt <cb@256bit.org> parents: 14391 diff changeset	3612 (void)modify_fname(mods, FALSE, &usedlen, &fname, &fbuf, &len);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3613 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3614
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3615 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3616 if (fname == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3617 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3618 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3619 rettv->vval.v_string = vim_strnsave(fname, len);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3620 vim_free(fbuf);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3621 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3622
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3623 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3624 * "foreground()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3625 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3626 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3627 f_foreground(typval_T argvars UNUSED, typval_T rettv UNUSED)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3628 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3629 #ifdef FEAT_GUI
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3630 if (gui.in_use)
16451 7ae2396cef62 patch 8.1.1230: a lot of code is shared between vim.exe and gvim.exe Bram Moolenaar <Bram@vim.org> parents: 16427 diff changeset	3631 {
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3632 gui_mch_set_foreground();
16451 7ae2396cef62 patch 8.1.1230: a lot of code is shared between vim.exe and gvim.exe Bram Moolenaar <Bram@vim.org> parents: 16427 diff changeset	3633 return;
7ae2396cef62 patch 8.1.1230: a lot of code is shared between vim.exe and gvim.exe Bram Moolenaar <Bram@vim.org> parents: 16427 diff changeset	3634 }
7ae2396cef62 patch 8.1.1230: a lot of code is shared between vim.exe and gvim.exe Bram Moolenaar <Bram@vim.org> parents: 16427 diff changeset	3635 #endif
7ae2396cef62 patch 8.1.1230: a lot of code is shared between vim.exe and gvim.exe Bram Moolenaar <Bram@vim.org> parents: 16427 diff changeset	3636 #if defined(MSWIN) && (!defined(FEAT_GUI) \|\| defined(VIMDLL))
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3637 win32_set_foreground();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3638 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3639 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3640
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3641 static void
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3642 common_function(typval_T argvars, typval_T rettv, int is_funcref)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3643 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3644 char_u *s;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3645 char_u *name;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3646 int use_string = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3647 partial_T *arg_pt = NULL;
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3648 char_u *trans_name = NULL;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3649
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3650 if (argvars[0].v_type == VAR_FUNC)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3651 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3652 /* function(MyFunc, [arg], dict) */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3653 s = argvars[0].vval.v_string;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3654 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3655 else if (argvars[0].v_type == VAR_PARTIAL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3656 && argvars[0].vval.v_partial != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3657 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3658 /* function(dict.MyFunc, [arg]) */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3659 arg_pt = argvars[0].vval.v_partial;
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3660 s = partial_name(arg_pt);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3661 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3662 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3663 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3664 /* function('MyFunc', [arg], dict) */
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	3665 s = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3666 use_string = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3667 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3668
9919 885e3c9c0e10 commit https://github.com/vim/vim/commit/843b884461de1c79a1d2748549776fb13fc94360 Christian Brabandt <cb@256bit.org> parents: 9904 diff changeset	3669 if ((use_string && vim_strchr(s, AUTOLOAD_CHAR) == NULL) \|\| is_funcref)
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3670 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3671 name = s;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3672 trans_name = trans_function_name(&name, FALSE,
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3673 TFN_INT \| TFN_QUIET \| TFN_NO_AUTOLOAD \| TFN_NO_DEREF, NULL, NULL);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3674 if (*name != NUL)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3675 s = NULL;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3676 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3677
9919 885e3c9c0e10 commit https://github.com/vim/vim/commit/843b884461de1c79a1d2748549776fb13fc94360 Christian Brabandt <cb@256bit.org> parents: 9904 diff changeset	3678 if (s == NULL \|\| s == NUL \|\| (use_string && VIM_ISDIGIT(s))
885e3c9c0e10 commit https://github.com/vim/vim/commit/843b884461de1c79a1d2748549776fb13fc94360 Christian Brabandt <cb@256bit.org> parents: 9904 diff changeset	3679 \|\| (is_funcref && trans_name == NULL))
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	3680 semsg(_(e_invarg2), use_string ? tv_get_string(&argvars[0]) : s);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3681 /* Don't check an autoload name for existence here. */
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3682 else if (trans_name != NULL && (is_funcref
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3683 ? find_func(trans_name) == NULL
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3684 : !translated_function_exists(trans_name)))
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	3685 semsg(_("E700: Unknown function: %s"), s);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3686 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3687 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3688 int dict_idx = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3689 int arg_idx = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3690 list_T *list = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3691
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3692 if (STRNCMP(s, "s:", 2) == 0 \|\| STRNCMP(s, "<SID>", 5) == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3693 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3694 char sid_buf[25];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3695 int off = *s == 's' ? 2 : 5;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3696
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3697 /* Expand s: and <SID> into <SNR>nr_, so that the function can
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3698 * also be called from another script. Using trans_function_name()
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3699 * would also work, but some plugins depend on the name being
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3700 * printable text. */
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14673 diff changeset	3701 sprintf(sid_buf, "<SNR>%ld_", (long)current_sctx.sc_sid);
16782 fc58fee685e2 patch 8.1.1393: unnecessary type casts Bram Moolenaar <Bram@vim.org> parents: 16778 diff changeset	3702 name = alloc(STRLEN(sid_buf) + STRLEN(s + off) + 1);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3703 if (name != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3704 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3705 STRCPY(name, sid_buf);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3706 STRCAT(name, s + off);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3707 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3708 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3709 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3710 name = vim_strsave(s);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3711
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3712 if (argvars[1].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3713 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3714 if (argvars[2].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3715 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3716 /* function(name, [args], dict) */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3717 arg_idx = 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3718 dict_idx = 2;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3719 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3720 else if (argvars[1].v_type == VAR_DICT)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3721 /* function(name, dict) */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3722 dict_idx = 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3723 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3724 /* function(name, [args]) */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3725 arg_idx = 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3726 if (dict_idx > 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3727 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3728 if (argvars[dict_idx].v_type != VAR_DICT)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3729 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	3730 emsg(_("E922: expected a dict"));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3731 vim_free(name);
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3732 goto theend;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3733 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3734 if (argvars[dict_idx].vval.v_dict == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3735 dict_idx = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3736 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3737 if (arg_idx > 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3738 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3739 if (argvars[arg_idx].v_type != VAR_LIST)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3740 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	3741 emsg(_("E923: Second argument of function() must be a list or a dict"));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3742 vim_free(name);
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3743 goto theend;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3744 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3745 list = argvars[arg_idx].vval.v_list;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3746 if (list == NULL \|\| list->lv_len == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3747 arg_idx = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3748 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3749 }
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3750 if (dict_idx > 0 \|\| arg_idx > 0 \|\| arg_pt != NULL \|\| is_funcref)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3751 {
16825 ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u " causes a lot of type casts Bram Moolenaar <Bram@vim.org>* parents: 16817 diff changeset	3752 partial_T *pt = ALLOC_CLEAR_ONE(partial_T);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3753
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3754 /* result is a VAR_PARTIAL */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3755 if (pt == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3756 vim_free(name);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3757 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3758 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3759 if (arg_idx > 0 \|\| (arg_pt != NULL && arg_pt->pt_argc > 0))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3760 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3761 listitem_T *li;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3762 int i = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3763 int arg_len = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3764 int lv_len = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3765
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3766 if (arg_pt != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3767 arg_len = arg_pt->pt_argc;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3768 if (list != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3769 lv_len = list->lv_len;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3770 pt->pt_argc = arg_len + lv_len;
16825 ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u " causes a lot of type casts Bram Moolenaar <Bram@vim.org>* parents: 16817 diff changeset	3771 pt->pt_argv = ALLOC_MULT(typval_T, pt->pt_argc);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3772 if (pt->pt_argv == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3773 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3774 vim_free(pt);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3775 vim_free(name);
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3776 goto theend;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3777 }
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3778 for (i = 0; i < arg_len; i++)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3779 copy_tv(&arg_pt->pt_argv[i], &pt->pt_argv[i]);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3780 if (lv_len > 0)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3781 for (li = list->lv_first; li != NULL;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3782 li = li->li_next)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3783 copy_tv(&li->li_tv, &pt->pt_argv[i++]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3784 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3785
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3786 /* For "function(dict.func, [], dict)" and "func" is a partial
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3787 * use "dict". That is backwards compatible. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3788 if (dict_idx > 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3789 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3790 /* The dict is bound explicitly, pt_auto is FALSE. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3791 pt->pt_dict = argvars[dict_idx].vval.v_dict;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3792 ++pt->pt_dict->dv_refcount;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3793 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3794 else if (arg_pt != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3795 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3796 /* If the dict was bound automatically the result is also
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3797 * bound automatically. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3798 pt->pt_dict = arg_pt->pt_dict;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3799 pt->pt_auto = arg_pt->pt_auto;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3800 if (pt->pt_dict != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3801 ++pt->pt_dict->dv_refcount;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3802 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3803
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3804 pt->pt_refcount = 1;
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3805 if (arg_pt != NULL && arg_pt->pt_func != NULL)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3806 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3807 pt->pt_func = arg_pt->pt_func;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3808 func_ptr_ref(pt->pt_func);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3809 vim_free(name);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3810 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3811 else if (is_funcref)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3812 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3813 pt->pt_func = find_func(trans_name);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3814 func_ptr_ref(pt->pt_func);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3815 vim_free(name);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3816 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3817 else
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3818 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3819 pt->pt_name = name;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3820 func_ref(name);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3821 }
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3822 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3823 rettv->v_type = VAR_PARTIAL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3824 rettv->vval.v_partial = pt;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3825 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3826 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3827 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3828 /* result is a VAR_FUNC */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3829 rettv->v_type = VAR_FUNC;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3830 rettv->vval.v_string = name;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3831 func_ref(name);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3832 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3833 }
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3834 theend:
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3835 vim_free(trans_name);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3836 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3837
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3838 /*
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3839 * "funcref()" function
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3840 */
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3841 static void
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3842 f_funcref(typval_T argvars, typval_T rettv)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3843 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3844 common_function(argvars, rettv, TRUE);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3845 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3846
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3847 /*
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3848 * "function()" function
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3849 */
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3850 static void
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3851 f_function(typval_T argvars, typval_T rettv)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3852 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3853 common_function(argvars, rettv, FALSE);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3854 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3855
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3856 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3857 * "garbagecollect()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3858 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3859 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3860 f_garbagecollect(typval_T argvars, typval_T rettv UNUSED)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3861 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3862 /* This is postponed until we are back at the toplevel, because we may be
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3863 * using Lists and Dicts internally. E.g.: ":echo [garbagecollect()]". */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3864 want_garbage_collect = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3865
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	3866 if (argvars[0].v_type != VAR_UNKNOWN && tv_get_number(&argvars[0]) == 1)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3867 garbage_collect_at_exit = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3868 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3869
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3870 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3871 * "get()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3872 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3873 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3874 f_get(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3875 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3876 listitem_T *li;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3877 list_T *l;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3878 dictitem_T *di;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3879 dict_T *d;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3880 typval_T *tv = NULL;
17534 2b4c138bf8e9 patch 8.1.1765: get(func, dict, def) does not work properly Bram Moolenaar <Bram@vim.org> parents: 17530 diff changeset	3881 int what_is_dict = FALSE;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3882
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	3883 if (argvars[0].v_type == VAR_BLOB)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	3884 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	3885 int error = FALSE;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	3886 int idx = tv_get_number_chk(&argvars[1], &error);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	3887
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	3888 if (!error)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	3889 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	3890 rettv->v_type = VAR_NUMBER;
15494 74a8f44b5322 patch 8.1.0755: error message for get() on a Blob with invalid index Bram Moolenaar <Bram@vim.org> parents: 15490 diff changeset	3891 if (idx < 0)
74a8f44b5322 patch 8.1.0755: error message for get() on a Blob with invalid index Bram Moolenaar <Bram@vim.org> parents: 15490 diff changeset	3892 idx = blob_len(argvars[0].vval.v_blob) + idx;
74a8f44b5322 patch 8.1.0755: error message for get() on a Blob with invalid index Bram Moolenaar <Bram@vim.org> parents: 15490 diff changeset	3893 if (idx < 0 \|\| idx >= blob_len(argvars[0].vval.v_blob))
74a8f44b5322 patch 8.1.0755: error message for get() on a Blob with invalid index Bram Moolenaar <Bram@vim.org> parents: 15490 diff changeset	3894 rettv->vval.v_number = -1;
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	3895 else
15494 74a8f44b5322 patch 8.1.0755: error message for get() on a Blob with invalid index Bram Moolenaar <Bram@vim.org> parents: 15490 diff changeset	3896 {
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	3897 rettv->vval.v_number = blob_get(argvars[0].vval.v_blob, idx);
15494 74a8f44b5322 patch 8.1.0755: error message for get() on a Blob with invalid index Bram Moolenaar <Bram@vim.org> parents: 15490 diff changeset	3898 tv = rettv;
74a8f44b5322 patch 8.1.0755: error message for get() on a Blob with invalid index Bram Moolenaar <Bram@vim.org> parents: 15490 diff changeset	3899 }
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	3900 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	3901 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	3902 else if (argvars[0].v_type == VAR_LIST)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3903 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3904 if ((l = argvars[0].vval.v_list) != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3905 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3906 int error = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3907
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	3908 li = list_find(l, (long)tv_get_number_chk(&argvars[1], &error));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3909 if (!error && li != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3910 tv = &li->li_tv;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3911 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3912 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3913 else if (argvars[0].v_type == VAR_DICT)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3914 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3915 if ((d = argvars[0].vval.v_dict) != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3916 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	3917 di = dict_find(d, tv_get_string(&argvars[1]), -1);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3918 if (di != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3919 tv = &di->di_tv;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3920 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3921 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3922 else if (argvars[0].v_type == VAR_PARTIAL \|\| argvars[0].v_type == VAR_FUNC)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3923 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3924 partial_T *pt;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3925 partial_T fref_pt;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3926
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3927 if (argvars[0].v_type == VAR_PARTIAL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3928 pt = argvars[0].vval.v_partial;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3929 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3930 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3931 vim_memset(&fref_pt, 0, sizeof(fref_pt));
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3932 fref_pt.pt_name = argvars[0].vval.v_string;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3933 pt = &fref_pt;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3934 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3935
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3936 if (pt != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3937 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	3938 char_u *what = tv_get_string(&argvars[1]);
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3939 char_u *n;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3940
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3941 if (STRCMP(what, "func") == 0 \|\| STRCMP(what, "name") == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3942 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3943 rettv->v_type = (*what == 'f' ? VAR_FUNC : VAR_STRING);
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3944 n = partial_name(pt);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3945 if (n == NULL)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3946 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3947 else
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3948 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3949 rettv->vval.v_string = vim_strsave(n);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3950 if (rettv->v_type == VAR_FUNC)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3951 func_ref(rettv->vval.v_string);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3952 }
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3953 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3954 else if (STRCMP(what, "dict") == 0)
17534 2b4c138bf8e9 patch 8.1.1765: get(func, dict, def) does not work properly Bram Moolenaar <Bram@vim.org> parents: 17530 diff changeset	3955 {
2b4c138bf8e9 patch 8.1.1765: get(func, dict, def) does not work properly Bram Moolenaar <Bram@vim.org> parents: 17530 diff changeset	3956 what_is_dict = TRUE;
2b4c138bf8e9 patch 8.1.1765: get(func, dict, def) does not work properly Bram Moolenaar <Bram@vim.org> parents: 17530 diff changeset	3957 if (pt->pt_dict != NULL)
2b4c138bf8e9 patch 8.1.1765: get(func, dict, def) does not work properly Bram Moolenaar <Bram@vim.org> parents: 17530 diff changeset	3958 rettv_dict_set(rettv, pt->pt_dict);
2b4c138bf8e9 patch 8.1.1765: get(func, dict, def) does not work properly Bram Moolenaar <Bram@vim.org> parents: 17530 diff changeset	3959 }
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3960 else if (STRCMP(what, "args") == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3961 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3962 rettv->v_type = VAR_LIST;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3963 if (rettv_list_alloc(rettv) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3964 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3965 int i;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3966
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3967 for (i = 0; i < pt->pt_argc; ++i)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3968 list_append_tv(rettv->vval.v_list, &pt->pt_argv[i]);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3969 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3970 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3971 else
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	3972 semsg(_(e_invarg2), what);
17534 2b4c138bf8e9 patch 8.1.1765: get(func, dict, def) does not work properly Bram Moolenaar <Bram@vim.org> parents: 17530 diff changeset	3973
2b4c138bf8e9 patch 8.1.1765: get(func, dict, def) does not work properly Bram Moolenaar <Bram@vim.org> parents: 17530 diff changeset	3974 // When {what} == "dict" and pt->pt_dict == NULL, evaluate the
2b4c138bf8e9 patch 8.1.1765: get(func, dict, def) does not work properly Bram Moolenaar <Bram@vim.org> parents: 17530 diff changeset	3975 // third argument
2b4c138bf8e9 patch 8.1.1765: get(func, dict, def) does not work properly Bram Moolenaar <Bram@vim.org> parents: 17530 diff changeset	3976 if (!what_is_dict)
2b4c138bf8e9 patch 8.1.1765: get(func, dict, def) does not work properly Bram Moolenaar <Bram@vim.org> parents: 17530 diff changeset	3977 return;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3978 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3979 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3980 else
15571 4af72c724093 patch 8.1.0793: incorrect error messages for functions that take a Blob Bram Moolenaar <Bram@vim.org> parents: 15543 diff changeset	3981 semsg(_(e_listdictblobarg), "get()");
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3982
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3983 if (tv == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3984 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3985 if (argvars[2].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3986 copy_tv(&argvars[2], rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3987 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3988 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3989 copy_tv(tv, rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3990 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	3991
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	3992 /*
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	3993 * Returns buffer options, variables and other attributes in a dictionary.
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	3994 */
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	3995 static dict_T *
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	3996 get_buffer_info(buf_T *buf)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	3997 {
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	3998 dict_T *dict;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	3999 tabpage_T *tp;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4000 win_T *wp;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4001 list_T *windows;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4002
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4003 dict = dict_alloc();
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4004 if (dict == NULL)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4005 return NULL;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4006
14301 3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	4007 dict_add_number(dict, "bufnr", buf->b_fnum);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	4008 dict_add_string(dict, "name", buf->b_ffname);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	4009 dict_add_number(dict, "lnum", buf == curbuf ? curwin->w_cursor.lnum
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	4010 : buflist_findlnum(buf));
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	4011 dict_add_number(dict, "loaded", buf->b_ml.ml_mfp != NULL);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	4012 dict_add_number(dict, "listed", buf->b_p_bl);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	4013 dict_add_number(dict, "changed", bufIsChanged(buf));
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	4014 dict_add_number(dict, "changedtick", CHANGEDTICK(buf));
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	4015 dict_add_number(dict, "hidden",
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	4016 buf->b_ml.ml_mfp != NULL && buf->b_nwindows == 0);
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4017
17253 26e0352613ec patch 8.1.1626: no test for closing a popup window with a modified buffer Bram Moolenaar <Bram@vim.org> parents: 17243 diff changeset	4018 // Get a reference to buffer variables
9998 3063d1acd0c9 commit https://github.com/vim/vim/commit/9f8187c335b4fb07be9095dfdd0fc52670ba3c3f Christian Brabandt <cb@256bit.org> parents: 9959 diff changeset	4019 dict_add_dict(dict, "variables", buf->b_vars);
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4020
17253 26e0352613ec patch 8.1.1626: no test for closing a popup window with a modified buffer Bram Moolenaar <Bram@vim.org> parents: 17243 diff changeset	4021 // List of windows displaying this buffer
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4022 windows = list_alloc();
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4023 if (windows != NULL)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4024 {
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4025 FOR_ALL_TAB_WINDOWS(tp, wp)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4026 if (wp->w_buffer == buf)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4027 list_append_number(windows, (varnumber_T)wp->w_id);
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4028 dict_add_list(dict, "windows", windows);
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4029 }
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4030
17253 26e0352613ec patch 8.1.1626: no test for closing a popup window with a modified buffer Bram Moolenaar <Bram@vim.org> parents: 17243 diff changeset	4031 #ifdef FEAT_TEXT_PROP
26e0352613ec patch 8.1.1626: no test for closing a popup window with a modified buffer Bram Moolenaar <Bram@vim.org> parents: 17243 diff changeset	4032 // List of popup windows displaying this buffer
26e0352613ec patch 8.1.1626: no test for closing a popup window with a modified buffer Bram Moolenaar <Bram@vim.org> parents: 17243 diff changeset	4033 windows = list_alloc();
26e0352613ec patch 8.1.1626: no test for closing a popup window with a modified buffer Bram Moolenaar <Bram@vim.org> parents: 17243 diff changeset	4034 if (windows != NULL)
26e0352613ec patch 8.1.1626: no test for closing a popup window with a modified buffer Bram Moolenaar <Bram@vim.org> parents: 17243 diff changeset	4035 {
26e0352613ec patch 8.1.1626: no test for closing a popup window with a modified buffer Bram Moolenaar <Bram@vim.org> parents: 17243 diff changeset	4036 for (wp = first_popupwin; wp != NULL; wp = wp->w_next)
26e0352613ec patch 8.1.1626: no test for closing a popup window with a modified buffer Bram Moolenaar <Bram@vim.org> parents: 17243 diff changeset	4037 if (wp->w_buffer == buf)
26e0352613ec patch 8.1.1626: no test for closing a popup window with a modified buffer Bram Moolenaar <Bram@vim.org> parents: 17243 diff changeset	4038 list_append_number(windows, (varnumber_T)wp->w_id);
26e0352613ec patch 8.1.1626: no test for closing a popup window with a modified buffer Bram Moolenaar <Bram@vim.org> parents: 17243 diff changeset	4039 FOR_ALL_TABPAGES(tp)
26e0352613ec patch 8.1.1626: no test for closing a popup window with a modified buffer Bram Moolenaar <Bram@vim.org> parents: 17243 diff changeset	4040 for (wp = tp->tp_first_popupwin; wp != NULL; wp = wp->w_next)
26e0352613ec patch 8.1.1626: no test for closing a popup window with a modified buffer Bram Moolenaar <Bram@vim.org> parents: 17243 diff changeset	4041 if (wp->w_buffer == buf)
26e0352613ec patch 8.1.1626: no test for closing a popup window with a modified buffer Bram Moolenaar <Bram@vim.org> parents: 17243 diff changeset	4042 list_append_number(windows, (varnumber_T)wp->w_id);
26e0352613ec patch 8.1.1626: no test for closing a popup window with a modified buffer Bram Moolenaar <Bram@vim.org> parents: 17243 diff changeset	4043
26e0352613ec patch 8.1.1626: no test for closing a popup window with a modified buffer Bram Moolenaar <Bram@vim.org> parents: 17243 diff changeset	4044 dict_add_list(dict, "popups", windows);
26e0352613ec patch 8.1.1626: no test for closing a popup window with a modified buffer Bram Moolenaar <Bram@vim.org> parents: 17243 diff changeset	4045 }
26e0352613ec patch 8.1.1626: no test for closing a popup window with a modified buffer Bram Moolenaar <Bram@vim.org> parents: 17243 diff changeset	4046 #endif
26e0352613ec patch 8.1.1626: no test for closing a popup window with a modified buffer Bram Moolenaar <Bram@vim.org> parents: 17243 diff changeset	4047
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4048 #ifdef FEAT_SIGNS
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4049 if (buf->b_signlist != NULL)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4050 {
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4051 /* List of signs placed in this buffer */
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4052 list_T *signs = list_alloc();
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4053 if (signs != NULL)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4054 {
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4055 get_buffer_signs(buf, signs);
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4056 dict_add_list(dict, "signs", signs);
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4057 }
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4058 }
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4059 #endif
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4060
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4061 return dict;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4062 }
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4063
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4064 /*
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4065 * "getbufinfo()" function
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4066 */
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4067 static void
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4068 f_getbufinfo(typval_T argvars, typval_T rettv)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4069 {
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4070 buf_T *buf = NULL;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4071 buf_T *argbuf = NULL;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4072 dict_T *d;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4073 int filtered = FALSE;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4074 int sel_buflisted = FALSE;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4075 int sel_bufloaded = FALSE;
13020 58cce40c965b patch 8.0.1386: cannot select modified buffers with getbufinfo() Christian Brabandt <cb@256bit.org> parents: 12977 diff changeset	4076 int sel_bufmodified = FALSE;
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4077
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4078 if (rettv_list_alloc(rettv) != OK)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4079 return;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4080
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4081 /* List of all the buffers or selected buffers */
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4082 if (argvars[0].v_type == VAR_DICT)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4083 {
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4084 dict_T *sel_d = argvars[0].vval.v_dict;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4085
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4086 if (sel_d != NULL)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4087 {
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4088 dictitem_T *di;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4089
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4090 filtered = TRUE;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4091
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4092 di = dict_find(sel_d, (char_u *)"buflisted", -1);
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	4093 if (di != NULL && tv_get_number(&di->di_tv))
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4094 sel_buflisted = TRUE;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4095
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4096 di = dict_find(sel_d, (char_u *)"bufloaded", -1);
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	4097 if (di != NULL && tv_get_number(&di->di_tv))
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4098 sel_bufloaded = TRUE;
13020 58cce40c965b patch 8.0.1386: cannot select modified buffers with getbufinfo() Christian Brabandt <cb@256bit.org> parents: 12977 diff changeset	4099
58cce40c965b patch 8.0.1386: cannot select modified buffers with getbufinfo() Christian Brabandt <cb@256bit.org> parents: 12977 diff changeset	4100 di = dict_find(sel_d, (char_u *)"bufmodified", -1);
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	4101 if (di != NULL && tv_get_number(&di->di_tv))
13020 58cce40c965b patch 8.0.1386: cannot select modified buffers with getbufinfo() Christian Brabandt <cb@256bit.org> parents: 12977 diff changeset	4102 sel_bufmodified = TRUE;
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4103 }
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4104 }
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4105 else if (argvars[0].v_type != VAR_UNKNOWN)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4106 {
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4107 /* Information about one buffer. Argument specifies the buffer */
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	4108 (void)tv_get_number(&argvars[0]); /* issue errmsg if type error */
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4109 ++emsg_off;
15355 73b153ed5af8 patch 8.1.0685: get_buf_tv() is named inconsistently Bram Moolenaar <Bram@vim.org> parents: 15343 diff changeset	4110 argbuf = tv_get_buf(&argvars[0], FALSE);
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4111 --emsg_off;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4112 if (argbuf == NULL)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4113 return;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4114 }
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4115
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4116 /* Return information about all the buffers or a specified buffer */
9881 4b53f6be10c0 commit https://github.com/vim/vim/commit/386600f0cbcb8add099c723cf84634f46df2f788 Christian Brabandt <cb@256bit.org> parents: 9863 diff changeset	4117 FOR_ALL_BUFFERS(buf)
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4118 {
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4119 if (argbuf != NULL && argbuf != buf)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4120 continue;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4121 if (filtered && ((sel_bufloaded && buf->b_ml.ml_mfp == NULL)
13020 58cce40c965b patch 8.0.1386: cannot select modified buffers with getbufinfo() Christian Brabandt <cb@256bit.org> parents: 12977 diff changeset	4122 \|\| (sel_buflisted && !buf->b_p_bl)
58cce40c965b patch 8.0.1386: cannot select modified buffers with getbufinfo() Christian Brabandt <cb@256bit.org> parents: 12977 diff changeset	4123 \|\| (sel_bufmodified && !buf->b_changed)))
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4124 continue;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4125
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4126 d = get_buffer_info(buf);
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4127 if (d != NULL)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4128 list_append_dict(rettv->vval.v_list, d);
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4129 if (argbuf != NULL)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4130 return;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4131 }
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4132 }
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4133
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4134 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4135 * Get line or list of lines from buffer "buf" into "rettv".
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4136 * Return a range (from start to end) of lines in rettv from the specified
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4137 * buffer.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4138 * If 'retlist' is TRUE, then the lines are returned as a Vim List.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4139 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4140 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4141 get_buffer_lines(
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4142 buf_T *buf,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4143 linenr_T start,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4144 linenr_T end,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4145 int retlist,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4146 typval_T *rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4147 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4148 char_u *p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4149
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4150 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4151 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4152 if (retlist && rettv_list_alloc(rettv) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4153 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4154
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4155 if (buf == NULL \|\| buf->b_ml.ml_mfp == NULL \|\| start < 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4156 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4157
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4158 if (!retlist)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4159 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4160 if (start >= 1 && start <= buf->b_ml.ml_line_count)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4161 p = ml_get_buf(buf, start, FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4162 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4163 p = (char_u *)"";
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4164 rettv->vval.v_string = vim_strsave(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4165 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4166 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4167 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4168 if (end < start)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4169 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4170
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4171 if (start < 1)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4172 start = 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4173 if (end > buf->b_ml.ml_line_count)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4174 end = buf->b_ml.ml_line_count;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4175 while (start <= end)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4176 if (list_append_string(rettv->vval.v_list,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4177 ml_get_buf(buf, start++, FALSE), -1) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4178 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4179 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4180 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4181
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4182 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4183 * "getbufline()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4184 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4185 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4186 f_getbufline(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4187 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4188 linenr_T lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4189 linenr_T end;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4190 buf_T *buf;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4191
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	4192 (void)tv_get_number(&argvars[0]); /* issue errmsg if type error */
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4193 ++emsg_off;
15355 73b153ed5af8 patch 8.1.0685: get_buf_tv() is named inconsistently Bram Moolenaar <Bram@vim.org> parents: 15343 diff changeset	4194 buf = tv_get_buf(&argvars[0], FALSE);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4195 --emsg_off;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4196
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	4197 lnum = tv_get_lnum_buf(&argvars[1], buf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4198 if (argvars[2].v_type == VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4199 end = lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4200 else
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	4201 end = tv_get_lnum_buf(&argvars[2], buf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4202
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4203 get_buffer_lines(buf, lnum, end, TRUE, rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4204 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4205
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4206 /*
13280 fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4207 * "getchangelist()" function
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4208 */
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4209 static void
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4210 f_getchangelist(typval_T argvars, typval_T rettv)
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4211 {
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4212 #ifdef FEAT_JUMPLIST
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4213 buf_T *buf;
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4214 int i;
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4215 list_T *l;
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4216 dict_T *d;
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4217 #endif
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4218
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4219 if (rettv_list_alloc(rettv) != OK)
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4220 return;
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4221
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4222 #ifdef FEAT_JUMPLIST
17857 4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	4223 if (argvars[0].v_type == VAR_UNKNOWN)
4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	4224 buf = curbuf;
4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	4225 else
4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	4226 {
4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	4227 (void)tv_get_number(&argvars[0]); // issue errmsg if type error
4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	4228 ++emsg_off;
4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	4229 buf = tv_get_buf(&argvars[0], FALSE);
4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	4230 --emsg_off;
4935244c1128 patch 8.1.1925: more functions can be used as methods Bram Moolenaar <Bram@vim.org> parents: 17855 diff changeset	4231 }
13280 fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4232 if (buf == NULL)
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4233 return;
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4234
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4235 l = list_alloc();
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4236 if (l == NULL)
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4237 return;
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4238
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4239 if (list_append_list(rettv->vval.v_list, l) == FAIL)
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4240 return;
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4241 /*
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4242 * The current window change list index tracks only the position in the
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4243 * current buffer change list. For other buffers, use the change list
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4244 * length as the current index.
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4245 */
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4246 list_append_number(rettv->vval.v_list,
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4247 (varnumber_T)((buf == curwin->w_buffer)
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4248 ? curwin->w_changelistidx : buf->b_changelistlen));
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4249
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4250 for (i = 0; i < buf->b_changelistlen; ++i)
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4251 {
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4252 if (buf->b_changelist[i].lnum == 0)
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4253 continue;
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4254 if ((d = dict_alloc()) == NULL)
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4255 return;
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4256 if (list_append_dict(l, d) == FAIL)
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4257 return;
14301 3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	4258 dict_add_number(d, "lnum", (long)buf->b_changelist[i].lnum);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	4259 dict_add_number(d, "col", (long)buf->b_changelist[i].col);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	4260 dict_add_number(d, "coladd", (long)buf->b_changelist[i].coladd);
13280 fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4261 }
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4262 #endif
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4263 }
fbda23eb0996 patch 8.0.1514: getting the list of changes is not easy Christian Brabandt <cb@256bit.org> parents: 13278 diff changeset	4264 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4265 * "getchar()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4266 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4267 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4268 f_getchar(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4269 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4270 varnumber_T n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4271 int error = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4272
14710 b9a4e49a3f7c patch 8.1.0367: getchar(1) no longer processes pending messages Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	4273 #ifdef MESSAGE_QUEUE
b9a4e49a3f7c patch 8.1.0367: getchar(1) no longer processes pending messages Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	4274 // vpeekc() used to check for messages, but that caused problems, invoking
b9a4e49a3f7c patch 8.1.0367: getchar(1) no longer processes pending messages Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	4275 // a callback where it was not expected. Some plugins use getchar(1) in a
b9a4e49a3f7c patch 8.1.0367: getchar(1) no longer processes pending messages Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	4276 // loop to await a message, therefore make sure we check for messages here.
b9a4e49a3f7c patch 8.1.0367: getchar(1) no longer processes pending messages Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	4277 parse_queued_messages();
b9a4e49a3f7c patch 8.1.0367: getchar(1) no longer processes pending messages Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	4278 #endif
b9a4e49a3f7c patch 8.1.0367: getchar(1) no longer processes pending messages Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	4279
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4280 /* Position the cursor. Needed after a message that ends in a space. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4281 windgoto(msg_row, msg_col);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4282
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4283 ++no_mapping;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4284 ++allow_keys;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4285 for (;;)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4286 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4287 if (argvars[0].v_type == VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4288 /* getchar(): blocking wait. */
10640 27be410d6d29 patch 8.0.0210: no support for bracketed paste Christian Brabandt <cb@256bit.org> parents: 10635 diff changeset	4289 n = plain_vgetc();
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	4290 else if (tv_get_number_chk(&argvars[0], &error) == 1)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4291 /* getchar(1): only check if char avail */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4292 n = vpeekc_any();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4293 else if (error \|\| vpeekc_any() == NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4294 /* illegal argument or getchar(0) and no char avail: return zero */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4295 n = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4296 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4297 /* getchar(0) and char avail: return char */
10640 27be410d6d29 patch 8.0.0210: no support for bracketed paste Christian Brabandt <cb@256bit.org> parents: 10635 diff changeset	4298 n = plain_vgetc();
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4299
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4300 if (n == K_IGNORE)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4301 continue;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4302 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4303 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4304 --no_mapping;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4305 --allow_keys;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4306
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4307 set_vim_var_nr(VV_MOUSE_WIN, 0);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4308 set_vim_var_nr(VV_MOUSE_WINID, 0);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4309 set_vim_var_nr(VV_MOUSE_LNUM, 0);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4310 set_vim_var_nr(VV_MOUSE_COL, 0);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4311
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4312 rettv->vval.v_number = n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4313 if (IS_SPECIAL(n) \|\| mod_mask != 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4314 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4315 char_u temp[10]; /* modifier: 3, mbyte-char: 6, NUL: 1 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4316 int i = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4317
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4318 /* Turn a special key into three bytes, plus modifier. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4319 if (mod_mask != 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4320 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4321 temp[i++] = K_SPECIAL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4322 temp[i++] = KS_MODIFIER;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4323 temp[i++] = mod_mask;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4324 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4325 if (IS_SPECIAL(n))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4326 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4327 temp[i++] = K_SPECIAL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4328 temp[i++] = K_SECOND(n);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4329 temp[i++] = K_THIRD(n);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4330 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4331 else if (has_mbyte)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4332 i += (*mb_char2bytes)(n, temp + i);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4333 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4334 temp[i++] = n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4335 temp[i++] = NUL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4336 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4337 rettv->vval.v_string = vim_strsave(temp);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4338
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4339 #ifdef FEAT_MOUSE
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4340 if (is_mouse_key(n))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4341 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4342 int row = mouse_row;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4343 int col = mouse_col;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4344 win_T *win;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4345 linenr_T lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4346 win_T *wp;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4347 int winnr = 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4348
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4349 if (row >= 0 && col >= 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4350 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4351 /* Find the window at the mouse coordinates and compute the
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4352 * text position. */
17041 5ed4965ebc7b patch 8.1.1520: popup windows are ignored when dealing with mouse position Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	4353 win = mouse_find_win(&row, &col, FIND_POPUP);
12136 60cf03e59402 patch 8.0.0948: crash if timer closes window while dragging status line Christian Brabandt <cb@256bit.org> parents: 12112 diff changeset	4354 if (win == NULL)
60cf03e59402 patch 8.0.0948: crash if timer closes window while dragging status line Christian Brabandt <cb@256bit.org> parents: 12112 diff changeset	4355 return;
17506 74b6674b99fd patch 8.1.1751: when redrawing popups plines_win() may be called often Bram Moolenaar <Bram@vim.org> parents: 17488 diff changeset	4356 (void)mouse_comp_pos(win, &row, &col, &lnum, NULL);
17041 5ed4965ebc7b patch 8.1.1520: popup windows are ignored when dealing with mouse position Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	4357 # ifdef FEAT_TEXT_PROP
17225 09fa437d33d8 patch 8.1.1612: cannot show an existing buffer in a popup window Bram Moolenaar <Bram@vim.org> parents: 17223 diff changeset	4358 if (WIN_IS_POPUP(win))
17041 5ed4965ebc7b patch 8.1.1520: popup windows are ignored when dealing with mouse position Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	4359 winnr = 0;
5ed4965ebc7b patch 8.1.1520: popup windows are ignored when dealing with mouse position Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	4360 else
5ed4965ebc7b patch 8.1.1520: popup windows are ignored when dealing with mouse position Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	4361 # endif
5ed4965ebc7b patch 8.1.1520: popup windows are ignored when dealing with mouse position Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	4362 for (wp = firstwin; wp != win && wp != NULL;
5ed4965ebc7b patch 8.1.1520: popup windows are ignored when dealing with mouse position Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	4363 wp = wp->w_next)
5ed4965ebc7b patch 8.1.1520: popup windows are ignored when dealing with mouse position Bram Moolenaar <Bram@vim.org> parents: 17026 diff changeset	4364 ++winnr;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4365 set_vim_var_nr(VV_MOUSE_WIN, winnr);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4366 set_vim_var_nr(VV_MOUSE_WINID, win->w_id);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4367 set_vim_var_nr(VV_MOUSE_LNUM, lnum);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4368 set_vim_var_nr(VV_MOUSE_COL, col + 1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4369 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4370 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4371 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4372 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4373 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4374
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4375 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4376 * "getcharmod()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4377 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4378 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4379 f_getcharmod(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4380 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4381 rettv->vval.v_number = mod_mask;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4382 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4383
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4384 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4385 * "getcharsearch()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4386 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4387 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4388 f_getcharsearch(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4389 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4390 if (rettv_dict_alloc(rettv) != FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4391 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4392 dict_T *dict = rettv->vval.v_dict;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4393
14301 3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	4394 dict_add_string(dict, "char", last_csearch());
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	4395 dict_add_number(dict, "forward", last_csearch_forward());
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	4396 dict_add_number(dict, "until", last_csearch_until());
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4397 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4398 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4399
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4400 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4401 * "getcmdline()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4402 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4403 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4404 f_getcmdline(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4405 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4406 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4407 rettv->vval.v_string = get_cmdline_str();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4408 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4409
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4410 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4411 * "getcmdpos()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4412 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4413 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4414 f_getcmdpos(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4415 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4416 rettv->vval.v_number = get_cmdline_pos() + 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4417 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4418
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4419 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4420 * "getcmdtype()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4421 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4422 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4423 f_getcmdtype(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4424 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4425 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4426 rettv->vval.v_string = alloc(2);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4427 if (rettv->vval.v_string != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4428 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4429 rettv->vval.v_string[0] = get_cmdline_type();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4430 rettv->vval.v_string[1] = NUL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4431 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4432 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4433
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4434 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4435 * "getcmdwintype()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4436 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4437 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4438 f_getcmdwintype(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4439 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4440 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4441 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4442 #ifdef FEAT_CMDWIN
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4443 rettv->vval.v_string = alloc(2);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4444 if (rettv->vval.v_string != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4445 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4446 rettv->vval.v_string[0] = cmdwin_type;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4447 rettv->vval.v_string[1] = NUL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4448 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4449 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4450 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4451
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4452 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4453 * "getcwd()" function
16427 8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	4454 *
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	4455 * Return the current working directory of a window in a tab page.
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	4456 * First optional argument 'winnr' is the window number or -1 and the second
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	4457 * optional argument 'tabnr' is the tab page number.
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	4458 *
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	4459 * If no arguments are supplied, then return the directory of the current
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	4460 * window.
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	4461 * If only 'winnr' is specified and is not -1 or 0 then return the directory of
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	4462 * the specified window.
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	4463 * If 'winnr' is 0 then return the directory of the current window.
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	4464 * If both 'winnr and 'tabnr' are specified and 'winnr' is -1 then return the
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	4465 * directory of the specified tab page. Otherwise return the directory of the
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	4466 * specified window in the specified tab page.
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	4467 * If the window or the tab page doesn't exist then return NULL.
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4468 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4469 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4470 f_getcwd(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4471 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4472 win_T *wp = NULL;
16427 8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	4473 tabpage_T *tp = NULL;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4474 char_u *cwd;
13229 93efa1de7abb patch 8.0.1489: there is no easy way to get the global directory Christian Brabandt <cb@256bit.org> parents: 13212 diff changeset	4475 int global = FALSE;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4476
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4477 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4478 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4479
16427 8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	4480 if (argvars[0].v_type == VAR_NUMBER
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	4481 && argvars[0].vval.v_number == -1
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	4482 && argvars[1].v_type == VAR_UNKNOWN)
13229 93efa1de7abb patch 8.0.1489: there is no easy way to get the global directory Christian Brabandt <cb@256bit.org> parents: 13212 diff changeset	4483 global = TRUE;
93efa1de7abb patch 8.0.1489: there is no easy way to get the global directory Christian Brabandt <cb@256bit.org> parents: 13212 diff changeset	4484 else
16427 8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	4485 wp = find_tabwin(&argvars[0], &argvars[1], &tp);
13229 93efa1de7abb patch 8.0.1489: there is no easy way to get the global directory Christian Brabandt <cb@256bit.org> parents: 13212 diff changeset	4486
93efa1de7abb patch 8.0.1489: there is no easy way to get the global directory Christian Brabandt <cb@256bit.org> parents: 13212 diff changeset	4487 if (wp != NULL && wp->w_localdir != NULL)
93efa1de7abb patch 8.0.1489: there is no easy way to get the global directory Christian Brabandt <cb@256bit.org> parents: 13212 diff changeset	4488 rettv->vval.v_string = vim_strsave(wp->w_localdir);
16427 8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	4489 else if (tp != NULL && tp->tp_localdir != NULL)
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	4490 rettv->vval.v_string = vim_strsave(tp->tp_localdir);
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	4491 else if (wp != NULL \|\| tp != NULL \|\| global)
13229 93efa1de7abb patch 8.0.1489: there is no easy way to get the global directory Christian Brabandt <cb@256bit.org> parents: 13212 diff changeset	4492 {
93efa1de7abb patch 8.0.1489: there is no easy way to get the global directory Christian Brabandt <cb@256bit.org> parents: 13212 diff changeset	4493 if (globaldir != NULL)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4494 rettv->vval.v_string = vim_strsave(globaldir);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4495 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4496 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4497 cwd = alloc(MAXPATHL);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4498 if (cwd != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4499 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4500 if (mch_dirname(cwd, MAXPATHL) != FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4501 rettv->vval.v_string = vim_strsave(cwd);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4502 vim_free(cwd);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4503 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4504 }
14660 98d48a5e608b patch 8.1.0343: 'shellslash' is not used for getcwd() with local directory Christian Brabandt <cb@256bit.org> parents: 14599 diff changeset	4505 }
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4506 #ifdef BACKSLASH_IN_FILENAME
14660 98d48a5e608b patch 8.1.0343: 'shellslash' is not used for getcwd() with local directory Christian Brabandt <cb@256bit.org> parents: 14599 diff changeset	4507 if (rettv->vval.v_string != NULL)
98d48a5e608b patch 8.1.0343: 'shellslash' is not used for getcwd() with local directory Christian Brabandt <cb@256bit.org> parents: 14599 diff changeset	4508 slash_adjust(rettv->vval.v_string);
98d48a5e608b patch 8.1.0343: 'shellslash' is not used for getcwd() with local directory Christian Brabandt <cb@256bit.org> parents: 14599 diff changeset	4509 #endif
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4510 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4511
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4512 /*
16604 1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	4513 * "getenv()" function
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	4514 */
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	4515 static void
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	4516 f_getenv(typval_T argvars, typval_T rettv)
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	4517 {
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	4518 int mustfree = FALSE;
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	4519 char_u *p = vim_getenv(tv_get_string(&argvars[0]), &mustfree);
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	4520
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	4521 if (p == NULL)
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	4522 {
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	4523 rettv->v_type = VAR_SPECIAL;
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	4524 rettv->vval.v_number = VVAL_NULL;
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	4525 return;
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	4526 }
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	4527 if (!mustfree)
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	4528 p = vim_strsave(p);
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	4529 rettv->vval.v_string = p;
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	4530 rettv->v_type = VAR_STRING;
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	4531 }
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	4532
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	4533 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4534 * "getfontname()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4535 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4536 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4537 f_getfontname(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4538 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4539 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4540 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4541 #ifdef FEAT_GUI
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4542 if (gui.in_use)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4543 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4544 GuiFont font;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4545 char_u *name = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4546
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4547 if (argvars[0].v_type == VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4548 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4549 /* Get the "Normal" font. Either the name saved by
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4550 * hl_set_font_name() or from the font ID. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4551 font = gui.norm_font;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4552 name = hl_get_font_name();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4553 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4554 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4555 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	4556 name = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4557 if (STRCMP(name, "") == 0) / don't use font dialog */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4558 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4559 font = gui_mch_get_font(name, FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4560 if (font == NOFONT)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4561 return; /* Invalid font name, return empty string. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4562 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4563 rettv->vval.v_string = gui_mch_get_fontname(font, name);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4564 if (argvars[0].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4565 gui_mch_free_font(font);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4566 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4567 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4568 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4569
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4570 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4571 * "getfperm({fname})" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4572 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4573 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4574 f_getfperm(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4575 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4576 char_u *fname;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4577 stat_T st;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4578 char_u *perm = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4579 char_u flags[] = "rwx";
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4580 int i;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4581
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	4582 fname = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4583
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4584 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4585 if (mch_stat((char *)fname, &st) >= 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4586 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4587 perm = vim_strsave((char_u *)"---------");
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4588 if (perm != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4589 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4590 for (i = 0; i < 9; i++)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4591 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4592 if (st.st_mode & (1 << (8 - i)))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4593 perm[i] = flags[i % 3];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4594 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4595 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4596 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4597 rettv->vval.v_string = perm;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4598 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4599
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4600 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4601 * "getfsize({fname})" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4602 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4603 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4604 f_getfsize(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4605 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4606 char_u *fname;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4607 stat_T st;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4608
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	4609 fname = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4610
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4611 rettv->v_type = VAR_NUMBER;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4612
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4613 if (mch_stat((char *)fname, &st) >= 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4614 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4615 if (mch_isdir(fname))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4616 rettv->vval.v_number = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4617 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4618 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4619 rettv->vval.v_number = (varnumber_T)st.st_size;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4620
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4621 /* non-perfect check for overflow */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4622 if ((off_T)rettv->vval.v_number != (off_T)st.st_size)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4623 rettv->vval.v_number = -2;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4624 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4625 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4626 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4627 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4628 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4629
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4630 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4631 * "getftime({fname})" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4632 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4633 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4634 f_getftime(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4635 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4636 char_u *fname;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4637 stat_T st;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4638
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	4639 fname = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4640
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4641 if (mch_stat((char *)fname, &st) >= 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4642 rettv->vval.v_number = (varnumber_T)st.st_mtime;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4643 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4644 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4645 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4646
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4647 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4648 * "getftype({fname})" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4649 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4650 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4651 f_getftype(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4652 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4653 char_u *fname;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4654 stat_T st;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4655 char_u *type = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4656 char *t;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4657
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	4658 fname = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4659
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4660 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4661 if (mch_lstat((char *)fname, &st) >= 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4662 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4663 if (S_ISREG(st.st_mode))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4664 t = "file";
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4665 else if (S_ISDIR(st.st_mode))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4666 t = "dir";
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4667 else if (S_ISLNK(st.st_mode))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4668 t = "link";
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4669 else if (S_ISBLK(st.st_mode))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4670 t = "bdev";
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4671 else if (S_ISCHR(st.st_mode))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4672 t = "cdev";
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4673 else if (S_ISFIFO(st.st_mode))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4674 t = "fifo";
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4675 else if (S_ISSOCK(st.st_mode))
14497 a7b2dc5f1306 patch 8.1.0262: not enough testing for getftype() Christian Brabandt <cb@256bit.org> parents: 14424 diff changeset	4676 t = "socket";
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4677 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4678 t = "other";
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4679 type = vim_strsave((char_u *)t);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4680 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4681 rettv->vval.v_string = type;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4682 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4683
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4684 /*
13246 dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4685 * "getjumplist()" function
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4686 */
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4687 static void
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4688 f_getjumplist(typval_T argvars, typval_T rettv)
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4689 {
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4690 #ifdef FEAT_JUMPLIST
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4691 win_T *wp;
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4692 int i;
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4693 list_T *l;
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4694 dict_T *d;
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4695 #endif
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4696
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4697 if (rettv_list_alloc(rettv) != OK)
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4698 return;
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4699
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4700 #ifdef FEAT_JUMPLIST
16427 8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	4701 wp = find_tabwin(&argvars[0], &argvars[1], NULL);
13246 dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4702 if (wp == NULL)
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4703 return;
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4704
15788 c24572e66556 patch 8.1.0901: index in getjumplist() may be wrong Bram Moolenaar <Bram@vim.org> parents: 15780 diff changeset	4705 cleanup_jumplist(wp, TRUE);
c24572e66556 patch 8.1.0901: index in getjumplist() may be wrong Bram Moolenaar <Bram@vim.org> parents: 15780 diff changeset	4706
13246 dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4707 l = list_alloc();
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4708 if (l == NULL)
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4709 return;
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4710
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4711 if (list_append_list(rettv->vval.v_list, l) == FAIL)
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4712 return;
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4713 list_append_number(rettv->vval.v_list, (varnumber_T)wp->w_jumplistidx);
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4714
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4715 for (i = 0; i < wp->w_jumplistlen; ++i)
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4716 {
13248 5958573d8a72 patch 8.0.1498: getjumplist() returns duplicate entries Christian Brabandt <cb@256bit.org> parents: 13246 diff changeset	4717 if (wp->w_jumplist[i].fmark.mark.lnum == 0)
5958573d8a72 patch 8.0.1498: getjumplist() returns duplicate entries Christian Brabandt <cb@256bit.org> parents: 13246 diff changeset	4718 continue;
13246 dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4719 if ((d = dict_alloc()) == NULL)
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4720 return;
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4721 if (list_append_dict(l, d) == FAIL)
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4722 return;
14301 3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	4723 dict_add_number(d, "lnum", (long)wp->w_jumplist[i].fmark.mark.lnum);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	4724 dict_add_number(d, "col", (long)wp->w_jumplist[i].fmark.mark.col);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	4725 dict_add_number(d, "coladd", (long)wp->w_jumplist[i].fmark.mark.coladd);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	4726 dict_add_number(d, "bufnr", (long)wp->w_jumplist[i].fmark.fnum);
13248 5958573d8a72 patch 8.0.1498: getjumplist() returns duplicate entries Christian Brabandt <cb@256bit.org> parents: 13246 diff changeset	4727 if (wp->w_jumplist[i].fname != NULL)
14301 3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	4728 dict_add_string(d, "filename", wp->w_jumplist[i].fname);
13246 dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4729 }
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4730 #endif
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4731 }
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4732
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4733 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4734 * "getline(lnum, [end])" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4735 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4736 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4737 f_getline(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4738 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4739 linenr_T lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4740 linenr_T end;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4741 int retlist;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4742
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	4743 lnum = tv_get_lnum(argvars);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4744 if (argvars[1].v_type == VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4745 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4746 end = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4747 retlist = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4748 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4749 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4750 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	4751 end = tv_get_lnum(&argvars[1]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4752 retlist = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4753 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4754
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4755 get_buffer_lines(curbuf, lnum, end, retlist, rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4756 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4757
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4758 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4759 * "getpid()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4760 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4761 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4762 f_getpid(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4763 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4764 rettv->vval.v_number = mch_get_pid();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4765 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4766
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4767 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4768 getpos_both(
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4769 typval_T *argvars,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4770 typval_T *rettv,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4771 int getcurpos)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4772 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4773 pos_T *fp;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4774 list_T *l;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4775 int fnum = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4776
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4777 if (rettv_list_alloc(rettv) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4778 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4779 l = rettv->vval.v_list;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4780 if (getcurpos)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4781 fp = &curwin->w_cursor;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4782 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4783 fp = var2fpos(&argvars[0], TRUE, &fnum);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4784 if (fnum != -1)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4785 list_append_number(l, (varnumber_T)fnum);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4786 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4787 list_append_number(l, (varnumber_T)0);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4788 list_append_number(l, (fp != NULL) ? (varnumber_T)fp->lnum
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4789 : (varnumber_T)0);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4790 list_append_number(l, (fp != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4791 ? (varnumber_T)(fp->col == MAXCOL ? MAXCOL : fp->col + 1)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4792 : (varnumber_T)0);
15636 6f1c7e9a6393 patch 8.1.0826: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15615 diff changeset	4793 list_append_number(l, (fp != NULL) ? (varnumber_T)fp->coladd :
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4794 (varnumber_T)0);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4795 if (getcurpos)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4796 {
15985 e91750e8adb5 patch 8.1.0998: getcurpos() unexpectedly changes "curswant" Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	4797 int save_set_curswant = curwin->w_set_curswant;
e91750e8adb5 patch 8.1.0998: getcurpos() unexpectedly changes "curswant" Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	4798 colnr_T save_curswant = curwin->w_curswant;
e91750e8adb5 patch 8.1.0998: getcurpos() unexpectedly changes "curswant" Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	4799 colnr_T save_virtcol = curwin->w_virtcol;
e91750e8adb5 patch 8.1.0998: getcurpos() unexpectedly changes "curswant" Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	4800
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4801 update_curswant();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4802 list_append_number(l, curwin->w_curswant == MAXCOL ?
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4803 (varnumber_T)MAXCOL : (varnumber_T)curwin->w_curswant + 1);
15985 e91750e8adb5 patch 8.1.0998: getcurpos() unexpectedly changes "curswant" Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	4804
e91750e8adb5 patch 8.1.0998: getcurpos() unexpectedly changes "curswant" Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	4805 // Do not change "curswant", as it is unexpected that a get
e91750e8adb5 patch 8.1.0998: getcurpos() unexpectedly changes "curswant" Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	4806 // function has a side effect.
e91750e8adb5 patch 8.1.0998: getcurpos() unexpectedly changes "curswant" Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	4807 if (save_set_curswant)
e91750e8adb5 patch 8.1.0998: getcurpos() unexpectedly changes "curswant" Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	4808 {
e91750e8adb5 patch 8.1.0998: getcurpos() unexpectedly changes "curswant" Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	4809 curwin->w_set_curswant = save_set_curswant;
e91750e8adb5 patch 8.1.0998: getcurpos() unexpectedly changes "curswant" Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	4810 curwin->w_curswant = save_curswant;
e91750e8adb5 patch 8.1.0998: getcurpos() unexpectedly changes "curswant" Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	4811 curwin->w_virtcol = save_virtcol;
e91750e8adb5 patch 8.1.0998: getcurpos() unexpectedly changes "curswant" Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	4812 curwin->w_valid &= ~VALID_VIRTCOL;
e91750e8adb5 patch 8.1.0998: getcurpos() unexpectedly changes "curswant" Bram Moolenaar <Bram@vim.org> parents: 15979 diff changeset	4813 }
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4814 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4815 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4816 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4817 rettv->vval.v_number = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4818 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4819
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4820 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4821 * "getcurpos()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4822 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4823 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4824 f_getcurpos(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4825 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4826 getpos_both(argvars, rettv, TRUE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4827 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4828
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4829 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4830 * "getpos(string)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4831 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4832 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4833 f_getpos(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4834 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4835 getpos_both(argvars, rettv, FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4836 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4837
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4838 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4839 * "getreg()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4840 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4841 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4842 f_getreg(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4843 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4844 char_u *strregname;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4845 int regname;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4846 int arg2 = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4847 int return_list = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4848 int error = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4849
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4850 if (argvars[0].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4851 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	4852 strregname = tv_get_string_chk(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4853 error = strregname == NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4854 if (argvars[1].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4855 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	4856 arg2 = (int)tv_get_number_chk(&argvars[1], &error);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4857 if (!error && argvars[2].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	4858 return_list = (int)tv_get_number_chk(&argvars[2], &error);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4859 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4860 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4861 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4862 strregname = get_vim_var_str(VV_REG);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4863
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4864 if (error)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4865 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4866
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4867 regname = (strregname == NULL ? '"' : *strregname);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4868 if (regname == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4869 regname = '"';
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4870
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4871 if (return_list)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4872 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4873 rettv->v_type = VAR_LIST;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4874 rettv->vval.v_list = (list_T *)get_reg_contents(regname,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4875 (arg2 ? GREG_EXPR_SRC : 0) \| GREG_LIST);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4876 if (rettv->vval.v_list == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4877 (void)rettv_list_alloc(rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4878 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4879 ++rettv->vval.v_list->lv_refcount;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4880 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4881 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4882 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4883 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4884 rettv->vval.v_string = get_reg_contents(regname,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4885 arg2 ? GREG_EXPR_SRC : 0);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4886 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4887 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4888
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4889 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4890 * "getregtype()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4891 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4892 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4893 f_getregtype(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4894 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4895 char_u *strregname;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4896 int regname;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4897 char_u buf[NUMBUFLEN + 2];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4898 long reglen = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4899
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4900 if (argvars[0].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4901 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	4902 strregname = tv_get_string_chk(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4903 if (strregname == NULL) /* type error; errmsg already given */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4904 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4905 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4906 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4907 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4908 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4909 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4910 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4911 /* Default to v:register */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4912 strregname = get_vim_var_str(VV_REG);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4913
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4914 regname = (strregname == NULL ? '"' : *strregname);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4915 if (regname == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4916 regname = '"';
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4917
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4918 buf[0] = NUL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4919 buf[1] = NUL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4920 switch (get_reg_type(regname, &reglen))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4921 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4922 case MLINE: buf[0] = 'V'; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4923 case MCHAR: buf[0] = 'v'; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4924 case MBLOCK:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4925 buf[0] = Ctrl_V;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4926 sprintf((char *)buf + 1, "%ld", reglen + 1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4927 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4928 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4929 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4930 rettv->vval.v_string = vim_strsave(buf);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4931 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	4932
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4933 /*
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4934 * Returns information (variables, options, etc.) about a tab page
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4935 * as a dictionary.
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4936 */
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4937 static dict_T *
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4938 get_tabpage_info(tabpage_T *tp, int tp_idx)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4939 {
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4940 win_T *wp;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4941 dict_T *dict;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4942 list_T *l;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4943
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4944 dict = dict_alloc();
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4945 if (dict == NULL)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4946 return NULL;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4947
14301 3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	4948 dict_add_number(dict, "tabnr", tp_idx);
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4949
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4950 l = list_alloc();
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4951 if (l != NULL)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4952 {
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4953 for (wp = (tp == curtab) ? firstwin : tp->tp_firstwin;
17253 26e0352613ec patch 8.1.1626: no test for closing a popup window with a modified buffer Bram Moolenaar <Bram@vim.org> parents: 17243 diff changeset	4954 wp != NULL; wp = wp->w_next)
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4955 list_append_number(l, (varnumber_T)wp->w_id);
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4956 dict_add_list(dict, "windows", l);
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4957 }
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4958
9998 3063d1acd0c9 commit https://github.com/vim/vim/commit/9f8187c335b4fb07be9095dfdd0fc52670ba3c3f Christian Brabandt <cb@256bit.org> parents: 9959 diff changeset	4959 /* Make a reference to tabpage variables */
3063d1acd0c9 commit https://github.com/vim/vim/commit/9f8187c335b4fb07be9095dfdd0fc52670ba3c3f Christian Brabandt <cb@256bit.org> parents: 9959 diff changeset	4960 dict_add_dict(dict, "variables", tp->tp_vars);
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4961
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4962 return dict;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4963 }
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4964
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4965 /*
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4966 * "gettabinfo()" function
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4967 */
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4968 static void
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4969 f_gettabinfo(typval_T argvars, typval_T rettv)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4970 {
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4971 tabpage_T tp, tparg = NULL;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4972 dict_T *d;
9881 4b53f6be10c0 commit https://github.com/vim/vim/commit/386600f0cbcb8add099c723cf84634f46df2f788 Christian Brabandt <cb@256bit.org> parents: 9863 diff changeset	4973 int tpnr = 0;
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4974
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4975 if (rettv_list_alloc(rettv) != OK)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4976 return;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4977
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4978 if (argvars[0].v_type != VAR_UNKNOWN)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4979 {
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4980 /* Information about one tab page */
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	4981 tparg = find_tabpage((int)tv_get_number_chk(&argvars[0], NULL));
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4982 if (tparg == NULL)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4983 return;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4984 }
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4985
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4986 /* Get information about a specific tab page or all tab pages */
9881 4b53f6be10c0 commit https://github.com/vim/vim/commit/386600f0cbcb8add099c723cf84634f46df2f788 Christian Brabandt <cb@256bit.org> parents: 9863 diff changeset	4987 FOR_ALL_TABPAGES(tp)
4b53f6be10c0 commit https://github.com/vim/vim/commit/386600f0cbcb8add099c723cf84634f46df2f788 Christian Brabandt <cb@256bit.org> parents: 9863 diff changeset	4988 {
4b53f6be10c0 commit https://github.com/vim/vim/commit/386600f0cbcb8add099c723cf84634f46df2f788 Christian Brabandt <cb@256bit.org> parents: 9863 diff changeset	4989 tpnr++;
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4990 if (tparg != NULL && tp != tparg)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4991 continue;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4992 d = get_tabpage_info(tp, tpnr);
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4993 if (d != NULL)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4994 list_append_dict(rettv->vval.v_list, d);
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4995 if (tparg != NULL)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4996 return;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4997 }
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4998 }
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	4999
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5000 /*
15016 c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	5001 * "gettagstack()" function
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	5002 */
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	5003 static void
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	5004 f_gettagstack(typval_T argvars, typval_T rettv)
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	5005 {
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	5006 win_T *wp = curwin; // default is current window
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	5007
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	5008 if (rettv_dict_alloc(rettv) != OK)
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	5009 return;
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	5010
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	5011 if (argvars[0].v_type != VAR_UNKNOWN)
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	5012 {
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	5013 wp = find_win_by_nr_or_id(&argvars[0]);
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	5014 if (wp == NULL)
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	5015 return;
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	5016 }
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	5017
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	5018 get_tagstack(wp, rettv->vval.v_dict);
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	5019 }
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	5020
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	5021 /*
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5022 * Returns information about a window as a dictionary.
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5023 */
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5024 static dict_T *
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5025 get_win_info(win_T *wp, short tpnr, short winnr)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5026 {
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5027 dict_T *dict;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5028
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5029 dict = dict_alloc();
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5030 if (dict == NULL)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5031 return NULL;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5032
14301 3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	5033 dict_add_number(dict, "tabnr", tpnr);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	5034 dict_add_number(dict, "winnr", winnr);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	5035 dict_add_number(dict, "winid", wp->w_id);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	5036 dict_add_number(dict, "height", wp->w_height);
14343 7589f103ec11 patch 8.1.0187: getwininfo() and win_screenpos() return different numbers Christian Brabandt <cb@256bit.org> parents: 14337 diff changeset	5037 dict_add_number(dict, "winrow", wp->w_winrow + 1);
15977 7fbdceabad64 patch 8.1.0994: relative cursor position is not calculated correctly Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	5038 dict_add_number(dict, "topline", wp->w_topline);
7fbdceabad64 patch 8.1.0994: relative cursor position is not calculated correctly Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	5039 dict_add_number(dict, "botline", wp->w_botline - 1);
12487 3f16cf18386c patch 8.0.1123: cannot define a toolbar for a window Christian Brabandt <cb@256bit.org> parents: 12477 diff changeset	5040 #ifdef FEAT_MENU
14301 3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	5041 dict_add_number(dict, "winbar", wp->w_winbar_height);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	5042 #endif
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	5043 dict_add_number(dict, "width", wp->w_width);
14343 7589f103ec11 patch 8.1.0187: getwininfo() and win_screenpos() return different numbers Christian Brabandt <cb@256bit.org> parents: 14337 diff changeset	5044 dict_add_number(dict, "wincol", wp->w_wincol + 1);
14301 3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	5045 dict_add_number(dict, "bufnr", wp->w_buffer->b_fnum);
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5046
12102 560a2b6789c3 patch 8.0.0931: getwininfo() does not indicate a terminal window Christian Brabandt <cb@256bit.org> parents: 12056 diff changeset	5047 #ifdef FEAT_TERMINAL
14301 3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	5048 dict_add_number(dict, "terminal", bt_terminal(wp->w_buffer));
12102 560a2b6789c3 patch 8.0.0931: getwininfo() does not indicate a terminal window Christian Brabandt <cb@256bit.org> parents: 12056 diff changeset	5049 #endif
9881 4b53f6be10c0 commit https://github.com/vim/vim/commit/386600f0cbcb8add099c723cf84634f46df2f788 Christian Brabandt <cb@256bit.org> parents: 9863 diff changeset	5050 #ifdef FEAT_QUICKFIX
14301 3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	5051 dict_add_number(dict, "quickfix", bt_quickfix(wp->w_buffer));
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	5052 dict_add_number(dict, "loclist",
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	5053 (bt_quickfix(wp->w_buffer) && wp->w_llist_ref != NULL));
9881 4b53f6be10c0 commit https://github.com/vim/vim/commit/386600f0cbcb8add099c723cf84634f46df2f788 Christian Brabandt <cb@256bit.org> parents: 9863 diff changeset	5054 #endif
4b53f6be10c0 commit https://github.com/vim/vim/commit/386600f0cbcb8add099c723cf84634f46df2f788 Christian Brabandt <cb@256bit.org> parents: 9863 diff changeset	5055
10000 233289599874 commit https://github.com/vim/vim/commit/3056735ae8a366aa7fcb51872520895251858637 Christian Brabandt <cb@256bit.org> parents: 9998 diff changeset	5056 /* Add a reference to window variables */
9998 3063d1acd0c9 commit https://github.com/vim/vim/commit/9f8187c335b4fb07be9095dfdd0fc52670ba3c3f Christian Brabandt <cb@256bit.org> parents: 9959 diff changeset	5057 dict_add_dict(dict, "variables", wp->w_vars);
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5058
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5059 return dict;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5060 }
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5061
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5062 /*
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5063 * "getwininfo()" function
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5064 */
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5065 static void
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5066 f_getwininfo(typval_T argvars, typval_T rettv)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5067 {
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5068 tabpage_T *tp;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5069 win_T wp = NULL, wparg = NULL;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5070 dict_T *d;
9881 4b53f6be10c0 commit https://github.com/vim/vim/commit/386600f0cbcb8add099c723cf84634f46df2f788 Christian Brabandt <cb@256bit.org> parents: 9863 diff changeset	5071 short tabnr = 0, winnr;
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5072
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5073 if (rettv_list_alloc(rettv) != OK)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5074 return;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5075
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5076 if (argvars[0].v_type != VAR_UNKNOWN)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5077 {
15770 77e97f159554 patch 8.1.0892: failure when closing a window when location list is in use Bram Moolenaar <Bram@vim.org> parents: 15748 diff changeset	5078 wparg = win_id2wp(tv_get_number(&argvars[0]));
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5079 if (wparg == NULL)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5080 return;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5081 }
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5082
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5083 /* Collect information about either all the windows across all the tab
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5084 * pages or one particular window.
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5085 */
9881 4b53f6be10c0 commit https://github.com/vim/vim/commit/386600f0cbcb8add099c723cf84634f46df2f788 Christian Brabandt <cb@256bit.org> parents: 9863 diff changeset	5086 FOR_ALL_TABPAGES(tp)
4b53f6be10c0 commit https://github.com/vim/vim/commit/386600f0cbcb8add099c723cf84634f46df2f788 Christian Brabandt <cb@256bit.org> parents: 9863 diff changeset	5087 {
4b53f6be10c0 commit https://github.com/vim/vim/commit/386600f0cbcb8add099c723cf84634f46df2f788 Christian Brabandt <cb@256bit.org> parents: 9863 diff changeset	5088 tabnr++;
4b53f6be10c0 commit https://github.com/vim/vim/commit/386600f0cbcb8add099c723cf84634f46df2f788 Christian Brabandt <cb@256bit.org> parents: 9863 diff changeset	5089 winnr = 0;
4b53f6be10c0 commit https://github.com/vim/vim/commit/386600f0cbcb8add099c723cf84634f46df2f788 Christian Brabandt <cb@256bit.org> parents: 9863 diff changeset	5090 FOR_ALL_WINDOWS_IN_TAB(tp, wp)
4b53f6be10c0 commit https://github.com/vim/vim/commit/386600f0cbcb8add099c723cf84634f46df2f788 Christian Brabandt <cb@256bit.org> parents: 9863 diff changeset	5091 {
4b53f6be10c0 commit https://github.com/vim/vim/commit/386600f0cbcb8add099c723cf84634f46df2f788 Christian Brabandt <cb@256bit.org> parents: 9863 diff changeset	5092 winnr++;
9858 3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5093 if (wparg != NULL && wp != wparg)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5094 continue;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5095 d = get_win_info(wp, tabnr, winnr);
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5096 if (d != NULL)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5097 list_append_dict(rettv->vval.v_list, d);
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5098 if (wparg != NULL)
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5099 /* found information about a specific window */
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5100 return;
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5101 }
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5102 }
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5103 }
3e96d9ed2ca1 commit https://github.com/vim/vim/commit/b5ae48e9ffd3b8eb6ca4057de11f1bddcde8ce6f Christian Brabandt <cb@256bit.org> parents: 9850 diff changeset	5104
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5105 /*
16833 6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	5106 * "win_execute()" function
6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	5107 */
6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	5108 static void
6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	5109 f_win_execute(typval_T argvars, typval_T rettv)
6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	5110 {
6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	5111 int id = (int)tv_get_number(argvars);
17670 1be29c149103 patch 8.1.1832: win_execute() does not work in other tab Bram Moolenaar <Bram@vim.org> parents: 17652 diff changeset	5112 tabpage_T *tp;
1be29c149103 patch 8.1.1832: win_execute() does not work in other tab Bram Moolenaar <Bram@vim.org> parents: 17652 diff changeset	5113 win_T *wp = win_id2wp_tp(id, &tp);
16847 f8e28c6ae8ab patch 8.1.1425: win_execute() does not set window pointers properly Bram Moolenaar <Bram@vim.org> parents: 16841 diff changeset	5114 win_T *save_curwin;
f8e28c6ae8ab patch 8.1.1425: win_execute() does not set window pointers properly Bram Moolenaar <Bram@vim.org> parents: 16841 diff changeset	5115 tabpage_T *save_curtab;
16833 6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	5116
17670 1be29c149103 patch 8.1.1832: win_execute() does not work in other tab Bram Moolenaar <Bram@vim.org> parents: 17652 diff changeset	5117 if (wp != NULL && tp != NULL)
1be29c149103 patch 8.1.1832: win_execute() does not work in other tab Bram Moolenaar <Bram@vim.org> parents: 17652 diff changeset	5118 {
1be29c149103 patch 8.1.1832: win_execute() does not work in other tab Bram Moolenaar <Bram@vim.org> parents: 17652 diff changeset	5119 if (switch_win_noblock(&save_curwin, &save_curtab, wp, tp, TRUE) == OK)
16847 f8e28c6ae8ab patch 8.1.1425: win_execute() does not set window pointers properly Bram Moolenaar <Bram@vim.org> parents: 16841 diff changeset	5120 {
f8e28c6ae8ab patch 8.1.1425: win_execute() does not set window pointers properly Bram Moolenaar <Bram@vim.org> parents: 16841 diff changeset	5121 check_cursor();
f8e28c6ae8ab patch 8.1.1425: win_execute() does not set window pointers properly Bram Moolenaar <Bram@vim.org> parents: 16841 diff changeset	5122 execute_common(argvars, rettv, 1);
f8e28c6ae8ab patch 8.1.1425: win_execute() does not set window pointers properly Bram Moolenaar <Bram@vim.org> parents: 16841 diff changeset	5123 }
f8e28c6ae8ab patch 8.1.1425: win_execute() does not set window pointers properly Bram Moolenaar <Bram@vim.org> parents: 16841 diff changeset	5124 restore_win_noblock(save_curwin, save_curtab, TRUE);
16833 6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	5125 }
6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	5126 }
6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	5127
6699c03347d2 patch 8.1.1418: win_execute() is not implemented yet Bram Moolenaar <Bram@vim.org> parents: 16829 diff changeset	5128 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5129 * "win_findbuf()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5130 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5131 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5132 f_win_findbuf(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5133 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5134 if (rettv_list_alloc(rettv) != FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5135 win_findbuf(argvars, rettv->vval.v_list);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5136 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5137
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5138 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5139 * "win_getid()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5140 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5141 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5142 f_win_getid(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5143 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5144 rettv->vval.v_number = win_getid(argvars);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5145 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5146
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5147 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5148 * "win_gotoid()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5149 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5150 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5151 f_win_gotoid(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5152 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5153 rettv->vval.v_number = win_gotoid(argvars);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5154 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5155
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5156 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5157 * "win_id2tabwin()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5158 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5159 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5160 f_win_id2tabwin(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5161 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5162 if (rettv_list_alloc(rettv) != FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5163 win_id2tabwin(argvars, rettv->vval.v_list);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5164 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5165
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5166 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5167 * "win_id2win()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5168 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5169 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5170 f_win_id2win(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5171 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5172 rettv->vval.v_number = win_id2win(argvars);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5173 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5174
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5175 /*
12977 2d817fd289ba patch 8.0.1364: there is no easy way to get the window position Christian Brabandt <cb@256bit.org> parents: 12918 diff changeset	5176 * "win_screenpos()" function
2d817fd289ba patch 8.0.1364: there is no easy way to get the window position Christian Brabandt <cb@256bit.org> parents: 12918 diff changeset	5177 */
2d817fd289ba patch 8.0.1364: there is no easy way to get the window position Christian Brabandt <cb@256bit.org> parents: 12918 diff changeset	5178 static void
2d817fd289ba patch 8.0.1364: there is no easy way to get the window position Christian Brabandt <cb@256bit.org> parents: 12918 diff changeset	5179 f_win_screenpos(typval_T argvars, typval_T rettv)
2d817fd289ba patch 8.0.1364: there is no easy way to get the window position Christian Brabandt <cb@256bit.org> parents: 12918 diff changeset	5180 {
2d817fd289ba patch 8.0.1364: there is no easy way to get the window position Christian Brabandt <cb@256bit.org> parents: 12918 diff changeset	5181 win_T *wp;
2d817fd289ba patch 8.0.1364: there is no easy way to get the window position Christian Brabandt <cb@256bit.org> parents: 12918 diff changeset	5182
2d817fd289ba patch 8.0.1364: there is no easy way to get the window position Christian Brabandt <cb@256bit.org> parents: 12918 diff changeset	5183 if (rettv_list_alloc(rettv) == FAIL)
2d817fd289ba patch 8.0.1364: there is no easy way to get the window position Christian Brabandt <cb@256bit.org> parents: 12918 diff changeset	5184 return;
2d817fd289ba patch 8.0.1364: there is no easy way to get the window position Christian Brabandt <cb@256bit.org> parents: 12918 diff changeset	5185
14966 d65790af8514 patch 8.1.0494: functions do not check for a window ID in other tabs Bram Moolenaar <Bram@vim.org> parents: 14964 diff changeset	5186 wp = find_win_by_nr_or_id(&argvars[0]);
12977 2d817fd289ba patch 8.0.1364: there is no easy way to get the window position Christian Brabandt <cb@256bit.org> parents: 12918 diff changeset	5187 list_append_number(rettv->vval.v_list, wp == NULL ? 0 : wp->w_winrow + 1);
2d817fd289ba patch 8.0.1364: there is no easy way to get the window position Christian Brabandt <cb@256bit.org> parents: 12918 diff changeset	5188 list_append_number(rettv->vval.v_list, wp == NULL ? 0 : wp->w_wincol + 1);
2d817fd289ba patch 8.0.1364: there is no easy way to get the window position Christian Brabandt <cb@256bit.org> parents: 12918 diff changeset	5189 }
2d817fd289ba patch 8.0.1364: there is no easy way to get the window position Christian Brabandt <cb@256bit.org> parents: 12918 diff changeset	5190
2d817fd289ba patch 8.0.1364: there is no easy way to get the window position Christian Brabandt <cb@256bit.org> parents: 12918 diff changeset	5191 /*
13379 0f9dd1b43244 patch 8.0.1563: timeout of getwinposx() can be too short Christian Brabandt <cb@256bit.org> parents: 13367 diff changeset	5192 * "getwinpos({timeout})" function
0f9dd1b43244 patch 8.0.1563: timeout of getwinposx() can be too short Christian Brabandt <cb@256bit.org> parents: 13367 diff changeset	5193 */
0f9dd1b43244 patch 8.0.1563: timeout of getwinposx() can be too short Christian Brabandt <cb@256bit.org> parents: 13367 diff changeset	5194 static void
0f9dd1b43244 patch 8.0.1563: timeout of getwinposx() can be too short Christian Brabandt <cb@256bit.org> parents: 13367 diff changeset	5195 f_getwinpos(typval_T argvars UNUSED, typval_T rettv)
0f9dd1b43244 patch 8.0.1563: timeout of getwinposx() can be too short Christian Brabandt <cb@256bit.org> parents: 13367 diff changeset	5196 {
0f9dd1b43244 patch 8.0.1563: timeout of getwinposx() can be too short Christian Brabandt <cb@256bit.org> parents: 13367 diff changeset	5197 int x = -1;
0f9dd1b43244 patch 8.0.1563: timeout of getwinposx() can be too short Christian Brabandt <cb@256bit.org> parents: 13367 diff changeset	5198 int y = -1;
0f9dd1b43244 patch 8.0.1563: timeout of getwinposx() can be too short Christian Brabandt <cb@256bit.org> parents: 13367 diff changeset	5199
0f9dd1b43244 patch 8.0.1563: timeout of getwinposx() can be too short Christian Brabandt <cb@256bit.org> parents: 13367 diff changeset	5200 if (rettv_list_alloc(rettv) == FAIL)
0f9dd1b43244 patch 8.0.1563: timeout of getwinposx() can be too short Christian Brabandt <cb@256bit.org> parents: 13367 diff changeset	5201 return;
16253 f28ef3d27f91 patch 8.1.1131: getwinpos() does not work in the MS-Windows console Bram Moolenaar <Bram@vim.org> parents: 16251 diff changeset	5202 #if defined(FEAT_GUI) \
f28ef3d27f91 patch 8.1.1131: getwinpos() does not work in the MS-Windows console Bram Moolenaar <Bram@vim.org> parents: 16251 diff changeset	5203 \|\| (defined(HAVE_TGETENT) && defined(FEAT_TERMRESPONSE)) \
f28ef3d27f91 patch 8.1.1131: getwinpos() does not work in the MS-Windows console Bram Moolenaar <Bram@vim.org> parents: 16251 diff changeset	5204 \|\| defined(MSWIN)
13379 0f9dd1b43244 patch 8.0.1563: timeout of getwinposx() can be too short Christian Brabandt <cb@256bit.org> parents: 13367 diff changeset	5205 {
0f9dd1b43244 patch 8.0.1563: timeout of getwinposx() can be too short Christian Brabandt <cb@256bit.org> parents: 13367 diff changeset	5206 varnumber_T timeout = 100;
0f9dd1b43244 patch 8.0.1563: timeout of getwinposx() can be too short Christian Brabandt <cb@256bit.org> parents: 13367 diff changeset	5207
0f9dd1b43244 patch 8.0.1563: timeout of getwinposx() can be too short Christian Brabandt <cb@256bit.org> parents: 13367 diff changeset	5208 if (argvars[0].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	5209 timeout = tv_get_number(&argvars[0]);
16241 c1698187c482 patch 8.1.1125: libvterm does not handle the window position report Bram Moolenaar <Bram@vim.org> parents: 16235 diff changeset	5210
c1698187c482 patch 8.1.1125: libvterm does not handle the window position report Bram Moolenaar <Bram@vim.org> parents: 16235 diff changeset	5211 (void)ui_get_winpos(&x, &y, timeout);
13379 0f9dd1b43244 patch 8.0.1563: timeout of getwinposx() can be too short Christian Brabandt <cb@256bit.org> parents: 13367 diff changeset	5212 }
0f9dd1b43244 patch 8.0.1563: timeout of getwinposx() can be too short Christian Brabandt <cb@256bit.org> parents: 13367 diff changeset	5213 #endif
0f9dd1b43244 patch 8.0.1563: timeout of getwinposx() can be too short Christian Brabandt <cb@256bit.org> parents: 13367 diff changeset	5214 list_append_number(rettv->vval.v_list, (varnumber_T)x);
0f9dd1b43244 patch 8.0.1563: timeout of getwinposx() can be too short Christian Brabandt <cb@256bit.org> parents: 13367 diff changeset	5215 list_append_number(rettv->vval.v_list, (varnumber_T)y);
0f9dd1b43244 patch 8.0.1563: timeout of getwinposx() can be too short Christian Brabandt <cb@256bit.org> parents: 13367 diff changeset	5216 }
0f9dd1b43244 patch 8.0.1563: timeout of getwinposx() can be too short Christian Brabandt <cb@256bit.org> parents: 13367 diff changeset	5217
0f9dd1b43244 patch 8.0.1563: timeout of getwinposx() can be too short Christian Brabandt <cb@256bit.org> parents: 13367 diff changeset	5218
0f9dd1b43244 patch 8.0.1563: timeout of getwinposx() can be too short Christian Brabandt <cb@256bit.org> parents: 13367 diff changeset	5219 /*
11315 0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11263 diff changeset	5220 * "getwinposx()" function
0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11263 diff changeset	5221 */
0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11263 diff changeset	5222 static void
0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11263 diff changeset	5223 f_getwinposx(typval_T argvars UNUSED, typval_T rettv)
0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11263 diff changeset	5224 {
0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11263 diff changeset	5225 rettv->vval.v_number = -1;
16253 f28ef3d27f91 patch 8.1.1131: getwinpos() does not work in the MS-Windows console Bram Moolenaar <Bram@vim.org> parents: 16251 diff changeset	5226 #if defined(FEAT_GUI) \
f28ef3d27f91 patch 8.1.1131: getwinpos() does not work in the MS-Windows console Bram Moolenaar <Bram@vim.org> parents: 16251 diff changeset	5227 \|\| (defined(HAVE_TGETENT) && defined(FEAT_TERMRESPONSE)) \
f28ef3d27f91 patch 8.1.1131: getwinpos() does not work in the MS-Windows console Bram Moolenaar <Bram@vim.org> parents: 16251 diff changeset	5228 \|\| defined(MSWIN)
f28ef3d27f91 patch 8.1.1131: getwinpos() does not work in the MS-Windows console Bram Moolenaar <Bram@vim.org> parents: 16251 diff changeset	5229
11315 0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11263 diff changeset	5230 {
0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11263 diff changeset	5231 int x, y;
0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11263 diff changeset	5232
16241 c1698187c482 patch 8.1.1125: libvterm does not handle the window position report Bram Moolenaar <Bram@vim.org> parents: 16235 diff changeset	5233 if (ui_get_winpos(&x, &y, 100) == OK)
11315 0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11263 diff changeset	5234 rettv->vval.v_number = x;
0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11263 diff changeset	5235 }
0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11263 diff changeset	5236 #endif
0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11263 diff changeset	5237 }
0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11263 diff changeset	5238
0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11263 diff changeset	5239 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5240 * "getwinposy()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5241 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5242 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5243 f_getwinposy(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5244 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5245 rettv->vval.v_number = -1;
16253 f28ef3d27f91 patch 8.1.1131: getwinpos() does not work in the MS-Windows console Bram Moolenaar <Bram@vim.org> parents: 16251 diff changeset	5246 #if defined(FEAT_GUI) \
f28ef3d27f91 patch 8.1.1131: getwinpos() does not work in the MS-Windows console Bram Moolenaar <Bram@vim.org> parents: 16251 diff changeset	5247 \|\| (defined(HAVE_TGETENT) && defined(FEAT_TERMRESPONSE)) \
f28ef3d27f91 patch 8.1.1131: getwinpos() does not work in the MS-Windows console Bram Moolenaar <Bram@vim.org> parents: 16251 diff changeset	5248 \|\| defined(MSWIN)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5249 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5250 int x, y;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5251
16241 c1698187c482 patch 8.1.1125: libvterm does not handle the window position report Bram Moolenaar <Bram@vim.org> parents: 16235 diff changeset	5252 if (ui_get_winpos(&x, &y, 100) == OK)
11315 0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11263 diff changeset	5253 rettv->vval.v_number = y;
0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11263 diff changeset	5254 }
0c091a7c588c patch 8.0.0543: test_edit causes older xfce4-terminal to close Christian Brabandt <cb@256bit.org> parents: 11263 diff changeset	5255 #endif
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5256 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5257
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5258 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5259 * "glob()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5260 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5261 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5262 f_glob(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5263 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5264 int options = WILD_SILENT\|WILD_USE_NL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5265 expand_T xpc;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5266 int error = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5267
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5268 /* When the optional second argument is non-zero, don't remove matches
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5269 * for 'wildignore' and don't put matches for 'suffixes' at the end. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5270 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5271 if (argvars[1].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5272 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	5273 if (tv_get_number_chk(&argvars[1], &error))
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5274 options \|= WILD_KEEP_ALL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5275 if (argvars[2].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5276 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	5277 if (tv_get_number_chk(&argvars[2], &error))
11418 162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value Christian Brabandt <cb@256bit.org> parents: 11341 diff changeset	5278 rettv_list_set(rettv, NULL);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5279 if (argvars[3].v_type != VAR_UNKNOWN
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	5280 && tv_get_number_chk(&argvars[3], &error))
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5281 options \|= WILD_ALLLINKS;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5282 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5283 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5284 if (!error)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5285 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5286 ExpandInit(&xpc);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5287 xpc.xp_context = EXPAND_FILES;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5288 if (p_wic)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5289 options += WILD_ICASE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5290 if (rettv->v_type == VAR_STRING)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	5291 rettv->vval.v_string = ExpandOne(&xpc, tv_get_string(&argvars[0]),
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5292 NULL, options, WILD_ALL);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5293 else if (rettv_list_alloc(rettv) != FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5294 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5295 int i;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5296
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	5297 ExpandOne(&xpc, tv_get_string(&argvars[0]),
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5298 NULL, options, WILD_ALL_KEEP);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5299 for (i = 0; i < xpc.xp_numfiles; i++)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5300 list_append_string(rettv->vval.v_list, xpc.xp_files[i], -1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5301
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5302 ExpandCleanup(&xpc);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5303 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5304 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5305 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5306 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5307 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5308
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5309 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5310 * "globpath()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5311 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5312 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5313 f_globpath(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5314 {
17588 1348696d07cd patch 8.1.1791: 'completeslash' also applies to globpath() Bram Moolenaar <Bram@vim.org> parents: 17576 diff changeset	5315 int flags = WILD_IGNORE_COMPLETESLASH;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5316 char_u buf1[NUMBUFLEN];
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	5317 char_u *file = tv_get_string_buf_chk(&argvars[1], buf1);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5318 int error = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5319 garray_T ga;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5320 int i;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5321
17588 1348696d07cd patch 8.1.1791: 'completeslash' also applies to globpath() Bram Moolenaar <Bram@vim.org> parents: 17576 diff changeset	5322 // When the optional second argument is non-zero, don't remove matches
1348696d07cd patch 8.1.1791: 'completeslash' also applies to globpath() Bram Moolenaar <Bram@vim.org> parents: 17576 diff changeset	5323 // for 'wildignore' and don't put matches for 'suffixes' at the end.
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5324 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5325 if (argvars[2].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5326 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	5327 if (tv_get_number_chk(&argvars[2], &error))
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5328 flags \|= WILD_KEEP_ALL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5329 if (argvars[3].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5330 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	5331 if (tv_get_number_chk(&argvars[3], &error))
11418 162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value Christian Brabandt <cb@256bit.org> parents: 11341 diff changeset	5332 rettv_list_set(rettv, NULL);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5333 if (argvars[4].v_type != VAR_UNKNOWN
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	5334 && tv_get_number_chk(&argvars[4], &error))
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5335 flags \|= WILD_ALLLINKS;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5336 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5337 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5338 if (file != NULL && !error)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5339 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5340 ga_init2(&ga, (int)sizeof(char_u *), 10);
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	5341 globpath(tv_get_string(&argvars[0]), file, &ga, flags);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5342 if (rettv->v_type == VAR_STRING)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5343 rettv->vval.v_string = ga_concat_strings(&ga, "\n");
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5344 else if (rettv_list_alloc(rettv) != FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5345 for (i = 0; i < ga.ga_len; ++i)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5346 list_append_string(rettv->vval.v_list,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5347 ((char_u **)(ga.ga_data))[i], -1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5348 ga_clear_strings(&ga);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5349 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5350 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5351 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5352 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5353
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5354 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5355 * "glob2regpat()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5356 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5357 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5358 f_glob2regpat(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5359 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	5360 char_u *pat = tv_get_string_chk(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5361
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5362 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5363 rettv->vval.v_string = (pat == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5364 ? NULL : file_pat_to_reg_pat(pat, NULL, NULL, FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5365 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5366
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5367 /* for VIM_VERSION_ defines */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5368 #include "version.h"
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5369
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5370 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5371 * "has()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5372 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5373 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5374 f_has(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5375 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5376 int i;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5377 char_u *name;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5378 int n = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5379 static char *(has_list[]) =
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5380 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5381 #ifdef AMIGA
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5382 "amiga",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5383 # ifdef FEAT_ARP
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5384 "arp",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5385 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5386 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5387 #ifdef __BEOS__
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5388 "beos",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5389 #endif
15677 772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15636 diff changeset	5390 #if defined(BSD) && !defined(MACOS_X)
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15636 diff changeset	5391 "bsd",
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15636 diff changeset	5392 #endif
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15636 diff changeset	5393 #ifdef hpux
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15636 diff changeset	5394 "hpux",
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15636 diff changeset	5395 #endif
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15636 diff changeset	5396 #ifdef __linux__
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15636 diff changeset	5397 "linux",
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15636 diff changeset	5398 #endif
12716 351cf7c67bbe patch 8.0.1236: Mac features are confusing Christian Brabandt <cb@256bit.org> parents: 12564 diff changeset	5399 #ifdef MACOS_X
13246 dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	5400 "mac", /* Mac OS X (and, once, Mac OS Classic) */
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	5401 "osx", /* Mac OS X */
12716 351cf7c67bbe patch 8.0.1236: Mac features are confusing Christian Brabandt <cb@256bit.org> parents: 12564 diff changeset	5402 # ifdef MACOS_X_DARWIN
13246 dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	5403 "macunix", /* Mac OS X, with the darwin feature */
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	5404 "osxdarwin", /* synonym for macunix */
12716 351cf7c67bbe patch 8.0.1236: Mac features are confusing Christian Brabandt <cb@256bit.org> parents: 12564 diff changeset	5405 # endif
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5406 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5407 #ifdef __QNX__
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5408 "qnx",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5409 #endif
15677 772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15636 diff changeset	5410 #ifdef SUN_SYSTEM
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15636 diff changeset	5411 "sun",
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15636 diff changeset	5412 #else
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15636 diff changeset	5413 "moon",
772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15636 diff changeset	5414 #endif
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5415 #ifdef UNIX
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5416 "unix",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5417 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5418 #ifdef VMS
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5419 "vms",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5420 #endif
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15850 diff changeset	5421 #ifdef MSWIN
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5422 "win32",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5423 #endif
15955 907481b9260f patch 8.1.0983: checking __CYGWIN32__ unnecessarily Bram Moolenaar <Bram@vim.org> parents: 15890 diff changeset	5424 #if defined(UNIX) && defined(__CYGWIN__)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5425 "win32unix",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5426 #endif
15890 de2c2a378cd1 patch 8.1.0951: using WIN64 even though it is never defined Bram Moolenaar <Bram@vim.org> parents: 15868 diff changeset	5427 #ifdef _WIN64
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5428 "win64",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5429 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5430 #ifdef EBCDIC
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5431 "ebcdic",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5432 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5433 #ifndef CASE_INSENSITIVE_FILENAME
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5434 "fname_case",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5435 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5436 #ifdef HAVE_ACL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5437 "acl",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5438 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5439 #ifdef FEAT_ARABIC
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5440 "arabic",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5441 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5442 "autocmd",
14399 e7d1bc5ee3b8 patch 8.1.0214: +autochdir feature not reported by has() or :version Christian Brabandt <cb@256bit.org> parents: 14393 diff changeset	5443 #ifdef FEAT_AUTOCHDIR
15677 772e72b046a3 patch 8.1.0846: not easy to recognize the system Vim runs on Bram Moolenaar <Bram@vim.org> parents: 15636 diff changeset	5444 "autochdir",
14399 e7d1bc5ee3b8 patch 8.1.0214: +autochdir feature not reported by has() or :version Christian Brabandt <cb@256bit.org> parents: 14393 diff changeset	5445 #endif
12837 963cdeb42c41 patch 8.0.1295: cannot automatically get a server name in a terminal Christian Brabandt <cb@256bit.org> parents: 12794 diff changeset	5446 #ifdef FEAT_AUTOSERVERNAME
963cdeb42c41 patch 8.0.1295: cannot automatically get a server name in a terminal Christian Brabandt <cb@256bit.org> parents: 12794 diff changeset	5447 "autoservername",
963cdeb42c41 patch 8.0.1295: cannot automatically get a server name in a terminal Christian Brabandt <cb@256bit.org> parents: 12794 diff changeset	5448 #endif
12871 1a450ce6980c patch 8.0.1312: balloon_show() only works in terminal when compiled with GUI Christian Brabandt <cb@256bit.org> parents: 12865 diff changeset	5449 #ifdef FEAT_BEVAL_GUI
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5450 "balloon_eval",
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15850 diff changeset	5451 # ifndef FEAT_GUI_MSWIN /* other GUIs always have multiline balloons */
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5452 "balloon_multiline",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5453 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5454 #endif
12871 1a450ce6980c patch 8.0.1312: balloon_show() only works in terminal when compiled with GUI Christian Brabandt <cb@256bit.org> parents: 12865 diff changeset	5455 #ifdef FEAT_BEVAL_TERM
12865 ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12857 diff changeset	5456 "balloon_eval_term",
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12857 diff changeset	5457 #endif
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5458 #if defined(SOME_BUILTIN_TCAPS) \|\| defined(ALL_BUILTIN_TCAPS)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5459 "builtin_terms",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5460 # ifdef ALL_BUILTIN_TCAPS
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5461 "all_builtin_terms",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5462 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5463 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5464 #if defined(FEAT_BROWSE) && (defined(USE_FILE_CHOOSER) \
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15850 diff changeset	5465 \|\| defined(FEAT_GUI_MSWIN) \
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5466 \|\| defined(FEAT_GUI_MOTIF))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5467 "browsefilter",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5468 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5469 #ifdef FEAT_BYTEOFF
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5470 "byte_offset",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5471 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5472 #ifdef FEAT_JOB_CHANNEL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5473 "channel",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5474 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5475 #ifdef FEAT_CINDENT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5476 "cindent",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5477 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5478 #ifdef FEAT_CLIENTSERVER
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5479 "clientserver",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5480 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5481 #ifdef FEAT_CLIPBOARD
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5482 "clipboard",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5483 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5484 "cmdline_compl",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5485 "cmdline_hist",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5486 #ifdef FEAT_COMMENTS
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5487 "comments",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5488 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5489 #ifdef FEAT_CONCEAL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5490 "conceal",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5491 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5492 #ifdef FEAT_CRYPT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5493 "cryptv",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5494 "crypt-blowfish",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5495 "crypt-blowfish2",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5496 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5497 #ifdef FEAT_CSCOPE
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5498 "cscope",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5499 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5500 "cursorbind",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5501 #ifdef CURSOR_SHAPE
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5502 "cursorshape",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5503 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5504 #ifdef DEBUG
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5505 "debug",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5506 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5507 #ifdef FEAT_CON_DIALOG
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5508 "dialog_con",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5509 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5510 #ifdef FEAT_GUI_DIALOG
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5511 "dialog_gui",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5512 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5513 #ifdef FEAT_DIFF
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5514 "diff",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5515 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5516 #ifdef FEAT_DIGRAPHS
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5517 "digraphs",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5518 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5519 #ifdef FEAT_DIRECTX
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5520 "directx",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5521 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5522 #ifdef FEAT_DND
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5523 "dnd",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5524 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5525 #ifdef FEAT_EMACS_TAGS
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5526 "emacs_tags",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5527 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5528 "eval", /* always present, of course! */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5529 "ex_extra", /* graduated feature */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5530 #ifdef FEAT_SEARCH_EXTRA
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5531 "extra_search",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5532 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5533 #ifdef FEAT_SEARCHPATH
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5534 "file_in_path",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5535 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5536 #ifdef FEAT_FILTERPIPE
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5537 "filterpipe",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5538 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5539 #ifdef FEAT_FIND_ID
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5540 "find_in_path",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5541 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5542 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5543 "float",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5544 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5545 #ifdef FEAT_FOLDING
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5546 "folding",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5547 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5548 #ifdef FEAT_FOOTER
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5549 "footer",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5550 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5551 #if !defined(USE_SYSTEM) && defined(UNIX)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5552 "fork",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5553 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5554 #ifdef FEAT_GETTEXT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5555 "gettext",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5556 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5557 #ifdef FEAT_GUI
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5558 "gui",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5559 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5560 #ifdef FEAT_GUI_ATHENA
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5561 # ifdef FEAT_GUI_NEXTAW
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5562 "gui_neXtaw",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5563 # else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5564 "gui_athena",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5565 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5566 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5567 #ifdef FEAT_GUI_GTK
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5568 "gui_gtk",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5569 # ifdef USE_GTK3
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5570 "gui_gtk3",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5571 # else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5572 "gui_gtk2",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5573 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5574 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5575 #ifdef FEAT_GUI_GNOME
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5576 "gui_gnome",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5577 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5578 #ifdef FEAT_GUI_MAC
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5579 "gui_mac",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5580 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5581 #ifdef FEAT_GUI_MOTIF
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5582 "gui_motif",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5583 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5584 #ifdef FEAT_GUI_PHOTON
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5585 "gui_photon",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5586 #endif
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15850 diff changeset	5587 #ifdef FEAT_GUI_MSWIN
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5588 "gui_win32",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5589 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5590 #ifdef FEAT_HANGULIN
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5591 "hangul_input",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5592 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5593 #if defined(HAVE_ICONV_H) && defined(USE_ICONV)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5594 "iconv",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5595 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5596 "insert_expand",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5597 #ifdef FEAT_JOB_CHANNEL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5598 "job",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5599 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5600 #ifdef FEAT_JUMPLIST
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5601 "jumplist",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5602 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5603 #ifdef FEAT_KEYMAP
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5604 "keymap",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5605 #endif
9690 4a7a88404076 commit https://github.com/vim/vim/commit/9532fe7fbe1b14531931e83bd9f8054efdcf7509 Christian Brabandt <cb@256bit.org> parents: 9672 diff changeset	5606 "lambda", /* always with FEAT_EVAL, since 7.4.2120 with closure */
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5607 #ifdef FEAT_LANGMAP
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5608 "langmap",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5609 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5610 #ifdef FEAT_LIBCALL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5611 "libcall",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5612 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5613 #ifdef FEAT_LINEBREAK
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5614 "linebreak",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5615 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5616 #ifdef FEAT_LISP
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5617 "lispindent",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5618 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5619 "listcmds",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5620 "localmap",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5621 #ifdef FEAT_LUA
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5622 # ifndef DYNAMIC_LUA
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5623 "lua",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5624 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5625 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5626 #ifdef FEAT_MENU
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5627 "menu",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5628 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5629 #ifdef FEAT_SESSION
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5630 "mksession",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5631 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5632 #ifdef FEAT_MODIFY_FNAME
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5633 "modify_fname",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5634 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5635 #ifdef FEAT_MOUSE
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5636 "mouse",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5637 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5638 #ifdef FEAT_MOUSESHAPE
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5639 "mouseshape",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5640 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5641 #if defined(UNIX) \|\| defined(VMS)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5642 # ifdef FEAT_MOUSE_DEC
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5643 "mouse_dec",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5644 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5645 # ifdef FEAT_MOUSE_GPM
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5646 "mouse_gpm",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5647 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5648 # ifdef FEAT_MOUSE_JSB
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5649 "mouse_jsbterm",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5650 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5651 # ifdef FEAT_MOUSE_NET
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5652 "mouse_netterm",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5653 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5654 # ifdef FEAT_MOUSE_PTERM
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5655 "mouse_pterm",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5656 # endif
16058 012f03e583e2 patch 8.1.1034: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15985 diff changeset	5657 # ifdef FEAT_MOUSE_XTERM
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5658 "mouse_sgr",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5659 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5660 # ifdef FEAT_SYSMOUSE
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5661 "mouse_sysmouse",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5662 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5663 # ifdef FEAT_MOUSE_URXVT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5664 "mouse_urxvt",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5665 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5666 # ifdef FEAT_MOUSE_XTERM
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5667 "mouse_xterm",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5668 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5669 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5670 "multi_byte",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5671 #ifdef FEAT_MBYTE_IME
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5672 "multi_byte_ime",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5673 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5674 #ifdef FEAT_MULTI_LANG
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5675 "multi_lang",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5676 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5677 #ifdef FEAT_MZSCHEME
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5678 #ifndef DYNAMIC_MZSCHEME
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5679 "mzscheme",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5680 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5681 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5682 #ifdef FEAT_NUM64
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5683 "num64",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5684 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5685 #ifdef FEAT_OLE
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5686 "ole",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5687 #endif
14375 e5d7dd985b53 patch 8.1.0202: :version always shows +packages Christian Brabandt <cb@256bit.org> parents: 14368 diff changeset	5688 #ifdef FEAT_EVAL
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5689 "packages",
14375 e5d7dd985b53 patch 8.1.0202: :version always shows +packages Christian Brabandt <cb@256bit.org> parents: 14368 diff changeset	5690 #endif
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5691 #ifdef FEAT_PATH_EXTRA
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5692 "path_extra",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5693 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5694 #ifdef FEAT_PERL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5695 #ifndef DYNAMIC_PERL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5696 "perl",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5697 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5698 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5699 #ifdef FEAT_PERSISTENT_UNDO
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5700 "persistent_undo",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5701 #endif
13123 aaead5b4d77d patch 8.0.1436: not enough information about what Python version may work Christian Brabandt <cb@256bit.org> parents: 13101 diff changeset	5702 #if defined(FEAT_PYTHON)
aaead5b4d77d patch 8.0.1436: not enough information about what Python version may work Christian Brabandt <cb@256bit.org> parents: 13101 diff changeset	5703 "python_compiled",
aaead5b4d77d patch 8.0.1436: not enough information about what Python version may work Christian Brabandt <cb@256bit.org> parents: 13101 diff changeset	5704 # if defined(DYNAMIC_PYTHON)
aaead5b4d77d patch 8.0.1436: not enough information about what Python version may work Christian Brabandt <cb@256bit.org> parents: 13101 diff changeset	5705 "python_dynamic",
aaead5b4d77d patch 8.0.1436: not enough information about what Python version may work Christian Brabandt <cb@256bit.org> parents: 13101 diff changeset	5706 # else
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5707 "python",
10722 7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	5708 "pythonx",
13123 aaead5b4d77d patch 8.0.1436: not enough information about what Python version may work Christian Brabandt <cb@256bit.org> parents: 13101 diff changeset	5709 # endif
aaead5b4d77d patch 8.0.1436: not enough information about what Python version may work Christian Brabandt <cb@256bit.org> parents: 13101 diff changeset	5710 #endif
aaead5b4d77d patch 8.0.1436: not enough information about what Python version may work Christian Brabandt <cb@256bit.org> parents: 13101 diff changeset	5711 #if defined(FEAT_PYTHON3)
aaead5b4d77d patch 8.0.1436: not enough information about what Python version may work Christian Brabandt <cb@256bit.org> parents: 13101 diff changeset	5712 "python3_compiled",
aaead5b4d77d patch 8.0.1436: not enough information about what Python version may work Christian Brabandt <cb@256bit.org> parents: 13101 diff changeset	5713 # if defined(DYNAMIC_PYTHON3)
aaead5b4d77d patch 8.0.1436: not enough information about what Python version may work Christian Brabandt <cb@256bit.org> parents: 13101 diff changeset	5714 "python3_dynamic",
aaead5b4d77d patch 8.0.1436: not enough information about what Python version may work Christian Brabandt <cb@256bit.org> parents: 13101 diff changeset	5715 # else
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5716 "python3",
10722 7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	5717 "pythonx",
13123 aaead5b4d77d patch 8.0.1436: not enough information about what Python version may work Christian Brabandt <cb@256bit.org> parents: 13101 diff changeset	5718 # endif
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5719 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5720 #ifdef FEAT_POSTSCRIPT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5721 "postscript",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5722 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5723 #ifdef FEAT_PRINTER
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5724 "printer",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5725 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5726 #ifdef FEAT_PROFILE
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5727 "profile",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5728 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5729 #ifdef FEAT_RELTIME
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5730 "reltime",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5731 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5732 #ifdef FEAT_QUICKFIX
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5733 "quickfix",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5734 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5735 #ifdef FEAT_RIGHTLEFT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5736 "rightleft",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5737 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5738 #if defined(FEAT_RUBY) && !defined(DYNAMIC_RUBY)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5739 "ruby",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5740 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5741 "scrollbind",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5742 #ifdef FEAT_CMDL_INFO
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5743 "showcmd",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5744 "cmdline_info",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5745 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5746 #ifdef FEAT_SIGNS
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5747 "signs",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5748 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5749 #ifdef FEAT_SMARTINDENT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5750 "smartindent",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5751 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5752 #ifdef STARTUPTIME
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5753 "startuptime",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5754 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5755 #ifdef FEAT_STL_OPT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5756 "statusline",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5757 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5758 #ifdef FEAT_NETBEANS_INTG
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5759 "netbeans_intg",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5760 #endif
17004 353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: 16890 diff changeset	5761 #ifdef FEAT_SOUND
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: 16890 diff changeset	5762 "sound",
353ed7ef78df patch 8.1.1502: cannot play any sound Bram Moolenaar <Bram@vim.org> parents: 16890 diff changeset	5763 #endif
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5764 #ifdef FEAT_SPELL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5765 "spell",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5766 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5767 #ifdef FEAT_SYN_HL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5768 "syntax",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5769 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5770 #if defined(USE_SYSTEM) \|\| !defined(UNIX)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5771 "system",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5772 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5773 #ifdef FEAT_TAG_BINS
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5774 "tag_binary",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5775 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5776 #ifdef FEAT_TCL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5777 # ifndef DYNAMIC_TCL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5778 "tcl",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5779 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5780 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5781 #ifdef FEAT_TERMGUICOLORS
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5782 "termguicolors",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5783 #endif
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15850 diff changeset	5784 #if defined(FEAT_TERMINAL) && !defined(MSWIN)
11621 b8299e742f41 patch 8.0.0693: no terminal emulator support Christian Brabandt <cb@256bit.org> parents: 11587 diff changeset	5785 "terminal",
b8299e742f41 patch 8.0.0693: no terminal emulator support Christian Brabandt <cb@256bit.org> parents: 11587 diff changeset	5786 #endif
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5787 #ifdef TERMINFO
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5788 "terminfo",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5789 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5790 #ifdef FEAT_TERMRESPONSE
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5791 "termresponse",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5792 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5793 #ifdef FEAT_TEXTOBJ
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5794 "textobjects",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5795 #endif
15138 9df130fd5e0d patch 8.1.0579: cannot attach properties to text Bram Moolenaar <Bram@vim.org> parents: 15121 diff changeset	5796 #ifdef FEAT_TEXT_PROP
9df130fd5e0d patch 8.1.0579: cannot attach properties to text Bram Moolenaar <Bram@vim.org> parents: 15121 diff changeset	5797 "textprop",
9df130fd5e0d patch 8.1.0579: cannot attach properties to text Bram Moolenaar <Bram@vim.org> parents: 15121 diff changeset	5798 #endif
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5799 #ifdef HAVE_TGETENT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5800 "tgetent",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5801 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5802 #ifdef FEAT_TIMERS
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5803 "timers",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5804 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5805 #ifdef FEAT_TITLE
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5806 "title",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5807 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5808 #ifdef FEAT_TOOLBAR
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5809 "toolbar",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5810 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5811 #if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5812 "unnamedplus",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5813 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5814 "user-commands", /* was accidentally included in 5.4 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5815 "user_commands",
14175 2ad722003b36 patch 8.1.0105: all tab stops are the same Christian Brabandt <cb@256bit.org> parents: 14161 diff changeset	5816 #ifdef FEAT_VARTABS
2ad722003b36 patch 8.1.0105: all tab stops are the same Christian Brabandt <cb@256bit.org> parents: 14161 diff changeset	5817 "vartabs",
2ad722003b36 patch 8.1.0105: all tab stops are the same Christian Brabandt <cb@256bit.org> parents: 14161 diff changeset	5818 #endif
16223 abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 16213 diff changeset	5819 "vertsplit",
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5820 #ifdef FEAT_VIMINFO
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5821 "viminfo",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5822 #endif
16223 abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 16213 diff changeset	5823 "vimscript-1",
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 16213 diff changeset	5824 "vimscript-2",
16370 235a2b941498 patch 8.1.1190: has('vimscript-3') does not work Bram Moolenaar <Bram@vim.org> parents: 16362 diff changeset	5825 "vimscript-3",
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5826 "virtualedit",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5827 "visual",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5828 "visualextra",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5829 "vreplace",
13454 1720b96e53b6 patch 8.0.1601: highlight test fails on Win32 Christian Brabandt <cb@256bit.org> parents: 13438 diff changeset	5830 #ifdef FEAT_VTP
1720b96e53b6 patch 8.0.1601: highlight test fails on Win32 Christian Brabandt <cb@256bit.org> parents: 13438 diff changeset	5831 "vtp",
1720b96e53b6 patch 8.0.1601: highlight test fails on Win32 Christian Brabandt <cb@256bit.org> parents: 13438 diff changeset	5832 #endif
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5833 #ifdef FEAT_WILDIGN
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5834 "wildignore",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5835 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5836 #ifdef FEAT_WILDMENU
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5837 "wildmenu",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5838 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5839 "windows",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5840 #ifdef FEAT_WAK
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5841 "winaltkeys",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5842 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5843 #ifdef FEAT_WRITEBACKUP
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5844 "writebackup",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5845 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5846 #ifdef FEAT_XIM
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5847 "xim",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5848 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5849 #ifdef FEAT_XFONTSET
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5850 "xfontset",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5851 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5852 #ifdef FEAT_XPM_W32
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5853 "xpm",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5854 "xpm_w32", /* for backward compatibility */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5855 #else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5856 # if defined(HAVE_XPM)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5857 "xpm",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5858 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5859 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5860 #ifdef USE_XSMP
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5861 "xsmp",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5862 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5863 #ifdef USE_XSMP_INTERACT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5864 "xsmp_interact",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5865 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5866 #ifdef FEAT_XCLIPBOARD
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5867 "xterm_clipboard",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5868 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5869 #ifdef FEAT_XTERM_SAVE
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5870 "xterm_save",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5871 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5872 #if defined(UNIX) && defined(FEAT_X11)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5873 "X11",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5874 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5875 NULL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5876 };
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5877
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	5878 name = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5879 for (i = 0; has_list[i] != NULL; ++i)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5880 if (STRICMP(name, has_list[i]) == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5881 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5882 n = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5883 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5884 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5885
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5886 if (n == FALSE)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5887 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5888 if (STRNICMP(name, "patch", 5) == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5889 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5890 if (name[5] == '-'
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5891 && STRLEN(name) >= 11
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5892 && vim_isdigit(name[6])
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5893 && vim_isdigit(name[8])
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5894 && vim_isdigit(name[10]))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5895 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5896 int major = atoi((char *)name + 6);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5897 int minor = atoi((char *)name + 8);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5898
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5899 /* Expect "patch-9.9.01234". */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5900 n = (major < VIM_VERSION_MAJOR
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5901 \|\| (major == VIM_VERSION_MAJOR
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5902 && (minor < VIM_VERSION_MINOR
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5903 \|\| (minor == VIM_VERSION_MINOR
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5904 && has_patch(atoi((char *)name + 10))))));
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5905 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5906 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5907 n = has_patch(atoi((char *)name + 5));
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5908 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5909 else if (STRICMP(name, "vim_starting") == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5910 n = (starting != 0);
10404 65e0537a4560 commit https://github.com/vim/vim/commit/2cab0e191055a8145ccd46cd52869fbb9798b971 Christian Brabandt <cb@256bit.org> parents: 10359 diff changeset	5911 else if (STRICMP(name, "ttyin") == 0)
65e0537a4560 commit https://github.com/vim/vim/commit/2cab0e191055a8145ccd46cd52869fbb9798b971 Christian Brabandt <cb@256bit.org> parents: 10359 diff changeset	5912 n = mch_input_isatty();
65e0537a4560 commit https://github.com/vim/vim/commit/2cab0e191055a8145ccd46cd52869fbb9798b971 Christian Brabandt <cb@256bit.org> parents: 10359 diff changeset	5913 else if (STRICMP(name, "ttyout") == 0)
65e0537a4560 commit https://github.com/vim/vim/commit/2cab0e191055a8145ccd46cd52869fbb9798b971 Christian Brabandt <cb@256bit.org> parents: 10359 diff changeset	5914 n = stdout_isatty;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5915 else if (STRICMP(name, "multi_byte_encoding") == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5916 n = has_mbyte;
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15850 diff changeset	5917 #if defined(FEAT_BEVAL) && defined(FEAT_GUI_MSWIN)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5918 else if (STRICMP(name, "balloon_multiline") == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5919 n = multiline_balloon_available();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5920 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5921 #ifdef DYNAMIC_TCL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5922 else if (STRICMP(name, "tcl") == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5923 n = tcl_enabled(FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5924 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5925 #if defined(USE_ICONV) && defined(DYNAMIC_ICONV)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5926 else if (STRICMP(name, "iconv") == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5927 n = iconv_enabled(FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5928 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5929 #ifdef DYNAMIC_LUA
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5930 else if (STRICMP(name, "lua") == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5931 n = lua_enabled(FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5932 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5933 #ifdef DYNAMIC_MZSCHEME
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5934 else if (STRICMP(name, "mzscheme") == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5935 n = mzscheme_enabled(FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5936 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5937 #ifdef DYNAMIC_RUBY
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5938 else if (STRICMP(name, "ruby") == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5939 n = ruby_enabled(FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5940 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5941 #ifdef DYNAMIC_PYTHON
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5942 else if (STRICMP(name, "python") == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5943 n = python_enabled(FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5944 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5945 #ifdef DYNAMIC_PYTHON3
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5946 else if (STRICMP(name, "python3") == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5947 n = python3_enabled(FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5948 #endif
10722 7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	5949 #if defined(DYNAMIC_PYTHON) \|\| defined(DYNAMIC_PYTHON3)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	5950 else if (STRICMP(name, "pythonx") == 0)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	5951 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	5952 # if defined(DYNAMIC_PYTHON) && defined(DYNAMIC_PYTHON3)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	5953 if (p_pyx == 0)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	5954 n = python3_enabled(FALSE) \|\| python_enabled(FALSE);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	5955 else if (p_pyx == 3)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	5956 n = python3_enabled(FALSE);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	5957 else if (p_pyx == 2)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	5958 n = python_enabled(FALSE);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	5959 # elif defined(DYNAMIC_PYTHON)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	5960 n = python_enabled(FALSE);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	5961 # elif defined(DYNAMIC_PYTHON3)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	5962 n = python3_enabled(FALSE);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	5963 # endif
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	5964 }
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5965 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5966 #ifdef DYNAMIC_PERL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5967 else if (STRICMP(name, "perl") == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5968 n = perl_enabled(FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5969 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5970 #ifdef FEAT_GUI
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5971 else if (STRICMP(name, "gui_running") == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5972 n = (gui.in_use \|\| gui.starting);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5973 # ifdef FEAT_BROWSE
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5974 else if (STRICMP(name, "browse") == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5975 n = gui.in_use; /* gui_mch_browse() works when GUI is running */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5976 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5977 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5978 #ifdef FEAT_SYN_HL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5979 else if (STRICMP(name, "syntax_items") == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5980 n = syntax_present(curwin);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5981 #endif
13314 65c3e8259124 patch 8.0.1531: cannot use 24 bit colors in MS-Windows console Christian Brabandt <cb@256bit.org> parents: 13298 diff changeset	5982 #ifdef FEAT_VTP
65c3e8259124 patch 8.0.1531: cannot use 24 bit colors in MS-Windows console Christian Brabandt <cb@256bit.org> parents: 13298 diff changeset	5983 else if (STRICMP(name, "vcon") == 0)
14214 68166b841ee9 patch 8.1.0124: has('vcon') returns true even for non-win32 terminal Christian Brabandt <cb@256bit.org> parents: 14189 diff changeset	5984 n = is_term_win32() && has_vtp_working();
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5985 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5986 #ifdef FEAT_NETBEANS_INTG
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5987 else if (STRICMP(name, "netbeans_enabled") == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5988 n = netbeans_active();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	5989 #endif
16527 5412fcd03ecb patch 8.1.1267: cannot check if GPM mouse support is working Bram Moolenaar <Bram@vim.org> parents: 16517 diff changeset	5990 #ifdef FEAT_MOUSE_GPM
5412fcd03ecb patch 8.1.1267: cannot check if GPM mouse support is working Bram Moolenaar <Bram@vim.org> parents: 16517 diff changeset	5991 else if (STRICMP(name, "mouse_gpm_enabled") == 0)
5412fcd03ecb patch 8.1.1267: cannot check if GPM mouse support is working Bram Moolenaar <Bram@vim.org> parents: 16517 diff changeset	5992 n = gpm_enabled();
5412fcd03ecb patch 8.1.1267: cannot check if GPM mouse support is working Bram Moolenaar <Bram@vim.org> parents: 16517 diff changeset	5993 #endif
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15850 diff changeset	5994 #if defined(FEAT_TERMINAL) && defined(MSWIN)
12144 abd69cea3459 patch 8.0.0952: has('terminal') does not check existence of dll file Christian Brabandt <cb@256bit.org> parents: 12136 diff changeset	5995 else if (STRICMP(name, "terminal") == 0)
abd69cea3459 patch 8.0.0952: has('terminal') does not check existence of dll file Christian Brabandt <cb@256bit.org> parents: 12136 diff changeset	5996 n = terminal_enabled();
abd69cea3459 patch 8.0.0952: has('terminal') does not check existence of dll file Christian Brabandt <cb@256bit.org> parents: 12136 diff changeset	5997 #endif
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15850 diff changeset	5998 #if defined(FEAT_TERMINAL) && defined(MSWIN)
15725 a3e2e7948ee4 patch 8.1.0870: Vim doesn't use the new ConPTY support in Windows 10 Bram Moolenaar <Bram@vim.org> parents: 15687 diff changeset	5999 else if (STRICMP(name, "conpty") == 0)
a3e2e7948ee4 patch 8.1.0870: Vim doesn't use the new ConPTY support in Windows 10 Bram Moolenaar <Bram@vim.org> parents: 15687 diff changeset	6000 n = use_conpty();
a3e2e7948ee4 patch 8.1.0870: Vim doesn't use the new ConPTY support in Windows 10 Bram Moolenaar <Bram@vim.org> parents: 15687 diff changeset	6001 #endif
17680 55704f587945 patch 8.1.1837: popup test fails if clipboard is supported but not working Bram Moolenaar <Bram@vim.org> parents: 17676 diff changeset	6002 #ifdef FEAT_CLIPBOARD
55704f587945 patch 8.1.1837: popup test fails if clipboard is supported but not working Bram Moolenaar <Bram@vim.org> parents: 17676 diff changeset	6003 else if (STRICMP(name, "clipboard_working") == 0)
55704f587945 patch 8.1.1837: popup test fails if clipboard is supported but not working Bram Moolenaar <Bram@vim.org> parents: 17676 diff changeset	6004 n = clip_star.available;
55704f587945 patch 8.1.1837: popup test fails if clipboard is supported but not working Bram Moolenaar <Bram@vim.org> parents: 17676 diff changeset	6005 #endif
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6006 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6007
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6008 rettv->vval.v_number = n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6009 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6010
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6011 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6012 * "haslocaldir()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6013 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6014 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6015 f_haslocaldir(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6016 {
16427 8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	6017 tabpage_T *tp = NULL;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6018 win_T *wp = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6019
16427 8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	6020 wp = find_tabwin(&argvars[0], &argvars[1], &tp);
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	6021
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	6022 // Check for window-local and tab-local directories
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	6023 if (wp != NULL && wp->w_localdir != NULL)
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	6024 rettv->vval.v_number = 1;
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	6025 else if (tp != NULL && tp->tp_localdir != NULL)
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	6026 rettv->vval.v_number = 2;
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	6027 else
8c3a1bd270bb patch 8.1.1218: cannot set a directory for a tab page Bram Moolenaar <Bram@vim.org> parents: 16411 diff changeset	6028 rettv->vval.v_number = 0;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6029 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6030
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6031 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6032 * "hasmapto()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6033 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6034 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6035 f_hasmapto(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6036 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6037 char_u *name;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6038 char_u *mode;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6039 char_u buf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6040 int abbr = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6041
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6042 name = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6043 if (argvars[1].v_type == VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6044 mode = (char_u *)"nvo";
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6045 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6046 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6047 mode = tv_get_string_buf(&argvars[1], buf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6048 if (argvars[2].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6049 abbr = (int)tv_get_number(&argvars[2]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6050 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6051
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6052 if (map_to_exists(name, mode, abbr))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6053 rettv->vval.v_number = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6054 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6055 rettv->vval.v_number = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6056 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6057
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6058 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6059 * "highlightID(name)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6060 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6061 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6062 f_hlID(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6063 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6064 rettv->vval.v_number = syn_name2id(tv_get_string(&argvars[0]));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6065 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6066
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6067 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6068 * "highlight_exists()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6069 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6070 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6071 f_hlexists(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6072 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6073 rettv->vval.v_number = highlight_exists(tv_get_string(&argvars[0]));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6074 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6075
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6076 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6077 * "hostname()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6078 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6079 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6080 f_hostname(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6081 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6082 char_u hostname[256];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6083
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6084 mch_get_host_name(hostname, 256);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6085 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6086 rettv->vval.v_string = vim_strsave(hostname);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6087 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6088
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6089 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6090 * iconv() function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6091 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6092 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6093 f_iconv(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6094 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6095 char_u buf1[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6096 char_u buf2[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6097 char_u from, to, *str;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6098 vimconv_T vimconv;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6099
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6100 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6101 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6102
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6103 str = tv_get_string(&argvars[0]);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6104 from = enc_canonize(enc_skip(tv_get_string_buf(&argvars[1], buf1)));
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6105 to = enc_canonize(enc_skip(tv_get_string_buf(&argvars[2], buf2)));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6106 vimconv.vc_type = CONV_NONE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6107 convert_setup(&vimconv, from, to);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6108
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6109 /* If the encodings are equal, no conversion needed. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6110 if (vimconv.vc_type == CONV_NONE)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6111 rettv->vval.v_string = vim_strsave(str);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6112 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6113 rettv->vval.v_string = string_convert(&vimconv, str, NULL);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6114
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6115 convert_setup(&vimconv, NULL, NULL);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6116 vim_free(from);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6117 vim_free(to);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6118 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6119
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6120 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6121 * "indent()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6122 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6123 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6124 f_indent(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6125 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6126 linenr_T lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6127
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6128 lnum = tv_get_lnum(argvars);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6129 if (lnum >= 1 && lnum <= curbuf->b_ml.ml_line_count)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6130 rettv->vval.v_number = get_indent_lnum(lnum);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6131 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6132 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6133 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6134
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6135 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6136 * "index()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6137 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6138 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6139 f_index(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6140 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6141 list_T *l;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6142 listitem_T *item;
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6143 blob_T *b;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6144 long idx = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6145 int ic = FALSE;
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6146 int error = FALSE;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6147
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6148 rettv->vval.v_number = -1;
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6149 if (argvars[0].v_type == VAR_BLOB)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6150 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6151 typval_T tv;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6152 int start = 0;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6153
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6154 if (argvars[2].v_type != VAR_UNKNOWN)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6155 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6156 start = tv_get_number_chk(&argvars[2], &error);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6157 if (error)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6158 return;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6159 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6160 b = argvars[0].vval.v_blob;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6161 if (b == NULL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6162 return;
15468 1550cc188ff6 patch 8.1.0742: not all Blob operations are tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	6163 if (start < 0)
1550cc188ff6 patch 8.1.0742: not all Blob operations are tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	6164 {
1550cc188ff6 patch 8.1.0742: not all Blob operations are tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	6165 start = blob_len(b) + start;
1550cc188ff6 patch 8.1.0742: not all Blob operations are tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	6166 if (start < 0)
1550cc188ff6 patch 8.1.0742: not all Blob operations are tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	6167 start = 0;
1550cc188ff6 patch 8.1.0742: not all Blob operations are tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	6168 }
1550cc188ff6 patch 8.1.0742: not all Blob operations are tested Bram Moolenaar <Bram@vim.org> parents: 15456 diff changeset	6169
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6170 for (idx = start; idx < blob_len(b); ++idx)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6171 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6172 tv.v_type = VAR_NUMBER;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6173 tv.vval.v_number = blob_get(b, idx);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6174 if (tv_equal(&tv, &argvars[1], ic, FALSE))
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6175 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6176 rettv->vval.v_number = idx;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6177 return;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6178 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6179 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6180 return;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6181 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6182 else if (argvars[0].v_type != VAR_LIST)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6183 {
15571 4af72c724093 patch 8.1.0793: incorrect error messages for functions that take a Blob Bram Moolenaar <Bram@vim.org> parents: 15543 diff changeset	6184 emsg(_(e_listblobreq));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6185 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6186 }
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6187
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6188 l = argvars[0].vval.v_list;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6189 if (l != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6190 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6191 item = l->lv_first;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6192 if (argvars[2].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6193 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6194 /* Start at specified item. Use the cached index that list_find()
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6195 * sets, so that a negative number also works. */
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6196 item = list_find(l, (long)tv_get_number_chk(&argvars[2], &error));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6197 idx = l->lv_idx;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6198 if (argvars[3].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6199 ic = (int)tv_get_number_chk(&argvars[3], &error);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6200 if (error)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6201 item = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6202 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6203
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6204 for ( ; item != NULL; item = item->li_next, ++idx)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6205 if (tv_equal(&item->li_tv, &argvars[1], ic, FALSE))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6206 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6207 rettv->vval.v_number = idx;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6208 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6209 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6210 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6211 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6212
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6213 static int inputsecret_flag = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6214
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6215 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6216 * "input()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6217 * Also handles inputsecret() when inputsecret is set.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6218 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6219 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6220 f_input(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6221 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6222 get_user_input(argvars, rettv, FALSE, inputsecret_flag);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6223 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6224
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6225 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6226 * "inputdialog()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6227 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6228 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6229 f_inputdialog(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6230 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6231 #if defined(FEAT_GUI_TEXTDIALOG)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6232 /* Use a GUI dialog if the GUI is running and 'c' is not in 'guioptions' */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6233 if (gui.in_use && vim_strchr(p_go, GO_CONDIALOG) == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6234 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6235 char_u *message;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6236 char_u buf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6237 char_u defstr = (char_u )"";
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6238
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6239 message = tv_get_string_chk(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6240 if (argvars[1].v_type != VAR_UNKNOWN
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6241 && (defstr = tv_get_string_buf_chk(&argvars[1], buf)) != NULL)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6242 vim_strncpy(IObuff, defstr, IOSIZE - 1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6243 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6244 IObuff[0] = NUL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6245 if (message != NULL && defstr != NULL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6246 && do_dialog(VIM_QUESTION, NULL, message,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6247 (char_u *)_("&OK\n&Cancel"), 1, IObuff, FALSE) == 1)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6248 rettv->vval.v_string = vim_strsave(IObuff);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6249 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6250 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6251 if (message != NULL && defstr != NULL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6252 && argvars[1].v_type != VAR_UNKNOWN
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6253 && argvars[2].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6254 rettv->vval.v_string = vim_strsave(
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6255 tv_get_string_buf(&argvars[2], buf));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6256 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6257 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6258 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6259 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6260 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6261 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6262 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6263 get_user_input(argvars, rettv, TRUE, inputsecret_flag);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6264 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6265
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6266 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6267 * "inputlist()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6268 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6269 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6270 f_inputlist(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6271 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6272 listitem_T *li;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6273 int selected;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6274 int mouse_used;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6275
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6276 #ifdef NO_CONSOLE_INPUT
11848 f5968ca369b5 patch 8.0.0804: running tests fails when stdin is /dev/null Christian Brabandt <cb@256bit.org> parents: 11846 diff changeset	6277 /* While starting up, there is no place to enter text. When running tests
f5968ca369b5 patch 8.0.0804: running tests fails when stdin is /dev/null Christian Brabandt <cb@256bit.org> parents: 11846 diff changeset	6278 * with --not-a-term we assume feedkeys() will be used. */
f5968ca369b5 patch 8.0.0804: running tests fails when stdin is /dev/null Christian Brabandt <cb@256bit.org> parents: 11846 diff changeset	6279 if (no_console_input() && !is_not_a_term())
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6280 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6281 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6282 if (argvars[0].v_type != VAR_LIST \|\| argvars[0].vval.v_list == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6283 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	6284 semsg(_(e_listarg), "inputlist()");
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6285 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6286 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6287
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6288 msg_start();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6289 msg_row = Rows - 1; /* for when 'cmdheight' > 1 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6290 lines_left = Rows; /* avoid more prompt */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6291 msg_scroll = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6292 msg_clr_eos();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6293
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6294 for (li = argvars[0].vval.v_list->lv_first; li != NULL; li = li->li_next)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6295 {
15543 dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15510 diff changeset	6296 msg_puts((char *)tv_get_string(&li->li_tv));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6297 msg_putchar('\n');
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6298 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6299
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6300 /* Ask for choice. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6301 selected = prompt_for_number(&mouse_used);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6302 if (mouse_used)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6303 selected -= lines_left;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6304
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6305 rettv->vval.v_number = selected;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6306 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6307
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6308 static garray_T ga_userinput = {0, 0, sizeof(tasave_T), 4, NULL};
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6309
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6310 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6311 * "inputrestore()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6312 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6313 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6314 f_inputrestore(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6315 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6316 if (ga_userinput.ga_len > 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6317 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6318 --ga_userinput.ga_len;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6319 restore_typeahead((tasave_T *)(ga_userinput.ga_data)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6320 + ga_userinput.ga_len);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6321 /* default return is zero == OK */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6322 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6323 else if (p_verbose > 1)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6324 {
15543 dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15510 diff changeset	6325 verb_msg(_("called inputrestore() more often than inputsave()"));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6326 rettv->vval.v_number = 1; /* Failed */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6327 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6328 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6329
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6330 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6331 * "inputsave()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6332 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6333 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6334 f_inputsave(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6335 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6336 /* Add an entry to the stack of typeahead storage. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6337 if (ga_grow(&ga_userinput, 1) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6338 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6339 save_typeahead((tasave_T *)(ga_userinput.ga_data)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6340 + ga_userinput.ga_len);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6341 ++ga_userinput.ga_len;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6342 /* default return is zero == OK */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6343 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6344 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6345 rettv->vval.v_number = 1; /* Failed */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6346 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6347
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6348 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6349 * "inputsecret()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6350 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6351 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6352 f_inputsecret(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6353 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6354 ++cmdline_star;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6355 ++inputsecret_flag;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6356 f_input(argvars, rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6357 --cmdline_star;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6358 --inputsecret_flag;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6359 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6360
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6361 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6362 * "insert()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6363 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6364 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6365 f_insert(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6366 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6367 long before = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6368 listitem_T *item;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6369 list_T *l;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6370 int error = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6371
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6372 if (argvars[0].v_type == VAR_BLOB)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6373 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6374 int val, len;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6375 char_u *p;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6376
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6377 len = blob_len(argvars[0].vval.v_blob);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6378 if (argvars[2].v_type != VAR_UNKNOWN)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6379 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6380 before = (long)tv_get_number_chk(&argvars[2], &error);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6381 if (error)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6382 return; // type error; errmsg already given
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6383 if (before < 0 \|\| before > len)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6384 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	6385 semsg(_(e_invarg2), tv_get_string(&argvars[2]));
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6386 return;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6387 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6388 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6389 val = tv_get_number_chk(&argvars[1], &error);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6390 if (error)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6391 return;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6392 if (val < 0 \|\| val > 255)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6393 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	6394 semsg(_(e_invarg2), tv_get_string(&argvars[1]));
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6395 return;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6396 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6397
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6398 if (ga_grow(&argvars[0].vval.v_blob->bv_ga, 1) == FAIL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6399 return;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6400 p = (char_u *)argvars[0].vval.v_blob->bv_ga.ga_data;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6401 mch_memmove(p + before + 1, p + before, (size_t)len - before);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6402 *(p + before) = val;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6403 ++argvars[0].vval.v_blob->bv_ga.ga_len;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6404
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6405 copy_tv(&argvars[0], rettv);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6406 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6407 else if (argvars[0].v_type != VAR_LIST)
15571 4af72c724093 patch 8.1.0793: incorrect error messages for functions that take a Blob Bram Moolenaar <Bram@vim.org> parents: 15543 diff changeset	6408 semsg(_(e_listblobarg), "insert()");
15780 5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference Bram Moolenaar <Bram@vim.org> parents: 15774 diff changeset	6409 else if ((l = argvars[0].vval.v_list) != NULL
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference Bram Moolenaar <Bram@vim.org> parents: 15774 diff changeset	6410 && !var_check_lock(l->lv_lock,
5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference Bram Moolenaar <Bram@vim.org> parents: 15774 diff changeset	6411 (char_u *)N_("insert() argument"), TRUE))
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6412 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6413 if (argvars[2].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6414 before = (long)tv_get_number_chk(&argvars[2], &error);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6415 if (error)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6416 return; /* type error; errmsg already given */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6417
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6418 if (before == l->lv_len)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6419 item = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6420 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6421 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6422 item = list_find(l, before);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6423 if (item == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6424 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	6425 semsg(_(e_listidx), before);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6426 l = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6427 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6428 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6429 if (l != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6430 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6431 list_insert_tv(l, &argvars[1], item);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6432 copy_tv(&argvars[0], rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6433 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6434 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6435 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6436
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6437 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6438 * "invert(expr)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6439 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6440 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6441 f_invert(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6442 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6443 rettv->vval.v_number = ~tv_get_number_chk(&argvars[0], NULL);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6444 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6445
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6446 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6447 * "isdirectory()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6448 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6449 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6450 f_isdirectory(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6451 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6452 rettv->vval.v_number = mch_isdir(tv_get_string(&argvars[0]));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6453 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6454
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6455 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6456 * Return TRUE if typeval "tv" is locked: Either that value is locked itself
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6457 * or it refers to a List or Dictionary that is locked.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6458 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6459 static int
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6460 tv_islocked(typval_T *tv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6461 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6462 return (tv->v_lock & VAR_LOCKED)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6463 \|\| (tv->v_type == VAR_LIST
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6464 && tv->vval.v_list != NULL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6465 && (tv->vval.v_list->lv_lock & VAR_LOCKED))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6466 \|\| (tv->v_type == VAR_DICT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6467 && tv->vval.v_dict != NULL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6468 && (tv->vval.v_dict->dv_lock & VAR_LOCKED));
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6469 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6470
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6471 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6472 * "islocked()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6473 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6474 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6475 f_islocked(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6476 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6477 lval_T lv;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6478 char_u *end;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6479 dictitem_T *di;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6480
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6481 rettv->vval.v_number = -1;
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6482 end = get_lval(tv_get_string(&argvars[0]), NULL, &lv, FALSE, FALSE,
10912 fd1760f8c215 patch 8.0.0345: islocked('d.changedtick') does not work Christian Brabandt <cb@256bit.org> parents: 10889 diff changeset	6483 GLV_NO_AUTOLOAD \| GLV_READ_ONLY, FNE_CHECK_START);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6484 if (end != NULL && lv.ll_name != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6485 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6486 if (*end != NUL)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	6487 emsg(_(e_trailing));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6488 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6489 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6490 if (lv.ll_tv == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6491 {
10889 5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	6492 di = find_var(lv.ll_name, NULL, TRUE);
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	6493 if (di != NULL)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6494 {
10889 5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	6495 /* Consider a variable locked when:
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	6496 * 1. the variable itself is locked
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	6497 * 2. the value of the variable is locked.
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	6498 * 3. the List or Dict value is locked.
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	6499 */
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	6500 rettv->vval.v_number = ((di->di_flags & DI_FLAGS_LOCK)
5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	6501 \|\| tv_islocked(&di->di_tv));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6502 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6503 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6504 else if (lv.ll_range)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	6505 emsg(_("E786: Range not allowed"));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6506 else if (lv.ll_newkey != NULL)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	6507 semsg(_(e_dictkey), lv.ll_newkey);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6508 else if (lv.ll_list != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6509 /* List item. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6510 rettv->vval.v_number = tv_islocked(&lv.ll_li->li_tv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6511 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6512 /* Dictionary item. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6513 rettv->vval.v_number = tv_islocked(&lv.ll_di->di_tv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6514 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6515 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6516
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6517 clear_lval(&lv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6518 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6519
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6520 #if defined(FEAT_FLOAT) && defined(HAVE_MATH_H)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6521 /*
16213 2c33b119ba92 patch 8.1.1111: it is not easy to check for infinity Bram Moolenaar <Bram@vim.org> parents: 16162 diff changeset	6522 * "isinf()" function
2c33b119ba92 patch 8.1.1111: it is not easy to check for infinity Bram Moolenaar <Bram@vim.org> parents: 16162 diff changeset	6523 */
2c33b119ba92 patch 8.1.1111: it is not easy to check for infinity Bram Moolenaar <Bram@vim.org> parents: 16162 diff changeset	6524 static void
2c33b119ba92 patch 8.1.1111: it is not easy to check for infinity Bram Moolenaar <Bram@vim.org> parents: 16162 diff changeset	6525 f_isinf(typval_T argvars, typval_T rettv)
2c33b119ba92 patch 8.1.1111: it is not easy to check for infinity Bram Moolenaar <Bram@vim.org> parents: 16162 diff changeset	6526 {
2c33b119ba92 patch 8.1.1111: it is not easy to check for infinity Bram Moolenaar <Bram@vim.org> parents: 16162 diff changeset	6527 if (argvars[0].v_type == VAR_FLOAT && isinf(argvars[0].vval.v_float))
2c33b119ba92 patch 8.1.1111: it is not easy to check for infinity Bram Moolenaar <Bram@vim.org> parents: 16162 diff changeset	6528 rettv->vval.v_number = argvars[0].vval.v_float > 0.0 ? 1 : -1;
2c33b119ba92 patch 8.1.1111: it is not easy to check for infinity Bram Moolenaar <Bram@vim.org> parents: 16162 diff changeset	6529 }
2c33b119ba92 patch 8.1.1111: it is not easy to check for infinity Bram Moolenaar <Bram@vim.org> parents: 16162 diff changeset	6530
2c33b119ba92 patch 8.1.1111: it is not easy to check for infinity Bram Moolenaar <Bram@vim.org> parents: 16162 diff changeset	6531 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6532 * "isnan()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6533 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6534 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6535 f_isnan(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6536 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6537 rettv->vval.v_number = argvars[0].v_type == VAR_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6538 && isnan(argvars[0].vval.v_float);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6539 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6540 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6541
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6542 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6543 * "last_buffer_nr()" function.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6544 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6545 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6546 f_last_buffer_nr(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6547 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6548 int n = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6549 buf_T *buf;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6550
9649 fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07 Christian Brabandt <cb@256bit.org> parents: 9636 diff changeset	6551 FOR_ALL_BUFFERS(buf)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6552 if (n < buf->b_fnum)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6553 n = buf->b_fnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6554
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6555 rettv->vval.v_number = n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6556 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6557
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6558 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6559 * "len()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6560 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6561 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6562 f_len(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6563 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6564 switch (argvars[0].v_type)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6565 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6566 case VAR_STRING:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6567 case VAR_NUMBER:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6568 rettv->vval.v_number = (varnumber_T)STRLEN(
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6569 tv_get_string(&argvars[0]));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6570 break;
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6571 case VAR_BLOB:
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6572 rettv->vval.v_number = blob_len(argvars[0].vval.v_blob);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	6573 break;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6574 case VAR_LIST:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6575 rettv->vval.v_number = list_len(argvars[0].vval.v_list);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6576 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6577 case VAR_DICT:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6578 rettv->vval.v_number = dict_len(argvars[0].vval.v_dict);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6579 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6580 case VAR_UNKNOWN:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6581 case VAR_SPECIAL:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6582 case VAR_FLOAT:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6583 case VAR_FUNC:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6584 case VAR_PARTIAL:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6585 case VAR_JOB:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6586 case VAR_CHANNEL:
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	6587 emsg(_("E701: Invalid type for len()"));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6588 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6589 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6590 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6591
10620 2198b53b9ffe patch 8.0.0199: compiler warnings for libcall Christian Brabandt <cb@256bit.org> parents: 10567 diff changeset	6592 static void
2198b53b9ffe patch 8.0.0199: compiler warnings for libcall Christian Brabandt <cb@256bit.org> parents: 10567 diff changeset	6593 libcall_common(typval_T argvars UNUSED, typval_T rettv, int type)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6594 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6595 #ifdef FEAT_LIBCALL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6596 char_u *string_in;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6597 char_u **string_result;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6598 int nr_result;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6599 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6600
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6601 rettv->v_type = type;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6602 if (type != VAR_NUMBER)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6603 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6604
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6605 if (check_restricted() \|\| check_secure())
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6606 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6607
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6608 #ifdef FEAT_LIBCALL
10226 7a4fb555c83a commit https://github.com/vim/vim/commit/9af418427652562384744648d7d173a4bfebba95 Christian Brabandt <cb@256bit.org> parents: 10207 diff changeset	6609 /* The first two args must be strings, otherwise it's meaningless */
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6610 if (argvars[0].v_type == VAR_STRING && argvars[1].v_type == VAR_STRING)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6611 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6612 string_in = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6613 if (argvars[2].v_type == VAR_STRING)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6614 string_in = argvars[2].vval.v_string;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6615 if (type == VAR_NUMBER)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6616 string_result = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6617 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6618 string_result = &rettv->vval.v_string;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6619 if (mch_libcall(argvars[0].vval.v_string,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6620 argvars[1].vval.v_string,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6621 string_in,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6622 argvars[2].vval.v_number,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6623 string_result,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6624 &nr_result) == OK
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6625 && type == VAR_NUMBER)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6626 rettv->vval.v_number = nr_result;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6627 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6628 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6629 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6630
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6631 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6632 * "libcall()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6633 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6634 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6635 f_libcall(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6636 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6637 libcall_common(argvars, rettv, VAR_STRING);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6638 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6639
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6640 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6641 * "libcallnr()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6642 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6643 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6644 f_libcallnr(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6645 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6646 libcall_common(argvars, rettv, VAR_NUMBER);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6647 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6648
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6649 /*
17942 664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6650 * "line(string, [winid])" function
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6651 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6652 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6653 f_line(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6654 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6655 linenr_T lnum = 0;
17942 664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6656 pos_T *fp = NULL;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6657 int fnum;
17942 664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6658 int id;
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6659 tabpage_T *tp;
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6660 win_T *wp;
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6661 win_T *save_curwin;
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6662 tabpage_T *save_curtab;
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6663
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6664 if (argvars[1].v_type != VAR_UNKNOWN)
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6665 {
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6666 // use window specified in the second argument
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6667 id = (int)tv_get_number(&argvars[1]);
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6668 wp = win_id2wp_tp(id, &tp);
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6669 if (wp != NULL && tp != NULL)
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6670 {
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6671 if (switch_win_noblock(&save_curwin, &save_curtab, wp, tp, TRUE)
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6672 == OK)
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6673 {
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6674 check_cursor();
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6675 fp = var2fpos(&argvars[0], TRUE, &fnum);
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6676 }
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6677 restore_win_noblock(save_curwin, save_curtab, TRUE);
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6678 }
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6679 }
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6680 else
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6681 // use current window
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6682 fp = var2fpos(&argvars[0], TRUE, &fnum);
664cc72f50c5 patch 8.1.1967: line() only works for the current window Bram Moolenaar <Bram@vim.org> parents: 17940 diff changeset	6683
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6684 if (fp != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6685 lnum = fp->lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6686 rettv->vval.v_number = lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6687 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6688
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6689 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6690 * "line2byte(lnum)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6691 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6692 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6693 f_line2byte(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6694 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6695 #ifndef FEAT_BYTEOFF
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6696 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6697 #else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6698 linenr_T lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6699
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6700 lnum = tv_get_lnum(argvars);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6701 if (lnum < 1 \|\| lnum > curbuf->b_ml.ml_line_count + 1)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6702 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6703 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6704 rettv->vval.v_number = ml_find_line_or_offset(curbuf, lnum, NULL);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6705 if (rettv->vval.v_number >= 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6706 ++rettv->vval.v_number;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6707 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6708 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6709
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6710 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6711 * "lispindent(lnum)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6712 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6713 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6714 f_lispindent(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6715 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6716 #ifdef FEAT_LISP
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6717 pos_T pos;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6718 linenr_T lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6719
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6720 pos = curwin->w_cursor;
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6721 lnum = tv_get_lnum(argvars);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6722 if (lnum >= 1 && lnum <= curbuf->b_ml.ml_line_count)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6723 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6724 curwin->w_cursor.lnum = lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6725 rettv->vval.v_number = get_lisp_indent();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6726 curwin->w_cursor = pos;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6727 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6728 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6729 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6730 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6731 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6732
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6733 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6734 * "localtime()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6735 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6736 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6737 f_localtime(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6738 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6739 rettv->vval.v_number = (varnumber_T)time(NULL);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6740 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6741
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6742 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6743 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6744 * "log()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6745 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6746 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6747 f_log(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6748 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6749 float_T f = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6750
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6751 rettv->v_type = VAR_FLOAT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6752 if (get_float_arg(argvars, &f) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6753 rettv->vval.v_float = log(f);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6754 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6755 rettv->vval.v_float = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6756 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6757
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6758 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6759 * "log10()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6760 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6761 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6762 f_log10(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6763 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6764 float_T f = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6765
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6766 rettv->v_type = VAR_FLOAT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6767 if (get_float_arg(argvars, &f) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6768 rettv->vval.v_float = log10(f);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6769 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6770 rettv->vval.v_float = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6771 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6772 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6773
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6774 #ifdef FEAT_LUA
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6775 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6776 * "luaeval()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6777 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6778 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6779 f_luaeval(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6780 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6781 char_u *str;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6782 char_u buf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6783
15748 93b78c4a7cd5 patch 8.1.0881: can execute shell commands in rvim through interfaces Bram Moolenaar <Bram@vim.org> parents: 15725 diff changeset	6784 if (check_restricted() \|\| check_secure())
93b78c4a7cd5 patch 8.1.0881: can execute shell commands in rvim through interfaces Bram Moolenaar <Bram@vim.org> parents: 15725 diff changeset	6785 return;
93b78c4a7cd5 patch 8.1.0881: can execute shell commands in rvim through interfaces Bram Moolenaar <Bram@vim.org> parents: 15725 diff changeset	6786
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6787 str = tv_get_string_buf(&argvars[0], buf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6788 do_luaeval(str, argvars + 1, rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6789 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6790 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6791
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6792 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6793 * "maparg()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6794 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6795 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6796 f_maparg(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6797 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6798 get_maparg(argvars, rettv, TRUE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6799 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6800
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6801 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6802 * "mapcheck()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6803 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6804 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6805 f_mapcheck(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6806 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6807 get_maparg(argvars, rettv, FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6808 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6809
12248 f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	6810 typedef enum
f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	6811 {
f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	6812 MATCH_END, /* matchend() */
f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	6813 MATCH_MATCH, /* match() */
f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	6814 MATCH_STR, /* matchstr() */
f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	6815 MATCH_LIST, /* matchlist() */
f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	6816 MATCH_POS /* matchstrpos() */
f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	6817 } matchtype_T;
f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	6818
f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	6819 static void
f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	6820 find_some_match(typval_T argvars, typval_T rettv, matchtype_T type)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6821 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6822 char_u *str = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6823 long len = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6824 char_u *expr = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6825 char_u *pat;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6826 regmatch_T regmatch;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6827 char_u patbuf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6828 char_u strbuf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6829 char_u *save_cpo;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6830 long start = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6831 long nth = 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6832 colnr_T startcol = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6833 int match = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6834 list_T *l = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6835 listitem_T *li = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6836 long idx = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6837 char_u *tofree = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6838
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6839 /* Make 'cpoptions' empty, the 'l' flag should not be used here. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6840 save_cpo = p_cpo;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6841 p_cpo = (char_u *)"";
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6842
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6843 rettv->vval.v_number = -1;
12248 f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	6844 if (type == MATCH_LIST \|\| type == MATCH_POS)
f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	6845 {
f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	6846 /* type MATCH_LIST: return empty list when there are no matches.
f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	6847 * type MATCH_POS: return ["", -1, -1, -1] */
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6848 if (rettv_list_alloc(rettv) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6849 goto theend;
12248 f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	6850 if (type == MATCH_POS
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6851 && (list_append_string(rettv->vval.v_list,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6852 (char_u *)"", 0) == FAIL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6853 \|\| list_append_number(rettv->vval.v_list,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6854 (varnumber_T)-1) == FAIL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6855 \|\| list_append_number(rettv->vval.v_list,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6856 (varnumber_T)-1) == FAIL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6857 \|\| list_append_number(rettv->vval.v_list,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6858 (varnumber_T)-1) == FAIL))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6859 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6860 list_free(rettv->vval.v_list);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6861 rettv->vval.v_list = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6862 goto theend;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6863 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6864 }
12248 f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	6865 else if (type == MATCH_STR)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6866 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6867 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6868 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6869 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6870
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6871 if (argvars[0].v_type == VAR_LIST)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6872 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6873 if ((l = argvars[0].vval.v_list) == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6874 goto theend;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6875 li = l->lv_first;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6876 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6877 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6878 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6879 expr = str = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6880 len = (long)STRLEN(str);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6881 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6882
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6883 pat = tv_get_string_buf_chk(&argvars[1], patbuf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6884 if (pat == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6885 goto theend;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6886
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6887 if (argvars[2].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6888 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6889 int error = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6890
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6891 start = (long)tv_get_number_chk(&argvars[2], &error);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6892 if (error)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6893 goto theend;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6894 if (l != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6895 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6896 li = list_find(l, start);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6897 if (li == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6898 goto theend;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6899 idx = l->lv_idx; /* use the cached index */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6900 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6901 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6902 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6903 if (start < 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6904 start = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6905 if (start > len)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6906 goto theend;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6907 /* When "count" argument is there ignore matches before "start",
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6908 * otherwise skip part of the string. Differs when pattern is "^"
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6909 * or "\<". */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6910 if (argvars[3].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6911 startcol = start;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6912 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6913 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6914 str += start;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6915 len -= start;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6916 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6917 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6918
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6919 if (argvars[3].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	6920 nth = (long)tv_get_number_chk(&argvars[3], &error);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6921 if (error)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6922 goto theend;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6923 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6924
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6925 regmatch.regprog = vim_regcomp(pat, RE_MAGIC + RE_STRING);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6926 if (regmatch.regprog != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6927 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6928 regmatch.rm_ic = p_ic;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6929
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6930 for (;;)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6931 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6932 if (l != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6933 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6934 if (li == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6935 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6936 match = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6937 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6938 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6939 vim_free(tofree);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6940 expr = str = echo_string(&li->li_tv, &tofree, strbuf, 0);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6941 if (str == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6942 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6943 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6944
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6945 match = vim_regexec_nl(&regmatch, str, (colnr_T)startcol);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6946
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6947 if (match && --nth <= 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6948 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6949 if (l == NULL && !match)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6950 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6951
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6952 /* Advance to just after the match. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6953 if (l != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6954 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6955 li = li->li_next;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6956 ++idx;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6957 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6958 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6959 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6960 startcol = (colnr_T)(regmatch.startp[0]
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6961 + (*mb_ptr2len)(regmatch.startp[0]) - str);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6962 if (startcol > (colnr_T)len
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6963 \|\| str + startcol <= regmatch.startp[0])
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6964 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6965 match = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6966 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6967 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6968 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6969 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6970
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6971 if (match)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6972 {
12248 f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	6973 if (type == MATCH_POS)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6974 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6975 listitem_T *li1 = rettv->vval.v_list->lv_first;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6976 listitem_T *li2 = li1->li_next;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6977 listitem_T *li3 = li2->li_next;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6978 listitem_T *li4 = li3->li_next;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6979
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6980 vim_free(li1->li_tv.vval.v_string);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6981 li1->li_tv.vval.v_string = vim_strnsave(regmatch.startp[0],
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6982 (int)(regmatch.endp[0] - regmatch.startp[0]));
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6983 li3->li_tv.vval.v_number =
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6984 (varnumber_T)(regmatch.startp[0] - expr);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6985 li4->li_tv.vval.v_number =
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6986 (varnumber_T)(regmatch.endp[0] - expr);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6987 if (l != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6988 li2->li_tv.vval.v_number = (varnumber_T)idx;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6989 }
12248 f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	6990 else if (type == MATCH_LIST)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6991 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6992 int i;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6993
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6994 /* return list with matched string and submatches */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6995 for (i = 0; i < NSUBEXP; ++i)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6996 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6997 if (regmatch.endp[i] == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6998 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	6999 if (list_append_string(rettv->vval.v_list,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7000 (char_u *)"", 0) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7001 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7002 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7003 else if (list_append_string(rettv->vval.v_list,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7004 regmatch.startp[i],
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7005 (int)(regmatch.endp[i] - regmatch.startp[i]))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7006 == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7007 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7008 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7009 }
12248 f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	7010 else if (type == MATCH_STR)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7011 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7012 /* return matched string */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7013 if (l != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7014 copy_tv(&li->li_tv, rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7015 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7016 rettv->vval.v_string = vim_strnsave(regmatch.startp[0],
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7017 (int)(regmatch.endp[0] - regmatch.startp[0]));
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7018 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7019 else if (l != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7020 rettv->vval.v_number = idx;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7021 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7022 {
12248 f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	7023 if (type != MATCH_END)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7024 rettv->vval.v_number =
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7025 (varnumber_T)(regmatch.startp[0] - str);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7026 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7027 rettv->vval.v_number =
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7028 (varnumber_T)(regmatch.endp[0] - str);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7029 rettv->vval.v_number += (varnumber_T)(str - expr);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7030 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7031 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7032 vim_regfree(regmatch.regprog);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7033 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7034
12248 f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	7035 theend:
f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	7036 if (type == MATCH_POS && l == NULL && rettv->vval.v_list != NULL)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7037 /* matchstrpos() without a list: drop the second item. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7038 listitem_remove(rettv->vval.v_list,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7039 rettv->vval.v_list->lv_first->li_next);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7040 vim_free(tofree);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7041 p_cpo = save_cpo;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7042 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7043
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7044 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7045 * "match()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7046 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7047 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7048 f_match(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7049 {
12248 f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	7050 find_some_match(argvars, rettv, MATCH_MATCH);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7051 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7052
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7053 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7054 * "matchend()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7055 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7056 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7057 f_matchend(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7058 {
12248 f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	7059 find_some_match(argvars, rettv, MATCH_END);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7060 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7061
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7062 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7063 * "matchlist()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7064 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7065 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7066 f_matchlist(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7067 {
12248 f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	7068 find_some_match(argvars, rettv, MATCH_LIST);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7069 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7070
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7071 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7072 * "matchstr()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7073 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7074 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7075 f_matchstr(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7076 {
12248 f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	7077 find_some_match(argvars, rettv, MATCH_STR);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7078 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7079
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7080 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7081 * "matchstrpos()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7082 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7083 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7084 f_matchstrpos(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7085 {
12248 f9de19f981a4 patch 8.0.1004: matchstrpos() without a match returns too many items Christian Brabandt <cb@256bit.org> parents: 12144 diff changeset	7086 find_some_match(argvars, rettv, MATCH_POS);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7087 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7088
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7089 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7090 max_min(typval_T argvars, typval_T rettv, int domax)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7091 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7092 varnumber_T n = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7093 varnumber_T i;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7094 int error = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7095
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7096 if (argvars[0].v_type == VAR_LIST)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7097 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7098 list_T *l;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7099 listitem_T *li;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7100
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7101 l = argvars[0].vval.v_list;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7102 if (l != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7103 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7104 li = l->lv_first;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7105 if (li != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7106 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7107 n = tv_get_number_chk(&li->li_tv, &error);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7108 for (;;)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7109 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7110 li = li->li_next;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7111 if (li == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7112 break;
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7113 i = tv_get_number_chk(&li->li_tv, &error);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7114 if (domax ? i > n : i < n)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7115 n = i;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7116 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7117 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7118 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7119 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7120 else if (argvars[0].v_type == VAR_DICT)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7121 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7122 dict_T *d;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7123 int first = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7124 hashitem_T *hi;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7125 int todo;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7126
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7127 d = argvars[0].vval.v_dict;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7128 if (d != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7129 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7130 todo = (int)d->dv_hashtab.ht_used;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7131 for (hi = d->dv_hashtab.ht_array; todo > 0; ++hi)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7132 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7133 if (!HASHITEM_EMPTY(hi))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7134 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7135 --todo;
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7136 i = tv_get_number_chk(&HI2DI(hi)->di_tv, &error);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7137 if (first)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7138 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7139 n = i;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7140 first = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7141 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7142 else if (domax ? i > n : i < n)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7143 n = i;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7144 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7145 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7146 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7147 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7148 else
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	7149 semsg(_(e_listdictarg), domax ? "max()" : "min()");
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7150 rettv->vval.v_number = error ? 0 : n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7151 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7152
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7153 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7154 * "max()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7155 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7156 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7157 f_max(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7158 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7159 max_min(argvars, rettv, TRUE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7160 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7161
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7162 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7163 * "min()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7164 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7165 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7166 f_min(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7167 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7168 max_min(argvars, rettv, FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7169 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7170
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7171 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7172 * Create the directory in which "dir" is located, and higher levels when
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7173 * needed.
11341 98abcd1227dc patch 8.0.0556: getting window position fails if GUI and term possible Christian Brabandt <cb@256bit.org> parents: 11315 diff changeset	7174 * Return OK or FAIL.
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7175 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7176 static int
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7177 mkdir_recurse(char_u *dir, int prot)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7178 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7179 char_u *p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7180 char_u *updir;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7181 int r = FAIL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7182
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7183 /* Get end of directory name in "dir".
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7184 * We're done when it's "/" or "c:/". */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7185 p = gettail_sep(dir);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7186 if (p <= get_past_head(dir))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7187 return OK;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7188
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7189 /* If the directory exists we're done. Otherwise: create it.*/
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7190 updir = vim_strnsave(dir, (int)(p - dir));
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7191 if (updir == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7192 return FAIL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7193 if (mch_isdir(updir))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7194 r = OK;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7195 else if (mkdir_recurse(updir, prot) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7196 r = vim_mkdir_emsg(updir, prot);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7197 vim_free(updir);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7198 return r;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7199 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7200
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7201 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7202 * "mkdir()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7203 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7204 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7205 f_mkdir(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7206 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7207 char_u *dir;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7208 char_u buf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7209 int prot = 0755;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7210
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7211 rettv->vval.v_number = FAIL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7212 if (check_restricted() \|\| check_secure())
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7213 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7214
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7215 dir = tv_get_string_buf(&argvars[0], buf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7216 if (*dir == NUL)
13672 4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7217 return;
4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7218
4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7219 if (*gettail(dir) == NUL)
4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7220 /* remove trailing slashes */
4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7221 *gettail_sep(dir) = NUL;
4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7222
4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7223 if (argvars[1].v_type != VAR_UNKNOWN)
4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7224 {
4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7225 if (argvars[2].v_type != VAR_UNKNOWN)
4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7226 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7227 prot = (int)tv_get_number_chk(&argvars[2], NULL);
13672 4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7228 if (prot == -1)
4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7229 return;
4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7230 }
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7231 if (STRCMP(tv_get_string(&argvars[1]), "p") == 0)
13672 4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7232 {
4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7233 if (mch_isdir(dir))
4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7234 {
4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7235 /* With the "p" flag it's OK if the dir already exists. */
4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7236 rettv->vval.v_number = OK;
4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7237 return;
4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7238 }
4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7239 mkdir_recurse(dir, prot);
4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7240 }
4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7241 }
4a1efd1a6018 patch 8.0.1708: mkdir with 'p' flag fails on existing directory Christian Brabandt <cb@256bit.org> parents: 13626 diff changeset	7242 rettv->vval.v_number = vim_mkdir_emsg(dir, prot);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7243 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7244
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7245 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7246 * "mode()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7247 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7248 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7249 f_mode(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7250 {
14422 06316dbd66bc patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode Christian Brabandt <cb@256bit.org> parents: 14407 diff changeset	7251 char_u buf[4];
06316dbd66bc patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode Christian Brabandt <cb@256bit.org> parents: 14407 diff changeset	7252
06316dbd66bc patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode Christian Brabandt <cb@256bit.org> parents: 14407 diff changeset	7253 vim_memset(buf, 0, sizeof(buf));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7254
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7255 if (time_for_testing == 93784)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7256 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7257 /* Testing the two-character code. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7258 buf[0] = 'x';
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7259 buf[1] = '!';
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7260 }
12112 6afc7339c2ad patch 8.0.0936: mode() returns wrong value for a terminal window Christian Brabandt <cb@256bit.org> parents: 12102 diff changeset	7261 #ifdef FEAT_TERMINAL
6afc7339c2ad patch 8.0.0936: mode() returns wrong value for a terminal window Christian Brabandt <cb@256bit.org> parents: 12102 diff changeset	7262 else if (term_use_loop())
6afc7339c2ad patch 8.0.0936: mode() returns wrong value for a terminal window Christian Brabandt <cb@256bit.org> parents: 12102 diff changeset	7263 buf[0] = 't';
6afc7339c2ad patch 8.0.0936: mode() returns wrong value for a terminal window Christian Brabandt <cb@256bit.org> parents: 12102 diff changeset	7264 #endif
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7265 else if (VIsual_active)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7266 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7267 if (VIsual_select)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7268 buf[0] = VIsual_mode + 's' - 'v';
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7269 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7270 buf[0] = VIsual_mode;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7271 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7272 else if (State == HITRETURN \|\| State == ASKMORE \|\| State == SETWSIZE
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7273 \|\| State == CONFIRM)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7274 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7275 buf[0] = 'r';
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7276 if (State == ASKMORE)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7277 buf[1] = 'm';
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7278 else if (State == CONFIRM)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7279 buf[1] = '?';
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7280 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7281 else if (State == EXTERNCMD)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7282 buf[0] = '!';
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7283 else if (State & INSERT)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7284 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7285 if (State & VREPLACE_FLAG)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7286 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7287 buf[0] = 'R';
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7288 buf[1] = 'v';
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7289 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7290 else
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10749 diff changeset	7291 {
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10749 diff changeset	7292 if (State & REPLACE_FLAG)
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10749 diff changeset	7293 buf[0] = 'R';
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10749 diff changeset	7294 else
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10749 diff changeset	7295 buf[0] = 'i';
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10749 diff changeset	7296 if (ins_compl_active())
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10749 diff changeset	7297 buf[1] = 'c';
13212 a80490493c6b patch 8.0.1480: patch missing change Christian Brabandt <cb@256bit.org> parents: 13123 diff changeset	7298 else if (ctrl_x_mode_not_defined_yet())
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10749 diff changeset	7299 buf[1] = 'x';
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10749 diff changeset	7300 }
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10749 diff changeset	7301 }
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10749 diff changeset	7302 else if ((State & CMDLINE) \|\| exmode_active)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7303 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7304 buf[0] = 'c';
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10749 diff changeset	7305 if (exmode_active == EXMODE_VIM)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7306 buf[1] = 'v';
10787 09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10749 diff changeset	7307 else if (exmode_active == EXMODE_NORMAL)
09926123316b patch 8.0.0283: mode() does not indicate Insert mode completion Christian Brabandt <cb@256bit.org> parents: 10749 diff changeset	7308 buf[1] = 'e';
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7309 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7310 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7311 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7312 buf[0] = 'n';
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7313 if (finish_op)
15279 54457fc4af0b patch 8.1.0648: custom operators can't act upon a forced motion Bram Moolenaar <Bram@vim.org> parents: 15271 diff changeset	7314 {
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7315 buf[1] = 'o';
15279 54457fc4af0b patch 8.1.0648: custom operators can't act upon a forced motion Bram Moolenaar <Bram@vim.org> parents: 15271 diff changeset	7316 // to be able to detect force-linewise/blockwise/characterwise operations
54457fc4af0b patch 8.1.0648: custom operators can't act upon a forced motion Bram Moolenaar <Bram@vim.org> parents: 15271 diff changeset	7317 buf[2] = motion_force;
54457fc4af0b patch 8.1.0648: custom operators can't act upon a forced motion Bram Moolenaar <Bram@vim.org> parents: 15271 diff changeset	7318 }
14422 06316dbd66bc patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode Christian Brabandt <cb@256bit.org> parents: 14407 diff changeset	7319 else if (restart_edit == 'I' \|\| restart_edit == 'R'
06316dbd66bc patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode Christian Brabandt <cb@256bit.org> parents: 14407 diff changeset	7320 \|\| restart_edit == 'V')
06316dbd66bc patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode Christian Brabandt <cb@256bit.org> parents: 14407 diff changeset	7321 {
06316dbd66bc patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode Christian Brabandt <cb@256bit.org> parents: 14407 diff changeset	7322 buf[1] = 'i';
06316dbd66bc patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode Christian Brabandt <cb@256bit.org> parents: 14407 diff changeset	7323 buf[2] = restart_edit;
06316dbd66bc patch 8.1.0225: mode() does not indicate using CTRL-O from Insert mode Christian Brabandt <cb@256bit.org> parents: 14407 diff changeset	7324 }
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7325 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7326
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7327 /* Clear out the minor mode when the argument is not a non-zero number or
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7328 * non-empty string. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7329 if (!non_zero_arg(&argvars[0]))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7330 buf[1] = NUL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7331
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7332 rettv->vval.v_string = vim_strsave(buf);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7333 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7334 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7335
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7336 #if defined(FEAT_MZSCHEME) \|\| defined(PROTO)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7337 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7338 * "mzeval()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7339 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7340 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7341 f_mzeval(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7342 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7343 char_u *str;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7344 char_u buf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7345
15748 93b78c4a7cd5 patch 8.1.0881: can execute shell commands in rvim through interfaces Bram Moolenaar <Bram@vim.org> parents: 15725 diff changeset	7346 if (check_restricted() \|\| check_secure())
93b78c4a7cd5 patch 8.1.0881: can execute shell commands in rvim through interfaces Bram Moolenaar <Bram@vim.org> parents: 15725 diff changeset	7347 return;
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7348 str = tv_get_string_buf(&argvars[0], buf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7349 do_mzeval(str, rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7350 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7351
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7352 void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7353 mzscheme_call_vim(char_u name, typval_T args, typval_T *rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7354 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7355 typval_T argvars[3];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7356
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7357 argvars[0].v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7358 argvars[0].vval.v_string = name;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7359 copy_tv(args, &argvars[1]);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7360 argvars[2].v_type = VAR_UNKNOWN;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7361 f_call(argvars, rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7362 clear_tv(&argvars[1]);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7363 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7364 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7365
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7366 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7367 * "nextnonblank()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7368 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7369 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7370 f_nextnonblank(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7371 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7372 linenr_T lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7373
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7374 for (lnum = tv_get_lnum(argvars); ; ++lnum)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7375 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7376 if (lnum < 0 \|\| lnum > curbuf->b_ml.ml_line_count)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7377 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7378 lnum = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7379 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7380 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7381 if (*skipwhite(ml_get(lnum)) != NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7382 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7383 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7384 rettv->vval.v_number = lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7385 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7386
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7387 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7388 * "nr2char()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7389 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7390 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7391 f_nr2char(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7392 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7393 char_u buf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7394
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7395 if (has_mbyte)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7396 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7397 int utf8 = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7398
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7399 if (argvars[1].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7400 utf8 = (int)tv_get_number_chk(&argvars[1], NULL);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7401 if (utf8)
15967 ddd82b1c9e9d patch 8.1.0989: various small code ugliness Bram Moolenaar <Bram@vim.org> parents: 15955 diff changeset	7402 buf[utf_char2bytes((int)tv_get_number(&argvars[0]), buf)] = NUL;
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7403 else
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7404 buf[(*mb_char2bytes)((int)tv_get_number(&argvars[0]), buf)] = NUL;
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7405 }
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7406 else
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7407 {
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7408 buf[0] = (char_u)tv_get_number(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7409 buf[1] = NUL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7410 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7411 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7412 rettv->vval.v_string = vim_strsave(buf);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7413 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7414
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7415 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7416 * "or(expr, expr)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7417 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7418 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7419 f_or(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7420 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7421 rettv->vval.v_number = tv_get_number_chk(&argvars[0], NULL)
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7422 \| tv_get_number_chk(&argvars[1], NULL);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7423 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7424
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7425 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7426 * "pathshorten()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7427 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7428 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7429 f_pathshorten(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7430 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7431 char_u *p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7432
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7433 rettv->v_type = VAR_STRING;
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7434 p = tv_get_string_chk(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7435 if (p == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7436 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7437 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7438 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7439 p = vim_strsave(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7440 rettv->vval.v_string = p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7441 if (p != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7442 shorten_dir(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7443 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7444 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7445
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7446 #ifdef FEAT_PERL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7447 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7448 * "perleval()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7449 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7450 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7451 f_perleval(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7452 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7453 char_u *str;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7454 char_u buf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7455
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7456 str = tv_get_string_buf(&argvars[0], buf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7457 do_perleval(str, rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7458 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7459 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7460
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7461 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7462 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7463 * "pow()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7464 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7465 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7466 f_pow(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7467 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7468 float_T fx = 0.0, fy = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7469
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7470 rettv->v_type = VAR_FLOAT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7471 if (get_float_arg(argvars, &fx) == OK
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7472 && get_float_arg(&argvars[1], &fy) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7473 rettv->vval.v_float = pow(fx, fy);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7474 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7475 rettv->vval.v_float = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7476 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7477 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7478
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7479 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7480 * "prevnonblank()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7481 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7482 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7483 f_prevnonblank(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7484 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7485 linenr_T lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7486
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7487 lnum = tv_get_lnum(argvars);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7488 if (lnum < 1 \|\| lnum > curbuf->b_ml.ml_line_count)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7489 lnum = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7490 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7491 while (lnum >= 1 && *skipwhite(ml_get(lnum)) == NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7492 --lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7493 rettv->vval.v_number = lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7494 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7495
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7496 /* This dummy va_list is here because:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7497 * - passing a NULL pointer doesn't work when va_list isn't a pointer
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7498 * - locally in the function results in a "used before set" warning
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7499 * - using va_start() to initialize it gives "function with fixed args" error */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7500 static va_list ap;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7501
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7502 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7503 * "printf()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7504 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7505 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7506 f_printf(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7507 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7508 char_u buf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7509 int len;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7510 char_u *s;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7511 int saved_did_emsg = did_emsg;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7512 char *fmt;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7513
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7514 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7515 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7516
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7517 /* Get the required length, allocate the buffer and do it for real. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7518 did_emsg = FALSE;
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7519 fmt = (char *)tv_get_string_buf(&argvars[0], buf);
11653 67cf0d45b006 patch 8.0.0709: libvterm cannot use vsnprintf() Christian Brabandt <cb@256bit.org> parents: 11621 diff changeset	7520 len = vim_vsnprintf_typval(NULL, 0, fmt, ap, argvars + 1);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7521 if (!did_emsg)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7522 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7523 s = alloc(len + 1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7524 if (s != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7525 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7526 rettv->vval.v_string = s;
11653 67cf0d45b006 patch 8.0.0709: libvterm cannot use vsnprintf() Christian Brabandt <cb@256bit.org> parents: 11621 diff changeset	7527 (void)vim_vsnprintf_typval((char *)s, len + 1, fmt,
67cf0d45b006 patch 8.0.0709: libvterm cannot use vsnprintf() Christian Brabandt <cb@256bit.org> parents: 11621 diff changeset	7528 ap, argvars + 1);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7529 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7530 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7531 did_emsg \|= saved_did_emsg;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7532 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7533
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7534 /*
17756 a7afcea6f40a patch 8.1.1875: cannot get size and position of the popup menu Bram Moolenaar <Bram@vim.org> parents: 17744 diff changeset	7535 * "pum_getpos()" function
a7afcea6f40a patch 8.1.1875: cannot get size and position of the popup menu Bram Moolenaar <Bram@vim.org> parents: 17744 diff changeset	7536 */
a7afcea6f40a patch 8.1.1875: cannot get size and position of the popup menu Bram Moolenaar <Bram@vim.org> parents: 17744 diff changeset	7537 static void
a7afcea6f40a patch 8.1.1875: cannot get size and position of the popup menu Bram Moolenaar <Bram@vim.org> parents: 17744 diff changeset	7538 f_pum_getpos(typval_T argvars UNUSED, typval_T rettv UNUSED)
a7afcea6f40a patch 8.1.1875: cannot get size and position of the popup menu Bram Moolenaar <Bram@vim.org> parents: 17744 diff changeset	7539 {
a7afcea6f40a patch 8.1.1875: cannot get size and position of the popup menu Bram Moolenaar <Bram@vim.org> parents: 17744 diff changeset	7540 if (rettv_dict_alloc(rettv) != OK)
a7afcea6f40a patch 8.1.1875: cannot get size and position of the popup menu Bram Moolenaar <Bram@vim.org> parents: 17744 diff changeset	7541 return;
a7afcea6f40a patch 8.1.1875: cannot get size and position of the popup menu Bram Moolenaar <Bram@vim.org> parents: 17744 diff changeset	7542 pum_set_event_info(rettv->vval.v_dict);
a7afcea6f40a patch 8.1.1875: cannot get size and position of the popup menu Bram Moolenaar <Bram@vim.org> parents: 17744 diff changeset	7543 }
a7afcea6f40a patch 8.1.1875: cannot get size and position of the popup menu Bram Moolenaar <Bram@vim.org> parents: 17744 diff changeset	7544
a7afcea6f40a patch 8.1.1875: cannot get size and position of the popup menu Bram Moolenaar <Bram@vim.org> parents: 17744 diff changeset	7545 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7546 * "pumvisible()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7547 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7548 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7549 f_pumvisible(typval_T argvars UNUSED, typval_T rettv UNUSED)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7550 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7551 if (pum_visible())
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7552 rettv->vval.v_number = 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7553 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7554
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7555 #ifdef FEAT_PYTHON3
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7556 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7557 * "py3eval()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7558 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7559 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7560 f_py3eval(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7561 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7562 char_u *str;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7563 char_u buf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7564
15748 93b78c4a7cd5 patch 8.1.0881: can execute shell commands in rvim through interfaces Bram Moolenaar <Bram@vim.org> parents: 15725 diff changeset	7565 if (check_restricted() \|\| check_secure())
93b78c4a7cd5 patch 8.1.0881: can execute shell commands in rvim through interfaces Bram Moolenaar <Bram@vim.org> parents: 15725 diff changeset	7566 return;
93b78c4a7cd5 patch 8.1.0881: can execute shell commands in rvim through interfaces Bram Moolenaar <Bram@vim.org> parents: 15725 diff changeset	7567
10722 7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7568 if (p_pyx == 0)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7569 p_pyx = 3;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7570
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7571 str = tv_get_string_buf(&argvars[0], buf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7572 do_py3eval(str, rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7573 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7574 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7575
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7576 #ifdef FEAT_PYTHON
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7577 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7578 * "pyeval()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7579 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7580 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7581 f_pyeval(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7582 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7583 char_u *str;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7584 char_u buf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7585
15748 93b78c4a7cd5 patch 8.1.0881: can execute shell commands in rvim through interfaces Bram Moolenaar <Bram@vim.org> parents: 15725 diff changeset	7586 if (check_restricted() \|\| check_secure())
93b78c4a7cd5 patch 8.1.0881: can execute shell commands in rvim through interfaces Bram Moolenaar <Bram@vim.org> parents: 15725 diff changeset	7587 return;
93b78c4a7cd5 patch 8.1.0881: can execute shell commands in rvim through interfaces Bram Moolenaar <Bram@vim.org> parents: 15725 diff changeset	7588
10722 7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7589 if (p_pyx == 0)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7590 p_pyx = 2;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7591
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7592 str = tv_get_string_buf(&argvars[0], buf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7593 do_pyeval(str, rettv);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7594 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7595 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7596
10722 7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7597 #if defined(FEAT_PYTHON) \|\| defined(FEAT_PYTHON3)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7598 /*
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7599 * "pyxeval()" function
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7600 */
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7601 static void
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7602 f_pyxeval(typval_T argvars, typval_T rettv)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7603 {
15748 93b78c4a7cd5 patch 8.1.0881: can execute shell commands in rvim through interfaces Bram Moolenaar <Bram@vim.org> parents: 15725 diff changeset	7604 if (check_restricted() \|\| check_secure())
93b78c4a7cd5 patch 8.1.0881: can execute shell commands in rvim through interfaces Bram Moolenaar <Bram@vim.org> parents: 15725 diff changeset	7605 return;
93b78c4a7cd5 patch 8.1.0881: can execute shell commands in rvim through interfaces Bram Moolenaar <Bram@vim.org> parents: 15725 diff changeset	7606
10722 7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7607 # if defined(FEAT_PYTHON) && defined(FEAT_PYTHON3)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7608 init_pyxversion();
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7609 if (p_pyx == 2)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7610 f_pyeval(argvars, rettv);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7611 else
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7612 f_py3eval(argvars, rettv);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7613 # elif defined(FEAT_PYTHON)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7614 f_pyeval(argvars, rettv);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7615 # elif defined(FEAT_PYTHON3)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7616 f_py3eval(argvars, rettv);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7617 # endif
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7618 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7619 #endif
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10706 diff changeset	7620
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7621 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7622 * "range()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7623 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7624 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7625 f_range(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7626 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7627 varnumber_T start;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7628 varnumber_T end;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7629 varnumber_T stride = 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7630 varnumber_T i;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7631 int error = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7632
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7633 start = tv_get_number_chk(&argvars[0], &error);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7634 if (argvars[1].v_type == VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7635 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7636 end = start - 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7637 start = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7638 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7639 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7640 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7641 end = tv_get_number_chk(&argvars[1], &error);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7642 if (argvars[2].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7643 stride = tv_get_number_chk(&argvars[2], &error);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7644 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7645
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7646 if (error)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7647 return; /* type error; errmsg already given */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7648 if (stride == 0)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	7649 emsg(_("E726: Stride is zero"));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7650 else if (stride > 0 ? end + 1 < start : end - 1 > start)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	7651 emsg(_("E727: Start past end"));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7652 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7653 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7654 if (rettv_list_alloc(rettv) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7655 for (i = start; stride > 0 ? i <= end : i >= end; i += stride)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7656 if (list_append_number(rettv->vval.v_list,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7657 (varnumber_T)i) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7658 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7659 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7660 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7661
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7662 /*
16752 e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16706 diff changeset	7663 * Evaluate "expr" (= "context") for readdir().
16231 0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7664 */
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7665 static int
16752 e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16706 diff changeset	7666 readdir_checkitem(void context, char_u name)
e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16706 diff changeset	7667 {
e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16706 diff changeset	7668 typval_T expr = (typval_T )context;
16231 0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7669 typval_T save_val;
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7670 typval_T rettv;
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7671 typval_T argv[2];
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7672 int retval = 0;
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7673 int error = FALSE;
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7674
16752 e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16706 diff changeset	7675 if (expr->v_type == VAR_UNKNOWN)
e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16706 diff changeset	7676 return 1;
e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16706 diff changeset	7677
16231 0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7678 prepare_vimvar(VV_VAL, &save_val);
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7679 set_vim_var_string(VV_VAL, name, -1);
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7680 argv[0].v_type = VAR_STRING;
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7681 argv[0].vval.v_string = name;
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7682
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7683 if (eval_expr_typval(expr, argv, 1, &rettv) == FAIL)
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7684 goto theend;
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7685
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7686 retval = tv_get_number_chk(&rettv, &error);
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7687 if (error)
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7688 retval = -1;
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7689 clear_tv(&rettv);
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7690
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7691 theend:
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7692 set_vim_var_string(VV_VAL, NULL, 0);
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7693 restore_vimvar(VV_VAL, &save_val);
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7694 return retval;
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7695 }
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7696
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7697 /*
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7698 * "readdir()" function
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7699 */
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7700 static void
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7701 f_readdir(typval_T argvars, typval_T rettv)
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7702 {
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7703 typval_T *expr;
16752 e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16706 diff changeset	7704 int ret;
16231 0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7705 char_u *path;
16752 e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16706 diff changeset	7706 char_u *p;
16231 0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7707 garray_T ga;
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7708 int i;
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7709
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7710 if (rettv_list_alloc(rettv) == FAIL)
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7711 return;
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7712 path = tv_get_string(&argvars[0]);
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7713 expr = &argvars[1];
16752 e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16706 diff changeset	7714
e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16706 diff changeset	7715 ret = readdir_core(&ga, path, (void *)expr, readdir_checkitem);
e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16706 diff changeset	7716 if (ret == OK && rettv->vval.v_list != NULL && ga.ga_len > 0)
e2d8d83e6721 patch 8.1.1378: delete() can not handle a file name that looks like a pattern Bram Moolenaar <Bram@vim.org> parents: 16706 diff changeset	7717 {
16231 0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7718 for (i = 0; i < ga.ga_len; i++)
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7719 {
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7720 p = ((char_u **)ga.ga_data)[i];
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7721 list_append_string(rettv->vval.v_list, p, -1);
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7722 }
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7723 }
16362 514e42de6a1d patch 8.1.1186: readdir() allocates list twice Bram Moolenaar <Bram@vim.org> parents: 16271 diff changeset	7724 ga_clear_strings(&ga);
16231 0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7725 }
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7726
0761a4c111a7 patch 8.1.1120: cannot easily get directory entry matches Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	7727 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7728 * "readfile()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7729 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7730 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7731 f_readfile(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7732 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7733 int binary = FALSE;
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7734 int blob = FALSE;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7735 int failed = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7736 char_u *fname;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7737 FILE *fd;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7738 char_u buf[(IOSIZE/256)256]; / rounded to avoid odd + 1 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7739 int io_size = sizeof(buf);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7740 int readlen; /* size of last fread() */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7741 char_u prev = NULL; / previously read bytes, if any */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7742 long prevlen = 0; /* length of data in prev */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7743 long prevsize = 0; /* size of prev buffer */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7744 long maxline = MAXLNUM;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7745 long cnt = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7746 char_u p; / position in buf */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7747 char_u start; / start of current line */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7748
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7749 if (argvars[1].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7750 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7751 if (STRCMP(tv_get_string(&argvars[1]), "b") == 0)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7752 binary = TRUE;
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7753 if (STRCMP(tv_get_string(&argvars[1]), "B") == 0)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7754 blob = TRUE;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7755
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7756 if (argvars[2].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7757 maxline = (long)tv_get_number(&argvars[2]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7758 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7759
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7760 if (blob)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7761 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7762 if (rettv_blob_alloc(rettv) == FAIL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7763 return;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7764 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7765 else
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7766 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7767 if (rettv_list_alloc(rettv) == FAIL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7768 return;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7769 }
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7770
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7771 /* Always open the file in binary mode, library functions have a mind of
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7772 * their own about CR-LF conversion. */
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	7773 fname = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7774 if (fname == NUL \|\| (fd = mch_fopen((char )fname, READBIN)) == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7775 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	7776 semsg(_(e_notopen), fname == NUL ? (char_u )_("<empty>") : fname);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7777 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7778 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7779
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7780 if (blob)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7781 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7782 if (read_blob(fd, rettv->vval.v_blob) == FAIL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7783 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	7784 emsg("cannot read file");
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7785 blob_free(rettv->vval.v_blob);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7786 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7787 fclose(fd);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7788 return;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7789 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	7790
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7791 while (cnt < maxline \|\| maxline < 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7792 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7793 readlen = (int)fread(buf, 1, io_size, fd);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7794
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7795 /* This for loop processes what was read, but is also entered at end
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7796 * of file so that either:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7797 * - an incomplete line gets written
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7798 * - a "binary" file gets an empty line at the end if it ends in a
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7799 * newline. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7800 for (p = buf, start = buf;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7801 p < buf + readlen \|\| (readlen <= 0 && (prevlen > 0 \|\| binary));
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7802 ++p)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7803 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7804 if (*p == '\n' \|\| readlen <= 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7805 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7806 listitem_T *li;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7807 char_u *s = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7808 long_u len = p - start;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7809
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7810 /* Finished a line. Remove CRs before NL. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7811 if (readlen > 0 && !binary)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7812 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7813 while (len > 0 && start[len - 1] == '\r')
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7814 --len;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7815 /* removal may cross back to the "prev" string */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7816 if (len == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7817 while (prevlen > 0 && prev[prevlen - 1] == '\r')
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7818 --prevlen;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7819 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7820 if (prevlen == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7821 s = vim_strnsave(start, (int)len);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7822 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7823 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7824 /* Change "prev" buffer to be the right size. This way
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7825 * the bytes are only copied once, and very long lines are
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7826 * allocated only once. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7827 if ((s = vim_realloc(prev, prevlen + len + 1)) != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7828 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7829 mch_memmove(s + prevlen, start, len);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7830 s[prevlen + len] = NUL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7831 prev = NULL; /* the list will own the string */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7832 prevlen = prevsize = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7833 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7834 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7835 if (s == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7836 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7837 do_outofmem_msg((long_u) prevlen + len + 1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7838 failed = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7839 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7840 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7841
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7842 if ((li = listitem_alloc()) == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7843 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7844 vim_free(s);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7845 failed = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7846 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7847 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7848 li->li_tv.v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7849 li->li_tv.v_lock = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7850 li->li_tv.vval.v_string = s;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7851 list_append(rettv->vval.v_list, li);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7852
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7853 start = p + 1; /* step over newline */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7854 if ((++cnt >= maxline && maxline >= 0) \|\| readlen <= 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7855 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7856 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7857 else if (*p == NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7858 *p = '\n';
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7859 /* Check for utf8 "bom"; U+FEFF is encoded as EF BB BF. Do this
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7860 * when finding the BF and check the previous two bytes. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7861 else if (*p == 0xbf && enc_utf8 && !binary)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7862 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7863 /* Find the two bytes before the 0xbf. If p is at buf, or buf
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7864 * + 1, these may be in the "prev" string. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7865 char_u back1 = p >= buf + 1 ? p[-1]
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7866 : prevlen >= 1 ? prev[prevlen - 1] : NUL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7867 char_u back2 = p >= buf + 2 ? p[-2]
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7868 : p == buf + 1 && prevlen >= 1 ? prev[prevlen - 1]
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7869 : prevlen >= 2 ? prev[prevlen - 2] : NUL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7870
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7871 if (back2 == 0xef && back1 == 0xbb)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7872 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7873 char_u *dest = p - 2;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7874
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7875 /* Usually a BOM is at the beginning of a file, and so at
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7876 * the beginning of a line; then we can just step over it.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7877 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7878 if (start == dest)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7879 start = p + 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7880 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7881 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7882 /* have to shuffle buf to close gap */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7883 int adjust_prevlen = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7884
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7885 if (dest < buf)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7886 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7887 adjust_prevlen = (int)(buf - dest); /* must be 1 or 2 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7888 dest = buf;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7889 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7890 if (readlen > p - buf + 1)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7891 mch_memmove(dest, p + 1, readlen - (p - buf) - 1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7892 readlen -= 3 - adjust_prevlen;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7893 prevlen -= adjust_prevlen;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7894 p = dest - 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7895 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7896 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7897 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7898 } /* for */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7899
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7900 if (failed \|\| (cnt >= maxline && maxline >= 0) \|\| readlen <= 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7901 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7902 if (start < p)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7903 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7904 /* There's part of a line in buf, store it in "prev". */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7905 if (p - start + prevlen >= prevsize)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7906 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7907 /* need bigger "prev" buffer */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7908 char_u *newprev;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7909
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7910 /* A common use case is ordinary text files and "prev" gets a
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7911 * fragment of a line, so the first allocation is made
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7912 * small, to avoid repeatedly 'allocing' large and
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7913 * 'reallocing' small. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7914 if (prevsize == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7915 prevsize = (long)(p - start);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7916 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7917 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7918 long grow50pc = (prevsize * 3) / 2;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7919 long growmin = (long)((p - start) * 2 + prevlen);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7920 prevsize = grow50pc > growmin ? grow50pc : growmin;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7921 }
16825 ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u " causes a lot of type casts Bram Moolenaar <Bram@vim.org>* parents: 16817 diff changeset	7922 newprev = vim_realloc(prev, prevsize);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7923 if (newprev == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7924 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7925 do_outofmem_msg((long_u)prevsize);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7926 failed = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7927 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7928 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7929 prev = newprev;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7930 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7931 /* Add the line part to end of "prev". */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7932 mch_memmove(prev + prevlen, start, p - start);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7933 prevlen += (long)(p - start);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7934 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7935 } /* while */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7936
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7937 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7938 * For a negative line count use only the lines at the end of the file,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7939 * free the rest.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7940 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7941 if (!failed && maxline < 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7942 while (cnt > -maxline)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7943 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7944 listitem_remove(rettv->vval.v_list, rettv->vval.v_list->lv_first);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7945 --cnt;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7946 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7947
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7948 if (failed)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7949 {
16634 a1ba0bd74e7d patch 8.1.1319: computing function length name in many places Bram Moolenaar <Bram@vim.org> parents: 16621 diff changeset	7950 // an empty list is returned on error
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7951 list_free(rettv->vval.v_list);
16634 a1ba0bd74e7d patch 8.1.1319: computing function length name in many places Bram Moolenaar <Bram@vim.org> parents: 16621 diff changeset	7952 rettv_list_alloc(rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7953 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7954
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7955 vim_free(prev);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7956 fclose(fd);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7957 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7958
14004 e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7959 static void
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7960 return_register(int regname, typval_T *rettv)
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7961 {
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7962 char_u buf[2] = {0, 0};
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7963
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7964 buf[0] = (char_u)regname;
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7965 rettv->v_type = VAR_STRING;
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7966 rettv->vval.v_string = vim_strsave(buf);
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7967 }
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7968
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7969 /*
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7970 * "reg_executing()" function
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7971 */
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7972 static void
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7973 f_reg_executing(typval_T argvars UNUSED, typval_T rettv)
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7974 {
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7975 return_register(reg_executing, rettv);
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7976 }
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7977
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7978 /*
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7979 * "reg_recording()" function
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7980 */
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7981 static void
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7982 f_reg_recording(typval_T argvars UNUSED, typval_T rettv)
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7983 {
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7984 return_register(reg_recording, rettv);
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7985 }
e124262d435e patch 8.1.0020: cannot tell whether a register is executing or recording Christian Brabandt <cb@256bit.org> parents: 13986 diff changeset	7986
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7987 #if defined(FEAT_RELTIME)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7988 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7989 * Convert a List to proftime_T.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7990 * Return FAIL when there is something wrong.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7991 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7992 static int
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7993 list2proftime(typval_T arg, proftime_T tm)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7994 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7995 long n1, n2;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7996 int error = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7997
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7998 if (arg->v_type != VAR_LIST \|\| arg->vval.v_list == NULL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	7999 \|\| arg->vval.v_list->lv_len != 2)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8000 return FAIL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8001 n1 = list_find_nr(arg->vval.v_list, 0L, &error);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8002 n2 = list_find_nr(arg->vval.v_list, 1L, &error);
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15850 diff changeset	8003 # ifdef MSWIN
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8004 tm->HighPart = n1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8005 tm->LowPart = n2;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8006 # else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8007 tm->tv_sec = n1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8008 tm->tv_usec = n2;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8009 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8010 return error ? FAIL : OK;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8011 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8012 #endif /* FEAT_RELTIME */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8013
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8014 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8015 * "reltime()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8016 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8017 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8018 f_reltime(typval_T argvars UNUSED, typval_T rettv UNUSED)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8019 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8020 #ifdef FEAT_RELTIME
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8021 proftime_T res;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8022 proftime_T start;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8023
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8024 if (argvars[0].v_type == VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8025 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8026 /* No arguments: get current time. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8027 profile_start(&res);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8028 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8029 else if (argvars[1].v_type == VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8030 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8031 if (list2proftime(&argvars[0], &res) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8032 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8033 profile_end(&res);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8034 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8035 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8036 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8037 /* Two arguments: compute the difference. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8038 if (list2proftime(&argvars[0], &start) == FAIL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8039 \|\| list2proftime(&argvars[1], &res) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8040 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8041 profile_sub(&res, &start);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8042 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8043
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8044 if (rettv_list_alloc(rettv) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8045 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8046 long n1, n2;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8047
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15850 diff changeset	8048 # ifdef MSWIN
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8049 n1 = res.HighPart;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8050 n2 = res.LowPart;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8051 # else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8052 n1 = res.tv_sec;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8053 n2 = res.tv_usec;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8054 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8055 list_append_number(rettv->vval.v_list, (varnumber_T)n1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8056 list_append_number(rettv->vval.v_list, (varnumber_T)n2);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8057 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8058 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8059 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8060
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8061 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8062 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8063 * "reltimefloat()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8064 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8065 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8066 f_reltimefloat(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8067 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8068 # ifdef FEAT_RELTIME
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8069 proftime_T tm;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8070 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8071
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8072 rettv->v_type = VAR_FLOAT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8073 rettv->vval.v_float = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8074 # ifdef FEAT_RELTIME
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8075 if (list2proftime(&argvars[0], &tm) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8076 rettv->vval.v_float = profile_float(&tm);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8077 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8078 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8079 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8080
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8081 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8082 * "reltimestr()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8083 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8084 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8085 f_reltimestr(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8086 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8087 #ifdef FEAT_RELTIME
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8088 proftime_T tm;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8089 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8090
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8091 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8092 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8093 #ifdef FEAT_RELTIME
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8094 if (list2proftime(&argvars[0], &tm) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8095 rettv->vval.v_string = vim_strsave((char_u *)profile_msg(&tm));
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8096 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8097 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8098
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8099 #if defined(FEAT_CLIENTSERVER) && defined(FEAT_X11)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8100 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8101 make_connection(void)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8102 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8103 if (X_DISPLAY == NULL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8104 # ifdef FEAT_GUI
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8105 && !gui.in_use
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8106 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8107 )
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8108 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8109 x_force_connect = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8110 setup_term_clip();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8111 x_force_connect = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8112 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8113 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8114
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8115 static int
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8116 check_connection(void)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8117 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8118 make_connection();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8119 if (X_DISPLAY == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8120 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	8121 emsg(_("E240: No connection to the X server"));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8122 return FAIL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8123 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8124 return OK;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8125 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8126 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8127
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8128 #ifdef FEAT_CLIENTSERVER
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8129 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8130 remote_common(typval_T argvars, typval_T rettv, int expr)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8131 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8132 char_u *server_name;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8133 char_u *keys;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8134 char_u *r = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8135 char_u buf[NUMBUFLEN];
11211 71311d899b42 patch 8.0.0492: a failing client-server request can make Vim hang Christian Brabandt <cb@256bit.org> parents: 11181 diff changeset	8136 int timeout = 0;
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15850 diff changeset	8137 # ifdef MSWIN
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8138 HWND w;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8139 # else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8140 Window w;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8141 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8142
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8143 if (check_restricted() \|\| check_secure())
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8144 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8145
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8146 # ifdef FEAT_X11
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8147 if (check_connection() == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8148 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8149 # endif
11211 71311d899b42 patch 8.0.0492: a failing client-server request can make Vim hang Christian Brabandt <cb@256bit.org> parents: 11181 diff changeset	8150 if (argvars[2].v_type != VAR_UNKNOWN
71311d899b42 patch 8.0.0492: a failing client-server request can make Vim hang Christian Brabandt <cb@256bit.org> parents: 11181 diff changeset	8151 && argvars[3].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8152 timeout = tv_get_number(&argvars[3]);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8153
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8154 server_name = tv_get_string_chk(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8155 if (server_name == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8156 return; /* type error; errmsg already given */
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8157 keys = tv_get_string_buf(&argvars[1], buf);
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15850 diff changeset	8158 # ifdef MSWIN
11211 71311d899b42 patch 8.0.0492: a failing client-server request can make Vim hang Christian Brabandt <cb@256bit.org> parents: 11181 diff changeset	8159 if (serverSendToVim(server_name, keys, &r, &w, expr, timeout, TRUE) < 0)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8160 # else
11211 71311d899b42 patch 8.0.0492: a failing client-server request can make Vim hang Christian Brabandt <cb@256bit.org> parents: 11181 diff changeset	8161 if (serverSendToVim(X_DISPLAY, server_name, keys, &r, &w, expr, timeout,
71311d899b42 patch 8.0.0492: a failing client-server request can make Vim hang Christian Brabandt <cb@256bit.org> parents: 11181 diff changeset	8162 0, TRUE) < 0)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8163 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8164 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8165 if (r != NULL)
12399 de1ae9d8ef57 patch 8.0.1079: memory leak when remote_foreground() fails Christian Brabandt <cb@256bit.org> parents: 12389 diff changeset	8166 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	8167 emsg((char *)r); // sending worked but evaluation failed
12399 de1ae9d8ef57 patch 8.0.1079: memory leak when remote_foreground() fails Christian Brabandt <cb@256bit.org> parents: 12389 diff changeset	8168 vim_free(r);
de1ae9d8ef57 patch 8.0.1079: memory leak when remote_foreground() fails Christian Brabandt <cb@256bit.org> parents: 12389 diff changeset	8169 }
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8170 else
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	8171 semsg(_("E241: Unable to send to %s"), server_name);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8172 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8173 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8174
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8175 rettv->vval.v_string = r;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8176
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8177 if (argvars[2].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8178 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8179 dictitem_T v;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8180 char_u str[30];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8181 char_u *idvar;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8182
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8183 idvar = tv_get_string_chk(&argvars[2]);
11211 71311d899b42 patch 8.0.0492: a failing client-server request can make Vim hang Christian Brabandt <cb@256bit.org> parents: 11181 diff changeset	8184 if (idvar != NULL && *idvar != NUL)
71311d899b42 patch 8.0.0492: a failing client-server request can make Vim hang Christian Brabandt <cb@256bit.org> parents: 11181 diff changeset	8185 {
71311d899b42 patch 8.0.0492: a failing client-server request can make Vim hang Christian Brabandt <cb@256bit.org> parents: 11181 diff changeset	8186 sprintf((char *)str, PRINTF_HEX_LONG_U, (long_u)w);
71311d899b42 patch 8.0.0492: a failing client-server request can make Vim hang Christian Brabandt <cb@256bit.org> parents: 11181 diff changeset	8187 v.di_tv.v_type = VAR_STRING;
71311d899b42 patch 8.0.0492: a failing client-server request can make Vim hang Christian Brabandt <cb@256bit.org> parents: 11181 diff changeset	8188 v.di_tv.vval.v_string = vim_strsave(str);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8189 set_var(idvar, &v.di_tv, FALSE);
11211 71311d899b42 patch 8.0.0492: a failing client-server request can make Vim hang Christian Brabandt <cb@256bit.org> parents: 11181 diff changeset	8190 vim_free(v.di_tv.vval.v_string);
71311d899b42 patch 8.0.0492: a failing client-server request can make Vim hang Christian Brabandt <cb@256bit.org> parents: 11181 diff changeset	8191 }
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8192 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8193 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8194 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8195
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8196 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8197 * "remote_expr()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8198 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8199 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8200 f_remote_expr(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8201 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8202 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8203 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8204 #ifdef FEAT_CLIENTSERVER
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8205 remote_common(argvars, rettv, TRUE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8206 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8207 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8208
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8209 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8210 * "remote_foreground()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8211 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8212 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8213 f_remote_foreground(typval_T argvars UNUSED, typval_T rettv UNUSED)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8214 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8215 #ifdef FEAT_CLIENTSERVER
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15850 diff changeset	8216 # ifdef MSWIN
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8217 /* On Win32 it's done in this application. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8218 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8219 char_u *server_name = tv_get_string_chk(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8220
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8221 if (server_name != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8222 serverForeground(server_name);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8223 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8224 # else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8225 /* Send a foreground() expression to the server. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8226 argvars[1].v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8227 argvars[1].vval.v_string = vim_strsave((char_u *)"foreground()");
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8228 argvars[2].v_type = VAR_UNKNOWN;
12399 de1ae9d8ef57 patch 8.0.1079: memory leak when remote_foreground() fails Christian Brabandt <cb@256bit.org> parents: 12389 diff changeset	8229 rettv->v_type = VAR_STRING;
de1ae9d8ef57 patch 8.0.1079: memory leak when remote_foreground() fails Christian Brabandt <cb@256bit.org> parents: 12389 diff changeset	8230 rettv->vval.v_string = NULL;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8231 remote_common(argvars, rettv, TRUE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8232 vim_free(argvars[1].vval.v_string);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8233 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8234 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8235 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8236
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8237 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8238 f_remote_peek(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8239 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8240 #ifdef FEAT_CLIENTSERVER
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8241 dictitem_T v;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8242 char_u *s = NULL;
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15850 diff changeset	8243 # ifdef MSWIN
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8244 long_u n = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8245 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8246 char_u *serverid;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8247
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8248 if (check_restricted() \|\| check_secure())
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8249 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8250 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8251 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8252 }
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8253 serverid = tv_get_string_chk(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8254 if (serverid == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8255 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8256 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8257 return; /* type error; errmsg already given */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8258 }
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15850 diff changeset	8259 # ifdef MSWIN
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8260 sscanf((const char *)serverid, SCANF_HEX_LONG_U, &n);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8261 if (n == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8262 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8263 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8264 {
11211 71311d899b42 patch 8.0.0492: a failing client-server request can make Vim hang Christian Brabandt <cb@256bit.org> parents: 11181 diff changeset	8265 s = serverGetReply((HWND)n, FALSE, FALSE, FALSE, 0);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8266 rettv->vval.v_number = (s != NULL);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8267 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8268 # else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8269 if (check_connection() == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8270 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8271
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8272 rettv->vval.v_number = serverPeekReply(X_DISPLAY,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8273 serverStrToWin(serverid), &s);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8274 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8275
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8276 if (argvars[1].v_type != VAR_UNKNOWN && rettv->vval.v_number > 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8277 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8278 char_u *retvar;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8279
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8280 v.di_tv.v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8281 v.di_tv.vval.v_string = vim_strsave(s);
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8282 retvar = tv_get_string_chk(&argvars[1]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8283 if (retvar != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8284 set_var(retvar, &v.di_tv, FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8285 vim_free(v.di_tv.vval.v_string);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8286 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8287 #else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8288 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8289 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8290 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8291
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8292 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8293 f_remote_read(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8294 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8295 char_u *r = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8296
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8297 #ifdef FEAT_CLIENTSERVER
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8298 char_u *serverid = tv_get_string_chk(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8299
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8300 if (serverid != NULL && !check_restricted() && !check_secure())
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8301 {
11211 71311d899b42 patch 8.0.0492: a failing client-server request can make Vim hang Christian Brabandt <cb@256bit.org> parents: 11181 diff changeset	8302 int timeout = 0;
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15850 diff changeset	8303 # ifdef MSWIN
11215 2e4877acfe0a patch 8.0.0494: build failure with older compiler on MS-Windows Christian Brabandt <cb@256bit.org> parents: 11211 diff changeset	8304 /* The server's HWND is encoded in the 'id' parameter */
2e4877acfe0a patch 8.0.0494: build failure with older compiler on MS-Windows Christian Brabandt <cb@256bit.org> parents: 11211 diff changeset	8305 long_u n = 0;
2e4877acfe0a patch 8.0.0494: build failure with older compiler on MS-Windows Christian Brabandt <cb@256bit.org> parents: 11211 diff changeset	8306 # endif
11211 71311d899b42 patch 8.0.0492: a failing client-server request can make Vim hang Christian Brabandt <cb@256bit.org> parents: 11181 diff changeset	8307
71311d899b42 patch 8.0.0492: a failing client-server request can make Vim hang Christian Brabandt <cb@256bit.org> parents: 11181 diff changeset	8308 if (argvars[1].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8309 timeout = tv_get_number(&argvars[1]);
11211 71311d899b42 patch 8.0.0492: a failing client-server request can make Vim hang Christian Brabandt <cb@256bit.org> parents: 11181 diff changeset	8310
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15850 diff changeset	8311 # ifdef MSWIN
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8312 sscanf((char *)serverid, SCANF_HEX_LONG_U, &n);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8313 if (n != 0)
11211 71311d899b42 patch 8.0.0492: a failing client-server request can make Vim hang Christian Brabandt <cb@256bit.org> parents: 11181 diff changeset	8314 r = serverGetReply((HWND)n, FALSE, TRUE, TRUE, timeout);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8315 if (r == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8316 # else
11211 71311d899b42 patch 8.0.0492: a failing client-server request can make Vim hang Christian Brabandt <cb@256bit.org> parents: 11181 diff changeset	8317 if (check_connection() == FAIL
71311d899b42 patch 8.0.0492: a failing client-server request can make Vim hang Christian Brabandt <cb@256bit.org> parents: 11181 diff changeset	8318 \|\| serverReadReply(X_DISPLAY, serverStrToWin(serverid),
71311d899b42 patch 8.0.0492: a failing client-server request can make Vim hang Christian Brabandt <cb@256bit.org> parents: 11181 diff changeset	8319 &r, FALSE, timeout) < 0)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8320 # endif
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	8321 emsg(_("E277: Unable to read a server reply"));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8322 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8323 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8324 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8325 rettv->vval.v_string = r;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8326 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8327
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8328 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8329 * "remote_send()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8330 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8331 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8332 f_remote_send(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8333 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8334 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8335 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8336 #ifdef FEAT_CLIENTSERVER
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8337 remote_common(argvars, rettv, FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8338 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8339 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8340
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8341 /*
11177 76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8342 * "remote_startserver()" function
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8343 */
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8344 static void
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8345 f_remote_startserver(typval_T argvars UNUSED, typval_T rettv UNUSED)
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8346 {
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8347 #ifdef FEAT_CLIENTSERVER
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8348 char_u *server = tv_get_string_chk(&argvars[0]);
11177 76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8349
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8350 if (server == NULL)
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8351 return; /* type error; errmsg already given */
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8352 if (serverName != NULL)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	8353 emsg(_("E941: already started a server"));
11177 76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8354 else
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8355 {
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8356 # ifdef FEAT_X11
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8357 if (check_connection() == OK)
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8358 serverRegisterName(X_DISPLAY, server);
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8359 # else
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8360 serverSetName(server);
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8361 # endif
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8362 }
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8363 #else
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	8364 emsg(_("E942: +clientserver feature not available"));
11177 76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8365 #endif
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8366 }
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8367
76fb679a310e patch 8.0.0475: not enough testing for the client-server feature Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	8368 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8369 * "remove()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8370 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8371 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8372 f_remove(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8373 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8374 char_u arg_errmsg = (char_u )N_("remove() argument");
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8375
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8376 if (argvars[0].v_type == VAR_DICT)
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17518 diff changeset	8377 dict_remove(argvars, rettv, arg_errmsg);
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	8378 else if (argvars[0].v_type == VAR_BLOB)
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17518 diff changeset	8379 blob_remove(argvars, rettv);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17518 diff changeset	8380 else if (argvars[0].v_type == VAR_LIST)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17518 diff changeset	8381 list_remove(argvars, rettv, arg_errmsg);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17518 diff changeset	8382 else
15571 4af72c724093 patch 8.1.0793: incorrect error messages for functions that take a Blob Bram Moolenaar <Bram@vim.org> parents: 15543 diff changeset	8383 semsg(_(e_listdictblobarg), "remove()");
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8384 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8385
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8386 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8387 * "rename({from}, {to})" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8388 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8389 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8390 f_rename(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8391 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8392 char_u buf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8393
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8394 if (check_restricted() \|\| check_secure())
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8395 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8396 else
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8397 rettv->vval.v_number = vim_rename(tv_get_string(&argvars[0]),
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8398 tv_get_string_buf(&argvars[1], buf));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8399 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8400
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8401 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8402 * "repeat()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8403 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8404 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8405 f_repeat(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8406 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8407 char_u *p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8408 int n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8409 int slen;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8410 int len;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8411 char_u *r;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8412 int i;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8413
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8414 n = (int)tv_get_number(&argvars[1]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8415 if (argvars[0].v_type == VAR_LIST)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8416 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8417 if (rettv_list_alloc(rettv) == OK && argvars[0].vval.v_list != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8418 while (n-- > 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8419 if (list_extend(rettv->vval.v_list,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8420 argvars[0].vval.v_list, NULL) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8421 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8422 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8423 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8424 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8425 p = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8426 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8427 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8428
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8429 slen = (int)STRLEN(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8430 len = slen * n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8431 if (len <= 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8432 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8433
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8434 r = alloc(len + 1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8435 if (r != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8436 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8437 for (i = 0; i < n; i++)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8438 mch_memmove(r + i * slen, p, (size_t)slen);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8439 r[len] = NUL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8440 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8441
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8442 rettv->vval.v_string = r;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8443 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8444 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8445
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8446 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8447 * "resolve()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8448 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8449 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8450 f_resolve(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8451 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8452 char_u *p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8453 #ifdef HAVE_READLINK
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8454 char_u *buf = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8455 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8456
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8457 p = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8458 #ifdef FEAT_SHORTCUT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8459 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8460 char_u *v = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8461
15774 c4efa095f323 patch 8.1.0894: MS-Windows: resolve() does not return a reparse point Bram Moolenaar <Bram@vim.org> parents: 15770 diff changeset	8462 v = mch_resolve_path(p, TRUE);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8463 if (v != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8464 rettv->vval.v_string = v;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8465 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8466 rettv->vval.v_string = vim_strsave(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8467 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8468 #else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8469 # ifdef HAVE_READLINK
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8470 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8471 char_u *cpy;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8472 int len;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8473 char_u *remain = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8474 char_u *q;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8475 int is_relative_to_current = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8476 int has_trailing_pathsep = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8477 int limit = 100;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8478
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8479 p = vim_strsave(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8480
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8481 if (p[0] == '.' && (vim_ispathsep(p[1])
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8482 \|\| (p[1] == '.' && (vim_ispathsep(p[2])))))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8483 is_relative_to_current = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8484
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8485 len = STRLEN(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8486 if (len > 0 && after_pathsep(p, p + len))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8487 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8488 has_trailing_pathsep = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8489 p[len - 1] = NUL; /* the trailing slash breaks readlink() */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8490 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8491
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8492 q = getnextcomp(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8493 if (*q != NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8494 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8495 /* Separate the first path component in "p", and keep the
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8496 * remainder (beginning with the path separator). */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8497 remain = vim_strsave(q - 1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8498 q[-1] = NUL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8499 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8500
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8501 buf = alloc(MAXPATHL + 1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8502 if (buf == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8503 goto fail;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8504
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8505 for (;;)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8506 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8507 for (;;)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8508 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8509 len = readlink((char )p, (char )buf, MAXPATHL);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8510 if (len <= 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8511 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8512 buf[len] = NUL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8513
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8514 if (limit-- == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8515 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8516 vim_free(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8517 vim_free(remain);
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	8518 emsg(_("E655: Too many symbolic links (cycle?)"));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8519 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8520 goto fail;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8521 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8522
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8523 /* Ensure that the result will have a trailing path separator
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8524 * if the argument has one. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8525 if (remain == NULL && has_trailing_pathsep)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8526 add_pathsep(buf);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8527
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8528 /* Separate the first path component in the link value and
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8529 * concatenate the remainders. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8530 q = getnextcomp(vim_ispathsep(*buf) ? buf + 1 : buf);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8531 if (*q != NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8532 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8533 if (remain == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8534 remain = vim_strsave(q - 1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8535 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8536 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8537 cpy = concat_str(q - 1, remain);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8538 if (cpy != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8539 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8540 vim_free(remain);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8541 remain = cpy;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8542 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8543 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8544 q[-1] = NUL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8545 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8546
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8547 q = gettail(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8548 if (q > p && *q == NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8549 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8550 /* Ignore trailing path separator. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8551 q[-1] = NUL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8552 q = gettail(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8553 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8554 if (q > p && !mch_isFullName(buf))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8555 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8556 /* symlink is relative to directory of argument */
16764 ef00b6bc186b patch 8.1.1384: using "int" for alloc() often results in compiler warnings Bram Moolenaar <Bram@vim.org> parents: 16752 diff changeset	8557 cpy = alloc(STRLEN(p) + STRLEN(buf) + 1);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8558 if (cpy != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8559 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8560 STRCPY(cpy, p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8561 STRCPY(gettail(cpy), buf);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8562 vim_free(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8563 p = cpy;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8564 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8565 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8566 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8567 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8568 vim_free(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8569 p = vim_strsave(buf);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8570 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8571 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8572
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8573 if (remain == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8574 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8575
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8576 /* Append the first path component of "remain" to "p". */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8577 q = getnextcomp(remain + 1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8578 len = q - remain - (*q != NUL);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8579 cpy = vim_strnsave(p, STRLEN(p) + len);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8580 if (cpy != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8581 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8582 STRNCAT(cpy, remain, len);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8583 vim_free(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8584 p = cpy;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8585 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8586 /* Shorten "remain". */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8587 if (*q != NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8588 STRMOVE(remain, q - 1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8589 else
13244 ac42c4b11dbc patch 8.0.1496: clearing a pointer takes two lines Christian Brabandt <cb@256bit.org> parents: 13236 diff changeset	8590 VIM_CLEAR(remain);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8591 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8592
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8593 /* If the result is a relative path name, make it explicitly relative to
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8594 * the current directory if and only if the argument had this form. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8595 if (!vim_ispathsep(*p))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8596 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8597 if (is_relative_to_current
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8598 && *p != NUL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8599 && !(p[0] == '.'
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8600 && (p[1] == NUL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8601 \|\| vim_ispathsep(p[1])
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8602 \|\| (p[1] == '.'
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8603 && (p[2] == NUL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8604 \|\| vim_ispathsep(p[2]))))))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8605 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8606 /* Prepend "./". */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8607 cpy = concat_str((char_u *)"./", p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8608 if (cpy != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8609 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8610 vim_free(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8611 p = cpy;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8612 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8613 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8614 else if (!is_relative_to_current)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8615 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8616 /* Strip leading "./". */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8617 q = p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8618 while (q[0] == '.' && vim_ispathsep(q[1]))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8619 q += 2;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8620 if (q > p)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8621 STRMOVE(p, p + 2);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8622 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8623 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8624
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8625 /* Ensure that the result will have no trailing path separator
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8626 * if the argument had none. But keep "/" or "//". */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8627 if (!has_trailing_pathsep)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8628 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8629 q = p + STRLEN(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8630 if (after_pathsep(p, q))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8631 *gettail_sep(p) = NUL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8632 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8633
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8634 rettv->vval.v_string = p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8635 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8636 # else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8637 rettv->vval.v_string = vim_strsave(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8638 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8639 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8640
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8641 simplify_filename(rettv->vval.v_string);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8642
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8643 #ifdef HAVE_READLINK
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8644 fail:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8645 vim_free(buf);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8646 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8647 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8648 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8649
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8650 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8651 * "reverse({list})" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8652 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8653 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8654 f_reverse(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8655 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8656 list_T *l;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8657 listitem_T li, ni;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8658
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	8659 if (argvars[0].v_type == VAR_BLOB)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	8660 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	8661 blob_T *b = argvars[0].vval.v_blob;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	8662 int i, len = blob_len(b);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	8663
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	8664 for (i = 0; i < len / 2; i++)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	8665 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	8666 int tmp = blob_get(b, i);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	8667
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	8668 blob_set(b, i, blob_get(b, len - i - 1));
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	8669 blob_set(b, len - i - 1, tmp);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	8670 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	8671 rettv_blob_set(rettv, b);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	8672 return;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	8673 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	8674
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8675 if (argvars[0].v_type != VAR_LIST)
15571 4af72c724093 patch 8.1.0793: incorrect error messages for functions that take a Blob Bram Moolenaar <Bram@vim.org> parents: 15543 diff changeset	8676 semsg(_(e_listblobarg), "reverse()");
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8677 else if ((l = argvars[0].vval.v_list) != NULL
15780 5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference Bram Moolenaar <Bram@vim.org> parents: 15774 diff changeset	8678 && !var_check_lock(l->lv_lock,
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8679 (char_u *)N_("reverse() argument"), TRUE))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8680 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8681 li = l->lv_last;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8682 l->lv_first = l->lv_last = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8683 l->lv_len = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8684 while (li != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8685 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8686 ni = li->li_prev;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8687 list_append(l, li);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8688 li = ni;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8689 }
11418 162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value Christian Brabandt <cb@256bit.org> parents: 11341 diff changeset	8690 rettv_list_set(rettv, l);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8691 l->lv_idx = l->lv_len - l->lv_idx - 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8692 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8693 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8694
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8695 #define SP_NOMOVE 0x01 /* don't move cursor */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8696 #define SP_REPEAT 0x02 /* repeat to find outer pair */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8697 #define SP_RETCOUNT 0x04 /* return matchcount */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8698 #define SP_SETPCMARK 0x08 /* set previous context mark */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8699 #define SP_START 0x10 /* accept match at start position */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8700 #define SP_SUBPAT 0x20 /* return nr of matching sub-pattern */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8701 #define SP_END 0x40 /* leave cursor at end of match */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8702 #define SP_COLUMN 0x80 /* start at cursor column */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8703
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8704 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8705 * Get flags for a search function.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8706 * Possibly sets "p_ws".
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8707 * Returns BACKWARD, FORWARD or zero (for an error).
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8708 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8709 static int
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8710 get_search_arg(typval_T varp, int flagsp)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8711 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8712 int dir = FORWARD;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8713 char_u *flags;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8714 char_u nbuf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8715 int mask;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8716
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8717 if (varp->v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8718 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8719 flags = tv_get_string_buf_chk(varp, nbuf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8720 if (flags == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8721 return 0; /* type error; errmsg already given */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8722 while (*flags != NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8723 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8724 switch (*flags)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8725 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8726 case 'b': dir = BACKWARD; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8727 case 'w': p_ws = TRUE; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8728 case 'W': p_ws = FALSE; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8729 default: mask = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8730 if (flagsp != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8731 switch (*flags)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8732 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8733 case 'c': mask = SP_START; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8734 case 'e': mask = SP_END; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8735 case 'm': mask = SP_RETCOUNT; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8736 case 'n': mask = SP_NOMOVE; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8737 case 'p': mask = SP_SUBPAT; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8738 case 'r': mask = SP_REPEAT; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8739 case 's': mask = SP_SETPCMARK; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8740 case 'z': mask = SP_COLUMN; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8741 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8742 if (mask == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8743 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	8744 semsg(_(e_invarg2), flags);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8745 dir = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8746 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8747 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8748 *flagsp \|= mask;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8749 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8750 if (dir == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8751 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8752 ++flags;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8753 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8754 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8755 return dir;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8756 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8757
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8758 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8759 * Shared by search() and searchpos() functions.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8760 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8761 static int
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8762 search_cmn(typval_T argvars, pos_T match_pos, int *flagsp)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8763 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8764 int flags;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8765 char_u *pat;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8766 pos_T pos;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8767 pos_T save_cursor;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8768 int save_p_ws = p_ws;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8769 int dir;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8770 int retval = 0; /* default: FAIL */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8771 long lnum_stop = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8772 proftime_T tm;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8773 #ifdef FEAT_RELTIME
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8774 long time_limit = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8775 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8776 int options = SEARCH_KEEP;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8777 int subpatnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8778
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8779 pat = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8780 dir = get_search_arg(&argvars[1], flagsp); /* may set p_ws */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8781 if (dir == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8782 goto theend;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8783 flags = *flagsp;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8784 if (flags & SP_START)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8785 options \|= SEARCH_START;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8786 if (flags & SP_END)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8787 options \|= SEARCH_END;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8788 if (flags & SP_COLUMN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8789 options \|= SEARCH_COL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8790
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8791 /* Optional arguments: line number to stop searching and timeout. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8792 if (argvars[1].v_type != VAR_UNKNOWN && argvars[2].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8793 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8794 lnum_stop = (long)tv_get_number_chk(&argvars[2], NULL);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8795 if (lnum_stop < 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8796 goto theend;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8797 #ifdef FEAT_RELTIME
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8798 if (argvars[3].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8799 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8800 time_limit = (long)tv_get_number_chk(&argvars[3], NULL);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8801 if (time_limit < 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8802 goto theend;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8803 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8804 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8805 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8806
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8807 #ifdef FEAT_RELTIME
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8808 /* Set the time limit, if there is one. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8809 profile_setlimit(time_limit, &tm);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8810 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8811
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8812 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8813 * This function does not accept SP_REPEAT and SP_RETCOUNT flags.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8814 * Check to make sure only those flags are set.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8815 * Also, Only the SP_NOMOVE or the SP_SETPCMARK flag can be set. Both
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8816 * flags cannot be set. Check for that condition also.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8817 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8818 if (((flags & (SP_REPEAT \| SP_RETCOUNT)) != 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8819 \|\| ((flags & SP_NOMOVE) && (flags & SP_SETPCMARK)))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8820 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	8821 semsg(_(e_invarg2), tv_get_string(&argvars[1]));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8822 goto theend;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8823 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8824
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8825 pos = save_cursor = curwin->w_cursor;
15239 db5d2429bda3 patch 8.1.0629: "gn" selects the wrong text with a multi-line match Bram Moolenaar <Bram@vim.org> parents: 15219 diff changeset	8826 subpatnum = searchit(curwin, curbuf, &pos, NULL, dir, pat, 1L,
11521 578df034735d patch 8.0.0643: when a pattern search is slow Vim becomes unusable Christian Brabandt <cb@256bit.org> parents: 11519 diff changeset	8827 options, RE_SEARCH, (linenr_T)lnum_stop, &tm, NULL);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8828 if (subpatnum != FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8829 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8830 if (flags & SP_SUBPAT)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8831 retval = subpatnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8832 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8833 retval = pos.lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8834 if (flags & SP_SETPCMARK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8835 setpcmark();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8836 curwin->w_cursor = pos;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8837 if (match_pos != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8838 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8839 /* Store the match cursor position */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8840 match_pos->lnum = pos.lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8841 match_pos->col = pos.col + 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8842 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8843 /* "/$" will put the cursor after the end of the line, may need to
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8844 * correct that here */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8845 check_cursor();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8846 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8847
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8848 /* If 'n' flag is used: restore cursor position. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8849 if (flags & SP_NOMOVE)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8850 curwin->w_cursor = save_cursor;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8851 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8852 curwin->w_set_curswant = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8853 theend:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8854 p_ws = save_p_ws;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8855
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8856 return retval;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8857 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8858
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8859 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8860
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8861 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8862 * round() is not in C90, use ceil() or floor() instead.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8863 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8864 float_T
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8865 vim_round(float_T f)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8866 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8867 return f > 0 ? floor(f + 0.5) : ceil(f - 0.5);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8868 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8869
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8870 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8871 * "round({float})" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8872 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8873 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8874 f_round(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8875 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8876 float_T f = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8877
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8878 rettv->v_type = VAR_FLOAT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8879 if (get_float_arg(argvars, &f) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8880 rettv->vval.v_float = vim_round(f);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8881 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8882 rettv->vval.v_float = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8883 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8884 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8885
16103 518f44125207 patch 8.1.1056: no eval function for Ruby Bram Moolenaar <Bram@vim.org> parents: 16078 diff changeset	8886 #ifdef FEAT_RUBY
518f44125207 patch 8.1.1056: no eval function for Ruby Bram Moolenaar <Bram@vim.org> parents: 16078 diff changeset	8887 /*
518f44125207 patch 8.1.1056: no eval function for Ruby Bram Moolenaar <Bram@vim.org> parents: 16078 diff changeset	8888 * "rubyeval()" function
518f44125207 patch 8.1.1056: no eval function for Ruby Bram Moolenaar <Bram@vim.org> parents: 16078 diff changeset	8889 */
518f44125207 patch 8.1.1056: no eval function for Ruby Bram Moolenaar <Bram@vim.org> parents: 16078 diff changeset	8890 static void
518f44125207 patch 8.1.1056: no eval function for Ruby Bram Moolenaar <Bram@vim.org> parents: 16078 diff changeset	8891 f_rubyeval(typval_T argvars, typval_T rettv)
518f44125207 patch 8.1.1056: no eval function for Ruby Bram Moolenaar <Bram@vim.org> parents: 16078 diff changeset	8892 {
518f44125207 patch 8.1.1056: no eval function for Ruby Bram Moolenaar <Bram@vim.org> parents: 16078 diff changeset	8893 char_u *str;
518f44125207 patch 8.1.1056: no eval function for Ruby Bram Moolenaar <Bram@vim.org> parents: 16078 diff changeset	8894 char_u buf[NUMBUFLEN];
518f44125207 patch 8.1.1056: no eval function for Ruby Bram Moolenaar <Bram@vim.org> parents: 16078 diff changeset	8895
518f44125207 patch 8.1.1056: no eval function for Ruby Bram Moolenaar <Bram@vim.org> parents: 16078 diff changeset	8896 str = tv_get_string_buf(&argvars[0], buf);
518f44125207 patch 8.1.1056: no eval function for Ruby Bram Moolenaar <Bram@vim.org> parents: 16078 diff changeset	8897 do_rubyeval(str, rettv);
518f44125207 patch 8.1.1056: no eval function for Ruby Bram Moolenaar <Bram@vim.org> parents: 16078 diff changeset	8898 }
518f44125207 patch 8.1.1056: no eval function for Ruby Bram Moolenaar <Bram@vim.org> parents: 16078 diff changeset	8899 #endif
518f44125207 patch 8.1.1056: no eval function for Ruby Bram Moolenaar <Bram@vim.org> parents: 16078 diff changeset	8900
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8901 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8902 * "screenattr()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8903 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8904 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8905 f_screenattr(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8906 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8907 int row;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8908 int col;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8909 int c;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8910
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8911 row = (int)tv_get_number_chk(&argvars[0], NULL) - 1;
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8912 col = (int)tv_get_number_chk(&argvars[1], NULL) - 1;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8913 if (row < 0 \|\| row >= screen_Rows
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8914 \|\| col < 0 \|\| col >= screen_Columns)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8915 c = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8916 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8917 c = ScreenAttrs[LineOffset[row] + col];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8918 rettv->vval.v_number = c;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8919 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8920
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8921 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8922 * "screenchar()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8923 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8924 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8925 f_screenchar(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8926 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8927 int row;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8928 int col;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8929 int off;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8930 int c;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8931
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8932 row = (int)tv_get_number_chk(&argvars[0], NULL) - 1;
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	8933 col = (int)tv_get_number_chk(&argvars[1], NULL) - 1;
16133 eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8934 if (row < 0 \|\| row >= screen_Rows \|\| col < 0 \|\| col >= screen_Columns)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8935 c = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8936 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8937 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8938 off = LineOffset[row] + col;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8939 if (enc_utf8 && ScreenLinesUC[off] != 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8940 c = ScreenLinesUC[off];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8941 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8942 c = ScreenLines[off];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8943 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8944 rettv->vval.v_number = c;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8945 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8946
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8947 /*
16133 eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8948 * "screenchars()" function
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8949 */
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8950 static void
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8951 f_screenchars(typval_T argvars, typval_T rettv)
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8952 {
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8953 int row;
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8954 int col;
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8955 int off;
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8956 int c;
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8957 int i;
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8958
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8959 if (rettv_list_alloc(rettv) == FAIL)
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8960 return;
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8961 row = (int)tv_get_number_chk(&argvars[0], NULL) - 1;
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8962 col = (int)tv_get_number_chk(&argvars[1], NULL) - 1;
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8963 if (row < 0 \|\| row >= screen_Rows \|\| col < 0 \|\| col >= screen_Columns)
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8964 return;
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8965
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8966 off = LineOffset[row] + col;
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8967 if (enc_utf8 && ScreenLinesUC[off] != 0)
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8968 c = ScreenLinesUC[off];
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8969 else
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8970 c = ScreenLines[off];
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8971 list_append_number(rettv->vval.v_list, (varnumber_T)c);
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8972
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8973 if (enc_utf8)
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8974
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8975 for (i = 0; i < Screen_mco && ScreenLinesC[i][off] != 0; ++i)
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8976 list_append_number(rettv->vval.v_list,
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8977 (varnumber_T)ScreenLinesC[i][off]);
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8978 }
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8979
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	8980 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8981 * "screencol()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8982 *
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8983 * First column is 1 to be consistent with virtcol().
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8984 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8985 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8986 f_screencol(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8987 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8988 rettv->vval.v_number = screen_screencol() + 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8989 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8990
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8991 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8992 * "screenrow()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8993 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8994 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8995 f_screenrow(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8996 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8997 rettv->vval.v_number = screen_screenrow() + 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8998 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	8999
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9000 /*
16133 eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9001 * "screenstring()" function
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9002 */
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9003 static void
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9004 f_screenstring(typval_T argvars, typval_T rettv)
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9005 {
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9006 int row;
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9007 int col;
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9008 int off;
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9009 int c;
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9010 int i;
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9011 char_u buf[MB_MAXBYTES + 1];
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9012 int buflen = 0;
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9013
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9014 rettv->vval.v_string = NULL;
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9015 rettv->v_type = VAR_STRING;
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9016
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9017 row = (int)tv_get_number_chk(&argvars[0], NULL) - 1;
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9018 col = (int)tv_get_number_chk(&argvars[1], NULL) - 1;
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9019 if (row < 0 \|\| row >= screen_Rows \|\| col < 0 \|\| col >= screen_Columns)
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9020 return;
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9021
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9022 off = LineOffset[row] + col;
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9023 if (enc_utf8 && ScreenLinesUC[off] != 0)
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9024 c = ScreenLinesUC[off];
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9025 else
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9026 c = ScreenLines[off];
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9027 buflen += mb_char2bytes(c, buf);
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9028
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9029 if (enc_utf8)
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9030 for (i = 0; i < Screen_mco && ScreenLinesC[i][off] != 0; ++i)
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9031 buflen += mb_char2bytes(ScreenLinesC[i][off], buf + buflen);
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9032
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9033 buf[buflen] = NUL;
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9034 rettv->vval.v_string = vim_strsave(buf);
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9035 }
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9036
eb087f8a26a8 patch 8.1.1071: cannot get composing characters from the screen Bram Moolenaar <Bram@vim.org> parents: 16127 diff changeset	9037 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9038 * "search()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9039 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9040 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9041 f_search(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9042 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9043 int flags = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9044
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9045 rettv->vval.v_number = search_cmn(argvars, NULL, &flags);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9046 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9047
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9048 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9049 * "searchdecl()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9050 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9051 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9052 f_searchdecl(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9053 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9054 int locally = 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9055 int thisblock = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9056 int error = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9057 char_u *name;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9058
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9059 rettv->vval.v_number = 1; /* default: FAIL */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9060
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9061 name = tv_get_string_chk(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9062 if (argvars[1].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9063 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9064 locally = (int)tv_get_number_chk(&argvars[1], &error) == 0;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9065 if (!error && argvars[2].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9066 thisblock = (int)tv_get_number_chk(&argvars[2], &error) != 0;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9067 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9068 if (!error && name != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9069 rettv->vval.v_number = find_decl(name, (int)STRLEN(name),
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9070 locally, thisblock, SEARCH_KEEP) == FAIL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9071 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9072
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9073 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9074 * Used by searchpair() and searchpairpos()
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9075 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9076 static int
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9077 searchpair_cmn(typval_T argvars, pos_T match_pos)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9078 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9079 char_u spat, mpat, *epat;
12722 7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9080 typval_T *skip;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9081 int save_p_ws = p_ws;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9082 int dir;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9083 int flags = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9084 char_u nbuf1[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9085 char_u nbuf2[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9086 int retval = 0; /* default: FAIL */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9087 long lnum_stop = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9088 long time_limit = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9089
14189 0181a2cad0a1 patch 8.1.0112: no error when using bad arguments with searchpair() Christian Brabandt <cb@256bit.org> parents: 14175 diff changeset	9090 /* Get the three pattern arguments: start, middle, end. Will result in an
0181a2cad0a1 patch 8.1.0112: no error when using bad arguments with searchpair() Christian Brabandt <cb@256bit.org> parents: 14175 diff changeset	9091 * error if not a valid argument. */
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9092 spat = tv_get_string_chk(&argvars[0]);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9093 mpat = tv_get_string_buf_chk(&argvars[1], nbuf1);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9094 epat = tv_get_string_buf_chk(&argvars[2], nbuf2);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9095 if (spat == NULL \|\| mpat == NULL \|\| epat == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9096 goto theend; /* type error */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9097
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9098 /* Handle the optional fourth argument: flags */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9099 dir = get_search_arg(&argvars[3], &flags); /* may set p_ws */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9100 if (dir == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9101 goto theend;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9102
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9103 /* Don't accept SP_END or SP_SUBPAT.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9104 * Only one of the SP_NOMOVE or SP_SETPCMARK flags can be set.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9105 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9106 if ((flags & (SP_END \| SP_SUBPAT)) != 0
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9107 \|\| ((flags & SP_NOMOVE) && (flags & SP_SETPCMARK)))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9108 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	9109 semsg(_(e_invarg2), tv_get_string(&argvars[3]));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9110 goto theend;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9111 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9112
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9113 /* Using 'r' implies 'W', otherwise it doesn't work. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9114 if (flags & SP_REPEAT)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9115 p_ws = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9116
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9117 /* Optional fifth argument: skip expression */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9118 if (argvars[3].v_type == VAR_UNKNOWN
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9119 \|\| argvars[4].v_type == VAR_UNKNOWN)
12722 7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9120 skip = NULL;
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9121 else
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9122 {
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9123 skip = &argvars[4];
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9124 if (skip->v_type != VAR_FUNC && skip->v_type != VAR_PARTIAL
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9125 && skip->v_type != VAR_STRING)
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9126 {
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9127 /* Type error */
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	9128 semsg(_(e_invarg2), tv_get_string(&argvars[4]));
12722 7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9129 goto theend;
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9130 }
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9131 if (argvars[5].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9132 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9133 lnum_stop = (long)tv_get_number_chk(&argvars[5], NULL);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9134 if (lnum_stop < 0)
14189 0181a2cad0a1 patch 8.1.0112: no error when using bad arguments with searchpair() Christian Brabandt <cb@256bit.org> parents: 14175 diff changeset	9135 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	9136 semsg(_(e_invarg2), tv_get_string(&argvars[5]));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9137 goto theend;
14189 0181a2cad0a1 patch 8.1.0112: no error when using bad arguments with searchpair() Christian Brabandt <cb@256bit.org> parents: 14175 diff changeset	9138 }
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9139 #ifdef FEAT_RELTIME
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9140 if (argvars[6].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9141 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9142 time_limit = (long)tv_get_number_chk(&argvars[6], NULL);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9143 if (time_limit < 0)
14189 0181a2cad0a1 patch 8.1.0112: no error when using bad arguments with searchpair() Christian Brabandt <cb@256bit.org> parents: 14175 diff changeset	9144 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	9145 semsg(_(e_invarg2), tv_get_string(&argvars[6]));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9146 goto theend;
14189 0181a2cad0a1 patch 8.1.0112: no error when using bad arguments with searchpair() Christian Brabandt <cb@256bit.org> parents: 14175 diff changeset	9147 }
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9148 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9149 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9150 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9151 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9152
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9153 retval = do_searchpair(spat, mpat, epat, dir, skip, flags,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9154 match_pos, lnum_stop, time_limit);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9155
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9156 theend:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9157 p_ws = save_p_ws;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9158
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9159 return retval;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9160 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9161
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9162 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9163 * "searchpair()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9164 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9165 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9166 f_searchpair(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9167 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9168 rettv->vval.v_number = searchpair_cmn(argvars, NULL);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9169 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9170
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9171 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9172 * "searchpairpos()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9173 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9174 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9175 f_searchpairpos(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9176 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9177 pos_T match_pos;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9178 int lnum = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9179 int col = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9180
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9181 if (rettv_list_alloc(rettv) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9182 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9183
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9184 if (searchpair_cmn(argvars, &match_pos) > 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9185 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9186 lnum = match_pos.lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9187 col = match_pos.col;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9188 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9189
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9190 list_append_number(rettv->vval.v_list, (varnumber_T)lnum);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9191 list_append_number(rettv->vval.v_list, (varnumber_T)col);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9192 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9193
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9194 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9195 * Search for a start/middle/end thing.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9196 * Used by searchpair(), see its documentation for the details.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9197 * Returns 0 or -1 for no match,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9198 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9199 long
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9200 do_searchpair(
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9201 char_u spat, / start pattern */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9202 char_u mpat, / middle pattern */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9203 char_u epat, / end pattern */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9204 int dir, /* BACKWARD or FORWARD */
12722 7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9205 typval_T skip, / skip expression */
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9206 int flags, /* SP_SETPCMARK and other SP_ values */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9207 pos_T *match_pos,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9208 linenr_T lnum_stop, /* stop at this line if not zero */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9209 long time_limit UNUSED) /* stop after this many msec */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9210 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9211 char_u *save_cpo;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9212 char_u pat, pat2 = NULL, *pat3 = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9213 long retval = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9214 pos_T pos;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9215 pos_T firstpos;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9216 pos_T foundpos;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9217 pos_T save_cursor;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9218 pos_T save_pos;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9219 int n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9220 int r;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9221 int nest = 1;
12722 7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9222 int use_skip = FALSE;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9223 int err;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9224 int options = SEARCH_KEEP;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9225 proftime_T tm;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9226
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9227 /* Make 'cpoptions' empty, the 'l' flag should not be used here. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9228 save_cpo = p_cpo;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9229 p_cpo = empty_option;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9230
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9231 #ifdef FEAT_RELTIME
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9232 /* Set the time limit, if there is one. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9233 profile_setlimit(time_limit, &tm);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9234 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9235
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9236 /* Make two search patterns: start/end (pat2, for in nested pairs) and
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9237 * start/middle/end (pat3, for the top pair). */
16764 ef00b6bc186b patch 8.1.1384: using "int" for alloc() often results in compiler warnings Bram Moolenaar <Bram@vim.org> parents: 16752 diff changeset	9238 pat2 = alloc(STRLEN(spat) + STRLEN(epat) + 17);
ef00b6bc186b patch 8.1.1384: using "int" for alloc() often results in compiler warnings Bram Moolenaar <Bram@vim.org> parents: 16752 diff changeset	9239 pat3 = alloc(STRLEN(spat) + STRLEN(mpat) + STRLEN(epat) + 25);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9240 if (pat2 == NULL \|\| pat3 == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9241 goto theend;
10514 1435e45ee6fa commit https://github.com/vim/vim/commit/6e450a57541676036203a72d40b2e604e938371e Christian Brabandt <cb@256bit.org> parents: 10501 diff changeset	9242 sprintf((char *)pat2, "\\m\$%s\\m\$\\\|\$%s\\m\$", spat, epat);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9243 if (*mpat == NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9244 STRCPY(pat3, pat2);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9245 else
10514 1435e45ee6fa commit https://github.com/vim/vim/commit/6e450a57541676036203a72d40b2e604e938371e Christian Brabandt <cb@256bit.org> parents: 10501 diff changeset	9246 sprintf((char *)pat3, "\\m\$%s\\m\$\\\|\$%s\\m\$\\\|\$%s\\m\$",
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9247 spat, epat, mpat);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9248 if (flags & SP_START)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9249 options \|= SEARCH_START;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9250
12722 7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9251 if (skip != NULL)
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9252 {
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9253 /* Empty string means to not use the skip expression. */
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9254 if (skip->v_type == VAR_STRING \|\| skip->v_type == VAR_FUNC)
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9255 use_skip = skip->vval.v_string != NULL
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9256 && *skip->vval.v_string != NUL;
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9257 }
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9258
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9259 save_cursor = curwin->w_cursor;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9260 pos = curwin->w_cursor;
11121 778c10516955 patch 8.0.0448: some macros are in lower case Christian Brabandt <cb@256bit.org> parents: 11105 diff changeset	9261 CLEAR_POS(&firstpos);
778c10516955 patch 8.0.0448: some macros are in lower case Christian Brabandt <cb@256bit.org> parents: 11105 diff changeset	9262 CLEAR_POS(&foundpos);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9263 pat = pat3;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9264 for (;;)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9265 {
15239 db5d2429bda3 patch 8.1.0629: "gn" selects the wrong text with a multi-line match Bram Moolenaar <Bram@vim.org> parents: 15219 diff changeset	9266 n = searchit(curwin, curbuf, &pos, NULL, dir, pat, 1L,
11521 578df034735d patch 8.0.0643: when a pattern search is slow Vim becomes unusable Christian Brabandt <cb@256bit.org> parents: 11519 diff changeset	9267 options, RE_SEARCH, lnum_stop, &tm, NULL);
11121 778c10516955 patch 8.0.0448: some macros are in lower case Christian Brabandt <cb@256bit.org> parents: 11105 diff changeset	9268 if (n == FAIL \|\| (firstpos.lnum != 0 && EQUAL_POS(pos, firstpos)))
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9269 /* didn't find it or found the first match again: FAIL */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9270 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9271
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9272 if (firstpos.lnum == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9273 firstpos = pos;
11121 778c10516955 patch 8.0.0448: some macros are in lower case Christian Brabandt <cb@256bit.org> parents: 11105 diff changeset	9274 if (EQUAL_POS(pos, foundpos))
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9275 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9276 /* Found the same position again. Can happen with a pattern that
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9277 * has "\zs" at the end and searching backwards. Advance one
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9278 * character and try again. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9279 if (dir == BACKWARD)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9280 decl(&pos);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9281 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9282 incl(&pos);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9283 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9284 foundpos = pos;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9285
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9286 /* clear the start flag to avoid getting stuck here */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9287 options &= ~SEARCH_START;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9288
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9289 /* If the skip pattern matches, ignore this match. */
12722 7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9290 if (use_skip)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9291 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9292 save_pos = curwin->w_cursor;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9293 curwin->w_cursor = pos;
12722 7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9294 err = FALSE;
7749260f261c patch 8.0.1239: cannot use a lambda for the skip argument to searchpair() Christian Brabandt <cb@256bit.org> parents: 12716 diff changeset	9295 r = eval_expr_to_bool(skip, &err);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9296 curwin->w_cursor = save_pos;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9297 if (err)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9298 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9299 /* Evaluating {skip} caused an error, break here. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9300 curwin->w_cursor = save_cursor;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9301 retval = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9302 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9303 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9304 if (r)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9305 continue;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9306 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9307
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9308 if ((dir == BACKWARD && n == 3) \|\| (dir == FORWARD && n == 2))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9309 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9310 /* Found end when searching backwards or start when searching
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9311 * forward: nested pair. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9312 ++nest;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9313 pat = pat2; /* nested, don't search for middle */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9314 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9315 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9316 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9317 /* Found end when searching forward or start when searching
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9318 * backward: end of (nested) pair; or found middle in outer pair. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9319 if (--nest == 1)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9320 pat = pat3; /* outer level, search for middle */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9321 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9322
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9323 if (nest == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9324 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9325 /* Found the match: return matchcount or line number. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9326 if (flags & SP_RETCOUNT)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9327 ++retval;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9328 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9329 retval = pos.lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9330 if (flags & SP_SETPCMARK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9331 setpcmark();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9332 curwin->w_cursor = pos;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9333 if (!(flags & SP_REPEAT))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9334 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9335 nest = 1; /* search for next unmatched */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9336 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9337 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9338
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9339 if (match_pos != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9340 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9341 /* Store the match cursor position */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9342 match_pos->lnum = curwin->w_cursor.lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9343 match_pos->col = curwin->w_cursor.col + 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9344 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9345
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9346 /* If 'n' flag is used or search failed: restore cursor position. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9347 if ((flags & SP_NOMOVE) \|\| retval == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9348 curwin->w_cursor = save_cursor;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9349
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9350 theend:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9351 vim_free(pat2);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9352 vim_free(pat3);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9353 if (p_cpo == empty_option)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9354 p_cpo = save_cpo;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9355 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9356 /* Darn, evaluating the {skip} expression changed the value. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9357 free_string_option(save_cpo);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9358
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9359 return retval;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9360 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9361
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9362 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9363 * "searchpos()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9364 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9365 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9366 f_searchpos(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9367 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9368 pos_T match_pos;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9369 int lnum = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9370 int col = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9371 int n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9372 int flags = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9373
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9374 if (rettv_list_alloc(rettv) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9375 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9376
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9377 n = search_cmn(argvars, &match_pos, &flags);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9378 if (n > 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9379 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9380 lnum = match_pos.lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9381 col = match_pos.col;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9382 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9383
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9384 list_append_number(rettv->vval.v_list, (varnumber_T)lnum);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9385 list_append_number(rettv->vval.v_list, (varnumber_T)col);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9386 if (flags & SP_SUBPAT)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9387 list_append_number(rettv->vval.v_list, (varnumber_T)n);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9388 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9389
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9390 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9391 f_server2client(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9392 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9393 #ifdef FEAT_CLIENTSERVER
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9394 char_u buf[NUMBUFLEN];
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9395 char_u *server = tv_get_string_chk(&argvars[0]);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9396 char_u *reply = tv_get_string_buf_chk(&argvars[1], buf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9397
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9398 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9399 if (server == NULL \|\| reply == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9400 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9401 if (check_restricted() \|\| check_secure())
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9402 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9403 # ifdef FEAT_X11
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9404 if (check_connection() == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9405 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9406 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9407
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9408 if (serverSendReply(server, reply) < 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9409 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	9410 emsg(_("E258: Unable to send to client"));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9411 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9412 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9413 rettv->vval.v_number = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9414 #else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9415 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9416 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9417 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9418
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9419 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9420 f_serverlist(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9421 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9422 char_u *r = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9423
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9424 #ifdef FEAT_CLIENTSERVER
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15850 diff changeset	9425 # ifdef MSWIN
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9426 r = serverGetVimNames();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9427 # else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9428 make_connection();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9429 if (X_DISPLAY != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9430 r = serverGetVimNames(X_DISPLAY);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9431 # endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9432 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9433 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9434 rettv->vval.v_string = r;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9435 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9436
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9437 /*
12319 c7e95667d14b patch 8.0.1039: cannot change a line in not current buffer Christian Brabandt <cb@256bit.org> parents: 12317 diff changeset	9438 * "setbufline()" function
c7e95667d14b patch 8.0.1039: cannot change a line in not current buffer Christian Brabandt <cb@256bit.org> parents: 12317 diff changeset	9439 */
c7e95667d14b patch 8.0.1039: cannot change a line in not current buffer Christian Brabandt <cb@256bit.org> parents: 12317 diff changeset	9440 static void
14391 46f14852a919 patch 8.1.0210: still a few K&R function declarations Christian Brabandt <cb@256bit.org> parents: 14375 diff changeset	9441 f_setbufline(typval_T argvars, typval_T rettv)
12319 c7e95667d14b patch 8.0.1039: cannot change a line in not current buffer Christian Brabandt <cb@256bit.org> parents: 12317 diff changeset	9442 {
c7e95667d14b patch 8.0.1039: cannot change a line in not current buffer Christian Brabandt <cb@256bit.org> parents: 12317 diff changeset	9443 linenr_T lnum;
c7e95667d14b patch 8.0.1039: cannot change a line in not current buffer Christian Brabandt <cb@256bit.org> parents: 12317 diff changeset	9444 buf_T *buf;
c7e95667d14b patch 8.0.1039: cannot change a line in not current buffer Christian Brabandt <cb@256bit.org> parents: 12317 diff changeset	9445
15355 73b153ed5af8 patch 8.1.0685: get_buf_tv() is named inconsistently Bram Moolenaar <Bram@vim.org> parents: 15343 diff changeset	9446 buf = tv_get_buf(&argvars[0], FALSE);
12319 c7e95667d14b patch 8.0.1039: cannot change a line in not current buffer Christian Brabandt <cb@256bit.org> parents: 12317 diff changeset	9447 if (buf == NULL)
c7e95667d14b patch 8.0.1039: cannot change a line in not current buffer Christian Brabandt <cb@256bit.org> parents: 12317 diff changeset	9448 rettv->vval.v_number = 1; /* FAIL */
c7e95667d14b patch 8.0.1039: cannot change a line in not current buffer Christian Brabandt <cb@256bit.org> parents: 12317 diff changeset	9449 else
c7e95667d14b patch 8.0.1039: cannot change a line in not current buffer Christian Brabandt <cb@256bit.org> parents: 12317 diff changeset	9450 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9451 lnum = tv_get_lnum_buf(&argvars[1], buf);
14039 acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	9452 set_buffer_lines(buf, lnum, FALSE, &argvars[2], rettv);
12319 c7e95667d14b patch 8.0.1039: cannot change a line in not current buffer Christian Brabandt <cb@256bit.org> parents: 12317 diff changeset	9453 }
c7e95667d14b patch 8.0.1039: cannot change a line in not current buffer Christian Brabandt <cb@256bit.org> parents: 12317 diff changeset	9454 }
c7e95667d14b patch 8.0.1039: cannot change a line in not current buffer Christian Brabandt <cb@256bit.org> parents: 12317 diff changeset	9455
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9456 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9457 f_setcharsearch(typval_T argvars, typval_T rettv UNUSED)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9458 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9459 dict_T *d;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9460 dictitem_T *di;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9461 char_u *csearch;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9462
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9463 if (argvars[0].v_type != VAR_DICT)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9464 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	9465 emsg(_(e_dictreq));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9466 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9467 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9468
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9469 if ((d = argvars[0].vval.v_dict) != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9470 {
15146 7903dce131d4 patch 8.1.0583: using illogical name for get_dict_number()/get_dict_string() Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	9471 csearch = dict_get_string(d, (char_u *)"char", FALSE);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9472 if (csearch != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9473 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9474 if (enc_utf8)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9475 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9476 int pcc[MAX_MCO];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9477 int c = utfc_ptr2char(csearch, pcc);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9478
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9479 set_last_csearch(c, csearch, utfc_ptr2len(csearch));
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9480 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9481 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9482 set_last_csearch(PTR2CHAR(csearch),
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9483 csearch, MB_PTR2LEN(csearch));
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9484 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9485
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9486 di = dict_find(d, (char_u *)"forward", -1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9487 if (di != NULL)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9488 set_csearch_direction((int)tv_get_number(&di->di_tv)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9489 ? FORWARD : BACKWARD);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9490
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9491 di = dict_find(d, (char_u *)"until", -1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9492 if (di != NULL)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9493 set_csearch_until(!!tv_get_number(&di->di_tv));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9494 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9495 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9496
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9497 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9498 * "setcmdpos()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9499 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9500 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9501 f_setcmdpos(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9502 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9503 int pos = (int)tv_get_number(&argvars[0]) - 1;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9504
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9505 if (pos >= 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9506 rettv->vval.v_number = set_cmdline_pos(pos);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9507 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9508
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9509 /*
16604 1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	9510 * "setenv()" function
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	9511 */
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	9512 static void
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	9513 f_setenv(typval_T argvars, typval_T rettv UNUSED)
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	9514 {
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	9515 char_u namebuf[NUMBUFLEN];
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	9516 char_u valbuf[NUMBUFLEN];
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	9517 char_u *name = tv_get_string_buf(&argvars[0], namebuf);
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	9518
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	9519 if (argvars[1].v_type == VAR_SPECIAL
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	9520 && argvars[1].vval.v_number == VVAL_NULL)
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	9521 vim_unsetenv(name);
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	9522 else
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	9523 vim_setenv(name, tv_get_string_buf(&argvars[1], valbuf));
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	9524 }
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	9525
1e0a5f09fdf1 patch 8.1.1305: there is no easy way to manipulate environment variables Bram Moolenaar <Bram@vim.org> parents: 16600 diff changeset	9526 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9527 * "setfperm({fname}, {mode})" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9528 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9529 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9530 f_setfperm(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9531 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9532 char_u *fname;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9533 char_u modebuf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9534 char_u *mode_str;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9535 int i;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9536 int mask;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9537 int mode = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9538
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9539 rettv->vval.v_number = 0;
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9540 fname = tv_get_string_chk(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9541 if (fname == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9542 return;
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9543 mode_str = tv_get_string_buf_chk(&argvars[1], modebuf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9544 if (mode_str == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9545 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9546 if (STRLEN(mode_str) != 9)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9547 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	9548 semsg(_(e_invarg2), mode_str);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9549 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9550 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9551
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9552 mask = 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9553 for (i = 8; i >= 0; --i)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9554 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9555 if (mode_str[i] != '-')
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9556 mode \|= mask;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9557 mask = mask << 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9558 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9559 rettv->vval.v_number = mch_setperm(fname, mode) == OK;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9560 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9561
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9562 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9563 * "setline()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9564 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9565 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9566 f_setline(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9567 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9568 linenr_T lnum = tv_get_lnum(&argvars[0]);
12319 c7e95667d14b patch 8.0.1039: cannot change a line in not current buffer Christian Brabandt <cb@256bit.org> parents: 12317 diff changeset	9569
14039 acb2dc112b06 patch 8.1.0037: cannot easily append lines to another buffer Christian Brabandt <cb@256bit.org> parents: 14019 diff changeset	9570 set_buffer_lines(curbuf, lnum, FALSE, &argvars[1], rettv);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9571 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9572
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9573 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9574 * "setpos()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9575 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9576 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9577 f_setpos(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9578 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9579 pos_T pos;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9580 int fnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9581 char_u *name;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9582 colnr_T curswant = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9583
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9584 rettv->vval.v_number = -1;
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9585 name = tv_get_string_chk(argvars);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9586 if (name != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9587 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9588 if (list2fpos(&argvars[1], &pos, &fnum, &curswant) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9589 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9590 if (--pos.col < 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9591 pos.col = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9592 if (name[0] == '.' && name[1] == NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9593 {
10732 390ad2cccd3f patch 8.0.0256: missing changes to one file breaks test Christian Brabandt <cb@256bit.org> parents: 10722 diff changeset	9594 /* set cursor; "fnum" is ignored */
390ad2cccd3f patch 8.0.0256: missing changes to one file breaks test Christian Brabandt <cb@256bit.org> parents: 10722 diff changeset	9595 curwin->w_cursor = pos;
390ad2cccd3f patch 8.0.0256: missing changes to one file breaks test Christian Brabandt <cb@256bit.org> parents: 10722 diff changeset	9596 if (curswant >= 0)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9597 {
10732 390ad2cccd3f patch 8.0.0256: missing changes to one file breaks test Christian Brabandt <cb@256bit.org> parents: 10722 diff changeset	9598 curwin->w_curswant = curswant - 1;
390ad2cccd3f patch 8.0.0256: missing changes to one file breaks test Christian Brabandt <cb@256bit.org> parents: 10722 diff changeset	9599 curwin->w_set_curswant = FALSE;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9600 }
10732 390ad2cccd3f patch 8.0.0256: missing changes to one file breaks test Christian Brabandt <cb@256bit.org> parents: 10722 diff changeset	9601 check_cursor();
390ad2cccd3f patch 8.0.0256: missing changes to one file breaks test Christian Brabandt <cb@256bit.org> parents: 10722 diff changeset	9602 rettv->vval.v_number = 0;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9603 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9604 else if (name[0] == '\'' && name[1] != NUL && name[2] == NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9605 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9606 /* set mark */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9607 if (setmark_pos(name[1], &pos, fnum) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9608 rettv->vval.v_number = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9609 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9610 else
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	9611 emsg(_(e_invarg));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9612 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9613 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9614 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9615
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9616 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9617 * "setreg()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9618 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9619 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9620 f_setreg(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9621 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9622 int regname;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9623 char_u *strregname;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9624 char_u *stropt;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9625 char_u *strval;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9626 int append;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9627 char_u yank_type;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9628 long block_len;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9629
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9630 block_len = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9631 yank_type = MAUTO;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9632 append = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9633
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9634 strregname = tv_get_string_chk(argvars);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9635 rettv->vval.v_number = 1; /* FAIL is default */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9636
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9637 if (strregname == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9638 return; /* type error; errmsg already given */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9639 regname = *strregname;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9640 if (regname == 0 \|\| regname == '@')
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9641 regname = '"';
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9642
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9643 if (argvars[2].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9644 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9645 stropt = tv_get_string_chk(&argvars[2]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9646 if (stropt == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9647 return; /* type error */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9648 for (; *stropt != NUL; ++stropt)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9649 switch (*stropt)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9650 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9651 case 'a': case 'A': /* append */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9652 append = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9653 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9654 case 'v': case 'c': /* character-wise selection */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9655 yank_type = MCHAR;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9656 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9657 case 'V': case 'l': /* line-wise selection */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9658 yank_type = MLINE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9659 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9660 case 'b': case Ctrl_V: /* block-wise selection */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9661 yank_type = MBLOCK;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9662 if (VIM_ISDIGIT(stropt[1]))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9663 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9664 ++stropt;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9665 block_len = getdigits(&stropt) - 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9666 --stropt;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9667 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9668 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9669 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9670 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9671
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9672 if (argvars[1].v_type == VAR_LIST)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9673 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9674 char_u **lstval;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9675 char_u **allocval;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9676 char_u buf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9677 char_u **curval;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9678 char_u **curallocval;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9679 list_T *ll = argvars[1].vval.v_list;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9680 listitem_T *li;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9681 int len;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9682
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9683 /* If the list is NULL handle like an empty list. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9684 len = ll == NULL ? 0 : ll->lv_len;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9685
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9686 /* First half: use for pointers to result lines; second half: use for
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9687 * pointers to allocated copies. */
16825 ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u " causes a lot of type casts Bram Moolenaar <Bram@vim.org>* parents: 16817 diff changeset	9688 lstval = ALLOC_MULT(char_u , (len + 1) 2);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9689 if (lstval == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9690 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9691 curval = lstval;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9692 allocval = lstval + len + 2;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9693 curallocval = allocval;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9694
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9695 for (li = ll == NULL ? NULL : ll->lv_first; li != NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9696 li = li->li_next)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9697 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9698 strval = tv_get_string_buf_chk(&li->li_tv, buf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9699 if (strval == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9700 goto free_lstval;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9701 if (strval == buf)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9702 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9703 /* Need to make a copy, next tv_get_string_buf_chk() will
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9704 * overwrite the string. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9705 strval = vim_strsave(buf);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9706 if (strval == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9707 goto free_lstval;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9708 *curallocval++ = strval;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9709 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9710 *curval++ = strval;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9711 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9712 *curval++ = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9713
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9714 write_reg_contents_lst(regname, lstval, -1,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9715 append, yank_type, block_len);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9716 free_lstval:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9717 while (curallocval > allocval)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9718 vim_free(*--curallocval);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9719 vim_free(lstval);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9720 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9721 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9722 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9723 strval = tv_get_string_chk(&argvars[1]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9724 if (strval == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9725 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9726 write_reg_contents_ex(regname, strval, -1,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9727 append, yank_type, block_len);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9728 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9729 rettv->vval.v_number = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9730 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9731
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9732 /*
15016 c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9733 * "settagstack()" function
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9734 */
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9735 static void
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9736 f_settagstack(typval_T argvars, typval_T rettv)
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9737 {
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9738 static char *e_invact2 = N_("E962: Invalid action: '%s'");
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9739 win_T *wp;
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9740 dict_T *d;
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9741 int action = 'r';
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9742
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9743 rettv->vval.v_number = -1;
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9744
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9745 // first argument: window number or id
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9746 wp = find_win_by_nr_or_id(&argvars[0]);
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9747 if (wp == NULL)
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9748 return;
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9749
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9750 // second argument: dict with items to set in the tag stack
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9751 if (argvars[1].v_type != VAR_DICT)
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9752 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	9753 emsg(_(e_dictreq));
15016 c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9754 return;
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9755 }
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9756 d = argvars[1].vval.v_dict;
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9757 if (d == NULL)
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9758 return;
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9759
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9760 // third argument: action - 'a' for append and 'r' for replace.
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9761 // default is to replace the stack.
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9762 if (argvars[2].v_type == VAR_UNKNOWN)
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9763 action = 'r';
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9764 else if (argvars[2].v_type == VAR_STRING)
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9765 {
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9766 char_u *actstr;
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9767 actstr = tv_get_string_chk(&argvars[2]);
15016 c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9768 if (actstr == NULL)
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9769 return;
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9770 if ((actstr == 'r' \|\| actstr == 'a') && actstr[1] == NUL)
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9771 action = *actstr;
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9772 else
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9773 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	9774 semsg(_(e_invact2), actstr);
15016 c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9775 return;
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9776 }
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9777 }
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9778 else
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9779 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	9780 emsg(_(e_stringreq));
15016 c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9781 return;
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9782 }
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9783
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9784 if (set_tagstack(wp, d, action) == OK)
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9785 rettv->vval.v_number = 0;
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9786 }
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14966 diff changeset	9787
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9788 #ifdef FEAT_CRYPT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9789 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9790 * "sha256({string})" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9791 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9792 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9793 f_sha256(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9794 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9795 char_u *p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9796
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9797 p = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9798 rettv->vval.v_string = vim_strsave(
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9799 sha256_bytes(p, (int)STRLEN(p), NULL, 0));
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9800 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9801 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9802 #endif /* FEAT_CRYPT */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9803
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9804 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9805 * "shellescape({string})" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9806 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9807 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9808 f_shellescape(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9809 {
11484 3933a3bf9385 patch 8.0.0625: shellescape() always escapes a newline Christian Brabandt <cb@256bit.org> parents: 11461 diff changeset	9810 int do_special = non_zero_arg(&argvars[1]);
3933a3bf9385 patch 8.0.0625: shellescape() always escapes a newline Christian Brabandt <cb@256bit.org> parents: 11461 diff changeset	9811
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9812 rettv->vval.v_string = vim_strsave_shellescape(
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9813 tv_get_string(&argvars[0]), do_special, do_special);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9814 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9815 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9816
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9817 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9818 * shiftwidth() function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9819 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9820 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9821 f_shiftwidth(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9822 {
15062 3a94f7918980 patch 8.1.0542: shiftwidth() does not take 'vartabstop' into account Bram Moolenaar <Bram@vim.org> parents: 15020 diff changeset	9823 rettv->vval.v_number = 0;
3a94f7918980 patch 8.1.0542: shiftwidth() does not take 'vartabstop' into account Bram Moolenaar <Bram@vim.org> parents: 15020 diff changeset	9824
3a94f7918980 patch 8.1.0542: shiftwidth() does not take 'vartabstop' into account Bram Moolenaar <Bram@vim.org> parents: 15020 diff changeset	9825 if (argvars[0].v_type != VAR_UNKNOWN)
3a94f7918980 patch 8.1.0542: shiftwidth() does not take 'vartabstop' into account Bram Moolenaar <Bram@vim.org> parents: 15020 diff changeset	9826 {
3a94f7918980 patch 8.1.0542: shiftwidth() does not take 'vartabstop' into account Bram Moolenaar <Bram@vim.org> parents: 15020 diff changeset	9827 long col;
3a94f7918980 patch 8.1.0542: shiftwidth() does not take 'vartabstop' into account Bram Moolenaar <Bram@vim.org> parents: 15020 diff changeset	9828
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9829 col = (long)tv_get_number_chk(argvars, NULL);
15062 3a94f7918980 patch 8.1.0542: shiftwidth() does not take 'vartabstop' into account Bram Moolenaar <Bram@vim.org> parents: 15020 diff changeset	9830 if (col < 0)
3a94f7918980 patch 8.1.0542: shiftwidth() does not take 'vartabstop' into account Bram Moolenaar <Bram@vim.org> parents: 15020 diff changeset	9831 return; // type error; errmsg already given
3a94f7918980 patch 8.1.0542: shiftwidth() does not take 'vartabstop' into account Bram Moolenaar <Bram@vim.org> parents: 15020 diff changeset	9832 #ifdef FEAT_VARTABS
3a94f7918980 patch 8.1.0542: shiftwidth() does not take 'vartabstop' into account Bram Moolenaar <Bram@vim.org> parents: 15020 diff changeset	9833 rettv->vval.v_number = get_sw_value_col(curbuf, col);
3a94f7918980 patch 8.1.0542: shiftwidth() does not take 'vartabstop' into account Bram Moolenaar <Bram@vim.org> parents: 15020 diff changeset	9834 return;
3a94f7918980 patch 8.1.0542: shiftwidth() does not take 'vartabstop' into account Bram Moolenaar <Bram@vim.org> parents: 15020 diff changeset	9835 #endif
3a94f7918980 patch 8.1.0542: shiftwidth() does not take 'vartabstop' into account Bram Moolenaar <Bram@vim.org> parents: 15020 diff changeset	9836 }
3a94f7918980 patch 8.1.0542: shiftwidth() does not take 'vartabstop' into account Bram Moolenaar <Bram@vim.org> parents: 15020 diff changeset	9837
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9838 rettv->vval.v_number = get_sw_value(curbuf);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9839 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9840
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9841 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9842 * "simplify()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9843 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9844 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9845 f_simplify(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9846 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9847 char_u *p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9848
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9849 p = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9850 rettv->vval.v_string = vim_strsave(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9851 simplify_filename(rettv->vval.v_string); /* simplify in place */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9852 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9853 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9854
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9855 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9856 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9857 * "sin()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9858 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9859 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9860 f_sin(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9861 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9862 float_T f = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9863
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9864 rettv->v_type = VAR_FLOAT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9865 if (get_float_arg(argvars, &f) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9866 rettv->vval.v_float = sin(f);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9867 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9868 rettv->vval.v_float = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9869 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9870
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9871 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9872 * "sinh()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9873 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9874 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9875 f_sinh(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9876 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9877 float_T f = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9878
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9879 rettv->v_type = VAR_FLOAT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9880 if (get_float_arg(argvars, &f) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9881 rettv->vval.v_float = sinh(f);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9882 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9883 rettv->vval.v_float = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9884 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9885 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9886
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9887 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9888 * "soundfold({word})" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9889 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9890 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9891 f_soundfold(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9892 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9893 char_u *s;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9894
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9895 rettv->v_type = VAR_STRING;
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9896 s = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9897 #ifdef FEAT_SPELL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9898 rettv->vval.v_string = eval_soundfold(s);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9899 #else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9900 rettv->vval.v_string = vim_strsave(s);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9901 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9902 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9903
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9904 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9905 * "spellbadword()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9906 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9907 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9908 f_spellbadword(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9909 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9910 char_u word = (char_u )"";
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9911 hlf_T attr = HLF_COUNT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9912 int len = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9913
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9914 if (rettv_list_alloc(rettv) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9915 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9916
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9917 #ifdef FEAT_SPELL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9918 if (argvars[0].v_type == VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9919 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9920 /* Find the start and length of the badly spelled word. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9921 len = spell_move_to(curwin, FORWARD, TRUE, TRUE, &attr);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9922 if (len != 0)
13088 3dd37eec73f0 patch 8.0.1419: cursor column is not updated after ]s Christian Brabandt <cb@256bit.org> parents: 13070 diff changeset	9923 {
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9924 word = ml_get_cursor();
13088 3dd37eec73f0 patch 8.0.1419: cursor column is not updated after ]s Christian Brabandt <cb@256bit.org> parents: 13070 diff changeset	9925 curwin->w_set_curswant = TRUE;
3dd37eec73f0 patch 8.0.1419: cursor column is not updated after ]s Christian Brabandt <cb@256bit.org> parents: 13070 diff changeset	9926 }
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9927 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9928 else if (curwin->w_p_spell && *curbuf->b_s.b_p_spl != NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9929 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9930 char_u *str = tv_get_string_chk(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9931 int capcol = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9932
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9933 if (str != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9934 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9935 /* Check the argument for spelling. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9936 while (*str != NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9937 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9938 len = spell_check(curwin, str, &attr, &capcol, FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9939 if (attr != HLF_COUNT)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9940 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9941 word = str;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9942 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9943 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9944 str += len;
14368 e78ce11f310b patch 8.1.0199: spellbadword() does not check for caps error Christian Brabandt <cb@256bit.org> parents: 14343 diff changeset	9945 capcol -= len;
17672 d63b44015f4d patch 8.1.1833: allocating a bit too much when there is no bad word. Bram Moolenaar <Bram@vim.org> parents: 17670 diff changeset	9946 len = 0;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9947 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9948 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9949 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9950 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9951
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9952 list_append_string(rettv->vval.v_list, word, len);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9953 list_append_string(rettv->vval.v_list, (char_u *)(
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9954 attr == HLF_SPB ? "bad" :
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9955 attr == HLF_SPR ? "rare" :
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9956 attr == HLF_SPL ? "local" :
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9957 attr == HLF_SPC ? "caps" :
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9958 ""), -1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9959 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9960
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9961 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9962 * "spellsuggest()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9963 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9964 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9965 f_spellsuggest(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9966 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9967 #ifdef FEAT_SPELL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9968 char_u *str;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9969 int typeerr = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9970 int maxcount;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9971 garray_T ga;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9972 int i;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9973 listitem_T *li;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9974 int need_capital = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9975 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9976
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9977 if (rettv_list_alloc(rettv) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9978 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9979
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9980 #ifdef FEAT_SPELL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9981 if (curwin->w_p_spell && *curwin->w_s->b_p_spl != NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9982 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9983 str = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9984 if (argvars[1].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9985 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9986 maxcount = (int)tv_get_number_chk(&argvars[1], &typeerr);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9987 if (maxcount <= 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9988 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9989 if (argvars[2].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9990 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	9991 need_capital = (int)tv_get_number_chk(&argvars[2], &typeerr);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9992 if (typeerr)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9993 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9994 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9995 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9996 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9997 maxcount = 25;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9998
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	9999 spell_suggest_list(&ga, str, maxcount, need_capital, FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10000
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10001 for (i = 0; i < ga.ga_len; ++i)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10002 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10003 str = ((char_u **)ga.ga_data)[i];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10004
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10005 li = listitem_alloc();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10006 if (li == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10007 vim_free(str);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10008 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10009 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10010 li->li_tv.v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10011 li->li_tv.v_lock = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10012 li->li_tv.vval.v_string = str;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10013 list_append(rettv->vval.v_list, li);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10014 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10015 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10016 ga_clear(&ga);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10017 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10018 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10019 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10020
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10021 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10022 f_split(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10023 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10024 char_u *str;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10025 char_u *end;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10026 char_u *pat = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10027 regmatch_T regmatch;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10028 char_u patbuf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10029 char_u *save_cpo;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10030 int match;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10031 colnr_T col = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10032 int keepempty = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10033 int typeerr = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10034
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10035 /* Make 'cpoptions' empty, the 'l' flag should not be used here. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10036 save_cpo = p_cpo;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10037 p_cpo = (char_u *)"";
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10038
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10039 str = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10040 if (argvars[1].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10041 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10042 pat = tv_get_string_buf_chk(&argvars[1], patbuf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10043 if (pat == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10044 typeerr = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10045 if (argvars[2].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10046 keepempty = (int)tv_get_number_chk(&argvars[2], &typeerr);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10047 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10048 if (pat == NULL \|\| *pat == NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10049 pat = (char_u *)"[\\x01- ]\\+";
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10050
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10051 if (rettv_list_alloc(rettv) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10052 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10053 if (typeerr)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10054 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10055
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10056 regmatch.regprog = vim_regcomp(pat, RE_MAGIC + RE_STRING);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10057 if (regmatch.regprog != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10058 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10059 regmatch.rm_ic = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10060 while (*str != NUL \|\| keepempty)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10061 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10062 if (*str == NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10063 match = FALSE; /* empty item at the end */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10064 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10065 match = vim_regexec_nl(&regmatch, str, col);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10066 if (match)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10067 end = regmatch.startp[0];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10068 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10069 end = str + STRLEN(str);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10070 if (keepempty \|\| end > str \|\| (rettv->vval.v_list->lv_len > 0
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10071 && *str != NUL && match && end < regmatch.endp[0]))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10072 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10073 if (list_append_string(rettv->vval.v_list, str,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10074 (int)(end - str)) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10075 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10076 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10077 if (!match)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10078 break;
15595 1ec942f1b648 patch 8.1.0805: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15579 diff changeset	10079 // Advance to just after the match.
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10080 if (regmatch.endp[0] > str)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10081 col = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10082 else
15595 1ec942f1b648 patch 8.1.0805: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15579 diff changeset	10083 // Don't get stuck at the same match.
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10084 col = (*mb_ptr2len)(regmatch.endp[0]);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10085 str = regmatch.endp[0];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10086 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10087
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10088 vim_regfree(regmatch.regprog);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10089 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10090
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10091 p_cpo = save_cpo;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10092 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10093
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10094 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10095 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10096 * "sqrt()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10097 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10098 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10099 f_sqrt(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10100 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10101 float_T f = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10102
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10103 rettv->v_type = VAR_FLOAT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10104 if (get_float_arg(argvars, &f) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10105 rettv->vval.v_float = sqrt(f);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10106 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10107 rettv->vval.v_float = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10108 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10109
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10110 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10111 * "str2float()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10112 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10113 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10114 f_str2float(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10115 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10116 char_u *p = skipwhite(tv_get_string(&argvars[0]));
10555 fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: 10553 diff changeset	10117 int isneg = (*p == '-');
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: 10553 diff changeset	10118
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: 10553 diff changeset	10119 if (p == '+' \|\| p == '-')
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10120 p = skipwhite(p + 1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10121 (void)string2float(p, &rettv->vval.v_float);
10555 fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: 10553 diff changeset	10122 if (isneg)
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: 10553 diff changeset	10123 rettv->vval.v_float *= -1;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10124 rettv->v_type = VAR_FLOAT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10125 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10126 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10127
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10128 /*
16235 219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10129 * "str2list()" function
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10130 */
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10131 static void
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10132 f_str2list(typval_T argvars, typval_T rettv)
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10133 {
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10134 char_u *p;
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10135 int utf8 = FALSE;
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10136
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10137 if (rettv_list_alloc(rettv) == FAIL)
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10138 return;
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10139
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10140 if (argvars[1].v_type != VAR_UNKNOWN)
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10141 utf8 = (int)tv_get_number_chk(&argvars[1], NULL);
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10142
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10143 p = tv_get_string(&argvars[0]);
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10144
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10145 if (has_mbyte \|\| utf8)
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10146 {
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10147 int (ptr2len)(char_u );
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10148 int (ptr2char)(char_u );
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10149
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10150 if (utf8 \|\| enc_utf8)
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10151 {
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10152 ptr2len = utf_ptr2len;
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10153 ptr2char = utf_ptr2char;
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10154 }
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10155 else
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10156 {
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10157 ptr2len = mb_ptr2len;
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10158 ptr2char = mb_ptr2char;
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10159 }
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10160
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10161 for ( ; p != NUL; p += (ptr2len)(p))
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10162 list_append_number(rettv->vval.v_list, (*ptr2char)(p));
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10163 }
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10164 else
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10165 for ( ; *p != NUL; ++p)
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10166 list_append_number(rettv->vval.v_list, *p);
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10167 }
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10168
219c58b3879c patch 8.1.1122: char2nr() does not handle composing characters Bram Moolenaar <Bram@vim.org> parents: 16231 diff changeset	10169 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10170 * "str2nr()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10171 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10172 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10173 f_str2nr(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10174 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10175 int base = 10;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10176 char_u *p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10177 varnumber_T n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10178 int what;
10555 fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: 10553 diff changeset	10179 int isneg;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10180
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10181 if (argvars[1].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10182 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10183 base = (int)tv_get_number(&argvars[1]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10184 if (base != 2 && base != 8 && base != 10 && base != 16)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10185 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	10186 emsg(_(e_invarg));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10187 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10188 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10189 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10190
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10191 p = skipwhite(tv_get_string(&argvars[0]));
10555 fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: 10553 diff changeset	10192 isneg = (*p == '-');
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: 10553 diff changeset	10193 if (p == '+' \|\| p == '-')
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10194 p = skipwhite(p + 1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10195 switch (base)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10196 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10197 case 2: what = STR2NR_BIN + STR2NR_FORCE; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10198 case 8: what = STR2NR_OCT + STR2NR_FORCE; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10199 case 16: what = STR2NR_HEX + STR2NR_FORCE; break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10200 default: what = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10201 }
16706 77bcb5055fec patch 8.1.1355: obvious mistakes are accepted as valid expressions Bram Moolenaar <Bram@vim.org> parents: 16700 diff changeset	10202 vim_str2nr(p, NULL, NULL, what, &n, NULL, 0, FALSE);
77bcb5055fec patch 8.1.1355: obvious mistakes are accepted as valid expressions Bram Moolenaar <Bram@vim.org> parents: 16700 diff changeset	10203 // Text after the number is silently ignored.
10555 fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: 10553 diff changeset	10204 if (isneg)
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: 10553 diff changeset	10205 rettv->vval.v_number = -n;
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: 10553 diff changeset	10206 else
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: 10553 diff changeset	10207 rettv->vval.v_number = n;
fff45421182b patch 8.0.0167: str2nr()/str2float() fail with negative values Christian Brabandt <cb@256bit.org> parents: 10553 diff changeset	10208
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10209 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10210
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10211 #ifdef HAVE_STRFTIME
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10212 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10213 * "strftime({format}[, {time}])" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10214 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10215 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10216 f_strftime(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10217 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10218 char_u result_buf[256];
16621 7ad3fc329e08 patch 8.1.1313: warnings for using localtime() and ctime() Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	10219 struct tm tmval;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10220 struct tm *curtime;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10221 time_t seconds;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10222 char_u *p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10223
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10224 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10225
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10226 p = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10227 if (argvars[1].v_type == VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10228 seconds = time(NULL);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10229 else
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10230 seconds = (time_t)tv_get_number(&argvars[1]);
17135 d03a52e02f1a patch 8.1.1567: localtime_r() does not respond to $TZ changes Bram Moolenaar <Bram@vim.org> parents: 17123 diff changeset	10231 curtime = vim_localtime(&seconds, &tmval);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10232 /* MSVC returns NULL for an invalid value of seconds. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10233 if (curtime == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10234 rettv->vval.v_string = vim_strsave((char_u *)_("(Invalid)"));
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10235 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10236 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10237 vimconv_T conv;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10238 char_u *enc;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10239
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10240 conv.vc_type = CONV_NONE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10241 enc = enc_locale();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10242 convert_setup(&conv, p_enc, enc);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10243 if (conv.vc_type != CONV_NONE)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10244 p = string_convert(&conv, p, NULL);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10245 if (p != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10246 (void)strftime((char *)result_buf, sizeof(result_buf),
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10247 (char *)p, curtime);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10248 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10249 result_buf[0] = NUL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10250
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10251 if (conv.vc_type != CONV_NONE)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10252 vim_free(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10253 convert_setup(&conv, enc, p_enc);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10254 if (conv.vc_type != CONV_NONE)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10255 rettv->vval.v_string = string_convert(&conv, result_buf, NULL);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10256 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10257 rettv->vval.v_string = vim_strsave(result_buf);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10258
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10259 /* Release conversion descriptors */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10260 convert_setup(&conv, NULL, NULL);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10261 vim_free(enc);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10262 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10263 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10264 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10265
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10266 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10267 * "strgetchar()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10268 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10269 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10270 f_strgetchar(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10271 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10272 char_u *str;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10273 int len;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10274 int error = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10275 int charidx;
15595 1ec942f1b648 patch 8.1.0805: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15579 diff changeset	10276 int byteidx = 0;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10277
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10278 rettv->vval.v_number = -1;
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10279 str = tv_get_string_chk(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10280 if (str == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10281 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10282 len = (int)STRLEN(str);
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10283 charidx = (int)tv_get_number_chk(&argvars[1], &error);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10284 if (error)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10285 return;
15595 1ec942f1b648 patch 8.1.0805: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15579 diff changeset	10286
1ec942f1b648 patch 8.1.0805: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15579 diff changeset	10287 while (charidx >= 0 && byteidx < len)
1ec942f1b648 patch 8.1.0805: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15579 diff changeset	10288 {
1ec942f1b648 patch 8.1.0805: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15579 diff changeset	10289 if (charidx == 0)
1ec942f1b648 patch 8.1.0805: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15579 diff changeset	10290 {
1ec942f1b648 patch 8.1.0805: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15579 diff changeset	10291 rettv->vval.v_number = mb_ptr2char(str + byteidx);
1ec942f1b648 patch 8.1.0805: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15579 diff changeset	10292 break;
1ec942f1b648 patch 8.1.0805: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15579 diff changeset	10293 }
1ec942f1b648 patch 8.1.0805: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15579 diff changeset	10294 --charidx;
1ec942f1b648 patch 8.1.0805: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15579 diff changeset	10295 byteidx += MB_CPTR2LEN(str + byteidx);
1ec942f1b648 patch 8.1.0805: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15579 diff changeset	10296 }
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10297 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10298
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10299 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10300 * "stridx()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10301 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10302 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10303 f_stridx(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10304 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10305 char_u buf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10306 char_u *needle;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10307 char_u *haystack;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10308 char_u *save_haystack;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10309 char_u *pos;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10310 int start_idx;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10311
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10312 needle = tv_get_string_chk(&argvars[1]);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10313 save_haystack = haystack = tv_get_string_buf_chk(&argvars[0], buf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10314 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10315 if (needle == NULL \|\| haystack == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10316 return; /* type error; errmsg already given */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10317
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10318 if (argvars[2].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10319 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10320 int error = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10321
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10322 start_idx = (int)tv_get_number_chk(&argvars[2], &error);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10323 if (error \|\| start_idx >= (int)STRLEN(haystack))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10324 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10325 if (start_idx >= 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10326 haystack += start_idx;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10327 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10328
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10329 pos = (char_u )strstr((char )haystack, (char *)needle);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10330 if (pos != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10331 rettv->vval.v_number = (varnumber_T)(pos - save_haystack);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10332 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10333
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10334 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10335 * "string()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10336 */
15219 dada0b389d4f patch 8.1.0619: :echomsg and :echoerr do not handle List and Dict Bram Moolenaar <Bram@vim.org> parents: 15211 diff changeset	10337 void
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10338 f_string(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10339 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10340 char_u *tofree;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10341 char_u numbuf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10342
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10343 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10344 rettv->vval.v_string = tv2string(&argvars[0], &tofree, numbuf,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10345 get_copyID());
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10346 /* Make a copy if we have a value but it's not in allocated memory. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10347 if (rettv->vval.v_string != NULL && tofree == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10348 rettv->vval.v_string = vim_strsave(rettv->vval.v_string);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10349 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10350
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10351 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10352 * "strlen()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10353 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10354 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10355 f_strlen(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10356 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10357 rettv->vval.v_number = (varnumber_T)(STRLEN(
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10358 tv_get_string(&argvars[0])));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10359 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10360
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10361 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10362 * "strchars()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10363 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10364 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10365 f_strchars(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10366 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10367 char_u *s = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10368 int skipcc = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10369 varnumber_T len = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10370 int (func_mb_ptr2char_adv)(char_u *pp);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10371
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10372 if (argvars[1].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10373 skipcc = (int)tv_get_number_chk(&argvars[1], NULL);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10374 if (skipcc < 0 \|\| skipcc > 1)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	10375 emsg(_(e_invarg));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10376 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10377 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10378 func_mb_ptr2char_adv = skipcc ? mb_ptr2char_adv : mb_cptr2char_adv;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10379 while (*s != NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10380 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10381 func_mb_ptr2char_adv(&s);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10382 ++len;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10383 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10384 rettv->vval.v_number = len;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10385 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10386 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10387
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10388 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10389 * "strdisplaywidth()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10390 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10391 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10392 f_strdisplaywidth(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10393 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10394 char_u *s = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10395 int col = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10396
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10397 if (argvars[1].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10398 col = (int)tv_get_number(&argvars[1]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10399
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10400 rettv->vval.v_number = (varnumber_T)(linetabsize_col(col, s) - col);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10401 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10402
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10403 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10404 * "strwidth()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10405 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10406 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10407 f_strwidth(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10408 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10409 char_u *s = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10410
15595 1ec942f1b648 patch 8.1.0805: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15579 diff changeset	10411 rettv->vval.v_number = (varnumber_T)(mb_string2cells(s, -1));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10412 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10413
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10414 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10415 * "strcharpart()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10416 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10417 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10418 f_strcharpart(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10419 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10420 char_u *p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10421 int nchar;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10422 int nbyte = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10423 int charlen;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10424 int len = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10425 int slen;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10426 int error = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10427
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10428 p = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10429 slen = (int)STRLEN(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10430
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10431 nchar = (int)tv_get_number_chk(&argvars[1], &error);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10432 if (!error)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10433 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10434 if (nchar > 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10435 while (nchar > 0 && nbyte < slen)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10436 {
9898 bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1 Christian Brabandt <cb@256bit.org> parents: 9881 diff changeset	10437 nbyte += MB_CPTR2LEN(p + nbyte);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10438 --nchar;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10439 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10440 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10441 nbyte = nchar;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10442 if (argvars[2].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10443 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10444 charlen = (int)tv_get_number(&argvars[2]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10445 while (charlen > 0 && nbyte + len < slen)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10446 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10447 int off = nbyte + len;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10448
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10449 if (off < 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10450 len += 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10451 else
9898 bff8a09016a5 commit https://github.com/vim/vim/commit/d3c907b5d2b352482b580a0cf687cbbea4c19ea1 Christian Brabandt <cb@256bit.org> parents: 9881 diff changeset	10452 len += MB_CPTR2LEN(p + off);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10453 --charlen;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10454 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10455 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10456 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10457 len = slen - nbyte; /* default: all bytes that are available. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10458 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10459
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10460 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10461 * Only return the overlap between the specified part and the actual
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10462 * string.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10463 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10464 if (nbyte < 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10465 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10466 len += nbyte;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10467 nbyte = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10468 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10469 else if (nbyte > slen)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10470 nbyte = slen;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10471 if (len < 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10472 len = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10473 else if (nbyte + len > slen)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10474 len = slen - nbyte;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10475
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10476 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10477 rettv->vval.v_string = vim_strnsave(p + nbyte, len);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10478 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10479
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10480 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10481 * "strpart()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10482 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10483 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10484 f_strpart(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10485 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10486 char_u *p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10487 int n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10488 int len;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10489 int slen;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10490 int error = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10491
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10492 p = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10493 slen = (int)STRLEN(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10494
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10495 n = (int)tv_get_number_chk(&argvars[1], &error);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10496 if (error)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10497 len = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10498 else if (argvars[2].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10499 len = (int)tv_get_number(&argvars[2]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10500 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10501 len = slen - n; /* default len: all bytes that are available. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10502
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10503 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10504 * Only return the overlap between the specified part and the actual
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10505 * string.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10506 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10507 if (n < 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10508 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10509 len += n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10510 n = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10511 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10512 else if (n > slen)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10513 n = slen;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10514 if (len < 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10515 len = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10516 else if (n + len > slen)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10517 len = slen - n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10518
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10519 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10520 rettv->vval.v_string = vim_strnsave(p + n, len);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10521 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10522
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10523 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10524 * "strridx()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10525 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10526 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10527 f_strridx(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10528 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10529 char_u buf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10530 char_u *needle;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10531 char_u *haystack;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10532 char_u *rest;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10533 char_u *lastmatch = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10534 int haystack_len, end_idx;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10535
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10536 needle = tv_get_string_chk(&argvars[1]);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10537 haystack = tv_get_string_buf_chk(&argvars[0], buf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10538
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10539 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10540 if (needle == NULL \|\| haystack == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10541 return; /* type error; errmsg already given */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10542
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10543 haystack_len = (int)STRLEN(haystack);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10544 if (argvars[2].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10545 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10546 /* Third argument: upper limit for index */
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10547 end_idx = (int)tv_get_number_chk(&argvars[2], NULL);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10548 if (end_idx < 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10549 return; /* can never find a match */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10550 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10551 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10552 end_idx = haystack_len;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10553
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10554 if (*needle == NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10555 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10556 /* Empty string matches past the end. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10557 lastmatch = haystack + end_idx;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10558 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10559 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10560 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10561 for (rest = haystack; *rest != '\0'; ++rest)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10562 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10563 rest = (char_u )strstr((char )rest, (char *)needle);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10564 if (rest == NULL \|\| rest > haystack + end_idx)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10565 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10566 lastmatch = rest;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10567 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10568 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10569
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10570 if (lastmatch == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10571 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10572 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10573 rettv->vval.v_number = (varnumber_T)(lastmatch - haystack);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10574 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10575
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10576 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10577 * "strtrans()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10578 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10579 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10580 f_strtrans(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10581 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10582 rettv->v_type = VAR_STRING;
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10583 rettv->vval.v_string = transstr(tv_get_string(&argvars[0]));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10584 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10585
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10586 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10587 * "submatch()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10588 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10589 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10590 f_submatch(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10591 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10592 int error = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10593 int no;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10594 int retList = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10595
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10596 no = (int)tv_get_number_chk(&argvars[0], &error);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10597 if (error)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10598 return;
9923 935e13935848 commit https://github.com/vim/vim/commit/989f592f7ffcbafdc4ec35cee4dc65bd053e2077 Christian Brabandt <cb@256bit.org> parents: 9919 diff changeset	10599 if (no < 0 \|\| no >= NSUBEXP)
935e13935848 commit https://github.com/vim/vim/commit/989f592f7ffcbafdc4ec35cee4dc65bd053e2077 Christian Brabandt <cb@256bit.org> parents: 9919 diff changeset	10600 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	10601 semsg(_("E935: invalid submatch number: %d"), no);
10889 5780bd3a5a7e patch 8.0.0334: can't access b:changedtick from a dict reference Christian Brabandt <cb@256bit.org> parents: 10787 diff changeset	10602 return;
9923 935e13935848 commit https://github.com/vim/vim/commit/989f592f7ffcbafdc4ec35cee4dc65bd053e2077 Christian Brabandt <cb@256bit.org> parents: 9919 diff changeset	10603 }
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10604 if (argvars[1].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10605 retList = (int)tv_get_number_chk(&argvars[1], &error);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10606 if (error)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10607 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10608
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10609 if (retList == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10610 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10611 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10612 rettv->vval.v_string = reg_submatch(no);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10613 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10614 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10615 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10616 rettv->v_type = VAR_LIST;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10617 rettv->vval.v_list = reg_submatch_list(no);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10618 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10619 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10620
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10621 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10622 * "substitute()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10623 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10624 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10625 f_substitute(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10626 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10627 char_u patbuf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10628 char_u subbuf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10629 char_u flagsbuf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10630
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10631 char_u *str = tv_get_string_chk(&argvars[0]);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10632 char_u *pat = tv_get_string_buf_chk(&argvars[1], patbuf);
9589 bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd Christian Brabandt <cb@256bit.org> parents: 9587 diff changeset	10633 char_u *sub = NULL;
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd Christian Brabandt <cb@256bit.org> parents: 9587 diff changeset	10634 typval_T *expr = NULL;
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10635 char_u *flg = tv_get_string_buf_chk(&argvars[3], flagsbuf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10636
9589 bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd Christian Brabandt <cb@256bit.org> parents: 9587 diff changeset	10637 if (argvars[2].v_type == VAR_FUNC \|\| argvars[2].v_type == VAR_PARTIAL)
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd Christian Brabandt <cb@256bit.org> parents: 9587 diff changeset	10638 expr = &argvars[2];
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd Christian Brabandt <cb@256bit.org> parents: 9587 diff changeset	10639 else
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10640 sub = tv_get_string_buf_chk(&argvars[2], subbuf);
9589 bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd Christian Brabandt <cb@256bit.org> parents: 9587 diff changeset	10641
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10642 rettv->v_type = VAR_STRING;
9589 bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd Christian Brabandt <cb@256bit.org> parents: 9587 diff changeset	10643 if (str == NULL \|\| pat == NULL \|\| (sub == NULL && expr == NULL)
bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd Christian Brabandt <cb@256bit.org> parents: 9587 diff changeset	10644 \|\| flg == NULL)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10645 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10646 else
9589 bf204ab1ce7d commit https://github.com/vim/vim/commit/72ab729c3dcdea0fba44d8e676602c847e841bcd Christian Brabandt <cb@256bit.org> parents: 9587 diff changeset	10647 rettv->vval.v_string = do_string_sub(str, pat, sub, expr, flg);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10648 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10649
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10650 /*
14599 72d6f6f7ead7 patch 8.1.0313: information about a swap file is unavailable Christian Brabandt <cb@256bit.org> parents: 14587 diff changeset	10651 * "swapinfo(swap_filename)" function
72d6f6f7ead7 patch 8.1.0313: information about a swap file is unavailable Christian Brabandt <cb@256bit.org> parents: 14587 diff changeset	10652 */
72d6f6f7ead7 patch 8.1.0313: information about a swap file is unavailable Christian Brabandt <cb@256bit.org> parents: 14587 diff changeset	10653 static void
72d6f6f7ead7 patch 8.1.0313: information about a swap file is unavailable Christian Brabandt <cb@256bit.org> parents: 14587 diff changeset	10654 f_swapinfo(typval_T argvars, typval_T rettv)
72d6f6f7ead7 patch 8.1.0313: information about a swap file is unavailable Christian Brabandt <cb@256bit.org> parents: 14587 diff changeset	10655 {
72d6f6f7ead7 patch 8.1.0313: information about a swap file is unavailable Christian Brabandt <cb@256bit.org> parents: 14587 diff changeset	10656 if (rettv_dict_alloc(rettv) == OK)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10657 get_b0_dict(tv_get_string(argvars), rettv->vval.v_dict);
14599 72d6f6f7ead7 patch 8.1.0313: information about a swap file is unavailable Christian Brabandt <cb@256bit.org> parents: 14587 diff changeset	10658 }
72d6f6f7ead7 patch 8.1.0313: information about a swap file is unavailable Christian Brabandt <cb@256bit.org> parents: 14587 diff changeset	10659
72d6f6f7ead7 patch 8.1.0313: information about a swap file is unavailable Christian Brabandt <cb@256bit.org> parents: 14587 diff changeset	10660 /*
14778 20653d6f3d95 patch 8.1.0401: can't get swap name of another buffer Christian Brabandt <cb@256bit.org> parents: 14756 diff changeset	10661 * "swapname(expr)" function
20653d6f3d95 patch 8.1.0401: can't get swap name of another buffer Christian Brabandt <cb@256bit.org> parents: 14756 diff changeset	10662 */
20653d6f3d95 patch 8.1.0401: can't get swap name of another buffer Christian Brabandt <cb@256bit.org> parents: 14756 diff changeset	10663 static void
20653d6f3d95 patch 8.1.0401: can't get swap name of another buffer Christian Brabandt <cb@256bit.org> parents: 14756 diff changeset	10664 f_swapname(typval_T argvars, typval_T rettv)
20653d6f3d95 patch 8.1.0401: can't get swap name of another buffer Christian Brabandt <cb@256bit.org> parents: 14756 diff changeset	10665 {
20653d6f3d95 patch 8.1.0401: can't get swap name of another buffer Christian Brabandt <cb@256bit.org> parents: 14756 diff changeset	10666 buf_T *buf;
20653d6f3d95 patch 8.1.0401: can't get swap name of another buffer Christian Brabandt <cb@256bit.org> parents: 14756 diff changeset	10667
20653d6f3d95 patch 8.1.0401: can't get swap name of another buffer Christian Brabandt <cb@256bit.org> parents: 14756 diff changeset	10668 rettv->v_type = VAR_STRING;
15355 73b153ed5af8 patch 8.1.0685: get_buf_tv() is named inconsistently Bram Moolenaar <Bram@vim.org> parents: 15343 diff changeset	10669 buf = tv_get_buf(&argvars[0], FALSE);
14778 20653d6f3d95 patch 8.1.0401: can't get swap name of another buffer Christian Brabandt <cb@256bit.org> parents: 14756 diff changeset	10670 if (buf == NULL \|\| buf->b_ml.ml_mfp == NULL
20653d6f3d95 patch 8.1.0401: can't get swap name of another buffer Christian Brabandt <cb@256bit.org> parents: 14756 diff changeset	10671 \|\| buf->b_ml.ml_mfp->mf_fname == NULL)
20653d6f3d95 patch 8.1.0401: can't get swap name of another buffer Christian Brabandt <cb@256bit.org> parents: 14756 diff changeset	10672 rettv->vval.v_string = NULL;
20653d6f3d95 patch 8.1.0401: can't get swap name of another buffer Christian Brabandt <cb@256bit.org> parents: 14756 diff changeset	10673 else
20653d6f3d95 patch 8.1.0401: can't get swap name of another buffer Christian Brabandt <cb@256bit.org> parents: 14756 diff changeset	10674 rettv->vval.v_string = vim_strsave(buf->b_ml.ml_mfp->mf_fname);
20653d6f3d95 patch 8.1.0401: can't get swap name of another buffer Christian Brabandt <cb@256bit.org> parents: 14756 diff changeset	10675 }
20653d6f3d95 patch 8.1.0401: can't get swap name of another buffer Christian Brabandt <cb@256bit.org> parents: 14756 diff changeset	10676
20653d6f3d95 patch 8.1.0401: can't get swap name of another buffer Christian Brabandt <cb@256bit.org> parents: 14756 diff changeset	10677 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10678 * "synID(lnum, col, trans)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10679 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10680 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10681 f_synID(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10682 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10683 int id = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10684 #ifdef FEAT_SYN_HL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10685 linenr_T lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10686 colnr_T col;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10687 int trans;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10688 int transerr = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10689
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10690 lnum = tv_get_lnum(argvars); /* -1 on type error */
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10691 col = (linenr_T)tv_get_number(&argvars[1]) - 1; /* -1 on type error */
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10692 trans = (int)tv_get_number_chk(&argvars[2], &transerr);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10693
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10694 if (!transerr && lnum >= 1 && lnum <= curbuf->b_ml.ml_line_count
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10695 && col >= 0 && col < (long)STRLEN(ml_get(lnum)))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10696 id = syn_get_id(curwin, lnum, (colnr_T)col, trans, NULL, FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10697 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10698
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10699 rettv->vval.v_number = id;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10700 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10701
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10702 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10703 * "synIDattr(id, what [, mode])" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10704 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10705 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10706 f_synIDattr(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10707 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10708 char_u *p = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10709 #ifdef FEAT_SYN_HL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10710 int id;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10711 char_u *what;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10712 char_u *mode;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10713 char_u modebuf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10714 int modec;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10715
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10716 id = (int)tv_get_number(&argvars[0]);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10717 what = tv_get_string(&argvars[1]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10718 if (argvars[2].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10719 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10720 mode = tv_get_string_buf(&argvars[2], modebuf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10721 modec = TOLOWER_ASC(mode[0]);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10722 if (modec != 't' && modec != 'c' && modec != 'g')
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10723 modec = 0; /* replace invalid with current */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10724 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10725 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10726 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10727 #if defined(FEAT_GUI) \|\| defined(FEAT_TERMGUICOLORS)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10728 if (USE_24BIT)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10729 modec = 'g';
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10730 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10731 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10732 if (t_colors > 1)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10733 modec = 'c';
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10734 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10735 modec = 't';
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10736 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10737
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10738 switch (TOLOWER_ASC(what[0]))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10739 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10740 case 'b':
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10741 if (TOLOWER_ASC(what[1]) == 'g') /* bg[#] */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10742 p = highlight_color(id, what, modec);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10743 else /* bold */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10744 p = highlight_has_attr(id, HL_BOLD, modec);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10745 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10746
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10747 case 'f': /* fg[#] or font */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10748 p = highlight_color(id, what, modec);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10749 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10750
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10751 case 'i':
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10752 if (TOLOWER_ASC(what[1]) == 'n') /* inverse */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10753 p = highlight_has_attr(id, HL_INVERSE, modec);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10754 else /* italic */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10755 p = highlight_has_attr(id, HL_ITALIC, modec);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10756 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10757
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10758 case 'n': /* name */
11254 918942a3b0ef patch 8.0.0513: getting name of cleared highlight group is wrong Christian Brabandt <cb@256bit.org> parents: 11225 diff changeset	10759 p = get_highlight_name_ext(NULL, id - 1, FALSE);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10760 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10761
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10762 case 'r': /* reverse */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10763 p = highlight_has_attr(id, HL_INVERSE, modec);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10764 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10765
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10766 case 's':
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10767 if (TOLOWER_ASC(what[1]) == 'p') /* sp[#] */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10768 p = highlight_color(id, what, modec);
12317 2a8890b80923 patch 8.0.1038: strike-through text not supported Christian Brabandt <cb@256bit.org> parents: 12252 diff changeset	10769 /* strikeout */
2a8890b80923 patch 8.0.1038: strike-through text not supported Christian Brabandt <cb@256bit.org> parents: 12252 diff changeset	10770 else if (TOLOWER_ASC(what[1]) == 't' &&
2a8890b80923 patch 8.0.1038: strike-through text not supported Christian Brabandt <cb@256bit.org> parents: 12252 diff changeset	10771 TOLOWER_ASC(what[2]) == 'r')
2a8890b80923 patch 8.0.1038: strike-through text not supported Christian Brabandt <cb@256bit.org> parents: 12252 diff changeset	10772 p = highlight_has_attr(id, HL_STRIKETHROUGH, modec);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10773 else /* standout */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10774 p = highlight_has_attr(id, HL_STANDOUT, modec);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10775 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10776
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10777 case 'u':
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10778 if (STRLEN(what) <= 5 \|\| TOLOWER_ASC(what[5]) != 'c')
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10779 /* underline */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10780 p = highlight_has_attr(id, HL_UNDERLINE, modec);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10781 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10782 /* undercurl */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10783 p = highlight_has_attr(id, HL_UNDERCURL, modec);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10784 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10785 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10786
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10787 if (p != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10788 p = vim_strsave(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10789 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10790 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10791 rettv->vval.v_string = p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10792 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10793
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10794 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10795 * "synIDtrans(id)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10796 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10797 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10798 f_synIDtrans(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10799 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10800 int id;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10801
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10802 #ifdef FEAT_SYN_HL
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10803 id = (int)tv_get_number(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10804
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10805 if (id > 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10806 id = syn_get_final_id(id);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10807 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10808 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10809 id = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10810
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10811 rettv->vval.v_number = id;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10812 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10813
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10814 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10815 * "synconcealed(lnum, col)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10816 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10817 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10818 f_synconcealed(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10819 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10820 #if defined(FEAT_SYN_HL) && defined(FEAT_CONCEAL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10821 linenr_T lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10822 colnr_T col;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10823 int syntax_flags = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10824 int cchar;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10825 int matchid = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10826 char_u str[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10827 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10828
11418 162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value Christian Brabandt <cb@256bit.org> parents: 11341 diff changeset	10829 rettv_list_set(rettv, NULL);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10830
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10831 #if defined(FEAT_SYN_HL) && defined(FEAT_CONCEAL)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10832 lnum = tv_get_lnum(argvars); /* -1 on type error */
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10833 col = (colnr_T)tv_get_number(&argvars[1]) - 1; /* -1 on type error */
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10834
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10835 vim_memset(str, NUL, sizeof(str));
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10836
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10837 if (rettv_list_alloc(rettv) != FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10838 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10839 if (lnum >= 1 && lnum <= curbuf->b_ml.ml_line_count
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10840 && col >= 0 && col <= (long)STRLEN(ml_get(lnum))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10841 && curwin->w_p_cole > 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10842 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10843 (void)syn_get_id(curwin, lnum, col, FALSE, NULL, FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10844 syntax_flags = get_syntax_info(&matchid);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10845
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10846 /* get the conceal character */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10847 if ((syntax_flags & HL_CONCEAL) && curwin->w_p_cole < 3)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10848 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10849 cchar = syn_get_sub_char();
11553 cbceef33af7a patch 8.0.0659: no test for conceal mode Christian Brabandt <cb@256bit.org> parents: 11521 diff changeset	10850 if (cchar == NUL && curwin->w_p_cole == 1)
cbceef33af7a patch 8.0.0659: no test for conceal mode Christian Brabandt <cb@256bit.org> parents: 11521 diff changeset	10851 cchar = (lcs_conceal == NUL) ? ' ' : lcs_conceal;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10852 if (cchar != NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10853 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10854 if (has_mbyte)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10855 (*mb_char2bytes)(cchar, str);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10856 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10857 str[0] = cchar;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10858 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10859 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10860 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10861
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10862 list_append_number(rettv->vval.v_list,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10863 (syntax_flags & HL_CONCEAL) != 0);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10864 /* -1 to auto-determine strlen */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10865 list_append_string(rettv->vval.v_list, str, -1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10866 list_append_number(rettv->vval.v_list, matchid);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10867 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10868 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10869 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10870
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10871 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10872 * "synstack(lnum, col)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10873 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10874 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10875 f_synstack(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10876 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10877 #ifdef FEAT_SYN_HL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10878 linenr_T lnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10879 colnr_T col;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10880 int i;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10881 int id;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10882 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10883
11418 162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value Christian Brabandt <cb@256bit.org> parents: 11341 diff changeset	10884 rettv_list_set(rettv, NULL);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10885
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10886 #ifdef FEAT_SYN_HL
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10887 lnum = tv_get_lnum(argvars); /* -1 on type error */
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10888 col = (colnr_T)tv_get_number(&argvars[1]) - 1; /* -1 on type error */
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10889
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10890 if (lnum >= 1 && lnum <= curbuf->b_ml.ml_line_count
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10891 && col >= 0 && col <= (long)STRLEN(ml_get(lnum))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10892 && rettv_list_alloc(rettv) != FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10893 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10894 (void)syn_get_id(curwin, lnum, (colnr_T)col, FALSE, NULL, TRUE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10895 for (i = 0; ; ++i)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10896 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10897 id = syn_get_stack_item(i);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10898 if (id < 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10899 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10900 if (list_append_number(rettv->vval.v_list, id) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10901 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10902 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10903 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10904 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10905 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10906
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10907 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10908 get_cmd_output_as_rettv(
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10909 typval_T *argvars,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10910 typval_T *rettv,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10911 int retlist)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10912 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10913 char_u *res = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10914 char_u *p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10915 char_u *infile = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10916 int err = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10917 FILE *fd;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10918 list_T *list = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10919 int flags = SHELL_SILENT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10920
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10921 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10922 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10923 if (check_restricted() \|\| check_secure())
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10924 goto errret;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10925
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10926 if (argvars[1].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10927 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10928 /*
10522 7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10929 * Write the text to a temp file, to be used for input of the shell
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10930 * command.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10931 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10932 if ((infile = vim_tempname('i', TRUE)) == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10933 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	10934 emsg(_(e_notmp));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10935 goto errret;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10936 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10937
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10938 fd = mch_fopen((char *)infile, WRITEBIN);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10939 if (fd == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10940 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	10941 semsg(_(e_notopen), infile);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10942 goto errret;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10943 }
10522 7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10944 if (argvars[1].v_type == VAR_NUMBER)
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10945 {
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10946 linenr_T lnum;
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10947 buf_T *buf;
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10948
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10949 buf = buflist_findnr(argvars[1].vval.v_number);
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10950 if (buf == NULL)
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10951 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	10952 semsg(_(e_nobufnr), argvars[1].vval.v_number);
10635 f55a14256688 patch 8.0.0207: leaking file descriptor when system() fails Christian Brabandt <cb@256bit.org> parents: 10620 diff changeset	10953 fclose(fd);
10522 7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10954 goto errret;
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10955 }
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10956
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10957 for (lnum = 1; lnum <= buf->b_ml.ml_line_count; lnum++)
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10958 {
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10959 for (p = ml_get_buf(buf, lnum, FALSE); *p != NUL; ++p)
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10960 if (putc(p == '\n' ? NUL : p, fd) == EOF)
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10961 {
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10962 err = TRUE;
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10963 break;
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10964 }
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10965 if (putc(NL, fd) == EOF)
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10966 {
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10967 err = TRUE;
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10968 break;
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10969 }
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10970 }
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10971 }
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10972 else if (argvars[1].v_type == VAR_LIST)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10973 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10974 if (write_list(fd, argvars[1].vval.v_list, TRUE) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10975 err = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10976 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10977 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10978 {
10522 7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10979 size_t len;
7232cd9f8a7c commit https://github.com/vim/vim/commit/12c4492dd35e0cd83c8816be2ec849b836109882 Christian Brabandt <cb@256bit.org> parents: 10514 diff changeset	10980 char_u buf[NUMBUFLEN];
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10981
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	10982 p = tv_get_string_buf_chk(&argvars[1], buf);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10983 if (p == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10984 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10985 fclose(fd);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10986 goto errret; /* type error; errmsg already given */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10987 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10988 len = STRLEN(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10989 if (len > 0 && fwrite(p, len, 1, fd) != 1)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10990 err = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10991 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10992 if (fclose(fd) != 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10993 err = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10994 if (err)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10995 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	10996 emsg(_("E677: Error writing temp file"));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10997 goto errret;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10998 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	10999 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11000
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11001 /* Omit SHELL_COOKED when invoked with ":silent". Avoids that the shell
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11002 * echoes typeahead, that messes up the display. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11003 if (!msg_silent)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11004 flags += SHELL_COOKED;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11005
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11006 if (retlist)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11007 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11008 int len;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11009 listitem_T *li;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11010 char_u *s = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11011 char_u *start;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11012 char_u *end;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11013 int i;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11014
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	11015 res = get_cmd_output(tv_get_string(&argvars[0]), infile, flags, &len);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11016 if (res == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11017 goto errret;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11018
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11019 list = list_alloc();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11020 if (list == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11021 goto errret;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11022
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11023 for (i = 0; i < len; ++i)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11024 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11025 start = res + i;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11026 while (i < len && res[i] != NL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11027 ++i;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11028 end = res + i;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11029
16764 ef00b6bc186b patch 8.1.1384: using "int" for alloc() often results in compiler warnings Bram Moolenaar <Bram@vim.org> parents: 16752 diff changeset	11030 s = alloc(end - start + 1);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11031 if (s == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11032 goto errret;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11033
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11034 for (p = s; start < end; ++p, ++start)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11035 p = start == NUL ? NL : *start;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11036 *p = NUL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11037
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11038 li = listitem_alloc();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11039 if (li == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11040 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11041 vim_free(s);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11042 goto errret;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11043 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11044 li->li_tv.v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11045 li->li_tv.v_lock = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11046 li->li_tv.vval.v_string = s;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11047 list_append(list, li);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11048 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11049
11418 162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value Christian Brabandt <cb@256bit.org> parents: 11341 diff changeset	11050 rettv_list_set(rettv, list);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11051 list = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11052 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11053 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11054 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	11055 res = get_cmd_output(tv_get_string(&argvars[0]), infile, flags, NULL);
15840 734b1928a5aa patch 8.1.0927: USE_CR is never defined Bram Moolenaar <Bram@vim.org> parents: 15816 diff changeset	11056 #ifdef USE_CRNL
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11057 /* translate <CR><NL> into <NL> */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11058 if (res != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11059 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11060 char_u s, d;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11061
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11062 d = res;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11063 for (s = res; *s; ++s)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11064 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11065 if (s[0] == CAR && s[1] == NL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11066 ++s;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11067 d++ = s;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11068 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11069 *d = NUL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11070 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11071 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11072 rettv->vval.v_string = res;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11073 res = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11074 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11075
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11076 errret:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11077 if (infile != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11078 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11079 mch_remove(infile);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11080 vim_free(infile);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11081 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11082 if (res != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11083 vim_free(res);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11084 if (list != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11085 list_free(list);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11086 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11087
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11088 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11089 * "system()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11090 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11091 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11092 f_system(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11093 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11094 get_cmd_output_as_rettv(argvars, rettv, FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11095 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11096
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11097 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11098 * "systemlist()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11099 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11100 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11101 f_systemlist(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11102 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11103 get_cmd_output_as_rettv(argvars, rettv, TRUE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11104 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11105
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11106 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11107 * "tabpagebuflist()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11108 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11109 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11110 f_tabpagebuflist(typval_T argvars UNUSED, typval_T rettv UNUSED)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11111 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11112 tabpage_T *tp;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11113 win_T *wp = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11114
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11115 if (argvars[0].v_type == VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11116 wp = firstwin;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11117 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11118 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	11119 tp = find_tabpage((int)tv_get_number(&argvars[0]));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11120 if (tp != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11121 wp = (tp == curtab) ? firstwin : tp->tp_firstwin;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11122 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11123 if (wp != NULL && rettv_list_alloc(rettv) != FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11124 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11125 for (; wp != NULL; wp = wp->w_next)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11126 if (list_append_number(rettv->vval.v_list,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11127 wp->w_buffer->b_fnum) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11128 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11129 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11130 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11131
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11132 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11133 * "tabpagenr()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11134 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11135 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11136 f_tabpagenr(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11137 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11138 int nr = 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11139 char_u *arg;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11140
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11141 if (argvars[0].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11142 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	11143 arg = tv_get_string_chk(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11144 nr = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11145 if (arg != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11146 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11147 if (STRCMP(arg, "$") == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11148 nr = tabpage_index(NULL) - 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11149 else
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	11150 semsg(_(e_invexpr2), arg);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11151 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11152 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11153 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11154 nr = tabpage_index(curtab);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11155 rettv->vval.v_number = nr;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11156 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11157
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11158
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11159 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11160 * Common code for tabpagewinnr() and winnr().
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11161 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11162 static int
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11163 get_winnr(tabpage_T tp, typval_T argvar)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11164 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11165 win_T *twin;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11166 int nr = 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11167 win_T *wp;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11168 char_u *arg;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11169
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11170 twin = (tp == curtab) ? curwin : tp->tp_curwin;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11171 if (argvar->v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11172 {
16271 243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11173 int invalid_arg = FALSE;
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11174
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	11175 arg = tv_get_string_chk(argvar);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11176 if (arg == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11177 nr = 0; /* type error; errmsg already given */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11178 else if (STRCMP(arg, "$") == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11179 twin = (tp == curtab) ? lastwin : tp->tp_lastwin;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11180 else if (STRCMP(arg, "#") == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11181 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11182 twin = (tp == curtab) ? prevwin : tp->tp_prevwin;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11183 if (twin == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11184 nr = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11185 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11186 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11187 {
16271 243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11188 long count;
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11189 char_u *endp;
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11190
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11191 // Extract the window count (if specified). e.g. winnr('3j')
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11192 count = strtol((char )arg, (char *)&endp, 10);
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11193 if (count <= 0)
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11194 count = 1; // if count is not specified, default to 1
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11195 if (endp != NULL && *endp != '\0')
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11196 {
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11197 if (STRCMP(endp, "j") == 0)
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11198 twin = win_vert_neighbor(tp, twin, FALSE, count);
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11199 else if (STRCMP(endp, "k") == 0)
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11200 twin = win_vert_neighbor(tp, twin, TRUE, count);
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11201 else if (STRCMP(endp, "h") == 0)
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11202 twin = win_horz_neighbor(tp, twin, TRUE, count);
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11203 else if (STRCMP(endp, "l") == 0)
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11204 twin = win_horz_neighbor(tp, twin, FALSE, count);
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11205 else
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11206 invalid_arg = TRUE;
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11207 }
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11208 else
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11209 invalid_arg = TRUE;
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11210 }
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11211
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11212 if (invalid_arg)
243cdc183ec9 patch 8.1.1140: not easy to find out what neighbors a window has Bram Moolenaar <Bram@vim.org> parents: 16263 diff changeset	11213 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	11214 semsg(_(e_invexpr2), arg);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11215 nr = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11216 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11217 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11218
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11219 if (nr > 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11220 for (wp = (tp == curtab) ? firstwin : tp->tp_firstwin;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11221 wp != twin; wp = wp->w_next)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11222 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11223 if (wp == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11224 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11225 /* didn't find it in this tabpage */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11226 nr = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11227 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11228 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11229 ++nr;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11230 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11231 return nr;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11232 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11233
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11234 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11235 * "tabpagewinnr()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11236 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11237 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11238 f_tabpagewinnr(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11239 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11240 int nr = 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11241 tabpage_T *tp;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11242
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	11243 tp = find_tabpage((int)tv_get_number(&argvars[0]));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11244 if (tp == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11245 nr = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11246 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11247 nr = get_winnr(tp, &argvars[1]);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11248 rettv->vval.v_number = nr;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11249 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11250
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11251 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11252 * "tagfiles()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11253 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11254 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11255 f_tagfiles(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11256 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11257 char_u *fname;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11258 tagname_T tn;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11259 int first;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11260
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11261 if (rettv_list_alloc(rettv) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11262 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11263 fname = alloc(MAXPATHL);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11264 if (fname == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11265 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11266
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11267 for (first = TRUE; ; first = FALSE)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11268 if (get_tagfname(&tn, first, fname) == FAIL
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11269 \|\| list_append_string(rettv->vval.v_list, fname, -1) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11270 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11271 tagname_free(&tn);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11272 vim_free(fname);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11273 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11274
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11275 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11276 * "taglist()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11277 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11278 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11279 f_taglist(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11280 {
11225 d3415ec1cdaf patch 8.0.0499: taglist() does not prioritize tags for a buffer Christian Brabandt <cb@256bit.org> parents: 11215 diff changeset	11281 char_u *fname = NULL;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11282 char_u *tag_pattern;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11283
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	11284 tag_pattern = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11285
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11286 rettv->vval.v_number = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11287 if (*tag_pattern == NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11288 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11289
11225 d3415ec1cdaf patch 8.0.0499: taglist() does not prioritize tags for a buffer Christian Brabandt <cb@256bit.org> parents: 11215 diff changeset	11290 if (argvars[1].v_type != VAR_UNKNOWN)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	11291 fname = tv_get_string(&argvars[1]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11292 if (rettv_list_alloc(rettv) == OK)
11225 d3415ec1cdaf patch 8.0.0499: taglist() does not prioritize tags for a buffer Christian Brabandt <cb@256bit.org> parents: 11215 diff changeset	11293 (void)get_tags(rettv->vval.v_list, tag_pattern, fname);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11294 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11295
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11296 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11297 * "tempname()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11298 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11299 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11300 f_tempname(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11301 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11302 static int x = 'A';
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11303
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11304 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11305 rettv->vval.v_string = vim_tempname(x, FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11306
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11307 /* Advance 'x' to use A-Z and 0-9, so that there are at least 34 different
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11308 * names. Skip 'I' and 'O', they are used for shell redirection. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11309 do
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11310 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11311 if (x == 'Z')
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11312 x = '0';
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11313 else if (x == '9')
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11314 x = 'A';
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11315 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11316 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11317 #ifdef EBCDIC
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11318 if (x == 'I')
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11319 x = 'J';
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11320 else if (x == 'R')
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11321 x = 'S';
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11322 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11323 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11324 ++x;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11325 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11326 } while (x == 'I' \|\| x == 'O');
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11327 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11328
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11329 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11330 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11331 * "tan()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11332 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11333 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11334 f_tan(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11335 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11336 float_T f = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11337
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11338 rettv->v_type = VAR_FLOAT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11339 if (get_float_arg(argvars, &f) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11340 rettv->vval.v_float = tan(f);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11341 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11342 rettv->vval.v_float = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11343 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11344
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11345 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11346 * "tanh()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11347 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11348 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11349 f_tanh(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11350 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11351 float_T f = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11352
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11353 rettv->v_type = VAR_FLOAT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11354 if (get_float_arg(argvars, &f) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11355 rettv->vval.v_float = tanh(f);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11356 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11357 rettv->vval.v_float = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11358 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11359 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11360
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11361 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11362 * Get a callback from "arg". It can be a Funcref or a function name.
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11363 * When "arg" is zero return an empty string.
16872 a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11364 * "cb_name" is not allocated.
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11365 * "cb_name" is set to NULL for an invalid argument.
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11366 */
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11367 callback_T
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11368 get_callback(typval_T *arg)
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11369 {
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11370 callback_T res;
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11371
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11372 res.cb_free_name = FALSE;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11373 if (arg->v_type == VAR_PARTIAL && arg->vval.v_partial != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11374 {
16872 a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11375 res.cb_partial = arg->vval.v_partial;
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11376 ++res.cb_partial->pt_refcount;
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11377 res.cb_name = partial_name(res.cb_partial);
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11378 }
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11379 else
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11380 {
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11381 res.cb_partial = NULL;
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11382 if (arg->v_type == VAR_FUNC \|\| arg->v_type == VAR_STRING)
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11383 {
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11384 // Note that we don't make a copy of the string.
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11385 res.cb_name = arg->vval.v_string;
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11386 func_ref(res.cb_name);
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11387 }
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11388 else if (arg->v_type == VAR_NUMBER && arg->vval.v_number == 0)
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11389 {
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11390 res.cb_name = (char_u *)"";
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11391 }
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11392 else
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11393 {
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11394 emsg(_("E921: Invalid callback argument"));
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11395 res.cb_name = NULL;
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11396 }
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11397 }
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11398 return res;
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11399 }
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11400
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11401 /*
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11402 * Copy a callback into a typval_T.
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11403 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11404 void
16872 a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11405 put_callback(callback_T cb, typval_T tv)
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11406 {
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11407 if (cb->cb_partial != NULL)
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11408 {
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11409 tv->v_type = VAR_PARTIAL;
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11410 tv->vval.v_partial = cb->cb_partial;
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11411 ++tv->vval.v_partial->pt_refcount;
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11412 }
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11413 else
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11414 {
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11415 tv->v_type = VAR_FUNC;
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11416 tv->vval.v_string = vim_strsave(cb->cb_name);
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11417 func_ref(cb->cb_name);
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11418 }
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11419 }
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11420
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11421 /*
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11422 * Make a copy of "src" into "dest", allocating the function name if needed,
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11423 * without incrementing the refcount.
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11424 */
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11425 void
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11426 set_callback(callback_T dest, callback_T src)
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11427 {
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11428 if (src->cb_partial == NULL)
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11429 {
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11430 // just a function name, make a copy
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11431 dest->cb_name = vim_strsave(src->cb_name);
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11432 dest->cb_free_name = TRUE;
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11433 }
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11434 else
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11435 {
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11436 // cb_name is a pointer into cb_partial
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11437 dest->cb_name = src->cb_name;
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11438 dest->cb_free_name = FALSE;
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11439 }
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11440 dest->cb_partial = src->cb_partial;
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11441 }
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11442
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11443 /*
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11444 * Unref/free "callback" returned by get_callback() or set_callback().
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11445 */
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11446 void
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11447 free_callback(callback_T *callback)
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11448 {
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11449 if (callback->cb_partial != NULL)
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11450 {
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11451 partial_unref(callback->cb_partial);
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11452 callback->cb_partial = NULL;
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11453 }
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11454 else if (callback->cb_name != NULL)
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11455 func_unref(callback->cb_name);
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11456 if (callback->cb_free_name)
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11457 {
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11458 vim_free(callback->cb_name);
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11459 callback->cb_free_name = FALSE;
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11460 }
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11461 callback->cb_name = NULL;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11462 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11463
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11464 #ifdef FEAT_TIMERS
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11465 /*
9790 34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	11466 * "timer_info([timer])" function
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	11467 */
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	11468 static void
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	11469 f_timer_info(typval_T argvars, typval_T rettv)
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	11470 {
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	11471 timer_T *timer = NULL;
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	11472
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	11473 if (rettv_list_alloc(rettv) != OK)
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	11474 return;
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	11475 if (argvars[0].v_type != VAR_UNKNOWN)
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	11476 {
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	11477 if (argvars[0].v_type != VAR_NUMBER)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	11478 emsg(_(e_number_exp));
9790 34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	11479 else
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	11480 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	11481 timer = find_timer((int)tv_get_number(&argvars[0]));
9790 34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	11482 if (timer != NULL)
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	11483 add_timer_info(rettv, timer);
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	11484 }
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	11485 }
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	11486 else
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	11487 add_timer_info_all(rettv);
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	11488 }
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	11489
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9774 diff changeset	11490 /*
9810 6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11491 * "timer_pause(timer, paused)" function
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11492 */
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11493 static void
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11494 f_timer_pause(typval_T argvars, typval_T rettv UNUSED)
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11495 {
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11496 timer_T *timer = NULL;
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	11497 int paused = (int)tv_get_number(&argvars[1]);
9810 6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11498
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11499 if (argvars[0].v_type != VAR_NUMBER)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	11500 emsg(_(e_number_exp));
9810 6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11501 else
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11502 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	11503 timer = find_timer((int)tv_get_number(&argvars[0]));
9810 6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11504 if (timer != NULL)
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11505 timer->tr_paused = paused;
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11506 }
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11507 }
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11508
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11509 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11510 * "timer_start(time, callback [, options])" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11511 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11512 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11513 f_timer_start(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11514 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	11515 long msec = (long)tv_get_number(&argvars[0]);
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10116 diff changeset	11516 timer_T *timer;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10116 diff changeset	11517 int repeat = 0;
16872 a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11518 callback_T callback;
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10116 diff changeset	11519 dict_T *dict;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10116 diff changeset	11520
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10116 diff changeset	11521 rettv->vval.v_number = -1;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11522 if (check_secure())
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11523 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11524 if (argvars[2].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11525 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11526 if (argvars[2].v_type != VAR_DICT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11527 \|\| (dict = argvars[2].vval.v_dict) == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11528 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	11529 semsg(_(e_invarg2), tv_get_string(&argvars[2]));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11530 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11531 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11532 if (dict_find(dict, (char_u *)"repeat", -1) != NULL)
15146 7903dce131d4 patch 8.1.0583: using illogical name for get_dict_number()/get_dict_string() Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	11533 repeat = dict_get_number(dict, (char_u *)"repeat");
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11534 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11535
16872 a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11536 callback = get_callback(&argvars[1]);
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11537 if (callback.cb_name == NULL)
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10116 diff changeset	11538 return;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10116 diff changeset	11539
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10116 diff changeset	11540 timer = create_timer(msec, repeat);
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10116 diff changeset	11541 if (timer == NULL)
16872 a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11542 free_callback(&callback);
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11543 else
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11544 {
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16861 diff changeset	11545 set_callback(&timer->tr_callback, &callback);
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10116 diff changeset	11546 rettv->vval.v_number = (varnumber_T)timer->tr_id;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11547 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11548 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11549
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11550 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11551 * "timer_stop(timer)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11552 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11553 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11554 f_timer_stop(typval_T argvars, typval_T rettv UNUSED)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11555 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11556 timer_T *timer;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11557
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11558 if (argvars[0].v_type != VAR_NUMBER)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11559 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	11560 emsg(_(e_number_exp));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11561 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11562 }
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	11563 timer = find_timer((int)tv_get_number(&argvars[0]));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11564 if (timer != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11565 stop_timer(timer);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11566 }
9810 6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11567
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11568 /*
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11569 * "timer_stopall()" function
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11570 */
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11571 static void
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11572 f_timer_stopall(typval_T argvars UNUSED, typval_T rettv UNUSED)
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11573 {
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11574 stop_all_timers();
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9790 diff changeset	11575 }
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11576 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11577
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11578 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11579 * "tolower(string)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11580 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11581 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11582 f_tolower(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11583 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11584 rettv->v_type = VAR_STRING;
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	11585 rettv->vval.v_string = strlow_save(tv_get_string(&argvars[0]));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11586 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11587
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11588 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11589 * "toupper(string)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11590 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11591 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11592 f_toupper(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11593 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11594 rettv->v_type = VAR_STRING;
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	11595 rettv->vval.v_string = strup_save(tv_get_string(&argvars[0]));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11596 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11597
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11598 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11599 * "tr(string, fromstr, tostr)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11600 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11601 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11602 f_tr(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11603 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11604 char_u *in_str;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11605 char_u *fromstr;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11606 char_u *tostr;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11607 char_u *p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11608 int inlen;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11609 int fromlen;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11610 int tolen;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11611 int idx;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11612 char_u *cpstr;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11613 int cplen;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11614 int first = TRUE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11615 char_u buf[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11616 char_u buf2[NUMBUFLEN];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11617 garray_T ga;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11618
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	11619 in_str = tv_get_string(&argvars[0]);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	11620 fromstr = tv_get_string_buf_chk(&argvars[1], buf);
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	11621 tostr = tv_get_string_buf_chk(&argvars[2], buf2);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11622
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11623 /* Default return value: empty string. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11624 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11625 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11626 if (fromstr == NULL \|\| tostr == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11627 return; /* type error; errmsg already given */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11628 ga_init2(&ga, (int)sizeof(char), 80);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11629
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11630 if (!has_mbyte)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11631 /* not multi-byte: fromstr and tostr must be the same length */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11632 if (STRLEN(fromstr) != STRLEN(tostr))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11633 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11634 error:
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	11635 semsg(_(e_invarg2), fromstr);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11636 ga_clear(&ga);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11637 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11638 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11639
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11640 /* fromstr and tostr have to contain the same number of chars */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11641 while (*in_str != NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11642 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11643 if (has_mbyte)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11644 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11645 inlen = (*mb_ptr2len)(in_str);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11646 cpstr = in_str;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11647 cplen = inlen;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11648 idx = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11649 for (p = fromstr; *p != NUL; p += fromlen)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11650 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11651 fromlen = (*mb_ptr2len)(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11652 if (fromlen == inlen && STRNCMP(in_str, p, inlen) == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11653 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11654 for (p = tostr; *p != NUL; p += tolen)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11655 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11656 tolen = (*mb_ptr2len)(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11657 if (idx-- == 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11658 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11659 cplen = tolen;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11660 cpstr = p;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11661 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11662 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11663 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11664 if (p == NUL) / tostr is shorter than fromstr */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11665 goto error;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11666 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11667 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11668 ++idx;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11669 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11670
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11671 if (first && cpstr == in_str)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11672 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11673 /* Check that fromstr and tostr have the same number of
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11674 * (multi-byte) characters. Done only once when a character
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11675 * of in_str doesn't appear in fromstr. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11676 first = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11677 for (p = tostr; *p != NUL; p += tolen)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11678 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11679 tolen = (*mb_ptr2len)(p);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11680 --idx;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11681 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11682 if (idx != 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11683 goto error;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11684 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11685
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11686 (void)ga_grow(&ga, cplen);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11687 mch_memmove((char *)ga.ga_data + ga.ga_len, cpstr, (size_t)cplen);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11688 ga.ga_len += cplen;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11689
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11690 in_str += inlen;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11691 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11692 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11693 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11694 /* When not using multi-byte chars we can do it faster. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11695 p = vim_strchr(fromstr, *in_str);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11696 if (p != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11697 ga_append(&ga, tostr[p - fromstr]);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11698 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11699 ga_append(&ga, *in_str);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11700 ++in_str;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11701 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11702 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11703
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11704 /* add a terminating NUL */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11705 (void)ga_grow(&ga, 1);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11706 ga_append(&ga, NUL);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11707
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11708 rettv->vval.v_string = ga.ga_data;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11709 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11710
13513 4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11711 /*
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11712 * "trim({expr})" function
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11713 */
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11714 static void
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11715 f_trim(typval_T argvars, typval_T rettv)
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11716 {
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11717 char_u buf1[NUMBUFLEN];
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11718 char_u buf2[NUMBUFLEN];
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	11719 char_u *head = tv_get_string_buf_chk(&argvars[0], buf1);
13513 4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11720 char_u *mask = NULL;
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11721 char_u *tail;
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11722 char_u *prev;
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11723 char_u *p;
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11724 int c1;
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11725
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11726 rettv->v_type = VAR_STRING;
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11727 if (head == NULL)
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11728 {
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11729 rettv->vval.v_string = NULL;
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11730 return;
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11731 }
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11732
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11733 if (argvars[1].v_type == VAR_STRING)
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	11734 mask = tv_get_string_buf_chk(&argvars[1], buf2);
13513 4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11735
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11736 while (*head != NUL)
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11737 {
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11738 c1 = PTR2CHAR(head);
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11739 if (mask == NULL)
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11740 {
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11741 if (c1 > ' ' && c1 != 0xa0)
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11742 break;
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11743 }
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11744 else
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11745 {
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11746 for (p = mask; *p != NUL; MB_PTR_ADV(p))
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11747 if (c1 == PTR2CHAR(p))
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11748 break;
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11749 if (*p == NUL)
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11750 break;
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11751 }
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11752 MB_PTR_ADV(head);
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11753 }
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11754
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11755 for (tail = head + STRLEN(head); tail > head; tail = prev)
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11756 {
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11757 prev = tail;
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11758 MB_PTR_BACK(head, prev);
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11759 c1 = PTR2CHAR(prev);
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11760 if (mask == NULL)
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11761 {
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11762 if (c1 > ' ' && c1 != 0xa0)
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11763 break;
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11764 }
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11765 else
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11766 {
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11767 for (p = mask; *p != NUL; MB_PTR_ADV(p))
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11768 if (c1 == PTR2CHAR(p))
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11769 break;
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11770 if (*p == NUL)
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11771 break;
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11772 }
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11773 }
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11774 rettv->vval.v_string = vim_strnsave(head, (int)(tail - head));
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11775 }
4064f342bea4 patch 8.0.1630: trimming white space is not that easy Christian Brabandt <cb@256bit.org> parents: 13470 diff changeset	11776
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11777 #ifdef FEAT_FLOAT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11778 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11779 * "trunc({float})" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11780 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11781 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11782 f_trunc(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11783 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11784 float_T f = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11785
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11786 rettv->v_type = VAR_FLOAT;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11787 if (get_float_arg(argvars, &f) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11788 /* trunc() is not in C90, use floor() or ceil() instead. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11789 rettv->vval.v_float = f > 0 ? floor(f) : ceil(f);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11790 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11791 rettv->vval.v_float = 0.0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11792 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11793 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11794
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11795 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11796 * "type(expr)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11797 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11798 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11799 f_type(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11800 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11801 int n = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11802
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11803 switch (argvars[0].v_type)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11804 {
9587 05a56bbe34a1 commit https://github.com/vim/vim/commit/f562e72df726c6191fa305e1c0a113f1cfb87f76 Christian Brabandt <cb@256bit.org> parents: 9575 diff changeset	11805 case VAR_NUMBER: n = VAR_TYPE_NUMBER; break;
05a56bbe34a1 commit https://github.com/vim/vim/commit/f562e72df726c6191fa305e1c0a113f1cfb87f76 Christian Brabandt <cb@256bit.org> parents: 9575 diff changeset	11806 case VAR_STRING: n = VAR_TYPE_STRING; break;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11807 case VAR_PARTIAL:
9587 05a56bbe34a1 commit https://github.com/vim/vim/commit/f562e72df726c6191fa305e1c0a113f1cfb87f76 Christian Brabandt <cb@256bit.org> parents: 9575 diff changeset	11808 case VAR_FUNC: n = VAR_TYPE_FUNC; break;
05a56bbe34a1 commit https://github.com/vim/vim/commit/f562e72df726c6191fa305e1c0a113f1cfb87f76 Christian Brabandt <cb@256bit.org> parents: 9575 diff changeset	11809 case VAR_LIST: n = VAR_TYPE_LIST; break;
05a56bbe34a1 commit https://github.com/vim/vim/commit/f562e72df726c6191fa305e1c0a113f1cfb87f76 Christian Brabandt <cb@256bit.org> parents: 9575 diff changeset	11810 case VAR_DICT: n = VAR_TYPE_DICT; break;
05a56bbe34a1 commit https://github.com/vim/vim/commit/f562e72df726c6191fa305e1c0a113f1cfb87f76 Christian Brabandt <cb@256bit.org> parents: 9575 diff changeset	11811 case VAR_FLOAT: n = VAR_TYPE_FLOAT; break;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11812 case VAR_SPECIAL:
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11813 if (argvars[0].vval.v_number == VVAL_FALSE
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11814 \|\| argvars[0].vval.v_number == VVAL_TRUE)
9587 05a56bbe34a1 commit https://github.com/vim/vim/commit/f562e72df726c6191fa305e1c0a113f1cfb87f76 Christian Brabandt <cb@256bit.org> parents: 9575 diff changeset	11815 n = VAR_TYPE_BOOL;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11816 else
9587 05a56bbe34a1 commit https://github.com/vim/vim/commit/f562e72df726c6191fa305e1c0a113f1cfb87f76 Christian Brabandt <cb@256bit.org> parents: 9575 diff changeset	11817 n = VAR_TYPE_NONE;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11818 break;
9587 05a56bbe34a1 commit https://github.com/vim/vim/commit/f562e72df726c6191fa305e1c0a113f1cfb87f76 Christian Brabandt <cb@256bit.org> parents: 9575 diff changeset	11819 case VAR_JOB: n = VAR_TYPE_JOB; break;
05a56bbe34a1 commit https://github.com/vim/vim/commit/f562e72df726c6191fa305e1c0a113f1cfb87f76 Christian Brabandt <cb@256bit.org> parents: 9575 diff changeset	11820 case VAR_CHANNEL: n = VAR_TYPE_CHANNEL; break;
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	11821 case VAR_BLOB: n = VAR_TYPE_BLOB; break;
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11822 case VAR_UNKNOWN:
10359 66f1b5bf3fa6 commit https://github.com/vim/vim/commit/95f096030ed1a8afea028f2ea295d6f6a70f466f Christian Brabandt <cb@256bit.org> parents: 10277 diff changeset	11823 internal_error("f_type(UNKNOWN)");
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11824 n = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11825 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11826 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11827 rettv->vval.v_number = n;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11828 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11829
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11830 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11831 * "undofile(name)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11832 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11833 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11834 f_undofile(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11835 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11836 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11837 #ifdef FEAT_PERSISTENT_UNDO
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11838 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	11839 char_u *fname = tv_get_string(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11840
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11841 if (*fname == NUL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11842 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11843 /* If there is no file name there will be no undo file. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11844 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11845 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11846 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11847 {
16700 46322a4e6028 patch 8.1.1352: undofile() reports wrong name Bram Moolenaar <Bram@vim.org> parents: 16664 diff changeset	11848 char_u *ffname = FullName_save(fname, TRUE);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11849
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11850 if (ffname != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11851 rettv->vval.v_string = u_get_undo_file_name(ffname, FALSE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11852 vim_free(ffname);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11853 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11854 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11855 #else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11856 rettv->vval.v_string = NULL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11857 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11858 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11859
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11860 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11861 * "undotree()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11862 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11863 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11864 f_undotree(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11865 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11866 if (rettv_dict_alloc(rettv) == OK)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11867 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11868 dict_T *dict = rettv->vval.v_dict;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11869 list_T *list;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11870
14301 3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	11871 dict_add_number(dict, "synced", (long)curbuf->b_u_synced);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	11872 dict_add_number(dict, "seq_last", curbuf->b_u_seq_last);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	11873 dict_add_number(dict, "save_last", (long)curbuf->b_u_save_nr_last);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	11874 dict_add_number(dict, "seq_cur", curbuf->b_u_seq_cur);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	11875 dict_add_number(dict, "time_cur", (long)curbuf->b_u_time_cur);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	11876 dict_add_number(dict, "save_cur", (long)curbuf->b_u_save_nr_cur);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11877
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11878 list = list_alloc();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11879 if (list != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11880 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11881 u_eval_tree(curbuf->b_u_oldhead, list);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11882 dict_add_list(dict, "entries", list);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11883 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11884 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11885 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11886
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11887 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11888 * "virtcol(string)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11889 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11890 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11891 f_virtcol(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11892 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11893 colnr_T vcol = 0;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11894 pos_T *fp;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11895 int fnum = curbuf->b_fnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11896
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11897 fp = var2fpos(&argvars[0], FALSE, &fnum);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11898 if (fp != NULL && fp->lnum <= curbuf->b_ml.ml_line_count
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11899 && fnum == curbuf->b_fnum)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11900 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11901 getvvcol(curwin, fp, NULL, NULL, &vcol);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11902 ++vcol;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11903 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11904
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11905 rettv->vval.v_number = vcol;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11906 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11907
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11908 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11909 * "visualmode()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11910 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11911 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11912 f_visualmode(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11913 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11914 char_u str[2];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11915
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11916 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11917 str[0] = curbuf->b_visual_mode_eval;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11918 str[1] = NUL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11919 rettv->vval.v_string = vim_strsave(str);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11920
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11921 /* A non-zero number or non-empty string argument: reset mode. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11922 if (non_zero_arg(&argvars[0]))
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11923 curbuf->b_visual_mode_eval = NUL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11924 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11925
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11926 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11927 * "wildmenumode()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11928 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11929 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11930 f_wildmenumode(typval_T argvars UNUSED, typval_T rettv UNUSED)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11931 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11932 #ifdef FEAT_WILDMENU
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11933 if (wild_menu_showing)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11934 rettv->vval.v_number = 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11935 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11936 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11937
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11938 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11939 * "winbufnr(nr)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11940 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11941 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11942 f_winbufnr(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11943 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11944 win_T *wp;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11945
14966 d65790af8514 patch 8.1.0494: functions do not check for a window ID in other tabs Bram Moolenaar <Bram@vim.org> parents: 14964 diff changeset	11946 wp = find_win_by_nr_or_id(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11947 if (wp == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11948 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11949 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11950 rettv->vval.v_number = wp->w_buffer->b_fnum;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11951 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11952
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11953 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11954 * "wincol()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11955 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11956 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11957 f_wincol(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11958 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11959 validate_cursor();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11960 rettv->vval.v_number = curwin->w_wcol + 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11961 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11962
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11963 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11964 * "winheight(nr)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11965 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11966 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11967 f_winheight(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11968 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11969 win_T *wp;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11970
14966 d65790af8514 patch 8.1.0494: functions do not check for a window ID in other tabs Bram Moolenaar <Bram@vim.org> parents: 14964 diff changeset	11971 wp = find_win_by_nr_or_id(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11972 if (wp == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11973 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11974 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11975 rettv->vval.v_number = wp->w_height;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11976 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11977
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	11978 /*
14587 d33220d3bc27 patch 8.1.0307: there is no good way to get the window layout Christian Brabandt <cb@256bit.org> parents: 14509 diff changeset	11979 * "winlayout()" function
d33220d3bc27 patch 8.1.0307: there is no good way to get the window layout Christian Brabandt <cb@256bit.org> parents: 14509 diff changeset	11980 */
d33220d3bc27 patch 8.1.0307: there is no good way to get the window layout Christian Brabandt <cb@256bit.org> parents: 14509 diff changeset	11981 static void
d33220d3bc27 patch 8.1.0307: there is no good way to get the window layout Christian Brabandt <cb@256bit.org> parents: 14509 diff changeset	11982 f_winlayout(typval_T argvars, typval_T rettv)
d33220d3bc27 patch 8.1.0307: there is no good way to get the window layout Christian Brabandt <cb@256bit.org> parents: 14509 diff changeset	11983 {
d33220d3bc27 patch 8.1.0307: there is no good way to get the window layout Christian Brabandt <cb@256bit.org> parents: 14509 diff changeset	11984 tabpage_T *tp;
d33220d3bc27 patch 8.1.0307: there is no good way to get the window layout Christian Brabandt <cb@256bit.org> parents: 14509 diff changeset	11985
d33220d3bc27 patch 8.1.0307: there is no good way to get the window layout Christian Brabandt <cb@256bit.org> parents: 14509 diff changeset	11986 if (rettv_list_alloc(rettv) != OK)
d33220d3bc27 patch 8.1.0307: there is no good way to get the window layout Christian Brabandt <cb@256bit.org> parents: 14509 diff changeset	11987 return;
d33220d3bc27 patch 8.1.0307: there is no good way to get the window layout Christian Brabandt <cb@256bit.org> parents: 14509 diff changeset	11988
d33220d3bc27 patch 8.1.0307: there is no good way to get the window layout Christian Brabandt <cb@256bit.org> parents: 14509 diff changeset	11989 if (argvars[0].v_type == VAR_UNKNOWN)
d33220d3bc27 patch 8.1.0307: there is no good way to get the window layout Christian Brabandt <cb@256bit.org> parents: 14509 diff changeset	11990 tp = curtab;
d33220d3bc27 patch 8.1.0307: there is no good way to get the window layout Christian Brabandt <cb@256bit.org> parents: 14509 diff changeset	11991 else
d33220d3bc27 patch 8.1.0307: there is no good way to get the window layout Christian Brabandt <cb@256bit.org> parents: 14509 diff changeset	11992 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	11993 tp = find_tabpage((int)tv_get_number(&argvars[0]));
14587 d33220d3bc27 patch 8.1.0307: there is no good way to get the window layout Christian Brabandt <cb@256bit.org> parents: 14509 diff changeset	11994 if (tp == NULL)
d33220d3bc27 patch 8.1.0307: there is no good way to get the window layout Christian Brabandt <cb@256bit.org> parents: 14509 diff changeset	11995 return;
d33220d3bc27 patch 8.1.0307: there is no good way to get the window layout Christian Brabandt <cb@256bit.org> parents: 14509 diff changeset	11996 }
d33220d3bc27 patch 8.1.0307: there is no good way to get the window layout Christian Brabandt <cb@256bit.org> parents: 14509 diff changeset	11997
d33220d3bc27 patch 8.1.0307: there is no good way to get the window layout Christian Brabandt <cb@256bit.org> parents: 14509 diff changeset	11998 get_framelayout(tp->tp_topframe, rettv->vval.v_list, TRUE);
d33220d3bc27 patch 8.1.0307: there is no good way to get the window layout Christian Brabandt <cb@256bit.org> parents: 14509 diff changeset	11999 }
d33220d3bc27 patch 8.1.0307: there is no good way to get the window layout Christian Brabandt <cb@256bit.org> parents: 14509 diff changeset	12000
d33220d3bc27 patch 8.1.0307: there is no good way to get the window layout Christian Brabandt <cb@256bit.org> parents: 14509 diff changeset	12001 /*
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12002 * "winline()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12003 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12004 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12005 f_winline(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12006 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12007 validate_cursor();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12008 rettv->vval.v_number = curwin->w_wrow + 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12009 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12010
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12011 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12012 * "winnr()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12013 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12014 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12015 f_winnr(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12016 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12017 int nr = 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12018
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12019 nr = get_winnr(curtab, &argvars[0]);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12020 rettv->vval.v_number = nr;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12021 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12022
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12023 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12024 * "winrestcmd()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12025 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12026 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12027 f_winrestcmd(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12028 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12029 win_T *wp;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12030 int winnr = 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12031 garray_T ga;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12032 char_u buf[50];
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12033
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12034 ga_init2(&ga, (int)sizeof(char), 70);
9649 fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07 Christian Brabandt <cb@256bit.org> parents: 9636 diff changeset	12035 FOR_ALL_WINDOWS(wp)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12036 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12037 sprintf((char *)buf, "%dresize %d\|", winnr, wp->w_height);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12038 ga_concat(&ga, buf);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12039 sprintf((char *)buf, "vert %dresize %d\|", winnr, wp->w_width);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12040 ga_concat(&ga, buf);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12041 ++winnr;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12042 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12043 ga_append(&ga, NUL);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12044
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12045 rettv->vval.v_string = ga.ga_data;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12046 rettv->v_type = VAR_STRING;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12047 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12048
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12049 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12050 * "winrestview()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12051 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12052 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12053 f_winrestview(typval_T argvars, typval_T rettv UNUSED)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12054 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12055 dict_T *dict;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12056
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12057 if (argvars[0].v_type != VAR_DICT
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12058 \|\| (dict = argvars[0].vval.v_dict) == NULL)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	12059 emsg(_(e_invarg));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12060 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12061 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12062 if (dict_find(dict, (char_u *)"lnum", -1) != NULL)
15146 7903dce131d4 patch 8.1.0583: using illogical name for get_dict_number()/get_dict_string() Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	12063 curwin->w_cursor.lnum = (linenr_T)dict_get_number(dict, (char_u *)"lnum");
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12064 if (dict_find(dict, (char_u *)"col", -1) != NULL)
15146 7903dce131d4 patch 8.1.0583: using illogical name for get_dict_number()/get_dict_string() Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	12065 curwin->w_cursor.col = (colnr_T)dict_get_number(dict, (char_u *)"col");
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12066 if (dict_find(dict, (char_u *)"coladd", -1) != NULL)
15146 7903dce131d4 patch 8.1.0583: using illogical name for get_dict_number()/get_dict_string() Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	12067 curwin->w_cursor.coladd = (colnr_T)dict_get_number(dict, (char_u *)"coladd");
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12068 if (dict_find(dict, (char_u *)"curswant", -1) != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12069 {
15146 7903dce131d4 patch 8.1.0583: using illogical name for get_dict_number()/get_dict_string() Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	12070 curwin->w_curswant = (colnr_T)dict_get_number(dict, (char_u *)"curswant");
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12071 curwin->w_set_curswant = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12072 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12073
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12074 if (dict_find(dict, (char_u *)"topline", -1) != NULL)
15146 7903dce131d4 patch 8.1.0583: using illogical name for get_dict_number()/get_dict_string() Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	12075 set_topline(curwin, (linenr_T)dict_get_number(dict, (char_u *)"topline"));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12076 #ifdef FEAT_DIFF
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12077 if (dict_find(dict, (char_u *)"topfill", -1) != NULL)
15146 7903dce131d4 patch 8.1.0583: using illogical name for get_dict_number()/get_dict_string() Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	12078 curwin->w_topfill = (int)dict_get_number(dict, (char_u *)"topfill");
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12079 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12080 if (dict_find(dict, (char_u *)"leftcol", -1) != NULL)
15146 7903dce131d4 patch 8.1.0583: using illogical name for get_dict_number()/get_dict_string() Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	12081 curwin->w_leftcol = (colnr_T)dict_get_number(dict, (char_u *)"leftcol");
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12082 if (dict_find(dict, (char_u *)"skipcol", -1) != NULL)
15146 7903dce131d4 patch 8.1.0583: using illogical name for get_dict_number()/get_dict_string() Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	12083 curwin->w_skipcol = (colnr_T)dict_get_number(dict, (char_u *)"skipcol");
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12084
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12085 check_cursor();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12086 win_new_height(curwin, curwin->w_height);
12515 972ea22c946f patch 8.0.1136: W_WIDTH() is always the same Christian Brabandt <cb@256bit.org> parents: 12487 diff changeset	12087 win_new_width(curwin, curwin->w_width);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12088 changed_window_setting();
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12089
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12090 if (curwin->w_topline <= 0)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12091 curwin->w_topline = 1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12092 if (curwin->w_topline > curbuf->b_ml.ml_line_count)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12093 curwin->w_topline = curbuf->b_ml.ml_line_count;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12094 #ifdef FEAT_DIFF
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12095 check_topfill(curwin, TRUE);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12096 #endif
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12097 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12098 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12099
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12100 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12101 * "winsaveview()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12102 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12103 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12104 f_winsaveview(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12105 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12106 dict_T *dict;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12107
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12108 if (rettv_dict_alloc(rettv) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12109 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12110 dict = rettv->vval.v_dict;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12111
14301 3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	12112 dict_add_number(dict, "lnum", (long)curwin->w_cursor.lnum);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	12113 dict_add_number(dict, "col", (long)curwin->w_cursor.col);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	12114 dict_add_number(dict, "coladd", (long)curwin->w_cursor.coladd);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12115 update_curswant();
14301 3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	12116 dict_add_number(dict, "curswant", (long)curwin->w_curswant);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	12117
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	12118 dict_add_number(dict, "topline", (long)curwin->w_topline);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12119 #ifdef FEAT_DIFF
14301 3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	12120 dict_add_number(dict, "topfill", (long)curwin->w_topfill);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	12121 #endif
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	12122 dict_add_number(dict, "leftcol", (long)curwin->w_leftcol);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14214 diff changeset	12123 dict_add_number(dict, "skipcol", (long)curwin->w_skipcol);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12124 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12125
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12126 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12127 * "winwidth(nr)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12128 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12129 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12130 f_winwidth(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12131 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12132 win_T *wp;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12133
14966 d65790af8514 patch 8.1.0494: functions do not check for a window ID in other tabs Bram Moolenaar <Bram@vim.org> parents: 14964 diff changeset	12134 wp = find_win_by_nr_or_id(&argvars[0]);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12135 if (wp == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12136 rettv->vval.v_number = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12137 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12138 rettv->vval.v_number = wp->w_width;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12139 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12140
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12141 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12142 * "wordcount()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12143 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12144 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12145 f_wordcount(typval_T argvars UNUSED, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12146 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12147 if (rettv_dict_alloc(rettv) == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12148 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12149 cursor_pos_info(rettv->vval.v_dict);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12150 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12151
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12152 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12153 * "writefile()" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12154 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12155 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12156 f_writefile(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12157 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12158 int binary = FALSE;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12159 int append = FALSE;
12857 ffdf2e4b5d9a patch 8.0.1305: writefile() never calls fsync() Christian Brabandt <cb@256bit.org> parents: 12837 diff changeset	12160 #ifdef HAVE_FSYNC
ffdf2e4b5d9a patch 8.0.1305: writefile() never calls fsync() Christian Brabandt <cb@256bit.org> parents: 12837 diff changeset	12161 int do_fsync = p_fs;
ffdf2e4b5d9a patch 8.0.1305: writefile() never calls fsync() Christian Brabandt <cb@256bit.org> parents: 12837 diff changeset	12162 #endif
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12163 char_u *fname;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12164 FILE *fd;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12165 int ret = 0;
11519 4a1f7849fe86 patch 8.0.0642: writefile() continues after detecting an error Christian Brabandt <cb@256bit.org> parents: 11484 diff changeset	12166 listitem_T *li;
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12167 list_T *list = NULL;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12168 blob_T *blob = NULL;
11519 4a1f7849fe86 patch 8.0.0642: writefile() continues after detecting an error Christian Brabandt <cb@256bit.org> parents: 11484 diff changeset	12169
4a1f7849fe86 patch 8.0.0642: writefile() continues after detecting an error Christian Brabandt <cb@256bit.org> parents: 11484 diff changeset	12170 rettv->vval.v_number = -1;
15748 93b78c4a7cd5 patch 8.1.0881: can execute shell commands in rvim through interfaces Bram Moolenaar <Bram@vim.org> parents: 15725 diff changeset	12171 if (check_secure())
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12172 return;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12173
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12174 if (argvars[0].v_type == VAR_LIST)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12175 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12176 list = argvars[0].vval.v_list;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12177 if (list == NULL)
11519 4a1f7849fe86 patch 8.0.0642: writefile() continues after detecting an error Christian Brabandt <cb@256bit.org> parents: 11484 diff changeset	12178 return;
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12179 for (li = list->lv_first; li != NULL; li = li->li_next)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12180 if (tv_get_string_chk(&li->li_tv) == NULL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12181 return;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12182 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12183 else if (argvars[0].v_type == VAR_BLOB)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12184 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12185 blob = argvars[0].vval.v_blob;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12186 if (blob == NULL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12187 return;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12188 }
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12189 else
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12190 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	12191 semsg(_(e_invarg2), "writefile()");
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12192 return;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12193 }
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12194
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12195 if (argvars[2].v_type != VAR_UNKNOWN)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12196 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	12197 char_u *arg2 = tv_get_string_chk(&argvars[2]);
11519 4a1f7849fe86 patch 8.0.0642: writefile() continues after detecting an error Christian Brabandt <cb@256bit.org> parents: 11484 diff changeset	12198
4a1f7849fe86 patch 8.0.0642: writefile() continues after detecting an error Christian Brabandt <cb@256bit.org> parents: 11484 diff changeset	12199 if (arg2 == NULL)
4a1f7849fe86 patch 8.0.0642: writefile() continues after detecting an error Christian Brabandt <cb@256bit.org> parents: 11484 diff changeset	12200 return;
4a1f7849fe86 patch 8.0.0642: writefile() continues after detecting an error Christian Brabandt <cb@256bit.org> parents: 11484 diff changeset	12201 if (vim_strchr(arg2, 'b') != NULL)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12202 binary = TRUE;
11519 4a1f7849fe86 patch 8.0.0642: writefile() continues after detecting an error Christian Brabandt <cb@256bit.org> parents: 11484 diff changeset	12203 if (vim_strchr(arg2, 'a') != NULL)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12204 append = TRUE;
12857 ffdf2e4b5d9a patch 8.0.1305: writefile() never calls fsync() Christian Brabandt <cb@256bit.org> parents: 12837 diff changeset	12205 #ifdef HAVE_FSYNC
ffdf2e4b5d9a patch 8.0.1305: writefile() never calls fsync() Christian Brabandt <cb@256bit.org> parents: 12837 diff changeset	12206 if (vim_strchr(arg2, 's') != NULL)
ffdf2e4b5d9a patch 8.0.1305: writefile() never calls fsync() Christian Brabandt <cb@256bit.org> parents: 12837 diff changeset	12207 do_fsync = TRUE;
ffdf2e4b5d9a patch 8.0.1305: writefile() never calls fsync() Christian Brabandt <cb@256bit.org> parents: 12837 diff changeset	12208 else if (vim_strchr(arg2, 'S') != NULL)
ffdf2e4b5d9a patch 8.0.1305: writefile() never calls fsync() Christian Brabandt <cb@256bit.org> parents: 12837 diff changeset	12209 do_fsync = FALSE;
ffdf2e4b5d9a patch 8.0.1305: writefile() never calls fsync() Christian Brabandt <cb@256bit.org> parents: 12837 diff changeset	12210 #endif
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12211 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12212
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	12213 fname = tv_get_string_chk(&argvars[1]);
11519 4a1f7849fe86 patch 8.0.0642: writefile() continues after detecting an error Christian Brabandt <cb@256bit.org> parents: 11484 diff changeset	12214 if (fname == NULL)
4a1f7849fe86 patch 8.0.0642: writefile() continues after detecting an error Christian Brabandt <cb@256bit.org> parents: 11484 diff changeset	12215 return;
4a1f7849fe86 patch 8.0.0642: writefile() continues after detecting an error Christian Brabandt <cb@256bit.org> parents: 11484 diff changeset	12216
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12217 /* Always open the file in binary mode, library functions have a mind of
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12218 * their own about CR-LF conversion. */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12219 if (fname == NUL \|\| (fd = mch_fopen((char )fname,
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12220 append ? APPENDBIN : WRITEBIN)) == NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12221 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15468 diff changeset	12222 semsg(_(e_notcreate), fname == NUL ? (char_u )_("<empty>") : fname);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12223 ret = -1;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12224 }
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12225 else if (blob)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12226 {
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12227 if (write_blob(fd, blob) == FAIL)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12228 ret = -1;
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12229 #ifdef HAVE_FSYNC
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12230 else if (do_fsync)
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12231 // Ignore the error, the user wouldn't know what to do about it.
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12232 // May happen for a device.
15816 40336d427dd2 patch 8.1.0915: fsync() may not work properly on Mac Bram Moolenaar <Bram@vim.org> parents: 15788 diff changeset	12233 vim_ignored = vim_fsync(fileno(fd));
15454 1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12234 #endif
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12235 fclose(fd);
1d2b5c016f17 patch 8.1.0735: cannot handle binary data Bram Moolenaar <Bram@vim.org> parents: 15444 diff changeset	12236 }
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12237 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12238 {
11519 4a1f7849fe86 patch 8.0.0642: writefile() continues after detecting an error Christian Brabandt <cb@256bit.org> parents: 11484 diff changeset	12239 if (write_list(fd, list, binary) == FAIL)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12240 ret = -1;
12857 ffdf2e4b5d9a patch 8.0.1305: writefile() never calls fsync() Christian Brabandt <cb@256bit.org> parents: 12837 diff changeset	12241 #ifdef HAVE_FSYNC
12918 8ba2a921cd86 patch 8.0.1335: writefile() using fsync() may give an error. Christian Brabandt <cb@256bit.org> parents: 12885 diff changeset	12242 else if (do_fsync)
8ba2a921cd86 patch 8.0.1335: writefile() using fsync() may give an error. Christian Brabandt <cb@256bit.org> parents: 12885 diff changeset	12243 /* Ignore the error, the user wouldn't know what to do about it.
8ba2a921cd86 patch 8.0.1335: writefile() using fsync() may give an error. Christian Brabandt <cb@256bit.org> parents: 12885 diff changeset	12244 * May happen for a device. */
15816 40336d427dd2 patch 8.1.0915: fsync() may not work properly on Mac Bram Moolenaar <Bram@vim.org> parents: 15788 diff changeset	12245 vim_ignored = vim_fsync(fileno(fd));
12857 ffdf2e4b5d9a patch 8.0.1305: writefile() never calls fsync() Christian Brabandt <cb@256bit.org> parents: 12837 diff changeset	12246 #endif
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12247 fclose(fd);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12248 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12249
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12250 rettv->vval.v_number = ret;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12251 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12252
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12253 /*
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12254 * "xor(expr, expr)" function
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12255 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12256 static void
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12257 f_xor(typval_T argvars, typval_T rettv)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12258 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	12259 rettv->vval.v_number = tv_get_number_chk(&argvars[0], NULL)
de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	12260 ^ tv_get_number_chk(&argvars[1], NULL);
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12261 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12262
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: diff changeset	12263 #endif /* FEAT_EVAL */

Mercurial > vim

annotate src/evalfunc.c @ 17964:6d4d3bce365d v8.1.1978