vim: src/typval.c annotate

annotate src/typval.c @ 31289:4f1e70a709bb v9.0.0978

patch 9.0.0978: build errors without the +channel feature Commit: https://github.com/vim/vim/commit/3b8c7083b265c35861a7f96b01c079471ff45152 Author: Bram Moolenaar <Bram@vim.org> Date: Wed Nov 30 20:20:56 2022 +0000 patch 9.0.0978: build errors without the +channel feature Problem: Build errors without the +channel feature. (John Marriott) Solution: Adjust #ifdefs.

author	Bram Moolenaar <Bram@vim.org>
date	Wed, 30 Nov 2022 21:30:03 +0100
parents	360f286b5869
children	307f68a41b03

rev	line source
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2 *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	4 *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	6 * Do ":help credits" in Vim to see a list of people who contributed.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	7 * See README.txt for an overview of the Vim source code.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	8 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	9
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	10 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	11 * typval.c: functions that deal with a typval
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	12 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	13
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	14 #include "vim.h"
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	15
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	16 #if defined(FEAT_EVAL) \|\| defined(PROTO)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	17
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	18 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	19 * Allocate memory for a variable type-value, and make it empty (0 or NULL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	20 * value).
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	21 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	22 typval_T *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	23 alloc_tv(void)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	24 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	25 return ALLOC_CLEAR_ONE(typval_T);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	26 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	27
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	28 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	29 * Allocate memory for a variable type-value, and assign a string to it.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	30 * The string "s" must have been allocated, it is consumed.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	31 * Return NULL for out of memory, the variable otherwise.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	32 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	33 typval_T *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	34 alloc_string_tv(char_u *s)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	35 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	36 typval_T *rettv;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	37
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	38 rettv = alloc_tv();
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	39 if (rettv != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	40 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	41 rettv->v_type = VAR_STRING;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	42 rettv->vval.v_string = s;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	43 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	44 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	45 vim_free(s);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	46 return rettv;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	47 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	48
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	49 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	50 * Free the memory for a variable type-value.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	51 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	52 void
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	53 free_tv(typval_T *varp)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	54 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	55 if (varp != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	56 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	57 switch (varp->v_type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	58 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	59 case VAR_FUNC:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	60 func_unref(varp->vval.v_string);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	61 // FALLTHROUGH
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	62 case VAR_STRING:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	63 vim_free(varp->vval.v_string);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	64 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	65 case VAR_PARTIAL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	66 partial_unref(varp->vval.v_partial);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	67 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	68 case VAR_BLOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	69 blob_unref(varp->vval.v_blob);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	70 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	71 case VAR_LIST:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	72 list_unref(varp->vval.v_list);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	73 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	74 case VAR_DICT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	75 dict_unref(varp->vval.v_dict);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	76 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	77 case VAR_JOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	78 #ifdef FEAT_JOB_CHANNEL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	79 job_unref(varp->vval.v_job);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	80 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	81 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	82 case VAR_CHANNEL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	83 #ifdef FEAT_JOB_CHANNEL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	84 channel_unref(varp->vval.v_channel);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	85 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	86 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	87 case VAR_NUMBER:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	88 case VAR_FLOAT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	89 case VAR_ANY:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	90 case VAR_UNKNOWN:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	91 case VAR_VOID:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	92 case VAR_BOOL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	93 case VAR_SPECIAL:
24606 a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled Bram Moolenaar <Bram@vim.org> parents: 24424 diff changeset	94 case VAR_INSTR:
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	95 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	96 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	97 vim_free(varp);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	98 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	99 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	100
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	101 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	102 * Free the memory for a variable value and set the value to NULL or 0.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	103 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	104 void
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	105 clear_tv(typval_T *varp)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	106 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	107 if (varp != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	108 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	109 switch (varp->v_type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	110 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	111 case VAR_FUNC:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	112 func_unref(varp->vval.v_string);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	113 // FALLTHROUGH
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	114 case VAR_STRING:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	115 VIM_CLEAR(varp->vval.v_string);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	116 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	117 case VAR_PARTIAL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	118 partial_unref(varp->vval.v_partial);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	119 varp->vval.v_partial = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	120 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	121 case VAR_BLOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	122 blob_unref(varp->vval.v_blob);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	123 varp->vval.v_blob = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	124 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	125 case VAR_LIST:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	126 list_unref(varp->vval.v_list);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	127 varp->vval.v_list = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	128 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	129 case VAR_DICT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	130 dict_unref(varp->vval.v_dict);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	131 varp->vval.v_dict = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	132 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	133 case VAR_NUMBER:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	134 case VAR_BOOL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	135 case VAR_SPECIAL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	136 varp->vval.v_number = 0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	137 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	138 case VAR_FLOAT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	139 varp->vval.v_float = 0.0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	140 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	141 case VAR_JOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	142 #ifdef FEAT_JOB_CHANNEL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	143 job_unref(varp->vval.v_job);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	144 varp->vval.v_job = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	145 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	146 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	147 case VAR_CHANNEL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	148 #ifdef FEAT_JOB_CHANNEL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	149 channel_unref(varp->vval.v_channel);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	150 varp->vval.v_channel = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	151 #endif
24610 c1263588156b patch 8.2.2844: Vim9: memory leak when using searchpair() Bram Moolenaar <Bram@vim.org> parents: 24606 diff changeset	152 break;
c1263588156b patch 8.2.2844: Vim9: memory leak when using searchpair() Bram Moolenaar <Bram@vim.org> parents: 24606 diff changeset	153 case VAR_INSTR:
c1263588156b patch 8.2.2844: Vim9: memory leak when using searchpair() Bram Moolenaar <Bram@vim.org> parents: 24606 diff changeset	154 VIM_CLEAR(varp->vval.v_instr);
c1263588156b patch 8.2.2844: Vim9: memory leak when using searchpair() Bram Moolenaar <Bram@vim.org> parents: 24606 diff changeset	155 break;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	156 case VAR_UNKNOWN:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	157 case VAR_ANY:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	158 case VAR_VOID:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	159 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	160 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	161 varp->v_lock = 0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	162 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	163 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	164
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	165 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	166 * Set the value of a variable to NULL without freeing items.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	167 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	168 void
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	169 init_tv(typval_T *varp)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	170 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	171 if (varp != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	172 CLEAR_POINTER(varp);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	173 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	174
21851 727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	175 static varnumber_T
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	176 tv_get_bool_or_number_chk(typval_T varp, int denote, int want_bool)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	177 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	178 varnumber_T n = 0L;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	179
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	180 switch (varp->v_type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	181 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	182 case VAR_NUMBER:
22405 0ef3ae4ec70e patch 8.2.1751: using 2 where bool is expected may throw an error Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	183 if (in_vim9script() && want_bool && varp->vval.v_number != 0
21913 9fc27a955f00 patch 8.2.1506: Vim9: no error when using a number other than 0 or 1 as bool Bram Moolenaar <Bram@vim.org> parents: 21861 diff changeset	184 && varp->vval.v_number != 1)
9fc27a955f00 patch 8.2.1506: Vim9: no error when using a number other than 0 or 1 as bool Bram Moolenaar <Bram@vim.org> parents: 21861 diff changeset	185 {
9fc27a955f00 patch 8.2.1506: Vim9: no error when using a number other than 0 or 1 as bool Bram Moolenaar <Bram@vim.org> parents: 21861 diff changeset	186 semsg(_(e_using_number_as_bool_nr), varp->vval.v_number);
9fc27a955f00 patch 8.2.1506: Vim9: no error when using a number other than 0 or 1 as bool Bram Moolenaar <Bram@vim.org> parents: 21861 diff changeset	187 break;
9fc27a955f00 patch 8.2.1506: Vim9: no error when using a number other than 0 or 1 as bool Bram Moolenaar <Bram@vim.org> parents: 21861 diff changeset	188 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	189 return varp->vval.v_number;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	190 case VAR_FLOAT:
26962 85866e069c24 patch 8.2.4010: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26958 diff changeset	191 emsg(_(e_using_float_as_number));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	192 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	193 case VAR_FUNC:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	194 case VAR_PARTIAL:
26952 b34ddbca305c patch 8.2.4005: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26948 diff changeset	195 emsg(_(e_using_funcref_as_number));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	196 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	197 case VAR_STRING:
21831 d8422de73113 patch 8.2.1465: Vim9: subscript not handled properly Bram Moolenaar <Bram@vim.org> parents: 21425 diff changeset	198 if (in_vim9script())
d8422de73113 patch 8.2.1465: Vim9: subscript not handled properly Bram Moolenaar <Bram@vim.org> parents: 21425 diff changeset	199 {
22860 53acb89ec9f2 patch 8.2.1977: Vim9: error for using a string in a condition is confusing Bram Moolenaar <Bram@vim.org> parents: 22405 diff changeset	200 emsg_using_string_as(varp, !want_bool);
21831 d8422de73113 patch 8.2.1465: Vim9: subscript not handled properly Bram Moolenaar <Bram@vim.org> parents: 21425 diff changeset	201 break;
d8422de73113 patch 8.2.1465: Vim9: subscript not handled properly Bram Moolenaar <Bram@vim.org> parents: 21425 diff changeset	202 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	203 if (varp->vval.v_string != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	204 vim_str2nr(varp->vval.v_string, NULL, NULL,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	205 STR2NR_ALL, &n, NULL, 0, FALSE);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	206 return n;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	207 case VAR_LIST:
26958 d92e0d85923f patch 8.2.4008: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26952 diff changeset	208 emsg(_(e_using_list_as_number));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	209 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	210 case VAR_DICT:
26952 b34ddbca305c patch 8.2.4005: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26948 diff changeset	211 emsg(_(e_using_dictionary_as_number));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	212 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	213 case VAR_BOOL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	214 case VAR_SPECIAL:
21851 727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	215 if (!want_bool && in_vim9script())
21831 d8422de73113 patch 8.2.1465: Vim9: subscript not handled properly Bram Moolenaar <Bram@vim.org> parents: 21425 diff changeset	216 {
22930 84567584951f patch 8.2.2012: Vim9: confusing error message when using bool wrongly Bram Moolenaar <Bram@vim.org> parents: 22860 diff changeset	217 if (varp->v_type == VAR_BOOL)
84567584951f patch 8.2.2012: Vim9: confusing error message when using bool wrongly Bram Moolenaar <Bram@vim.org> parents: 22860 diff changeset	218 emsg(_(e_using_bool_as_number));
84567584951f patch 8.2.2012: Vim9: confusing error message when using bool wrongly Bram Moolenaar <Bram@vim.org> parents: 22860 diff changeset	219 else
26948 51ddf6740ac6 patch 8.2.4003: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26913 diff changeset	220 emsg(_(e_using_special_as_number));
21831 d8422de73113 patch 8.2.1465: Vim9: subscript not handled properly Bram Moolenaar <Bram@vim.org> parents: 21425 diff changeset	221 break;
d8422de73113 patch 8.2.1465: Vim9: subscript not handled properly Bram Moolenaar <Bram@vim.org> parents: 21425 diff changeset	222 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	223 return varp->vval.v_number == VVAL_TRUE ? 1 : 0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	224 case VAR_JOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	225 #ifdef FEAT_JOB_CHANNEL
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	226 emsg(_(e_using_job_as_number));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	227 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	228 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	229 case VAR_CHANNEL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	230 #ifdef FEAT_JOB_CHANNEL
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	231 emsg(_(e_using_channel_as_number));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	232 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	233 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	234 case VAR_BLOB:
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	235 emsg(_(e_using_blob_as_number));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	236 break;
24936 345619f35112 patch 8.2.3005: Vim9: using a void value does not give a proper error message Bram Moolenaar <Bram@vim.org> parents: 24820 diff changeset	237 case VAR_VOID:
345619f35112 patch 8.2.3005: Vim9: using a void value does not give a proper error message Bram Moolenaar <Bram@vim.org> parents: 24820 diff changeset	238 emsg(_(e_cannot_use_void_value));
345619f35112 patch 8.2.3005: Vim9: using a void value does not give a proper error message Bram Moolenaar <Bram@vim.org> parents: 24820 diff changeset	239 break;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	240 case VAR_UNKNOWN:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	241 case VAR_ANY:
24606 a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled Bram Moolenaar <Bram@vim.org> parents: 24424 diff changeset	242 case VAR_INSTR:
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	243 internal_error_no_abort("tv_get_number(UNKNOWN)");
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	244 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	245 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	246 if (denote == NULL) // useful for values that must be unsigned
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	247 n = -1;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	248 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	249 *denote = TRUE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	250 return n;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	251 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	252
21851 727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	253 /*
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	254 * Get the number value of a variable.
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	255 * If it is a String variable, uses vim_str2nr().
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	256 * For incompatible types, return 0.
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	257 * tv_get_number_chk() is similar to tv_get_number(), but informs the
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	258 * caller of incompatible types: it sets *denote to TRUE if "denote"
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	259 * is not NULL or returns -1 otherwise.
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	260 */
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	261 varnumber_T
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	262 tv_get_number(typval_T *varp)
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	263 {
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	264 int error = FALSE;
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	265
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	266 return tv_get_number_chk(varp, &error); // return 0L on error
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	267 }
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	268
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	269 varnumber_T
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	270 tv_get_number_chk(typval_T varp, int denote)
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	271 {
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	272 return tv_get_bool_or_number_chk(varp, denote, FALSE);
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	273 }
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	274
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	275 /*
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	276 * Get the boolean value of "varp". This is like tv_get_number_chk(),
21913 9fc27a955f00 patch 8.2.1506: Vim9: no error when using a number other than 0 or 1 as bool Bram Moolenaar <Bram@vim.org> parents: 21861 diff changeset	277 * but in Vim9 script accepts Number (0 and 1) and Bool/Special.
21851 727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	278 */
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	279 varnumber_T
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	280 tv_get_bool(typval_T *varp)
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	281 {
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	282 return tv_get_bool_or_number_chk(varp, NULL, TRUE);
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	283 }
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	284
21861 cd8dafe937ba patch 8.2.1480: Vim9: skip expression in search() gives error Bram Moolenaar <Bram@vim.org> parents: 21851 diff changeset	285 /*
cd8dafe937ba patch 8.2.1480: Vim9: skip expression in search() gives error Bram Moolenaar <Bram@vim.org> parents: 21851 diff changeset	286 * Get the boolean value of "varp". This is like tv_get_number_chk(),
cd8dafe937ba patch 8.2.1480: Vim9: skip expression in search() gives error Bram Moolenaar <Bram@vim.org> parents: 21851 diff changeset	287 * but in Vim9 script accepts Number and Bool.
cd8dafe937ba patch 8.2.1480: Vim9: skip expression in search() gives error Bram Moolenaar <Bram@vim.org> parents: 21851 diff changeset	288 */
cd8dafe937ba patch 8.2.1480: Vim9: skip expression in search() gives error Bram Moolenaar <Bram@vim.org> parents: 21851 diff changeset	289 varnumber_T
cd8dafe937ba patch 8.2.1480: Vim9: skip expression in search() gives error Bram Moolenaar <Bram@vim.org> parents: 21851 diff changeset	290 tv_get_bool_chk(typval_T varp, int denote)
cd8dafe937ba patch 8.2.1480: Vim9: skip expression in search() gives error Bram Moolenaar <Bram@vim.org> parents: 21851 diff changeset	291 {
cd8dafe937ba patch 8.2.1480: Vim9: skip expression in search() gives error Bram Moolenaar <Bram@vim.org> parents: 21851 diff changeset	292 return tv_get_bool_or_number_chk(varp, denote, TRUE);
cd8dafe937ba patch 8.2.1480: Vim9: skip expression in search() gives error Bram Moolenaar <Bram@vim.org> parents: 21851 diff changeset	293 }
cd8dafe937ba patch 8.2.1480: Vim9: skip expression in search() gives error Bram Moolenaar <Bram@vim.org> parents: 21851 diff changeset	294
26696 1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	295 static float_T
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	296 tv_get_float_chk(typval_T varp, int error)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	297 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	298 switch (varp->v_type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	299 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	300 case VAR_NUMBER:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	301 return (float_T)(varp->vval.v_number);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	302 case VAR_FLOAT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	303 return varp->vval.v_float;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	304 case VAR_FUNC:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	305 case VAR_PARTIAL:
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	306 emsg(_(e_using_funcref_as_float));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	307 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	308 case VAR_STRING:
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	309 emsg(_(e_using_string_as_float));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	310 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	311 case VAR_LIST:
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	312 emsg(_(e_using_list_as_float));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	313 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	314 case VAR_DICT:
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	315 emsg(_(e_using_dictionary_as_float));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	316 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	317 case VAR_BOOL:
27034 b31cc7630773 patch 8.2.4046: some error messages not in the right place Bram Moolenaar <Bram@vim.org> parents: 27018 diff changeset	318 emsg(_(e_using_boolean_value_as_float));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	319 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	320 case VAR_SPECIAL:
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	321 emsg(_(e_using_special_value_as_float));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	322 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	323 case VAR_JOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	324 # ifdef FEAT_JOB_CHANNEL
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	325 emsg(_(e_using_job_as_float));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	326 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	327 # endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	328 case VAR_CHANNEL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	329 # ifdef FEAT_JOB_CHANNEL
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	330 emsg(_(e_using_channel_as_float));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	331 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	332 # endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	333 case VAR_BLOB:
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	334 emsg(_(e_using_blob_as_float));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	335 break;
24936 345619f35112 patch 8.2.3005: Vim9: using a void value does not give a proper error message Bram Moolenaar <Bram@vim.org> parents: 24820 diff changeset	336 case VAR_VOID:
345619f35112 patch 8.2.3005: Vim9: using a void value does not give a proper error message Bram Moolenaar <Bram@vim.org> parents: 24820 diff changeset	337 emsg(_(e_cannot_use_void_value));
345619f35112 patch 8.2.3005: Vim9: using a void value does not give a proper error message Bram Moolenaar <Bram@vim.org> parents: 24820 diff changeset	338 break;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	339 case VAR_UNKNOWN:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	340 case VAR_ANY:
24606 a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled Bram Moolenaar <Bram@vim.org> parents: 24424 diff changeset	341 case VAR_INSTR:
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	342 internal_error_no_abort("tv_get_float(UNKNOWN)");
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	343 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	344 }
26696 1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	345 if (error != NULL)
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	346 *error = TRUE;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	347 return 0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	348 }
26696 1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	349
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	350 float_T
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	351 tv_get_float(typval_T *varp)
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	352 {
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	353 return tv_get_float_chk(varp, NULL);
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	354 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	355
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	356 /*
28674 38f7a132bba3 patch 8.2.4861: it is not easy to restore saved mappings Bram Moolenaar <Bram@vim.org> parents: 28668 diff changeset	357 * Give an error and return FAIL unless "args[idx]" is unknown
38f7a132bba3 patch 8.2.4861: it is not easy to restore saved mappings Bram Moolenaar <Bram@vim.org> parents: 28668 diff changeset	358 */
38f7a132bba3 patch 8.2.4861: it is not easy to restore saved mappings Bram Moolenaar <Bram@vim.org> parents: 28668 diff changeset	359 int
38f7a132bba3 patch 8.2.4861: it is not easy to restore saved mappings Bram Moolenaar <Bram@vim.org> parents: 28668 diff changeset	360 check_for_unknown_arg(typval_T *args, int idx)
38f7a132bba3 patch 8.2.4861: it is not easy to restore saved mappings Bram Moolenaar <Bram@vim.org> parents: 28668 diff changeset	361 {
38f7a132bba3 patch 8.2.4861: it is not easy to restore saved mappings Bram Moolenaar <Bram@vim.org> parents: 28668 diff changeset	362 if (args[idx].v_type != VAR_UNKNOWN)
38f7a132bba3 patch 8.2.4861: it is not easy to restore saved mappings Bram Moolenaar <Bram@vim.org> parents: 28668 diff changeset	363 {
38f7a132bba3 patch 8.2.4861: it is not easy to restore saved mappings Bram Moolenaar <Bram@vim.org> parents: 28668 diff changeset	364 semsg(_(e_too_many_arguments), idx + 1);
38f7a132bba3 patch 8.2.4861: it is not easy to restore saved mappings Bram Moolenaar <Bram@vim.org> parents: 28668 diff changeset	365 return FAIL;
38f7a132bba3 patch 8.2.4861: it is not easy to restore saved mappings Bram Moolenaar <Bram@vim.org> parents: 28668 diff changeset	366 }
38f7a132bba3 patch 8.2.4861: it is not easy to restore saved mappings Bram Moolenaar <Bram@vim.org> parents: 28668 diff changeset	367 return OK;
38f7a132bba3 patch 8.2.4861: it is not easy to restore saved mappings Bram Moolenaar <Bram@vim.org> parents: 28668 diff changeset	368 }
38f7a132bba3 patch 8.2.4861: it is not easy to restore saved mappings Bram Moolenaar <Bram@vim.org> parents: 28668 diff changeset	369
38f7a132bba3 patch 8.2.4861: it is not easy to restore saved mappings Bram Moolenaar <Bram@vim.org> parents: 28668 diff changeset	370 /*
25272 712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	371 * Give an error and return FAIL unless "args[idx]" is a string.
23142 5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22930 diff changeset	372 */
5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22930 diff changeset	373 int
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	374 check_for_string_arg(typval_T *args, int idx)
23142 5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22930 diff changeset	375 {
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	376 if (args[idx].v_type != VAR_STRING)
23142 5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22930 diff changeset	377 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	378 semsg(_(e_string_required_for_argument_nr), idx + 1);
23142 5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22930 diff changeset	379 return FAIL;
5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22930 diff changeset	380 }
5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22930 diff changeset	381 return OK;
5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22930 diff changeset	382 }
5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22930 diff changeset	383
5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22930 diff changeset	384 /*
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	385 * Give an error and return FAIL unless "args[idx]" is a non-empty string.
23175 d7294a6220ac patch 8.2.2133: Vim9: checking for a non-empty string is too strict Bram Moolenaar <Bram@vim.org> parents: 23142 diff changeset	386 */
d7294a6220ac patch 8.2.2133: Vim9: checking for a non-empty string is too strict Bram Moolenaar <Bram@vim.org> parents: 23142 diff changeset	387 int
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	388 check_for_nonempty_string_arg(typval_T *args, int idx)
23175 d7294a6220ac patch 8.2.2133: Vim9: checking for a non-empty string is too strict Bram Moolenaar <Bram@vim.org> parents: 23142 diff changeset	389 {
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	390 if (check_for_string_arg(args, idx) == FAIL)
23175 d7294a6220ac patch 8.2.2133: Vim9: checking for a non-empty string is too strict Bram Moolenaar <Bram@vim.org> parents: 23142 diff changeset	391 return FAIL;
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	392 if (args[idx].vval.v_string == NULL \|\| *args[idx].vval.v_string == NUL)
23175 d7294a6220ac patch 8.2.2133: Vim9: checking for a non-empty string is too strict Bram Moolenaar <Bram@vim.org> parents: 23142 diff changeset	393 {
24424 ddcda424f882 patch 8.2.2752 Bram Moolenaar <Bram@vim.org> parents: 24260 diff changeset	394 semsg(_(e_non_empty_string_required_for_argument_nr), idx + 1);
23175 d7294a6220ac patch 8.2.2133: Vim9: checking for a non-empty string is too strict Bram Moolenaar <Bram@vim.org> parents: 23142 diff changeset	395 return FAIL;
d7294a6220ac patch 8.2.2133: Vim9: checking for a non-empty string is too strict Bram Moolenaar <Bram@vim.org> parents: 23142 diff changeset	396 }
d7294a6220ac patch 8.2.2133: Vim9: checking for a non-empty string is too strict Bram Moolenaar <Bram@vim.org> parents: 23142 diff changeset	397 return OK;
d7294a6220ac patch 8.2.2133: Vim9: checking for a non-empty string is too strict Bram Moolenaar <Bram@vim.org> parents: 23142 diff changeset	398 }
d7294a6220ac patch 8.2.2133: Vim9: checking for a non-empty string is too strict Bram Moolenaar <Bram@vim.org> parents: 23142 diff changeset	399
d7294a6220ac patch 8.2.2133: Vim9: checking for a non-empty string is too strict Bram Moolenaar <Bram@vim.org> parents: 23142 diff changeset	400 /*
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	401 * Check for an optional string argument at 'idx'
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	402 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	403 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	404 check_for_opt_string_arg(typval_T *args, int idx)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	405 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	406 return (args[idx].v_type == VAR_UNKNOWN
30228 642b5e748028 patch 9.0.0450: return value of argument check functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 30188 diff changeset	407 \|\| check_for_string_arg(args, idx) != FAIL) ? OK : FAIL;
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	408 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	409
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	410 /*
25272 712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	411 * Give an error and return FAIL unless "args[idx]" is a number.
25252 acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25198 diff changeset	412 */
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25198 diff changeset	413 int
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25198 diff changeset	414 check_for_number_arg(typval_T *args, int idx)
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25198 diff changeset	415 {
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25198 diff changeset	416 if (args[idx].v_type != VAR_NUMBER)
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25198 diff changeset	417 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	418 semsg(_(e_number_required_for_argument_nr), idx + 1);
25252 acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25198 diff changeset	419 return FAIL;
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25198 diff changeset	420 }
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25198 diff changeset	421 return OK;
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25198 diff changeset	422 }
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25198 diff changeset	423
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25198 diff changeset	424 /*
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	425 * Check for an optional number argument at 'idx'
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	426 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	427 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	428 check_for_opt_number_arg(typval_T *args, int idx)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	429 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	430 return (args[idx].v_type == VAR_UNKNOWN
30228 642b5e748028 patch 9.0.0450: return value of argument check functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 30188 diff changeset	431 \|\| check_for_number_arg(args, idx) != FAIL) ? OK : FAIL;
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	432 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	433
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	434 /*
25368 1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	435 * Give an error and return FAIL unless "args[idx]" is a float or a number.
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	436 */
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	437 int
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	438 check_for_float_or_nr_arg(typval_T *args, int idx)
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	439 {
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	440 if (args[idx].v_type != VAR_FLOAT && args[idx].v_type != VAR_NUMBER)
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	441 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	442 semsg(_(e_float_or_number_required_for_argument_nr), idx + 1);
25368 1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	443 return FAIL;
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	444 }
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	445 return OK;
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	446 }
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	447
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	448 /*
25272 712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	449 * Give an error and return FAIL unless "args[idx]" is a bool.
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	450 */
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	451 int
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	452 check_for_bool_arg(typval_T *args, int idx)
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	453 {
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	454 if (args[idx].v_type != VAR_BOOL
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	455 && !(args[idx].v_type == VAR_NUMBER
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	456 && (args[idx].vval.v_number == 0
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	457 \|\| args[idx].vval.v_number == 1)))
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	458 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	459 semsg(_(e_bool_required_for_argument_nr), idx + 1);
25272 712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	460 return FAIL;
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	461 }
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	462 return OK;
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	463 }
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	464
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	465 /*
25802 5ef704de7709 patch 8.2.3436: check for optional bool type has confusing return type Bram Moolenaar <Bram@vim.org> parents: 25622 diff changeset	466 * Check for an optional bool argument at 'idx'.
5ef704de7709 patch 8.2.3436: check for optional bool type has confusing return type Bram Moolenaar <Bram@vim.org> parents: 25622 diff changeset	467 * Return FAIL if the type is wrong.
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	468 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	469 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	470 check_for_opt_bool_arg(typval_T *args, int idx)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	471 {
25802 5ef704de7709 patch 8.2.3436: check for optional bool type has confusing return type Bram Moolenaar <Bram@vim.org> parents: 25622 diff changeset	472 if (args[idx].v_type == VAR_UNKNOWN)
5ef704de7709 patch 8.2.3436: check for optional bool type has confusing return type Bram Moolenaar <Bram@vim.org> parents: 25622 diff changeset	473 return OK;
5ef704de7709 patch 8.2.3436: check for optional bool type has confusing return type Bram Moolenaar <Bram@vim.org> parents: 25622 diff changeset	474 return check_for_bool_arg(args, idx);
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	475 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	476
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	477 /*
25806 8d55e978f95b patch 8.2.3438: cannot manipulate blobs Bram Moolenaar <Bram@vim.org> parents: 25802 diff changeset	478 * Give an error and return FAIL unless "args[idx]" is a blob.
8d55e978f95b patch 8.2.3438: cannot manipulate blobs Bram Moolenaar <Bram@vim.org> parents: 25802 diff changeset	479 */
8d55e978f95b patch 8.2.3438: cannot manipulate blobs Bram Moolenaar <Bram@vim.org> parents: 25802 diff changeset	480 int
8d55e978f95b patch 8.2.3438: cannot manipulate blobs Bram Moolenaar <Bram@vim.org> parents: 25802 diff changeset	481 check_for_blob_arg(typval_T *args, int idx)
8d55e978f95b patch 8.2.3438: cannot manipulate blobs Bram Moolenaar <Bram@vim.org> parents: 25802 diff changeset	482 {
8d55e978f95b patch 8.2.3438: cannot manipulate blobs Bram Moolenaar <Bram@vim.org> parents: 25802 diff changeset	483 if (args[idx].v_type != VAR_BLOB)
8d55e978f95b patch 8.2.3438: cannot manipulate blobs Bram Moolenaar <Bram@vim.org> parents: 25802 diff changeset	484 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	485 semsg(_(e_blob_required_for_argument_nr), idx + 1);
25806 8d55e978f95b patch 8.2.3438: cannot manipulate blobs Bram Moolenaar <Bram@vim.org> parents: 25802 diff changeset	486 return FAIL;
8d55e978f95b patch 8.2.3438: cannot manipulate blobs Bram Moolenaar <Bram@vim.org> parents: 25802 diff changeset	487 }
8d55e978f95b patch 8.2.3438: cannot manipulate blobs Bram Moolenaar <Bram@vim.org> parents: 25802 diff changeset	488 return OK;
8d55e978f95b patch 8.2.3438: cannot manipulate blobs Bram Moolenaar <Bram@vim.org> parents: 25802 diff changeset	489 }
8d55e978f95b patch 8.2.3438: cannot manipulate blobs Bram Moolenaar <Bram@vim.org> parents: 25802 diff changeset	490
8d55e978f95b patch 8.2.3438: cannot manipulate blobs Bram Moolenaar <Bram@vim.org> parents: 25802 diff changeset	491 /*
25272 712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	492 * Give an error and return FAIL unless "args[idx]" is a list.
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	493 */
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	494 int
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	495 check_for_list_arg(typval_T *args, int idx)
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	496 {
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	497 if (args[idx].v_type != VAR_LIST)
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	498 {
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	499 semsg(_(e_list_required_for_argument_nr), idx + 1);
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	500 return FAIL;
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	501 }
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	502 return OK;
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	503 }
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	504
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	505 /*
30015 adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29994 diff changeset	506 * Give an error and return FAIL unless "args[idx]" is a non-NULL list.
adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29994 diff changeset	507 */
adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29994 diff changeset	508 int
adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29994 diff changeset	509 check_for_nonnull_list_arg(typval_T *args, int idx)
adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29994 diff changeset	510 {
adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29994 diff changeset	511 if (check_for_list_arg(args, idx) == FAIL)
adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29994 diff changeset	512 return FAIL;
adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29994 diff changeset	513
adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29994 diff changeset	514 if (args[idx].vval.v_list == NULL)
adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29994 diff changeset	515 {
adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29994 diff changeset	516 semsg(_(e_non_null_list_required_for_argument_nr), idx + 1);
adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29994 diff changeset	517 return FAIL;
adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29994 diff changeset	518 }
adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29994 diff changeset	519 return OK;
adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29994 diff changeset	520 }
adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29994 diff changeset	521
adb0de8be4ce patch 9.0.0345: error message for list argument could be clearer Bram Moolenaar <Bram@vim.org> parents: 29994 diff changeset	522 /*
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	523 * Check for an optional list argument at 'idx'
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	524 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	525 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	526 check_for_opt_list_arg(typval_T *args, int idx)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	527 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	528 return (args[idx].v_type == VAR_UNKNOWN
30228 642b5e748028 patch 9.0.0450: return value of argument check functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 30188 diff changeset	529 \|\| check_for_list_arg(args, idx) != FAIL) ? OK : FAIL;
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	530 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	531
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	532 /*
25272 712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	533 * Give an error and return FAIL unless "args[idx]" is a dict.
25198 eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	534 */
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	535 int
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	536 check_for_dict_arg(typval_T *args, int idx)
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	537 {
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	538 if (args[idx].v_type != VAR_DICT)
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	539 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	540 semsg(_(e_dict_required_for_argument_nr), idx + 1);
25198 eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	541 return FAIL;
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	542 }
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	543 return OK;
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	544 }
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	545
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	546 /*
29994 86eb4aba16c3 patch 9.0.0335: checks for Dictionary argument often give a vague error Bram Moolenaar <Bram@vim.org> parents: 29525 diff changeset	547 * Give an error and return FAIL unless "args[idx]" is a non-NULL dict.
86eb4aba16c3 patch 9.0.0335: checks for Dictionary argument often give a vague error Bram Moolenaar <Bram@vim.org> parents: 29525 diff changeset	548 */
86eb4aba16c3 patch 9.0.0335: checks for Dictionary argument often give a vague error Bram Moolenaar <Bram@vim.org> parents: 29525 diff changeset	549 int
86eb4aba16c3 patch 9.0.0335: checks for Dictionary argument often give a vague error Bram Moolenaar <Bram@vim.org> parents: 29525 diff changeset	550 check_for_nonnull_dict_arg(typval_T *args, int idx)
86eb4aba16c3 patch 9.0.0335: checks for Dictionary argument often give a vague error Bram Moolenaar <Bram@vim.org> parents: 29525 diff changeset	551 {
86eb4aba16c3 patch 9.0.0335: checks for Dictionary argument often give a vague error Bram Moolenaar <Bram@vim.org> parents: 29525 diff changeset	552 if (check_for_dict_arg(args, idx) == FAIL)
86eb4aba16c3 patch 9.0.0335: checks for Dictionary argument often give a vague error Bram Moolenaar <Bram@vim.org> parents: 29525 diff changeset	553 return FAIL;
86eb4aba16c3 patch 9.0.0335: checks for Dictionary argument often give a vague error Bram Moolenaar <Bram@vim.org> parents: 29525 diff changeset	554
86eb4aba16c3 patch 9.0.0335: checks for Dictionary argument often give a vague error Bram Moolenaar <Bram@vim.org> parents: 29525 diff changeset	555 if (args[idx].vval.v_dict == NULL)
86eb4aba16c3 patch 9.0.0335: checks for Dictionary argument often give a vague error Bram Moolenaar <Bram@vim.org> parents: 29525 diff changeset	556 {
86eb4aba16c3 patch 9.0.0335: checks for Dictionary argument often give a vague error Bram Moolenaar <Bram@vim.org> parents: 29525 diff changeset	557 semsg(_(e_non_null_dict_required_for_argument_nr), idx + 1);
86eb4aba16c3 patch 9.0.0335: checks for Dictionary argument often give a vague error Bram Moolenaar <Bram@vim.org> parents: 29525 diff changeset	558 return FAIL;
86eb4aba16c3 patch 9.0.0335: checks for Dictionary argument often give a vague error Bram Moolenaar <Bram@vim.org> parents: 29525 diff changeset	559 }
86eb4aba16c3 patch 9.0.0335: checks for Dictionary argument often give a vague error Bram Moolenaar <Bram@vim.org> parents: 29525 diff changeset	560 return OK;
86eb4aba16c3 patch 9.0.0335: checks for Dictionary argument often give a vague error Bram Moolenaar <Bram@vim.org> parents: 29525 diff changeset	561 }
86eb4aba16c3 patch 9.0.0335: checks for Dictionary argument often give a vague error Bram Moolenaar <Bram@vim.org> parents: 29525 diff changeset	562
86eb4aba16c3 patch 9.0.0335: checks for Dictionary argument often give a vague error Bram Moolenaar <Bram@vim.org> parents: 29525 diff changeset	563 /*
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	564 * Check for an optional dict argument at 'idx'
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	565 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	566 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	567 check_for_opt_dict_arg(typval_T *args, int idx)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	568 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	569 return (args[idx].v_type == VAR_UNKNOWN
30228 642b5e748028 patch 9.0.0450: return value of argument check functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 30188 diff changeset	570 \|\| check_for_dict_arg(args, idx) != FAIL) ? OK : FAIL;
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	571 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	572
27018 268f6a3511df patch 8.2.4038: various code not used when features are disabled Bram Moolenaar <Bram@vim.org> parents: 26966 diff changeset	573 #if defined(FEAT_JOB_CHANNEL) \|\| defined(PROTO)
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	574 /*
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	575 * Give an error and return FAIL unless "args[idx]" is a channel or a job.
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	576 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	577 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	578 check_for_chan_or_job_arg(typval_T *args, int idx)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	579 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	580 if (args[idx].v_type != VAR_CHANNEL && args[idx].v_type != VAR_JOB)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	581 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	582 semsg(_(e_chan_or_job_required_for_argument_nr), idx + 1);
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	583 return FAIL;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	584 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	585 return OK;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	586 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	587
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	588 /*
25348 75031a22be39 patch 8.2.3211: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	589 * Give an error and return FAIL unless "args[idx]" is an optional channel or a
75031a22be39 patch 8.2.3211: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	590 * job.
75031a22be39 patch 8.2.3211: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	591 */
75031a22be39 patch 8.2.3211: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	592 int
75031a22be39 patch 8.2.3211: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	593 check_for_opt_chan_or_job_arg(typval_T *args, int idx)
75031a22be39 patch 8.2.3211: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	594 {
75031a22be39 patch 8.2.3211: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	595 return (args[idx].v_type == VAR_UNKNOWN
30228 642b5e748028 patch 9.0.0450: return value of argument check functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 30188 diff changeset	596 \|\| check_for_chan_or_job_arg(args, idx) != FAIL) ? OK : FAIL;
25348 75031a22be39 patch 8.2.3211: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	597 }
75031a22be39 patch 8.2.3211: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	598
75031a22be39 patch 8.2.3211: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	599 /*
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	600 * Give an error and return FAIL unless "args[idx]" is a job.
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	601 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	602 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	603 check_for_job_arg(typval_T *args, int idx)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	604 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	605 if (args[idx].v_type != VAR_JOB)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	606 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	607 semsg(_(e_job_required_for_argument_nr), idx + 1);
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	608 return FAIL;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	609 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	610 return OK;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	611 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	612
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	613 /*
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	614 * Check for an optional job argument at 'idx'.
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	615 */
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	616 int
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	617 check_for_opt_job_arg(typval_T *args, int idx)
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	618 {
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	619 return (args[idx].v_type == VAR_UNKNOWN
30228 642b5e748028 patch 9.0.0450: return value of argument check functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 30188 diff changeset	620 \|\| check_for_job_arg(args, idx) != FAIL) ? OK : FAIL;
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	621 }
31289 4f1e70a709bb patch 9.0.0978: build errors without the +channel feature Bram Moolenaar <Bram@vim.org> parents: 30986 diff changeset	622 #else
4f1e70a709bb patch 9.0.0978: build errors without the +channel feature Bram Moolenaar <Bram@vim.org> parents: 30986 diff changeset	623 /*
4f1e70a709bb patch 9.0.0978: build errors without the +channel feature Bram Moolenaar <Bram@vim.org> parents: 30986 diff changeset	624 * Give an error and return FAIL unless "args[idx]" is an optional channel or a
4f1e70a709bb patch 9.0.0978: build errors without the +channel feature Bram Moolenaar <Bram@vim.org> parents: 30986 diff changeset	625 * job. Used without the +channel feature, thus only VAR_UNKNOWN is accepted.
4f1e70a709bb patch 9.0.0978: build errors without the +channel feature Bram Moolenaar <Bram@vim.org> parents: 30986 diff changeset	626 */
4f1e70a709bb patch 9.0.0978: build errors without the +channel feature Bram Moolenaar <Bram@vim.org> parents: 30986 diff changeset	627 int
4f1e70a709bb patch 9.0.0978: build errors without the +channel feature Bram Moolenaar <Bram@vim.org> parents: 30986 diff changeset	628 check_for_opt_chan_or_job_arg(typval_T *args, int idx)
4f1e70a709bb patch 9.0.0978: build errors without the +channel feature Bram Moolenaar <Bram@vim.org> parents: 30986 diff changeset	629 {
4f1e70a709bb patch 9.0.0978: build errors without the +channel feature Bram Moolenaar <Bram@vim.org> parents: 30986 diff changeset	630 return args[idx].v_type == VAR_UNKNOWN ? OK : FAIL;
4f1e70a709bb patch 9.0.0978: build errors without the +channel feature Bram Moolenaar <Bram@vim.org> parents: 30986 diff changeset	631 }
27018 268f6a3511df patch 8.2.4038: various code not used when features are disabled Bram Moolenaar <Bram@vim.org> parents: 26966 diff changeset	632 #endif
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	633
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	634 /*
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	635 * Give an error and return FAIL unless "args[idx]" is a string or
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	636 * a number.
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	637 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	638 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	639 check_for_string_or_number_arg(typval_T *args, int idx)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	640 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	641 if (args[idx].v_type != VAR_STRING && args[idx].v_type != VAR_NUMBER)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	642 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	643 semsg(_(e_string_or_number_required_for_argument_nr), idx + 1);
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	644 return FAIL;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	645 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	646 return OK;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	647 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	648
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	649 /*
25314 7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	650 * Check for an optional string or number argument at 'idx'.
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	651 */
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	652 int
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	653 check_for_opt_string_or_number_arg(typval_T *args, int idx)
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	654 {
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	655 return (args[idx].v_type == VAR_UNKNOWN
30228 642b5e748028 patch 9.0.0450: return value of argument check functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 30188 diff changeset	656 \|\| check_for_string_or_number_arg(args, idx) != FAIL) ? OK : FAIL;
25314 7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	657 }
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	658
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	659 /*
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	660 * Give an error and return FAIL unless "args[idx]" is a buffer number.
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	661 * Buffer number can be a number or a string.
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	662 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	663 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	664 check_for_buffer_arg(typval_T *args, int idx)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	665 {
25314 7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	666 return check_for_string_or_number_arg(args, idx);
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	667 }
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	668
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	669 /*
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	670 * Check for an optional buffer argument at 'idx'
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	671 */
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	672 int
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	673 check_for_opt_buffer_arg(typval_T *args, int idx)
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	674 {
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	675 return (args[idx].v_type == VAR_UNKNOWN
30228 642b5e748028 patch 9.0.0450: return value of argument check functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 30188 diff changeset	676 \|\| check_for_buffer_arg(args, idx) != FAIL) ? OK : FAIL;
25314 7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	677 }
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	678
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	679 /*
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	680 * Give an error and return FAIL unless "args[idx]" is a line number.
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	681 * Line number can be a number or a string.
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	682 */
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	683 int
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	684 check_for_lnum_arg(typval_T *args, int idx)
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	685 {
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	686 return check_for_string_or_number_arg(args, idx);
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	687 }
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	688
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	689 /*
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	690 * Check for an optional line number argument at 'idx'
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	691 */
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	692 int
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	693 check_for_opt_lnum_arg(typval_T *args, int idx)
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	694 {
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	695 return (args[idx].v_type == VAR_UNKNOWN
30228 642b5e748028 patch 9.0.0450: return value of argument check functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 30188 diff changeset	696 \|\| check_for_lnum_arg(args, idx) != FAIL) ? OK : FAIL;
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	697 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	698
27018 268f6a3511df patch 8.2.4038: various code not used when features are disabled Bram Moolenaar <Bram@vim.org> parents: 26966 diff changeset	699 #if defined(FEAT_JOB_CHANNEL) \|\| defined(PROTO)
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	700 /*
25338 e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	701 * Give an error and return FAIL unless "args[idx]" is a string or a blob.
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	702 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	703 int
25314 7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	704 check_for_string_or_blob_arg(typval_T *args, int idx)
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	705 {
25314 7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	706 if (args[idx].v_type != VAR_STRING && args[idx].v_type != VAR_BLOB)
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	707 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	708 semsg(_(e_string_or_blob_required_for_argument_nr), idx + 1);
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	709 return FAIL;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	710 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	711 return OK;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	712 }
27018 268f6a3511df patch 8.2.4038: various code not used when features are disabled Bram Moolenaar <Bram@vim.org> parents: 26966 diff changeset	713 #endif
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	714
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	715 /*
25338 e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	716 * Give an error and return FAIL unless "args[idx]" is a string or a list.
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	717 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	718 int
25314 7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	719 check_for_string_or_list_arg(typval_T *args, int idx)
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	720 {
25314 7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	721 if (args[idx].v_type != VAR_STRING && args[idx].v_type != VAR_LIST)
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	722 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	723 semsg(_(e_string_or_list_required_for_argument_nr), idx + 1);
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	724 return FAIL;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	725 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	726 return OK;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	727 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	728
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	729 /*
26638 6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	730 * Give an error and return FAIL unless "args[idx]" is a string, a list or a
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	731 * blob.
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	732 */
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	733 int
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	734 check_for_string_or_list_or_blob_arg(typval_T *args, int idx)
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	735 {
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	736 if (args[idx].v_type != VAR_STRING
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	737 && args[idx].v_type != VAR_LIST
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	738 && args[idx].v_type != VAR_BLOB)
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	739 {
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	740 semsg(_(e_string_list_or_blob_required_for_argument_nr), idx + 1);
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	741 return FAIL;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	742 }
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	743 return OK;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	744 }
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	745
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	746 /*
25368 1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	747 * Check for an optional string or list argument at 'idx'
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	748 */
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	749 int
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	750 check_for_opt_string_or_list_arg(typval_T *args, int idx)
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	751 {
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	752 return (args[idx].v_type == VAR_UNKNOWN
30228 642b5e748028 patch 9.0.0450: return value of argument check functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 30188 diff changeset	753 \|\| check_for_string_or_list_arg(args, idx) != FAIL) ? OK : FAIL;
25368 1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	754 }
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	755
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	756 /*
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	757 * Give an error and return FAIL unless "args[idx]" is a string or a dict.
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	758 */
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	759 int
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	760 check_for_string_or_dict_arg(typval_T *args, int idx)
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	761 {
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	762 if (args[idx].v_type != VAR_STRING && args[idx].v_type != VAR_DICT)
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	763 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	764 semsg(_(e_string_or_dict_required_for_argument_nr), idx + 1);
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	765 return FAIL;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	766 }
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	767 return OK;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	768 }
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	769
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	770 /*
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	771 * Give an error and return FAIL unless "args[idx]" is a string or a number
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	772 * or a list.
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	773 */
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	774 int
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	775 check_for_string_or_number_or_list_arg(typval_T *args, int idx)
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	776 {
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	777 if (args[idx].v_type != VAR_STRING
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	778 && args[idx].v_type != VAR_NUMBER
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	779 && args[idx].v_type != VAR_LIST)
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	780 {
26638 6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	781 semsg(_(e_string_number_or_list_required_for_argument_nr), idx + 1);
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	782 return FAIL;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	783 }
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	784 return OK;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	785 }
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	786
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	787 /*
25390 a6c347a0c6e3 patch 8.2.3232: system() does not work without a second argument Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	788 * Give an error and return FAIL unless "args[idx]" is an optional string
a6c347a0c6e3 patch 8.2.3232: system() does not work without a second argument Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	789 * or number or a list
a6c347a0c6e3 patch 8.2.3232: system() does not work without a second argument Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	790 */
a6c347a0c6e3 patch 8.2.3232: system() does not work without a second argument Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	791 int
a6c347a0c6e3 patch 8.2.3232: system() does not work without a second argument Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	792 check_for_opt_string_or_number_or_list_arg(typval_T *args, int idx)
a6c347a0c6e3 patch 8.2.3232: system() does not work without a second argument Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	793 {
a6c347a0c6e3 patch 8.2.3232: system() does not work without a second argument Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	794 return (args[idx].v_type == VAR_UNKNOWN
30228 642b5e748028 patch 9.0.0450: return value of argument check functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 30188 diff changeset	795 \|\| check_for_string_or_number_or_list_arg(args, idx)
642b5e748028 patch 9.0.0450: return value of argument check functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 30188 diff changeset	796 != FAIL) ? OK : FAIL;
25390 a6c347a0c6e3 patch 8.2.3232: system() does not work without a second argument Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	797 }
a6c347a0c6e3 patch 8.2.3232: system() does not work without a second argument Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	798
a6c347a0c6e3 patch 8.2.3232: system() does not work without a second argument Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	799 /*
30188 ba22d5536d3e patch 9.0.0430: cannot use repeat() with a blob Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	800 * Give an error and return FAIL unless "args[idx]" is a string or a number
ba22d5536d3e patch 9.0.0430: cannot use repeat() with a blob Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	801 * or a list or a blob.
ba22d5536d3e patch 9.0.0430: cannot use repeat() with a blob Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	802 */
ba22d5536d3e patch 9.0.0430: cannot use repeat() with a blob Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	803 int
ba22d5536d3e patch 9.0.0430: cannot use repeat() with a blob Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	804 check_for_string_or_number_or_list_or_blob_arg(typval_T *args, int idx)
ba22d5536d3e patch 9.0.0430: cannot use repeat() with a blob Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	805 {
ba22d5536d3e patch 9.0.0430: cannot use repeat() with a blob Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	806 if (args[idx].v_type != VAR_STRING
ba22d5536d3e patch 9.0.0430: cannot use repeat() with a blob Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	807 && args[idx].v_type != VAR_NUMBER
ba22d5536d3e patch 9.0.0430: cannot use repeat() with a blob Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	808 && args[idx].v_type != VAR_LIST
ba22d5536d3e patch 9.0.0430: cannot use repeat() with a blob Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	809 && args[idx].v_type != VAR_BLOB)
ba22d5536d3e patch 9.0.0430: cannot use repeat() with a blob Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	810 {
ba22d5536d3e patch 9.0.0430: cannot use repeat() with a blob Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	811 semsg(_(e_string_number_list_or_blob_required_for_argument_nr), idx + 1);
ba22d5536d3e patch 9.0.0430: cannot use repeat() with a blob Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	812 return FAIL;
ba22d5536d3e patch 9.0.0430: cannot use repeat() with a blob Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	813 }
ba22d5536d3e patch 9.0.0430: cannot use repeat() with a blob Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	814 return OK;
ba22d5536d3e patch 9.0.0430: cannot use repeat() with a blob Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	815 }
ba22d5536d3e patch 9.0.0430: cannot use repeat() with a blob Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	816
ba22d5536d3e patch 9.0.0430: cannot use repeat() with a blob Bram Moolenaar <Bram@vim.org> parents: 30015 diff changeset	817 /*
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	818 * Give an error and return FAIL unless "args[idx]" is a string or a list
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	819 * or a dict.
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	820 */
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	821 int
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	822 check_for_string_or_list_or_dict_arg(typval_T *args, int idx)
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	823 {
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	824 if (args[idx].v_type != VAR_STRING
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	825 && args[idx].v_type != VAR_LIST
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	826 && args[idx].v_type != VAR_DICT)
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	827 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	828 semsg(_(e_string_list_or_dict_required_for_argument_nr), idx + 1);
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	829 return FAIL;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	830 }
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	831 return OK;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	832 }
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	833
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	834 /*
26731 7f4cc4e58f75 patch 8.2.3894: Vim9: no proper type check for first argument of call() Bram Moolenaar <Bram@vim.org> parents: 26696 diff changeset	835 * Give an error and return FAIL unless "args[idx]" is a string
7f4cc4e58f75 patch 8.2.3894: Vim9: no proper type check for first argument of call() Bram Moolenaar <Bram@vim.org> parents: 26696 diff changeset	836 * or a function reference.
7f4cc4e58f75 patch 8.2.3894: Vim9: no proper type check for first argument of call() Bram Moolenaar <Bram@vim.org> parents: 26696 diff changeset	837 */
7f4cc4e58f75 patch 8.2.3894: Vim9: no proper type check for first argument of call() Bram Moolenaar <Bram@vim.org> parents: 26696 diff changeset	838 int
7f4cc4e58f75 patch 8.2.3894: Vim9: no proper type check for first argument of call() Bram Moolenaar <Bram@vim.org> parents: 26696 diff changeset	839 check_for_string_or_func_arg(typval_T *args, int idx)
7f4cc4e58f75 patch 8.2.3894: Vim9: no proper type check for first argument of call() Bram Moolenaar <Bram@vim.org> parents: 26696 diff changeset	840 {
7f4cc4e58f75 patch 8.2.3894: Vim9: no proper type check for first argument of call() Bram Moolenaar <Bram@vim.org> parents: 26696 diff changeset	841 if (args[idx].v_type != VAR_PARTIAL
7f4cc4e58f75 patch 8.2.3894: Vim9: no proper type check for first argument of call() Bram Moolenaar <Bram@vim.org> parents: 26696 diff changeset	842 && args[idx].v_type != VAR_FUNC
7f4cc4e58f75 patch 8.2.3894: Vim9: no proper type check for first argument of call() Bram Moolenaar <Bram@vim.org> parents: 26696 diff changeset	843 && args[idx].v_type != VAR_STRING)
7f4cc4e58f75 patch 8.2.3894: Vim9: no proper type check for first argument of call() Bram Moolenaar <Bram@vim.org> parents: 26696 diff changeset	844 {
7f4cc4e58f75 patch 8.2.3894: Vim9: no proper type check for first argument of call() Bram Moolenaar <Bram@vim.org> parents: 26696 diff changeset	845 semsg(_(e_string_or_function_required_for_argument_nr), idx + 1);
7f4cc4e58f75 patch 8.2.3894: Vim9: no proper type check for first argument of call() Bram Moolenaar <Bram@vim.org> parents: 26696 diff changeset	846 return FAIL;
7f4cc4e58f75 patch 8.2.3894: Vim9: no proper type check for first argument of call() Bram Moolenaar <Bram@vim.org> parents: 26696 diff changeset	847 }
7f4cc4e58f75 patch 8.2.3894: Vim9: no proper type check for first argument of call() Bram Moolenaar <Bram@vim.org> parents: 26696 diff changeset	848 return OK;
7f4cc4e58f75 patch 8.2.3894: Vim9: no proper type check for first argument of call() Bram Moolenaar <Bram@vim.org> parents: 26696 diff changeset	849 }
7f4cc4e58f75 patch 8.2.3894: Vim9: no proper type check for first argument of call() Bram Moolenaar <Bram@vim.org> parents: 26696 diff changeset	850
7f4cc4e58f75 patch 8.2.3894: Vim9: no proper type check for first argument of call() Bram Moolenaar <Bram@vim.org> parents: 26696 diff changeset	851 /*
25338 e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	852 * Give an error and return FAIL unless "args[idx]" is a list or a blob.
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	853 */
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	854 int
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	855 check_for_list_or_blob_arg(typval_T *args, int idx)
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	856 {
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	857 if (args[idx].v_type != VAR_LIST && args[idx].v_type != VAR_BLOB)
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	858 {
26638 6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	859 semsg(_(e_list_or_blob_required_for_argument_nr), idx + 1);
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	860 return FAIL;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	861 }
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	862 return OK;
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	863 }
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	864
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	865 /*
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	866 * Give an error and return FAIL unless "args[idx]" is a list or dict
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	867 */
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	868 int
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	869 check_for_list_or_dict_arg(typval_T *args, int idx)
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	870 {
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	871 if (args[idx].v_type != VAR_LIST
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	872 && args[idx].v_type != VAR_DICT)
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	873 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	874 semsg(_(e_list_or_dict_required_for_argument_nr), idx + 1);
25338 e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	875 return FAIL;
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	876 }
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	877 return OK;
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	878 }
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	879
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	880 /*
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	881 * Give an error and return FAIL unless "args[idx]" is a list or dict or a
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	882 * blob.
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	883 */
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	884 int
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	885 check_for_list_or_dict_or_blob_arg(typval_T *args, int idx)
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	886 {
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	887 if (args[idx].v_type != VAR_LIST
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	888 && args[idx].v_type != VAR_DICT
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	889 && args[idx].v_type != VAR_BLOB)
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	890 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	891 semsg(_(e_list_dict_or_blob_required_for_argument_nr), idx + 1);
25338 e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	892 return FAIL;
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	893 }
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	894 return OK;
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	895 }
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	896
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	897 /*
26585 0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26441 diff changeset	898 * Give an error and return FAIL unless "args[idx]" is a list or dict or a
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26441 diff changeset	899 * blob or a string.
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26441 diff changeset	900 */
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26441 diff changeset	901 int
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26441 diff changeset	902 check_for_list_or_dict_or_blob_or_string_arg(typval_T *args, int idx)
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26441 diff changeset	903 {
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26441 diff changeset	904 if (args[idx].v_type != VAR_LIST
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26441 diff changeset	905 && args[idx].v_type != VAR_DICT
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26441 diff changeset	906 && args[idx].v_type != VAR_BLOB
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26441 diff changeset	907 && args[idx].v_type != VAR_STRING)
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26441 diff changeset	908 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	909 semsg(_(e_list_dict_blob_or_string_required_for_argument_nr), idx + 1);
26585 0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26441 diff changeset	910 return FAIL;
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26441 diff changeset	911 }
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26441 diff changeset	912 return OK;
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26441 diff changeset	913 }
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26441 diff changeset	914
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26441 diff changeset	915 /*
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	916 * Give an error and return FAIL unless "args[idx]" is an optional buffer
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	917 * number or a dict.
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	918 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	919 int
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	920 check_for_opt_buffer_or_dict_arg(typval_T *args, int idx)
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	921 {
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	922 if (args[idx].v_type != VAR_UNKNOWN
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25368 diff changeset	923 && args[idx].v_type != VAR_STRING
25314 7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	924 && args[idx].v_type != VAR_NUMBER
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	925 && args[idx].v_type != VAR_DICT)
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	926 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	927 semsg(_(e_string_required_for_argument_nr), idx + 1);
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	928 return FAIL;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	929 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	930 return OK;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	931 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	932
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	933 /*
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	934 * Get the string value of a variable.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	935 * If it is a Number variable, the number is converted into a string.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	936 * tv_get_string() uses a single, static buffer. YOU CAN ONLY USE IT ONCE!
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	937 * tv_get_string_buf() uses a given buffer.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	938 * If the String variable has never been set, return an empty string.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	939 * Never returns NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	940 * tv_get_string_chk() and tv_get_string_buf_chk() are similar, but return
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	941 * NULL on error.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	942 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	943 char_u *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	944 tv_get_string(typval_T *varp)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	945 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	946 static char_u mybuf[NUMBUFLEN];
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	947
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	948 return tv_get_string_buf(varp, mybuf);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	949 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	950
23786 0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	951 /*
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	952 * Like tv_get_string() but don't allow number to string conversion for Vim9.
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	953 */
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	954 char_u *
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	955 tv_get_string_strict(typval_T *varp)
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	956 {
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	957 static char_u mybuf[NUMBUFLEN];
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	958 char_u *res = tv_get_string_buf_chk_strict(
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	959 varp, mybuf, in_vim9script());
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	960
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	961 return res != NULL ? res : (char_u *)"";
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	962 }
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	963
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	964 char_u *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	965 tv_get_string_buf(typval_T varp, char_u buf)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	966 {
24812 8fdf839af1f4 patch 8.2.2944: Vim9: no error when using job or channel as a string Bram Moolenaar <Bram@vim.org> parents: 24614 diff changeset	967 char_u *res = tv_get_string_buf_chk(varp, buf);
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	968
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	969 return res != NULL ? res : (char_u *)"";
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	970 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	971
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	972 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	973 * Careful: This uses a single, static buffer. YOU CAN ONLY USE IT ONCE!
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	974 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	975 char_u *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	976 tv_get_string_chk(typval_T *varp)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	977 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	978 static char_u mybuf[NUMBUFLEN];
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	979
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	980 return tv_get_string_buf_chk(varp, mybuf);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	981 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	982
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	983 char_u *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	984 tv_get_string_buf_chk(typval_T varp, char_u buf)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	985 {
23786 0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	986 return tv_get_string_buf_chk_strict(varp, buf, FALSE);
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	987 }
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	988
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	989 char_u *
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	990 tv_get_string_buf_chk_strict(typval_T varp, char_u buf, int strict)
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	991 {
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	992 switch (varp->v_type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	993 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	994 case VAR_NUMBER:
23786 0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	995 if (strict)
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	996 {
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	997 emsg(_(e_using_number_as_string));
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	998 break;
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	999 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1000 vim_snprintf((char *)buf, NUMBUFLEN, "%lld",
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1001 (varnumber_T)varp->vval.v_number);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1002 return buf;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1003 case VAR_FUNC:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1004 case VAR_PARTIAL:
26952 b34ddbca305c patch 8.2.4005: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26948 diff changeset	1005 emsg(_(e_using_funcref_as_string));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1006 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1007 case VAR_LIST:
26952 b34ddbca305c patch 8.2.4005: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26948 diff changeset	1008 emsg(_(e_using_list_as_string));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1009 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1010 case VAR_DICT:
26952 b34ddbca305c patch 8.2.4005: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26948 diff changeset	1011 emsg(_(e_using_dictionary_as_string));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1012 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1013 case VAR_FLOAT:
24820 b1093c1ac109 patch 8.2.2948: substitute() accepts a number but not a float expression Bram Moolenaar <Bram@vim.org> parents: 24812 diff changeset	1014 if (strict)
b1093c1ac109 patch 8.2.2948: substitute() accepts a number but not a float expression Bram Moolenaar <Bram@vim.org> parents: 24812 diff changeset	1015 {
26885 ed39730119bd patch 8.2.3971: build fails Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	1016 emsg(_(e_using_float_as_string));
24820 b1093c1ac109 patch 8.2.2948: substitute() accepts a number but not a float expression Bram Moolenaar <Bram@vim.org> parents: 24812 diff changeset	1017 break;
b1093c1ac109 patch 8.2.2948: substitute() accepts a number but not a float expression Bram Moolenaar <Bram@vim.org> parents: 24812 diff changeset	1018 }
b1093c1ac109 patch 8.2.2948: substitute() accepts a number but not a float expression Bram Moolenaar <Bram@vim.org> parents: 24812 diff changeset	1019 vim_snprintf((char *)buf, NUMBUFLEN, "%g", varp->vval.v_float);
b1093c1ac109 patch 8.2.2948: substitute() accepts a number but not a float expression Bram Moolenaar <Bram@vim.org> parents: 24812 diff changeset	1020 return buf;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1021 case VAR_STRING:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1022 if (varp->vval.v_string != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1023 return varp->vval.v_string;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1024 return (char_u *)"";
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1025 case VAR_BOOL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1026 case VAR_SPECIAL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1027 STRCPY(buf, get_var_special_name(varp->vval.v_number));
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1028 return buf;
28809 d0241e74bfdb patch 8.2.4928: various white space and cosmetic mistakes Bram Moolenaar <Bram@vim.org> parents: 28718 diff changeset	1029 case VAR_BLOB:
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	1030 emsg(_(e_using_blob_as_string));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1031 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1032 case VAR_JOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1033 #ifdef FEAT_JOB_CHANNEL
24812 8fdf839af1f4 patch 8.2.2944: Vim9: no error when using job or channel as a string Bram Moolenaar <Bram@vim.org> parents: 24614 diff changeset	1034 if (in_vim9script())
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1035 {
24812 8fdf839af1f4 patch 8.2.2944: Vim9: no error when using job or channel as a string Bram Moolenaar <Bram@vim.org> parents: 24614 diff changeset	1036 semsg(_(e_using_invalid_value_as_string_str), "job");
8fdf839af1f4 patch 8.2.2944: Vim9: no error when using job or channel as a string Bram Moolenaar <Bram@vim.org> parents: 24614 diff changeset	1037 break;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1038 }
24812 8fdf839af1f4 patch 8.2.2944: Vim9: no error when using job or channel as a string Bram Moolenaar <Bram@vim.org> parents: 24614 diff changeset	1039 return job_to_string_buf(varp, buf);
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1040 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1041 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1042 case VAR_CHANNEL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1043 #ifdef FEAT_JOB_CHANNEL
24812 8fdf839af1f4 patch 8.2.2944: Vim9: no error when using job or channel as a string Bram Moolenaar <Bram@vim.org> parents: 24614 diff changeset	1044 if (in_vim9script())
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1045 {
24812 8fdf839af1f4 patch 8.2.2944: Vim9: no error when using job or channel as a string Bram Moolenaar <Bram@vim.org> parents: 24614 diff changeset	1046 semsg(_(e_using_invalid_value_as_string_str), "channel");
8fdf839af1f4 patch 8.2.2944: Vim9: no error when using job or channel as a string Bram Moolenaar <Bram@vim.org> parents: 24614 diff changeset	1047 break;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1048 }
24812 8fdf839af1f4 patch 8.2.2944: Vim9: no error when using job or channel as a string Bram Moolenaar <Bram@vim.org> parents: 24614 diff changeset	1049 return channel_to_string_buf(varp, buf);
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1050 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1051 break;
24936 345619f35112 patch 8.2.3005: Vim9: using a void value does not give a proper error message Bram Moolenaar <Bram@vim.org> parents: 24820 diff changeset	1052 case VAR_VOID:
345619f35112 patch 8.2.3005: Vim9: using a void value does not give a proper error message Bram Moolenaar <Bram@vim.org> parents: 24820 diff changeset	1053 emsg(_(e_cannot_use_void_value));
345619f35112 patch 8.2.3005: Vim9: using a void value does not give a proper error message Bram Moolenaar <Bram@vim.org> parents: 24820 diff changeset	1054 break;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1055 case VAR_UNKNOWN:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1056 case VAR_ANY:
24606 a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled Bram Moolenaar <Bram@vim.org> parents: 24424 diff changeset	1057 case VAR_INSTR:
24614 07b3d21a8b4b patch 8.2.2846: Vim9: "echo Func()" does not give an error for using void Bram Moolenaar <Bram@vim.org> parents: 24610 diff changeset	1058 semsg(_(e_using_invalid_value_as_string_str),
07b3d21a8b4b patch 8.2.2846: Vim9: "echo Func()" does not give an error for using void Bram Moolenaar <Bram@vim.org> parents: 24610 diff changeset	1059 vartype_name(varp->v_type));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1060 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1061 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1062 return NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1063 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1064
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1065 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1066 * Turn a typeval into a string. Similar to tv_get_string_buf() but uses
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1067 * string() on Dict, List, etc.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1068 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1069 char_u *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1070 tv_stringify(typval_T varp, char_u buf)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1071 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1072 if (varp->v_type == VAR_LIST
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1073 \|\| varp->v_type == VAR_DICT
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1074 \|\| varp->v_type == VAR_BLOB
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1075 \|\| varp->v_type == VAR_FUNC
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1076 \|\| varp->v_type == VAR_PARTIAL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1077 \|\| varp->v_type == VAR_FLOAT)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1078 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1079 typval_T tmp;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1080
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1081 f_string(varp, &tmp);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1082 tv_get_string_buf(&tmp, buf);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1083 clear_tv(varp);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1084 *varp = tmp;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1085 return tmp.vval.v_string;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1086 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1087 return tv_get_string_buf(varp, buf);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1088 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1089
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1090 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1091 * Return TRUE if typeval "tv" and its value are set to be locked (immutable).
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1092 * Also give an error message, using "name" or _("name") when use_gettext is
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1093 * TRUE.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1094 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1095 int
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1096 tv_check_lock(typval_T tv, char_u name, int use_gettext)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1097 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1098 int lock = 0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1099
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1100 switch (tv->v_type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1101 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1102 case VAR_BLOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1103 if (tv->vval.v_blob != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1104 lock = tv->vval.v_blob->bv_lock;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1105 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1106 case VAR_LIST:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1107 if (tv->vval.v_list != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1108 lock = tv->vval.v_list->lv_lock;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1109 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1110 case VAR_DICT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1111 if (tv->vval.v_dict != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1112 lock = tv->vval.v_dict->dv_lock;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1113 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1114 default:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1115 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1116 }
22298 07e48ee8c3bb patch 8.2.1698: cannot lock a variable in legacy Vim script like in Vim9 Bram Moolenaar <Bram@vim.org> parents: 22043 diff changeset	1117 return value_check_lock(tv->v_lock, name, use_gettext)
07e48ee8c3bb patch 8.2.1698: cannot lock a variable in legacy Vim script like in Vim9 Bram Moolenaar <Bram@vim.org> parents: 22043 diff changeset	1118 \|\| (lock != 0 && value_check_lock(lock, name, use_gettext));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1119 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1120
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1121 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1122 * Copy the values from typval_T "from" to typval_T "to".
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1123 * When needed allocates string or increases reference count.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1124 * Does not make a copy of a list, blob or dict but copies the reference!
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1125 * It is OK for "from" and "to" to point to the same item. This is used to
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1126 * make a copy later.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1127 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1128 void
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1129 copy_tv(typval_T from, typval_T to)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1130 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1131 to->v_type = from->v_type;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1132 to->v_lock = 0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1133 switch (from->v_type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1134 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1135 case VAR_NUMBER:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1136 case VAR_BOOL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1137 case VAR_SPECIAL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1138 to->vval.v_number = from->vval.v_number;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1139 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1140 case VAR_FLOAT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1141 to->vval.v_float = from->vval.v_float;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1142 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1143 case VAR_JOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1144 #ifdef FEAT_JOB_CHANNEL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1145 to->vval.v_job = from->vval.v_job;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1146 if (to->vval.v_job != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1147 ++to->vval.v_job->jv_refcount;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1148 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1149 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1150 case VAR_CHANNEL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1151 #ifdef FEAT_JOB_CHANNEL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1152 to->vval.v_channel = from->vval.v_channel;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1153 if (to->vval.v_channel != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1154 ++to->vval.v_channel->ch_refcount;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1155 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1156 #endif
24606 a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled Bram Moolenaar <Bram@vim.org> parents: 24424 diff changeset	1157 case VAR_INSTR:
a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled Bram Moolenaar <Bram@vim.org> parents: 24424 diff changeset	1158 to->vval.v_instr = from->vval.v_instr;
a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled Bram Moolenaar <Bram@vim.org> parents: 24424 diff changeset	1159 break;
a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled Bram Moolenaar <Bram@vim.org> parents: 24424 diff changeset	1160
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1161 case VAR_STRING:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1162 case VAR_FUNC:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1163 if (from->vval.v_string == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1164 to->vval.v_string = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1165 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1166 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1167 to->vval.v_string = vim_strsave(from->vval.v_string);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1168 if (from->v_type == VAR_FUNC)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1169 func_ref(to->vval.v_string);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1170 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1171 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1172 case VAR_PARTIAL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1173 if (from->vval.v_partial == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1174 to->vval.v_partial = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1175 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1176 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1177 to->vval.v_partial = from->vval.v_partial;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1178 ++to->vval.v_partial->pt_refcount;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1179 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1180 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1181 case VAR_BLOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1182 if (from->vval.v_blob == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1183 to->vval.v_blob = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1184 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1185 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1186 to->vval.v_blob = from->vval.v_blob;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1187 ++to->vval.v_blob->bv_refcount;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1188 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1189 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1190 case VAR_LIST:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1191 if (from->vval.v_list == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1192 to->vval.v_list = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1193 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1194 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1195 to->vval.v_list = from->vval.v_list;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1196 ++to->vval.v_list->lv_refcount;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1197 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1198 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1199 case VAR_DICT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1200 if (from->vval.v_dict == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1201 to->vval.v_dict = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1202 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1203 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1204 to->vval.v_dict = from->vval.v_dict;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1205 ++to->vval.v_dict->dv_refcount;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1206 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1207 break;
24940 0c415a0f54f9 patch 8.2.3007: Vim9: test for void value fails Bram Moolenaar <Bram@vim.org> parents: 24936 diff changeset	1208 case VAR_VOID:
0c415a0f54f9 patch 8.2.3007: Vim9: test for void value fails Bram Moolenaar <Bram@vim.org> parents: 24936 diff changeset	1209 emsg(_(e_cannot_use_void_value));
0c415a0f54f9 patch 8.2.3007: Vim9: test for void value fails Bram Moolenaar <Bram@vim.org> parents: 24936 diff changeset	1210 break;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1211 case VAR_UNKNOWN:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1212 case VAR_ANY:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1213 internal_error_no_abort("copy_tv(UNKNOWN)");
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1214 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1215 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1216 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1217
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1218 /*
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1219 * Compare "tv1" and "tv2".
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1220 * Put the result in "tv1". Caller should clear "tv2".
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1221 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1222 int
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1223 typval_compare(
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1224 typval_T *tv1, // first operand
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1225 typval_T *tv2, // second operand
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1226 exprtype_T type, // operator
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1227 int ic) // ignore case
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1228 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1229 varnumber_T n1, n2;
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1230 int res = 0;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1231 int type_is = type == EXPR_IS \|\| type == EXPR_ISNOT;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1232
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1233 if (type_is && tv1->v_type != tv2->v_type)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1234 {
29994 86eb4aba16c3 patch 9.0.0335: checks for Dictionary argument often give a vague error Bram Moolenaar <Bram@vim.org> parents: 29525 diff changeset	1235 // For "is" a different type always means FALSE, for "isnot"
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1236 // it means TRUE.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1237 n1 = (type == EXPR_ISNOT);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1238 }
27924 e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1239 else if (((tv1->v_type == VAR_SPECIAL && tv1->vval.v_number == VVAL_NULL)
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1240 \|\| (tv2->v_type == VAR_SPECIAL
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1241 && tv2->vval.v_number == VVAL_NULL))
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1242 && tv1->v_type != tv2->v_type
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1243 && (type == EXPR_EQUAL \|\| type == EXPR_NEQUAL))
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1244 {
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1245 n1 = typval_compare_null(tv1, tv2);
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1246 if (n1 == MAYBE)
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1247 {
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1248 clear_tv(tv1);
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1249 return FAIL;
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1250 }
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1251 if (type == EXPR_NEQUAL)
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1252 n1 = !n1;
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1253 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1254 else if (tv1->v_type == VAR_BLOB \|\| tv2->v_type == VAR_BLOB)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1255 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1256 if (typval_compare_blob(tv1, tv2, type, &res) == FAIL)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1257 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1258 clear_tv(tv1);
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1259 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1260 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1261 n1 = res;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1262 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1263 else if (tv1->v_type == VAR_LIST \|\| tv2->v_type == VAR_LIST)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1264 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1265 if (typval_compare_list(tv1, tv2, type, ic, &res) == FAIL)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1266 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1267 clear_tv(tv1);
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1268 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1269 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1270 n1 = res;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1271 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1272 else if (tv1->v_type == VAR_DICT \|\| tv2->v_type == VAR_DICT)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1273 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1274 if (typval_compare_dict(tv1, tv2, type, ic, &res) == FAIL)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1275 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1276 clear_tv(tv1);
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1277 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1278 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1279 n1 = res;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1280 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1281 else if (tv1->v_type == VAR_FUNC \|\| tv2->v_type == VAR_FUNC
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1282 \|\| tv1->v_type == VAR_PARTIAL \|\| tv2->v_type == VAR_PARTIAL)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1283 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1284 if (typval_compare_func(tv1, tv2, type, ic, &res) == FAIL)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1285 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1286 clear_tv(tv1);
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1287 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1288 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1289 n1 = res;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1290 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1291
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1292 // If one of the two variables is a float, compare as a float.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1293 // When using "=~" or "!~", always compare as string.
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1294 else if ((tv1->v_type == VAR_FLOAT \|\| tv2->v_type == VAR_FLOAT)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1295 && type != EXPR_MATCH && type != EXPR_NOMATCH)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1296 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1297 float_T f1, f2;
26696 1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	1298 int error = FALSE;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1299
26696 1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	1300 f1 = tv_get_float_chk(tv1, &error);
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	1301 if (!error)
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	1302 f2 = tv_get_float_chk(tv2, &error);
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	1303 if (error)
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	1304 {
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	1305 clear_tv(tv1);
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	1306 return FAIL;
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	1307 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1308 n1 = FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1309 switch (type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1310 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1311 case EXPR_IS:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1312 case EXPR_EQUAL: n1 = (f1 == f2); break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1313 case EXPR_ISNOT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1314 case EXPR_NEQUAL: n1 = (f1 != f2); break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1315 case EXPR_GREATER: n1 = (f1 > f2); break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1316 case EXPR_GEQUAL: n1 = (f1 >= f2); break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1317 case EXPR_SMALLER: n1 = (f1 < f2); break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1318 case EXPR_SEQUAL: n1 = (f1 <= f2); break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1319 case EXPR_UNKNOWN:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1320 case EXPR_MATCH:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1321 default: break; // avoid gcc warning
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1322 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1323 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1324
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1325 // If one of the two variables is a number, compare as a number.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1326 // When using "=~" or "!~", always compare as string.
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1327 else if ((tv1->v_type == VAR_NUMBER \|\| tv2->v_type == VAR_NUMBER)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1328 && type != EXPR_MATCH && type != EXPR_NOMATCH)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1329 {
26696 1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	1330 int error = FALSE;
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	1331
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	1332 n1 = tv_get_number_chk(tv1, &error);
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	1333 if (!error)
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	1334 n2 = tv_get_number_chk(tv2, &error);
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	1335 if (error)
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	1336 {
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	1337 clear_tv(tv1);
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	1338 return FAIL;
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	1339 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1340 switch (type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1341 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1342 case EXPR_IS:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1343 case EXPR_EQUAL: n1 = (n1 == n2); break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1344 case EXPR_ISNOT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1345 case EXPR_NEQUAL: n1 = (n1 != n2); break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1346 case EXPR_GREATER: n1 = (n1 > n2); break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1347 case EXPR_GEQUAL: n1 = (n1 >= n2); break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1348 case EXPR_SMALLER: n1 = (n1 < n2); break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1349 case EXPR_SEQUAL: n1 = (n1 <= n2); break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1350 case EXPR_UNKNOWN:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1351 case EXPR_MATCH:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1352 default: break; // avoid gcc warning
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1353 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1354 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1355 else if (in_vim9script() && (tv1->v_type == VAR_BOOL
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1356 \|\| tv2->v_type == VAR_BOOL
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1357 \|\| (tv1->v_type == VAR_SPECIAL
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1358 && tv2->v_type == VAR_SPECIAL)))
23555 0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1359 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1360 if (tv1->v_type != tv2->v_type)
23555 0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1361 {
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1362 semsg(_(e_cannot_compare_str_with_str),
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1363 vartype_name(tv1->v_type), vartype_name(tv2->v_type));
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1364 clear_tv(tv1);
23555 0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1365 return FAIL;
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1366 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1367 n1 = tv1->vval.v_number;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1368 n2 = tv2->vval.v_number;
23555 0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1369 switch (type)
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1370 {
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1371 case EXPR_IS:
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1372 case EXPR_EQUAL: n1 = (n1 == n2); break;
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1373 case EXPR_ISNOT:
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1374 case EXPR_NEQUAL: n1 = (n1 != n2); break;
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1375 default:
25278 55c85c3a43a0 patch 8.2.3176: Vim9: no type error for comparing number with string Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1376 semsg(_(e_invalid_operation_for_str),
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1377 vartype_name(tv1->v_type));
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1378 clear_tv(tv1);
23555 0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1379 return FAIL;
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1380 }
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1381 }
28217 662d2d5db9a6 patch 8.2.4634: Vim9: cannot initialize a variable to null_list Bram Moolenaar <Bram@vim.org> parents: 28103 diff changeset	1382 #ifdef FEAT_JOB_CHANNEL
662d2d5db9a6 patch 8.2.4634: Vim9: cannot initialize a variable to null_list Bram Moolenaar <Bram@vim.org> parents: 28103 diff changeset	1383 else if (tv1->v_type == tv2->v_type
662d2d5db9a6 patch 8.2.4634: Vim9: cannot initialize a variable to null_list Bram Moolenaar <Bram@vim.org> parents: 28103 diff changeset	1384 && (tv1->v_type == VAR_CHANNEL \|\| tv1->v_type == VAR_JOB)
662d2d5db9a6 patch 8.2.4634: Vim9: cannot initialize a variable to null_list Bram Moolenaar <Bram@vim.org> parents: 28103 diff changeset	1385 && (type == EXPR_NEQUAL \|\| type == EXPR_EQUAL))
662d2d5db9a6 patch 8.2.4634: Vim9: cannot initialize a variable to null_list Bram Moolenaar <Bram@vim.org> parents: 28103 diff changeset	1386 {
662d2d5db9a6 patch 8.2.4634: Vim9: cannot initialize a variable to null_list Bram Moolenaar <Bram@vim.org> parents: 28103 diff changeset	1387 if (tv1->v_type == VAR_CHANNEL)
662d2d5db9a6 patch 8.2.4634: Vim9: cannot initialize a variable to null_list Bram Moolenaar <Bram@vim.org> parents: 28103 diff changeset	1388 n1 = tv1->vval.v_channel == tv2->vval.v_channel;
662d2d5db9a6 patch 8.2.4634: Vim9: cannot initialize a variable to null_list Bram Moolenaar <Bram@vim.org> parents: 28103 diff changeset	1389 else
662d2d5db9a6 patch 8.2.4634: Vim9: cannot initialize a variable to null_list Bram Moolenaar <Bram@vim.org> parents: 28103 diff changeset	1390 n1 = tv1->vval.v_job == tv2->vval.v_job;
662d2d5db9a6 patch 8.2.4634: Vim9: cannot initialize a variable to null_list Bram Moolenaar <Bram@vim.org> parents: 28103 diff changeset	1391 if (type == EXPR_NEQUAL)
662d2d5db9a6 patch 8.2.4634: Vim9: cannot initialize a variable to null_list Bram Moolenaar <Bram@vim.org> parents: 28103 diff changeset	1392 n1 = !n1;
662d2d5db9a6 patch 8.2.4634: Vim9: cannot initialize a variable to null_list Bram Moolenaar <Bram@vim.org> parents: 28103 diff changeset	1393 }
662d2d5db9a6 patch 8.2.4634: Vim9: cannot initialize a variable to null_list Bram Moolenaar <Bram@vim.org> parents: 28103 diff changeset	1394 #endif
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1395 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1396 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1397 if (typval_compare_string(tv1, tv2, type, ic, &res) == FAIL)
25278 55c85c3a43a0 patch 8.2.3176: Vim9: no type error for comparing number with string Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1398 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1399 clear_tv(tv1);
25278 55c85c3a43a0 patch 8.2.3176: Vim9: no type error for comparing number with string Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1400 return FAIL;
55c85c3a43a0 patch 8.2.3176: Vim9: no type error for comparing number with string Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1401 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1402 n1 = res;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1403 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1404 clear_tv(tv1);
21425 a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 21120 diff changeset	1405 if (in_vim9script())
a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 21120 diff changeset	1406 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1407 tv1->v_type = VAR_BOOL;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1408 tv1->vval.v_number = n1 ? VVAL_TRUE : VVAL_FALSE;
21425 a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 21120 diff changeset	1409 }
a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 21120 diff changeset	1410 else
a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 21120 diff changeset	1411 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1412 tv1->v_type = VAR_NUMBER;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1413 tv1->vval.v_number = n1;
21425 a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 21120 diff changeset	1414 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1415
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1416 return OK;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1417 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1418
23788 d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1419 /*
30986 360f286b5869 patch 9.0.0828: various typos Bram Moolenaar <Bram@vim.org> parents: 30761 diff changeset	1420 * Compare "tv1" to "tv2" as lists according to "type" and "ic".
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1421 * Put the result, false or true, in "res".
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1422 * Return FAIL and give an error message when the comparison can't be done.
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1423 */
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1424 int
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1425 typval_compare_list(
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1426 typval_T *tv1,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1427 typval_T *tv2,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1428 exprtype_T type,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1429 int ic,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1430 int *res)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1431 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1432 int val = 0;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1433
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1434 if (type == EXPR_IS \|\| type == EXPR_ISNOT)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1435 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1436 val = (tv1->v_type == tv2->v_type
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1437 && tv1->vval.v_list == tv2->vval.v_list);
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1438 if (type == EXPR_ISNOT)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1439 val = !val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1440 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1441 else if (tv1->v_type != tv2->v_type
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1442 \|\| (type != EXPR_EQUAL && type != EXPR_NEQUAL))
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1443 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1444 if (tv1->v_type != tv2->v_type)
26952 b34ddbca305c patch 8.2.4005: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26948 diff changeset	1445 emsg(_(e_can_only_compare_list_with_list));
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1446 else
26952 b34ddbca305c patch 8.2.4005: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26948 diff changeset	1447 emsg(_(e_invalid_operation_for_list));
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1448 return FAIL;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1449 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1450 else
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1451 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1452 val = list_equal(tv1->vval.v_list, tv2->vval.v_list,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1453 ic, FALSE);
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1454 if (type == EXPR_NEQUAL)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1455 val = !val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1456 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1457 *res = val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1458 return OK;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1459 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1460
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1461 /*
28011 d10d5cc8e657 patch 8.2.4530: making comparison with null work changes legacy behavior Bram Moolenaar <Bram@vim.org> parents: 27928 diff changeset	1462 * Compare v:null with another type. Return TRUE if the value is NULL.
27924 e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1463 */
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1464 int
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1465 typval_compare_null(typval_T tv1, typval_T tv2)
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1466 {
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1467 if ((tv1->v_type == VAR_SPECIAL && tv1->vval.v_number == VVAL_NULL)
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1468 \|\| (tv2->v_type == VAR_SPECIAL && tv2->vval.v_number == VVAL_NULL))
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1469 {
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1470 typval_T *tv = tv1->v_type == VAR_SPECIAL ? tv2 : tv1;
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1471
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1472 switch (tv->v_type)
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1473 {
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1474 case VAR_BLOB: return tv->vval.v_blob == NULL;
27926 46c06f741d12 patch 8.2.4488: build error with +eval but without +channel or +job Bram Moolenaar <Bram@vim.org> parents: 27924 diff changeset	1475 #ifdef FEAT_JOB_CHANNEL
27924 e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1476 case VAR_CHANNEL: return tv->vval.v_channel == NULL;
27926 46c06f741d12 patch 8.2.4488: build error with +eval but without +channel or +job Bram Moolenaar <Bram@vim.org> parents: 27924 diff changeset	1477 #endif
27924 e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1478 case VAR_DICT: return tv->vval.v_dict == NULL;
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1479 case VAR_FUNC: return tv->vval.v_string == NULL;
27926 46c06f741d12 patch 8.2.4488: build error with +eval but without +channel or +job Bram Moolenaar <Bram@vim.org> parents: 27924 diff changeset	1480 #ifdef FEAT_JOB_CHANNEL
27924 e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1481 case VAR_JOB: return tv->vval.v_job == NULL;
27926 46c06f741d12 patch 8.2.4488: build error with +eval but without +channel or +job Bram Moolenaar <Bram@vim.org> parents: 27924 diff changeset	1482 #endif
27924 e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1483 case VAR_LIST: return tv->vval.v_list == NULL;
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1484 case VAR_PARTIAL: return tv->vval.v_partial == NULL;
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1485 case VAR_STRING: return tv->vval.v_string == NULL;
27928 ca7a207d83cd patch 8.2.4489: failing test for comparing v:null with number Bram Moolenaar <Bram@vim.org> parents: 27926 diff changeset	1486
ca7a207d83cd patch 8.2.4489: failing test for comparing v:null with number Bram Moolenaar <Bram@vim.org> parents: 27926 diff changeset	1487 case VAR_NUMBER: if (!in_vim9script())
ca7a207d83cd patch 8.2.4489: failing test for comparing v:null with number Bram Moolenaar <Bram@vim.org> parents: 27926 diff changeset	1488 return tv->vval.v_number == 0;
ca7a207d83cd patch 8.2.4489: failing test for comparing v:null with number Bram Moolenaar <Bram@vim.org> parents: 27926 diff changeset	1489 break;
ca7a207d83cd patch 8.2.4489: failing test for comparing v:null with number Bram Moolenaar <Bram@vim.org> parents: 27926 diff changeset	1490 case VAR_FLOAT: if (!in_vim9script())
ca7a207d83cd patch 8.2.4489: failing test for comparing v:null with number Bram Moolenaar <Bram@vim.org> parents: 27926 diff changeset	1491 return tv->vval.v_float == 0.0;
ca7a207d83cd patch 8.2.4489: failing test for comparing v:null with number Bram Moolenaar <Bram@vim.org> parents: 27926 diff changeset	1492 break;
27924 e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1493 default: break;
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1494 }
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1495 }
28217 662d2d5db9a6 patch 8.2.4634: Vim9: cannot initialize a variable to null_list Bram Moolenaar <Bram@vim.org> parents: 28103 diff changeset	1496 // although comparing null with number, float or bool is not very useful
28103 1615d305c71d patch 8.2.4576: Vim9: error for comparing with null can be annoying Bram Moolenaar <Bram@vim.org> parents: 28019 diff changeset	1497 // we won't give an error
1615d305c71d patch 8.2.4576: Vim9: error for comparing with null can be annoying Bram Moolenaar <Bram@vim.org> parents: 28019 diff changeset	1498 return FALSE;
27924 e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1499 }
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1500
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1501 /*
30986 360f286b5869 patch 9.0.0828: various typos Bram Moolenaar <Bram@vim.org> parents: 30761 diff changeset	1502 * Compare "tv1" to "tv2" as blobs according to "type".
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1503 * Put the result, false or true, in "res".
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1504 * Return FAIL and give an error message when the comparison can't be done.
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1505 */
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1506 int
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1507 typval_compare_blob(
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1508 typval_T *tv1,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1509 typval_T *tv2,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1510 exprtype_T type,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1511 int *res)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1512 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1513 int val = 0;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1514
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1515 if (type == EXPR_IS \|\| type == EXPR_ISNOT)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1516 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1517 val = (tv1->v_type == tv2->v_type
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1518 && tv1->vval.v_blob == tv2->vval.v_blob);
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1519 if (type == EXPR_ISNOT)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1520 val = !val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1521 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1522 else if (tv1->v_type != tv2->v_type
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1523 \|\| (type != EXPR_EQUAL && type != EXPR_NEQUAL))
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1524 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1525 if (tv1->v_type != tv2->v_type)
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	1526 emsg(_(e_can_only_compare_blob_with_blob));
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1527 else
26877 06a137af96f8 patch 8.2.3967: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26782 diff changeset	1528 emsg(_(e_invalid_operation_for_blob));
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1529 return FAIL;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1530 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1531 else
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1532 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1533 val = blob_equal(tv1->vval.v_blob, tv2->vval.v_blob);
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1534 if (type == EXPR_NEQUAL)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1535 val = !val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1536 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1537 *res = val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1538 return OK;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1539 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1540
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1541 /*
30986 360f286b5869 patch 9.0.0828: various typos Bram Moolenaar <Bram@vim.org> parents: 30761 diff changeset	1542 * Compare "tv1" to "tv2" as dictionaries according to "type" and "ic".
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1543 * Put the result, false or true, in "res".
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1544 * Return FAIL and give an error message when the comparison can't be done.
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1545 */
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1546 int
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1547 typval_compare_dict(
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1548 typval_T *tv1,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1549 typval_T *tv2,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1550 exprtype_T type,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1551 int ic,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1552 int *res)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1553 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1554 int val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1555
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1556 if (type == EXPR_IS \|\| type == EXPR_ISNOT)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1557 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1558 val = (tv1->v_type == tv2->v_type
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1559 && tv1->vval.v_dict == tv2->vval.v_dict);
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1560 if (type == EXPR_ISNOT)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1561 val = !val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1562 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1563 else if (tv1->v_type != tv2->v_type
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1564 \|\| (type != EXPR_EQUAL && type != EXPR_NEQUAL))
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1565 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1566 if (tv1->v_type != tv2->v_type)
26952 b34ddbca305c patch 8.2.4005: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26948 diff changeset	1567 emsg(_(e_can_only_compare_dictionary_with_dictionary));
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1568 else
26952 b34ddbca305c patch 8.2.4005: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26948 diff changeset	1569 emsg(_(e_invalid_operation_for_dictionary));
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1570 return FAIL;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1571 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1572 else
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1573 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1574 val = dict_equal(tv1->vval.v_dict, tv2->vval.v_dict, ic, FALSE);
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1575 if (type == EXPR_NEQUAL)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1576 val = !val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1577 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1578 *res = val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1579 return OK;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1580 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1581
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1582 /*
30986 360f286b5869 patch 9.0.0828: various typos Bram Moolenaar <Bram@vim.org> parents: 30761 diff changeset	1583 * Compare "tv1" to "tv2" as funcrefs according to "type" and "ic".
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1584 * Put the result, false or true, in "res".
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1585 * Return FAIL and give an error message when the comparison can't be done.
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1586 */
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1587 int
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1588 typval_compare_func(
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1589 typval_T *tv1,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1590 typval_T *tv2,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1591 exprtype_T type,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1592 int ic,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1593 int *res)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1594 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1595 int val = 0;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1596
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1597 if (type != EXPR_EQUAL && type != EXPR_NEQUAL
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1598 && type != EXPR_IS && type != EXPR_ISNOT)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1599 {
26952 b34ddbca305c patch 8.2.4005: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26948 diff changeset	1600 emsg(_(e_invalid_operation_for_funcrefs));
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1601 return FAIL;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1602 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1603 if ((tv1->v_type == VAR_PARTIAL && tv1->vval.v_partial == NULL)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1604 \|\| (tv2->v_type == VAR_PARTIAL && tv2->vval.v_partial == NULL))
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1605 // When both partials are NULL, then they are equal.
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1606 // Otherwise they are not equal.
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1607 val = (tv1->vval.v_partial == tv2->vval.v_partial);
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1608 else if (type == EXPR_IS \|\| type == EXPR_ISNOT)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1609 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1610 if (tv1->v_type == VAR_FUNC && tv2->v_type == VAR_FUNC)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1611 // strings are considered the same if their value is
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1612 // the same
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1613 val = tv_equal(tv1, tv2, ic, FALSE);
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1614 else if (tv1->v_type == VAR_PARTIAL && tv2->v_type == VAR_PARTIAL)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1615 val = (tv1->vval.v_partial == tv2->vval.v_partial);
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1616 else
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1617 val = FALSE;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1618 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1619 else
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1620 val = tv_equal(tv1, tv2, ic, FALSE);
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1621 if (type == EXPR_NEQUAL \|\| type == EXPR_ISNOT)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1622 val = !val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1623 *res = val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1624 return OK;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1625 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1626
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1627 /*
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1628 * Compare "tv1" to "tv2" as strings according to "type" and "ic".
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1629 * Put the result, false or true, in "res".
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1630 * Return FAIL and give an error message when the comparison can't be done.
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1631 */
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1632 int
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1633 typval_compare_string(
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1634 typval_T *tv1,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1635 typval_T *tv2,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1636 exprtype_T type,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1637 int ic,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1638 int *res)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1639 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1640 int i = 0;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1641 int val = FALSE;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1642 char_u s1, s2;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1643 char_u buf1[NUMBUFLEN], buf2[NUMBUFLEN];
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1644
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1645 if (in_vim9script()
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1646 && ((tv1->v_type != VAR_STRING && tv1->v_type != VAR_SPECIAL)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1647 \|\| (tv2->v_type != VAR_STRING && tv2->v_type != VAR_SPECIAL)))
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1648 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1649 semsg(_(e_cannot_compare_str_with_str),
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1650 vartype_name(tv1->v_type), vartype_name(tv2->v_type));
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1651 return FAIL;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1652 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1653 s1 = tv_get_string_buf(tv1, buf1);
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1654 s2 = tv_get_string_buf(tv2, buf2);
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1655 if (type != EXPR_MATCH && type != EXPR_NOMATCH)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1656 i = ic ? MB_STRICMP(s1, s2) : STRCMP(s1, s2);
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1657 switch (type)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1658 {
28019 53e2bf6032e5 patch 8.2.4534: Vim9: "is" operator with empty string and null returns true Bram Moolenaar <Bram@vim.org> parents: 28011 diff changeset	1659 case EXPR_IS: if (in_vim9script())
53e2bf6032e5 patch 8.2.4534: Vim9: "is" operator with empty string and null returns true Bram Moolenaar <Bram@vim.org> parents: 28011 diff changeset	1660 {
53e2bf6032e5 patch 8.2.4534: Vim9: "is" operator with empty string and null returns true Bram Moolenaar <Bram@vim.org> parents: 28011 diff changeset	1661 // Really check it is the same string, not just
53e2bf6032e5 patch 8.2.4534: Vim9: "is" operator with empty string and null returns true Bram Moolenaar <Bram@vim.org> parents: 28011 diff changeset	1662 // the same value.
53e2bf6032e5 patch 8.2.4534: Vim9: "is" operator with empty string and null returns true Bram Moolenaar <Bram@vim.org> parents: 28011 diff changeset	1663 val = tv1->vval.v_string == tv2->vval.v_string;
53e2bf6032e5 patch 8.2.4534: Vim9: "is" operator with empty string and null returns true Bram Moolenaar <Bram@vim.org> parents: 28011 diff changeset	1664 break;
53e2bf6032e5 patch 8.2.4534: Vim9: "is" operator with empty string and null returns true Bram Moolenaar <Bram@vim.org> parents: 28011 diff changeset	1665 }
53e2bf6032e5 patch 8.2.4534: Vim9: "is" operator with empty string and null returns true Bram Moolenaar <Bram@vim.org> parents: 28011 diff changeset	1666 // FALLTHROUGH
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1667 case EXPR_EQUAL: val = (i == 0); break;
28019 53e2bf6032e5 patch 8.2.4534: Vim9: "is" operator with empty string and null returns true Bram Moolenaar <Bram@vim.org> parents: 28011 diff changeset	1668 case EXPR_ISNOT: if (in_vim9script())
53e2bf6032e5 patch 8.2.4534: Vim9: "is" operator with empty string and null returns true Bram Moolenaar <Bram@vim.org> parents: 28011 diff changeset	1669 {
53e2bf6032e5 patch 8.2.4534: Vim9: "is" operator with empty string and null returns true Bram Moolenaar <Bram@vim.org> parents: 28011 diff changeset	1670 // Really check it is not the same string, not
53e2bf6032e5 patch 8.2.4534: Vim9: "is" operator with empty string and null returns true Bram Moolenaar <Bram@vim.org> parents: 28011 diff changeset	1671 // just a different value.
53e2bf6032e5 patch 8.2.4534: Vim9: "is" operator with empty string and null returns true Bram Moolenaar <Bram@vim.org> parents: 28011 diff changeset	1672 val = tv1->vval.v_string != tv2->vval.v_string;
53e2bf6032e5 patch 8.2.4534: Vim9: "is" operator with empty string and null returns true Bram Moolenaar <Bram@vim.org> parents: 28011 diff changeset	1673 break;
53e2bf6032e5 patch 8.2.4534: Vim9: "is" operator with empty string and null returns true Bram Moolenaar <Bram@vim.org> parents: 28011 diff changeset	1674 }
53e2bf6032e5 patch 8.2.4534: Vim9: "is" operator with empty string and null returns true Bram Moolenaar <Bram@vim.org> parents: 28011 diff changeset	1675 // FALLTHROUGH
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1676 case EXPR_NEQUAL: val = (i != 0); break;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1677 case EXPR_GREATER: val = (i > 0); break;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1678 case EXPR_GEQUAL: val = (i >= 0); break;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1679 case EXPR_SMALLER: val = (i < 0); break;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1680 case EXPR_SEQUAL: val = (i <= 0); break;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1681
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1682 case EXPR_MATCH:
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1683 case EXPR_NOMATCH:
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1684 val = pattern_match(s2, s1, ic);
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1685 if (type == EXPR_NOMATCH)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1686 val = !val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1687 break;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1688
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1689 default: break; // avoid gcc warning
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1690 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1691 *res = val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1692 return OK;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1693 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1694 /*
23788 d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1695 * Convert any type to a string, never give an error.
d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1696 * When "quotes" is TRUE add quotes to a string.
d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1697 * Returns an allocated string.
d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1698 */
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1699 char_u *
23788 d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1700 typval_tostring(typval_T *arg, int quotes)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1701 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1702 char_u *tofree;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1703 char_u numbuf[NUMBUFLEN];
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1704 char_u *ret = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1705
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1706 if (arg == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1707 return vim_strsave((char_u *)"(does not exist)");
23788 d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1708 if (!quotes && arg->v_type == VAR_STRING)
d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1709 {
d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1710 ret = vim_strsave(arg->vval.v_string == NULL ? (char_u *)""
d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1711 : arg->vval.v_string);
d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1712 }
d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1713 else
d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1714 {
d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1715 ret = tv2string(arg, &tofree, numbuf, 0);
d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1716 // Make a copy if we have a value but it's not in allocated memory.
d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1717 if (ret != NULL && tofree == NULL)
d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1718 ret = vim_strsave(ret);
d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1719 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1720 return ret;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1721 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1722
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1723 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1724 * Return TRUE if typeval "tv" is locked: Either that value is locked itself
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1725 * or it refers to a List or Dictionary that is locked.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1726 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1727 int
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1728 tv_islocked(typval_T *tv)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1729 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1730 return (tv->v_lock & VAR_LOCKED)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1731 \|\| (tv->v_type == VAR_LIST
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1732 && tv->vval.v_list != NULL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1733 && (tv->vval.v_list->lv_lock & VAR_LOCKED))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1734 \|\| (tv->v_type == VAR_DICT
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1735 && tv->vval.v_dict != NULL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1736 && (tv->vval.v_dict->dv_lock & VAR_LOCKED));
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1737 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1738
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1739 static int
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1740 func_equal(
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1741 typval_T *tv1,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1742 typval_T *tv2,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1743 int ic) // ignore case
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1744 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1745 char_u s1, s2;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1746 dict_T d1, d2;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1747 int a1, a2;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1748 int i;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1749
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1750 // empty and NULL function name considered the same
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1751 s1 = tv1->v_type == VAR_FUNC ? tv1->vval.v_string
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1752 : partial_name(tv1->vval.v_partial);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1753 if (s1 != NULL && *s1 == NUL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1754 s1 = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1755 s2 = tv2->v_type == VAR_FUNC ? tv2->vval.v_string
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1756 : partial_name(tv2->vval.v_partial);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1757 if (s2 != NULL && *s2 == NUL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1758 s2 = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1759 if (s1 == NULL \|\| s2 == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1760 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1761 if (s1 != s2)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1762 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1763 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1764 else if (STRCMP(s1, s2) != 0)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1765 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1766
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1767 // empty dict and NULL dict is different
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1768 d1 = tv1->v_type == VAR_FUNC ? NULL : tv1->vval.v_partial->pt_dict;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1769 d2 = tv2->v_type == VAR_FUNC ? NULL : tv2->vval.v_partial->pt_dict;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1770 if (d1 == NULL \|\| d2 == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1771 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1772 if (d1 != d2)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1773 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1774 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1775 else if (!dict_equal(d1, d2, ic, TRUE))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1776 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1777
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1778 // empty list and no list considered the same
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1779 a1 = tv1->v_type == VAR_FUNC ? 0 : tv1->vval.v_partial->pt_argc;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1780 a2 = tv2->v_type == VAR_FUNC ? 0 : tv2->vval.v_partial->pt_argc;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1781 if (a1 != a2)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1782 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1783 for (i = 0; i < a1; ++i)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1784 if (!tv_equal(tv1->vval.v_partial->pt_argv + i,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1785 tv2->vval.v_partial->pt_argv + i, ic, TRUE))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1786 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1787
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1788 return TRUE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1789 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1790
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1791 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1792 * Return TRUE if "tv1" and "tv2" have the same value.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1793 * Compares the items just like "==" would compare them, but strings and
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1794 * numbers are different. Floats and numbers are also different.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1795 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1796 int
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1797 tv_equal(
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1798 typval_T *tv1,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1799 typval_T *tv2,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1800 int ic, // ignore case
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1801 int recursive) // TRUE when used recursively
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1802 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1803 char_u buf1[NUMBUFLEN], buf2[NUMBUFLEN];
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1804 char_u s1, s2;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1805 static int recursive_cnt = 0; // catch recursive loops
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1806 int r;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1807 static int tv_equal_recurse_limit;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1808
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1809 // Catch lists and dicts that have an endless loop by limiting
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1810 // recursiveness to a limit. We guess they are equal then.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1811 // A fixed limit has the problem of still taking an awful long time.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1812 // Reduce the limit every time running into it. That should work fine for
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1813 // deeply linked structures that are not recursively linked and catch
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1814 // recursiveness quickly.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1815 if (!recursive)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1816 tv_equal_recurse_limit = 1000;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1817 if (recursive_cnt >= tv_equal_recurse_limit)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1818 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1819 --tv_equal_recurse_limit;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1820 return TRUE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1821 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1822
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1823 // For VAR_FUNC and VAR_PARTIAL compare the function name, bound dict and
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1824 // arguments.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1825 if ((tv1->v_type == VAR_FUNC
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1826 \|\| (tv1->v_type == VAR_PARTIAL && tv1->vval.v_partial != NULL))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1827 && (tv2->v_type == VAR_FUNC
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1828 \|\| (tv2->v_type == VAR_PARTIAL && tv2->vval.v_partial != NULL)))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1829 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1830 ++recursive_cnt;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1831 r = func_equal(tv1, tv2, ic);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1832 --recursive_cnt;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1833 return r;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1834 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1835
23909 5db7d275543c patch 8.2.2497: no error when using more than one character for a register Bram Moolenaar <Bram@vim.org> parents: 23788 diff changeset	1836 if (tv1->v_type != tv2->v_type
5db7d275543c patch 8.2.2497: no error when using more than one character for a register Bram Moolenaar <Bram@vim.org> parents: 23788 diff changeset	1837 && ((tv1->v_type != VAR_BOOL && tv1->v_type != VAR_SPECIAL)
5db7d275543c patch 8.2.2497: no error when using more than one character for a register Bram Moolenaar <Bram@vim.org> parents: 23788 diff changeset	1838 \|\| (tv2->v_type != VAR_BOOL && tv2->v_type != VAR_SPECIAL)))
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1839 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1840
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1841 switch (tv1->v_type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1842 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1843 case VAR_LIST:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1844 ++recursive_cnt;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1845 r = list_equal(tv1->vval.v_list, tv2->vval.v_list, ic, TRUE);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1846 --recursive_cnt;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1847 return r;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1848
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1849 case VAR_DICT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1850 ++recursive_cnt;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1851 r = dict_equal(tv1->vval.v_dict, tv2->vval.v_dict, ic, TRUE);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1852 --recursive_cnt;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1853 return r;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1854
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1855 case VAR_BLOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1856 return blob_equal(tv1->vval.v_blob, tv2->vval.v_blob);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1857
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1858 case VAR_NUMBER:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1859 case VAR_BOOL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1860 case VAR_SPECIAL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1861 return tv1->vval.v_number == tv2->vval.v_number;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1862
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1863 case VAR_STRING:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1864 s1 = tv_get_string_buf(tv1, buf1);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1865 s2 = tv_get_string_buf(tv2, buf2);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1866 return ((ic ? MB_STRICMP(s1, s2) : STRCMP(s1, s2)) == 0);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1867
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1868 case VAR_FLOAT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1869 return tv1->vval.v_float == tv2->vval.v_float;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1870 case VAR_JOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1871 #ifdef FEAT_JOB_CHANNEL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1872 return tv1->vval.v_job == tv2->vval.v_job;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1873 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1874 case VAR_CHANNEL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1875 #ifdef FEAT_JOB_CHANNEL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1876 return tv1->vval.v_channel == tv2->vval.v_channel;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1877 #endif
24606 a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled Bram Moolenaar <Bram@vim.org> parents: 24424 diff changeset	1878 case VAR_INSTR:
a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled Bram Moolenaar <Bram@vim.org> parents: 24424 diff changeset	1879 return tv1->vval.v_instr == tv2->vval.v_instr;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1880
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1881 case VAR_PARTIAL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1882 return tv1->vval.v_partial == tv2->vval.v_partial;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1883
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1884 case VAR_FUNC:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1885 return tv1->vval.v_string == tv2->vval.v_string;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1886
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1887 case VAR_UNKNOWN:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1888 case VAR_ANY:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1889 case VAR_VOID:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1890 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1891 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1892
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1893 // VAR_UNKNOWN can be the result of a invalid expression, let's say it
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1894 // does not equal anything, not even itself.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1895 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1896 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1897
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1898 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1899 * Get an option value.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1900 * "arg" points to the '&' or '+' before the option name.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1901 * "arg" is advanced to character after the option name.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1902 * Return OK or FAIL.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1903 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1904 int
21120 4d844a65183d patch 8.2.1111: inconsistent naming of get_list_tv() and eval_dict() Bram Moolenaar <Bram@vim.org> parents: 20925 diff changeset	1905 eval_option(
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1906 char_u **arg,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1907 typval_T *rettv, // when NULL, only check if option exists
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1908 int evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1909 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1910 char_u *option_end;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1911 long numval;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1912 char_u *stringval;
23422 bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1913 getoption_T opt_type;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1914 int c;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1915 int working = (**arg == '+'); // has("+option")
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1916 int ret = OK;
26441 65ab0b035dd8 patch 8.2.3751: cannot assign a lambda to an option that takes a function Bram Moolenaar <Bram@vim.org> parents: 26342 diff changeset	1917 int scope;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1918
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1919 // Isolate the option name and find its value.
26441 65ab0b035dd8 patch 8.2.3751: cannot assign a lambda to an option that takes a function Bram Moolenaar <Bram@vim.org> parents: 26342 diff changeset	1920 option_end = find_option_end(arg, &scope);
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1921 if (option_end == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1922 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1923 if (rettv != NULL)
26602 fac6673086df patch 8.2.3830: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	1924 semsg(_(e_option_name_missing_str), *arg);
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1925 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1926 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1927
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1928 if (!evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1929 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1930 *arg = option_end;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1931 return OK;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1932 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1933
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1934 c = *option_end;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1935 *option_end = NUL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1936 opt_type = get_option_value(*arg, &numval,
26441 65ab0b035dd8 patch 8.2.3751: cannot assign a lambda to an option that takes a function Bram Moolenaar <Bram@vim.org> parents: 26342 diff changeset	1937 rettv == NULL ? NULL : &stringval, NULL, scope);
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1938
23422 bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1939 if (opt_type == gov_unknown)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1940 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1941 if (rettv != NULL)
26602 fac6673086df patch 8.2.3830: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	1942 semsg(_(e_unknown_option_str), *arg);
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1943 ret = FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1944 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1945 else if (rettv != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1946 {
23519 cb66613dd9d5 patch 8.2.2302: Vim9: using an option value may use uninitialized memory Bram Moolenaar <Bram@vim.org> parents: 23422 diff changeset	1947 rettv->v_lock = 0;
23422 bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1948 if (opt_type == gov_hidden_string)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1949 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1950 rettv->v_type = VAR_STRING;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1951 rettv->vval.v_string = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1952 }
23422 bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1953 else if (opt_type == gov_hidden_bool \|\| opt_type == gov_hidden_number)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1954 {
23422 bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1955 rettv->v_type = in_vim9script() && opt_type == gov_hidden_bool
bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1956 ? VAR_BOOL : VAR_NUMBER;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1957 rettv->vval.v_number = 0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1958 }
23422 bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1959 else if (opt_type == gov_bool \|\| opt_type == gov_number)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1960 {
23422 bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1961 if (in_vim9script() && opt_type == gov_bool)
bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1962 {
bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1963 rettv->v_type = VAR_BOOL;
bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1964 rettv->vval.v_number = numval ? VVAL_TRUE : VVAL_FALSE;
bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1965 }
bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1966 else
bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1967 {
bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1968 rettv->v_type = VAR_NUMBER;
bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1969 rettv->vval.v_number = numval;
bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1970 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1971 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1972 else // string option
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1973 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1974 rettv->v_type = VAR_STRING;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1975 rettv->vval.v_string = stringval;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1976 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1977 }
23422 bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1978 else if (working && (opt_type == gov_hidden_bool
bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1979 \|\| opt_type == gov_hidden_number
bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1980 \|\| opt_type == gov_hidden_string))
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1981 ret = FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1982
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1983 *option_end = c; // put back for error messages
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1984 *arg = option_end;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1985
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1986 return ret;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1987 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1988
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1989 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1990 * Allocate a variable for a number constant. Also deals with "0z" for blob.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1991 * Return OK or FAIL.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1992 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1993 int
21120 4d844a65183d patch 8.2.1111: inconsistent naming of get_list_tv() and eval_dict() Bram Moolenaar <Bram@vim.org> parents: 20925 diff changeset	1994 eval_number(
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1995 char_u **arg,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1996 typval_T *rettv,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1997 int evaluate,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1998 int want_string UNUSED)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1999 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2000 int len;
25622 15b54e0a576b patch 8.2.3347: check for legacy script is incomplete Bram Moolenaar <Bram@vim.org> parents: 25585 diff changeset	2001 int skip_quotes = !in_old_script(4);
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2002 char_u *p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2003 int get_float = FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2004
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2005 // We accept a float when the format matches
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2006 // "[0-9]\+\.[0-9]\+$[eE][+-]\?[0-9]\+$\?". This is very
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2007 // strict to avoid backwards compatibility problems.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2008 // With script version 2 and later the leading digit can be
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2009 // omitted.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2010 // Don't look for a float after the "." operator, so that
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2011 // ":let vers = 1.2.3" doesn't fail.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2012 if (**arg == '.')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2013 p = *arg;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2014 else
25557 763ea8f075db patch 8.2.3315: cannot use single quote in a float number for readability Bram Moolenaar <Bram@vim.org> parents: 25443 diff changeset	2015 {
763ea8f075db patch 8.2.3315: cannot use single quote in a float number for readability Bram Moolenaar <Bram@vim.org> parents: 25443 diff changeset	2016 p = *arg + 1;
763ea8f075db patch 8.2.3315: cannot use single quote in a float number for readability Bram Moolenaar <Bram@vim.org> parents: 25443 diff changeset	2017 if (skip_quotes)
763ea8f075db patch 8.2.3315: cannot use single quote in a float number for readability Bram Moolenaar <Bram@vim.org> parents: 25443 diff changeset	2018 for (;;)
763ea8f075db patch 8.2.3315: cannot use single quote in a float number for readability Bram Moolenaar <Bram@vim.org> parents: 25443 diff changeset	2019 {
763ea8f075db patch 8.2.3315: cannot use single quote in a float number for readability Bram Moolenaar <Bram@vim.org> parents: 25443 diff changeset	2020 if (*p == '\'')
763ea8f075db patch 8.2.3315: cannot use single quote in a float number for readability Bram Moolenaar <Bram@vim.org> parents: 25443 diff changeset	2021 ++p;
763ea8f075db patch 8.2.3315: cannot use single quote in a float number for readability Bram Moolenaar <Bram@vim.org> parents: 25443 diff changeset	2022 if (!vim_isdigit(*p))
763ea8f075db patch 8.2.3315: cannot use single quote in a float number for readability Bram Moolenaar <Bram@vim.org> parents: 25443 diff changeset	2023 break;
763ea8f075db patch 8.2.3315: cannot use single quote in a float number for readability Bram Moolenaar <Bram@vim.org> parents: 25443 diff changeset	2024 p = skipdigits(p);
763ea8f075db patch 8.2.3315: cannot use single quote in a float number for readability Bram Moolenaar <Bram@vim.org> parents: 25443 diff changeset	2025 }
763ea8f075db patch 8.2.3315: cannot use single quote in a float number for readability Bram Moolenaar <Bram@vim.org> parents: 25443 diff changeset	2026 else
763ea8f075db patch 8.2.3315: cannot use single quote in a float number for readability Bram Moolenaar <Bram@vim.org> parents: 25443 diff changeset	2027 p = skipdigits(p);
763ea8f075db patch 8.2.3315: cannot use single quote in a float number for readability Bram Moolenaar <Bram@vim.org> parents: 25443 diff changeset	2028 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2029 if (!want_string && p[0] == '.' && vim_isdigit(p[1]))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2030 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2031 get_float = TRUE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2032 p = skipdigits(p + 2);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2033 if (p == 'e' \|\| p == 'E')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2034 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2035 ++p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2036 if (p == '-' \|\| p == '+')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2037 ++p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2038 if (!vim_isdigit(*p))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2039 get_float = FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2040 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2041 p = skipdigits(p + 1);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2042 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2043 if (ASCII_ISALPHA(p) \|\| p == '.')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2044 get_float = FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2045 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2046 if (get_float)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2047 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2048 float_T f;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2049
25557 763ea8f075db patch 8.2.3315: cannot use single quote in a float number for readability Bram Moolenaar <Bram@vim.org> parents: 25443 diff changeset	2050 arg += string2float(arg, &f, skip_quotes);
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2051 if (evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2052 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2053 rettv->v_type = VAR_FLOAT;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2054 rettv->vval.v_float = f;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2055 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2056 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2057 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2058 if (*arg == '0' && ((arg)[1] == 'z' \|\| (*arg)[1] == 'Z'))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2059 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2060 char_u *bp;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2061 blob_T *blob = NULL; // init for gcc
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2062
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2063 // Blob constant: 0z0123456789abcdef
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2064 if (evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2065 blob = blob_alloc();
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2066 for (bp = *arg + 2; vim_isxdigit(bp[0]); bp += 2)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2067 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2068 if (!vim_isxdigit(bp[1]))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2069 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2070 if (blob != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2071 {
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	2072 emsg(_(e_blob_literal_should_have_an_even_number_of_hex_characters));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2073 ga_clear(&blob->bv_ga);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2074 VIM_CLEAR(blob);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2075 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2076 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2077 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2078 if (blob != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2079 ga_append(&blob->bv_ga,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2080 (hex2nr(bp) << 4) + hex2nr((bp+1)));
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2081 if (bp[2] == '.' && vim_isxdigit(bp[3]))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2082 ++bp;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2083 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2084 if (blob != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2085 rettv_blob_set(rettv, blob);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2086 *arg = bp;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2087 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2088 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2089 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2090 varnumber_T n;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2091
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2092 // decimal, hex or octal number
25557 763ea8f075db patch 8.2.3315: cannot use single quote in a float number for readability Bram Moolenaar <Bram@vim.org> parents: 25443 diff changeset	2093 vim_str2nr(*arg, NULL, &len, skip_quotes
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2094 ? STR2NR_NO_OCT + STR2NR_QUOTE
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2095 : STR2NR_ALL, &n, NULL, 0, TRUE);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2096 if (len == 0)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2097 {
26342 936f77929f16 patch 8.2.3702: first key in dict is seen as curly expression and fails Bram Moolenaar <Bram@vim.org> parents: 25806 diff changeset	2098 if (evaluate)
936f77929f16 patch 8.2.3702: first key in dict is seen as curly expression and fails Bram Moolenaar <Bram@vim.org> parents: 25806 diff changeset	2099 semsg(_(e_invalid_expression_str), *arg);
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2100 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2101 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2102 *arg += len;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2103 if (evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2104 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2105 rettv->v_type = VAR_NUMBER;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2106 rettv->vval.v_number = n;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2107 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2108 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2109 return OK;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2110 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2111
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2112 /*
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2113 * Evaluate a string constant and put the result in "rettv".
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2114 * "*arg" points to the double quote or to after it when "interpolate" is TRUE.
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2115 * When "interpolate" is TRUE reduce "{{" to "{", reduce "}}" to "}" and stop
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2116 * at a single "{".
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2117 * Return OK or FAIL.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2118 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2119 int
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2120 eval_string(char_u *arg, typval_T rettv, int evaluate, int interpolate)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2121 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2122 char_u *p;
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2123 char_u *end;
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2124 int extra = interpolate ? 1 : 0;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2125 int off = interpolate ? 0 : 1;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2126 int len;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2127
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2128 // Find the end of the string, skipping backslashed characters.
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2129 for (p = arg + off; p != NUL && *p != '"'; MB_PTR_ADV(p))
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2130 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2131 if (*p == '\\' && p[1] != NUL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2132 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2133 ++p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2134 // A "\<x>" form occupies at least 4 characters, and produces up
28668 53c608c7ea9e patch 8.2.4858: K_SPECIAL may be escaped twice Bram Moolenaar <Bram@vim.org> parents: 28217 diff changeset	2135 // to 9 characters (6 for the char and 3 for a modifier):
53c608c7ea9e patch 8.2.4858: K_SPECIAL may be escaped twice Bram Moolenaar <Bram@vim.org> parents: 28217 diff changeset	2136 // reserve space for 5 extra.
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2137 if (*p == '<')
29525 5063dfe96a59 patch 9.0.0104: going beyond allocated memory when evaluating string constant Bram Moolenaar <Bram@vim.org> parents: 28821 diff changeset	2138 {
5063dfe96a59 patch 9.0.0104: going beyond allocated memory when evaluating string constant Bram Moolenaar <Bram@vim.org> parents: 28821 diff changeset	2139 int modifiers = 0;
5063dfe96a59 patch 9.0.0104: going beyond allocated memory when evaluating string constant Bram Moolenaar <Bram@vim.org> parents: 28821 diff changeset	2140 int flags = FSK_KEYCODE \| FSK_IN_STRING;
5063dfe96a59 patch 9.0.0104: going beyond allocated memory when evaluating string constant Bram Moolenaar <Bram@vim.org> parents: 28821 diff changeset	2141
28668 53c608c7ea9e patch 8.2.4858: K_SPECIAL may be escaped twice Bram Moolenaar <Bram@vim.org> parents: 28217 diff changeset	2142 extra += 5;
29525 5063dfe96a59 patch 9.0.0104: going beyond allocated memory when evaluating string constant Bram Moolenaar <Bram@vim.org> parents: 28821 diff changeset	2143
5063dfe96a59 patch 9.0.0104: going beyond allocated memory when evaluating string constant Bram Moolenaar <Bram@vim.org> parents: 28821 diff changeset	2144 // Skip to the '>' to avoid using '{' inside for string
5063dfe96a59 patch 9.0.0104: going beyond allocated memory when evaluating string constant Bram Moolenaar <Bram@vim.org> parents: 28821 diff changeset	2145 // interpolation.
5063dfe96a59 patch 9.0.0104: going beyond allocated memory when evaluating string constant Bram Moolenaar <Bram@vim.org> parents: 28821 diff changeset	2146 if (p[1] != '*')
5063dfe96a59 patch 9.0.0104: going beyond allocated memory when evaluating string constant Bram Moolenaar <Bram@vim.org> parents: 28821 diff changeset	2147 flags \|= FSK_SIMPLIFY;
5063dfe96a59 patch 9.0.0104: going beyond allocated memory when evaluating string constant Bram Moolenaar <Bram@vim.org> parents: 28821 diff changeset	2148 if (find_special_key(&p, &modifiers, flags, NULL) != 0)
5063dfe96a59 patch 9.0.0104: going beyond allocated memory when evaluating string constant Bram Moolenaar <Bram@vim.org> parents: 28821 diff changeset	2149 --p; // leave "p" on the ">"
5063dfe96a59 patch 9.0.0104: going beyond allocated memory when evaluating string constant Bram Moolenaar <Bram@vim.org> parents: 28821 diff changeset	2150 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2151 }
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2152 else if (interpolate && (p == '{' \|\| p == '}'))
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2153 {
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2154 if (*p == '{' && p[1] != '{') // start of expression
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2155 break;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2156 ++p;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2157 if (p[-1] == '}' && *p != '}') // single '}' is an error
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2158 {
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2159 semsg(_(e_stray_closing_curly_str), *arg);
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2160 return FAIL;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2161 }
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2162 --extra; // "{{" becomes "{", "}}" becomes "}"
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2163 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2164 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2165
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2166 if (p != '"' && !(interpolate && p == '{'))
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2167 {
26602 fac6673086df patch 8.2.3830: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	2168 semsg(_(e_missing_double_quote_str), *arg);
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2169 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2170 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2171
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2172 // If only parsing, set *arg and return here
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2173 if (!evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2174 {
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2175 *arg = p + off;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2176 return OK;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2177 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2178
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2179 // Copy the string into allocated memory, handling backslashed
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2180 // characters.
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2181 rettv->v_type = VAR_STRING;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2182 len = (int)(p - *arg + extra);
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2183 rettv->vval.v_string = alloc(len);
0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2184 if (rettv->vval.v_string == NULL)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2185 return FAIL;
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2186 end = rettv->vval.v_string;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2187
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2188 for (p = arg + off; p != NUL && *p != '"'; )
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2189 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2190 if (*p == '\\')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2191 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2192 switch (*++p)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2193 {
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2194 case 'b': *end++ = BS; ++p; break;
0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2195 case 'e': *end++ = ESC; ++p; break;
0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2196 case 'f': *end++ = FF; ++p; break;
0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2197 case 'n': *end++ = NL; ++p; break;
0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2198 case 'r': *end++ = CAR; ++p; break;
0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2199 case 't': *end++ = TAB; ++p; break;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2200
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2201 case 'X': // hex: "\x1", "\x12"
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2202 case 'x':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2203 case 'u': // Unicode: "\u0023"
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2204 case 'U':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2205 if (vim_isxdigit(p[1]))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2206 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2207 int n, nr;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2208 int c = toupper(*p);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2209
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2210 if (c == 'X')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2211 n = 2;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2212 else if (*p == 'u')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2213 n = 4;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2214 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2215 n = 8;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2216 nr = 0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2217 while (--n >= 0 && vim_isxdigit(p[1]))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2218 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2219 ++p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2220 nr = (nr << 4) + hex2nr(*p);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2221 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2222 ++p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2223 // For "\u" store the number according to
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2224 // 'encoding'.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2225 if (c != 'X')
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2226 end += (*mb_char2bytes)(nr, end);
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2227 else
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2228 *end++ = nr;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2229 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2230 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2231
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2232 // octal: "\1", "\12", "\123"
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2233 case '0':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2234 case '1':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2235 case '2':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2236 case '3':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2237 case '4':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2238 case '5':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2239 case '6':
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2240 case '7': end = p++ - '0';
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2241 if (p >= '0' && p <= '7')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2242 {
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2243 end = (end << 3) + *p++ - '0';
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2244 if (p >= '0' && p <= '7')
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2245 end = (end << 3) + *p++ - '0';
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2246 }
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2247 ++end;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2248 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2249
20627 8bce783af0cb patch 8.2.0867: using {xxx} for encoding a modifier is not nice Bram Moolenaar <Bram@vim.org> parents: 20603 diff changeset	2250 // Special key, e.g.: "\<C-W>"
20603 c2570baa2e4c patch 8.2.0855: GUI tests fail because the test doesn't use a modifier Bram Moolenaar <Bram@vim.org> parents: 20587 diff changeset	2251 case '<':
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2252 {
20603 c2570baa2e4c patch 8.2.0855: GUI tests fail because the test doesn't use a modifier Bram Moolenaar <Bram@vim.org> parents: 20587 diff changeset	2253 int flags = FSK_KEYCODE \| FSK_IN_STRING;
c2570baa2e4c patch 8.2.0855: GUI tests fail because the test doesn't use a modifier Bram Moolenaar <Bram@vim.org> parents: 20587 diff changeset	2254
20627 8bce783af0cb patch 8.2.0867: using {xxx} for encoding a modifier is not nice Bram Moolenaar <Bram@vim.org> parents: 20603 diff changeset	2255 if (p[1] != '*')
20603 c2570baa2e4c patch 8.2.0855: GUI tests fail because the test doesn't use a modifier Bram Moolenaar <Bram@vim.org> parents: 20587 diff changeset	2256 flags \|= FSK_SIMPLIFY;
28668 53c608c7ea9e patch 8.2.4858: K_SPECIAL may be escaped twice Bram Moolenaar <Bram@vim.org> parents: 28217 diff changeset	2257 extra = trans_special(&p, end, flags, FALSE, NULL);
20603 c2570baa2e4c patch 8.2.0855: GUI tests fail because the test doesn't use a modifier Bram Moolenaar <Bram@vim.org> parents: 20587 diff changeset	2258 if (extra != 0)
c2570baa2e4c patch 8.2.0855: GUI tests fail because the test doesn't use a modifier Bram Moolenaar <Bram@vim.org> parents: 20587 diff changeset	2259 {
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2260 end += extra;
0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2261 if (end >= rettv->vval.v_string + len)
21120 4d844a65183d patch 8.2.1111: inconsistent naming of get_list_tv() and eval_dict() Bram Moolenaar <Bram@vim.org> parents: 20925 diff changeset	2262 iemsg("eval_string() used more space than allocated");
20603 c2570baa2e4c patch 8.2.0855: GUI tests fail because the test doesn't use a modifier Bram Moolenaar <Bram@vim.org> parents: 20587 diff changeset	2263 break;
c2570baa2e4c patch 8.2.0855: GUI tests fail because the test doesn't use a modifier Bram Moolenaar <Bram@vim.org> parents: 20587 diff changeset	2264 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2265 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2266 // FALLTHROUGH
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2267
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2268 default: MB_COPY_CHAR(p, end);
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2269 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2270 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2271 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2272 else
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2273 {
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2274 if (interpolate && (p == '{' \|\| p == '}'))
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2275 {
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2276 if (*p == '{' && p[1] != '{') // start of expression
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2277 break;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2278 ++p; // reduce "{{" to "{" and "}}" to "}"
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2279 }
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2280 MB_COPY_CHAR(p, end);
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2281 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2282 }
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2283 *end = NUL;
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2284 if (*p == '"' && !interpolate)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2285 ++p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2286 *arg = p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2287
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2288 return OK;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2289 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2290
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2291 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2292 * Allocate a variable for a 'str''ing' constant.
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2293 * When "interpolate" is TRUE reduce "{{" to "{" and stop at a single "{".
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2294 * Return OK when a "rettv" was set to the string.
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2295 * Return FAIL on error, "rettv" is not set.
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2296 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2297 int
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2298 eval_lit_string(char_u *arg, typval_T rettv, int evaluate, int interpolate)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2299 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2300 char_u *p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2301 char_u *str;
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2302 int reduce = interpolate ? -1 : 0;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2303 int off = interpolate ? 0 : 1;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2304
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2305 // Find the end of the string, skipping ''.
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2306 for (p = arg + off; p != NUL; MB_PTR_ADV(p))
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2307 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2308 if (*p == '\'')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2309 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2310 if (p[1] != '\'')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2311 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2312 ++reduce;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2313 ++p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2314 }
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2315 else if (interpolate)
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2316 {
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2317 if (*p == '{')
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2318 {
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2319 if (p[1] != '{')
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2320 break;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2321 ++p;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2322 ++reduce;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2323 }
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2324 else if (*p == '}')
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2325 {
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2326 ++p;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2327 if (*p != '}')
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2328 {
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2329 semsg(_(e_stray_closing_curly_str), *arg);
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2330 return FAIL;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2331 }
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2332 ++reduce;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2333 }
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2334 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2335 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2336
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2337 if (p != '\'' && !(interpolate && p == '{'))
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2338 {
26602 fac6673086df patch 8.2.3830: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	2339 semsg(_(e_missing_single_quote_str), *arg);
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2340 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2341 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2342
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2343 // If only parsing return after setting "*arg"
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2344 if (!evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2345 {
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2346 *arg = p + off;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2347 return OK;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2348 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2349
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2350 // Copy the string into allocated memory, handling '' to ' reduction and
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2351 // any expressions.
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2352 str = alloc((p - *arg) - reduce);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2353 if (str == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2354 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2355 rettv->v_type = VAR_STRING;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2356 rettv->vval.v_string = str;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2357
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2358 for (p = arg + off; p != NUL; )
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2359 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2360 if (*p == '\'')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2361 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2362 if (p[1] != '\'')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2363 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2364 ++p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2365 }
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2366 else if (interpolate && (p == '{' \|\| p == '}'))
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2367 {
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2368 if (*p == '{' && p[1] != '{')
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2369 break;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2370 ++p;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2371 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2372 MB_COPY_CHAR(p, str);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2373 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2374 *str = NUL;
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2375 *arg = p + off;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2376
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2377 return OK;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2378 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2379
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2380 /*
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2381 * Evaluate a single or double quoted string possibly containing expressions.
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2382 * "arg" points to the '$'. The result is put in "rettv".
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2383 * Returns OK or FAIL.
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2384 */
28718 723c7d940cba patch 8.2.4883: string interpolation only works in heredoc Bram Moolenaar <Bram@vim.org> parents: 28674 diff changeset	2385 int
723c7d940cba patch 8.2.4883: string interpolation only works in heredoc Bram Moolenaar <Bram@vim.org> parents: 28674 diff changeset	2386 eval_interp_string(char_u *arg, typval_T rettv, int evaluate)
723c7d940cba patch 8.2.4883: string interpolation only works in heredoc Bram Moolenaar <Bram@vim.org> parents: 28674 diff changeset	2387 {
723c7d940cba patch 8.2.4883: string interpolation only works in heredoc Bram Moolenaar <Bram@vim.org> parents: 28674 diff changeset	2388 typval_T tv;
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2389 int ret = OK;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2390 int quote;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2391 garray_T ga;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2392 char_u *p;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2393
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2394 ga_init2(&ga, 1, 80);
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2395
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2396 // *arg is on the '$' character, move it to the first string character.
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2397 ++*arg;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2398 quote = **arg;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2399 ++*arg;
28718 723c7d940cba patch 8.2.4883: string interpolation only works in heredoc Bram Moolenaar <Bram@vim.org> parents: 28674 diff changeset	2400
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2401 for (;;)
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2402 {
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2403 // Get the string up to the matching quote or to a single '{'.
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2404 // "arg" is advanced to either the quote or the '{'.
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2405 if (quote == '"')
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2406 ret = eval_string(arg, &tv, evaluate, TRUE);
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2407 else
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2408 ret = eval_lit_string(arg, &tv, evaluate, TRUE);
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2409 if (ret == FAIL)
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2410 break;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2411 if (evaluate)
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2412 {
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2413 ga_concat(&ga, tv.vval.v_string);
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2414 clear_tv(&tv);
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2415 }
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2416
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2417 if (**arg != '{')
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2418 {
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2419 // found terminating quote
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2420 ++*arg;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2421 break;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2422 }
28821 006d525419fa patch 8.2.4934: string interpolation fails when not evaluating Bram Moolenaar <Bram@vim.org> parents: 28813 diff changeset	2423 p = eval_one_expr_in_str(*arg, &ga, evaluate);
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2424 if (p == NULL)
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2425 {
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2426 ret = FAIL;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2427 break;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2428 }
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2429 *arg = p;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2430 }
28718 723c7d940cba patch 8.2.4883: string interpolation only works in heredoc Bram Moolenaar <Bram@vim.org> parents: 28674 diff changeset	2431
723c7d940cba patch 8.2.4883: string interpolation only works in heredoc Bram Moolenaar <Bram@vim.org> parents: 28674 diff changeset	2432 rettv->v_type = VAR_STRING;
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2433 if (ret == FAIL \|\| !evaluate \|\| ga_append(&ga, NUL) == FAIL)
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2434 {
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2435 ga_clear(&ga);
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2436 rettv->vval.v_string = NULL;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2437 return ret;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2438 }
28718 723c7d940cba patch 8.2.4883: string interpolation only works in heredoc Bram Moolenaar <Bram@vim.org> parents: 28674 diff changeset	2439
28813 3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2440 rettv->vval.v_string = ga.ga_data;
3626ca6a20ea patch 8.2.4930: interpolated string expression requires escaping Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	2441 return OK;
28718 723c7d940cba patch 8.2.4883: string interpolation only works in heredoc Bram Moolenaar <Bram@vim.org> parents: 28674 diff changeset	2442 }
723c7d940cba patch 8.2.4883: string interpolation only works in heredoc Bram Moolenaar <Bram@vim.org> parents: 28674 diff changeset	2443
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2444 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2445 * Return a string with the string representation of a variable.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2446 * If the memory is allocated "tofree" is set to it, otherwise NULL.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2447 * "numbuf" is used for a number.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2448 * Puts quotes around strings, so that they can be parsed back by eval().
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2449 * May return NULL.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2450 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2451 char_u *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2452 tv2string(
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2453 typval_T *tv,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2454 char_u **tofree,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2455 char_u *numbuf,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2456 int copyID)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2457 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2458 return echo_string_core(tv, tofree, numbuf, copyID, FALSE, TRUE, FALSE);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2459 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2460
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2461 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2462 * Get the value of an environment variable.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2463 * "arg" is pointing to the '$'. It is advanced to after the name.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2464 * If the environment variable was not set, silently assume it is empty.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2465 * Return FAIL if the name is invalid.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2466 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2467 int
21120 4d844a65183d patch 8.2.1111: inconsistent naming of get_list_tv() and eval_dict() Bram Moolenaar <Bram@vim.org> parents: 20925 diff changeset	2468 eval_env_var(char_u *arg, typval_T rettv, int evaluate)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2469 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2470 char_u *string = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2471 int len;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2472 int cc;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2473 char_u *name;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2474 int mustfree = FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2475
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2476 ++*arg;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2477 name = *arg;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2478 len = get_env_len(arg);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2479 if (evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2480 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2481 if (len == 0)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2482 return FAIL; // invalid empty name
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2483
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2484 cc = name[len];
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2485 name[len] = NUL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2486 // first try vim_getenv(), fast for normal environment vars
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2487 string = vim_getenv(name, &mustfree);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2488 if (string != NULL && *string != NUL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2489 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2490 if (!mustfree)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2491 string = vim_strsave(string);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2492 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2493 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2494 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2495 if (mustfree)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2496 vim_free(string);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2497
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2498 // next try expanding things like $VIM and ${HOME}
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2499 string = expand_env_save(name - 1);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2500 if (string != NULL && *string == '$')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2501 VIM_CLEAR(string);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2502 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2503 name[len] = cc;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2504
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2505 rettv->v_type = VAR_STRING;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2506 rettv->vval.v_string = string;
25585 10edc624b171 patch 8.2.3329: v_lock not set when getting value of environment variable Bram Moolenaar <Bram@vim.org> parents: 25563 diff changeset	2507 rettv->v_lock = 0;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2508 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2509
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2510 return OK;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2511 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2512
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2513 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2514 * Get the lnum from the first argument.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2515 * Also accepts ".", "$", etc., but that only works for the current buffer.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2516 * Returns -1 on error.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2517 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2518 linenr_T
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2519 tv_get_lnum(typval_T *argvars)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2520 {
23276 b79cdad3ea2e patch 8.2.2184: Vim9: no error when using "2" for a line number Bram Moolenaar <Bram@vim.org> parents: 23175 diff changeset	2521 linenr_T lnum = -1;
30761 c9b31c8eb3b3 patch 9.0.0715: wrong argument for append() gives two error messages Bram Moolenaar <Bram@vim.org> parents: 30310 diff changeset	2522 int did_emsg_before = did_emsg;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2523
21831 d8422de73113 patch 8.2.1465: Vim9: subscript not handled properly Bram Moolenaar <Bram@vim.org> parents: 21425 diff changeset	2524 if (argvars[0].v_type != VAR_STRING \|\| !in_vim9script())
d8422de73113 patch 8.2.1465: Vim9: subscript not handled properly Bram Moolenaar <Bram@vim.org> parents: 21425 diff changeset	2525 lnum = (linenr_T)tv_get_number_chk(&argvars[0], NULL);
30761 c9b31c8eb3b3 patch 9.0.0715: wrong argument for append() gives two error messages Bram Moolenaar <Bram@vim.org> parents: 30310 diff changeset	2526 if (lnum <= 0 && did_emsg_before == did_emsg
c9b31c8eb3b3 patch 9.0.0715: wrong argument for append() gives two error messages Bram Moolenaar <Bram@vim.org> parents: 30310 diff changeset	2527 && argvars[0].v_type != VAR_NUMBER)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2528 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2529 int fnum;
26782 b7b82279426f patch 8.2.3919: Vim9: wrong argument for append() results in two errors Bram Moolenaar <Bram@vim.org> parents: 26731 diff changeset	2530 pos_T *fp;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2531
24260 ad065f64eb20 patch 8.2.2671: error for line number in legacy script Bram Moolenaar <Bram@vim.org> parents: 24258 diff changeset	2532 // no valid number, try using arg like line()
26782 b7b82279426f patch 8.2.3919: Vim9: wrong argument for append() results in two errors Bram Moolenaar <Bram@vim.org> parents: 26731 diff changeset	2533 fp = var2fpos(&argvars[0], TRUE, &fnum, FALSE);
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2534 if (fp != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2535 lnum = fp->lnum;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2536 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2537 return lnum;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2538 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2539
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2540 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2541 * Get the lnum from the first argument.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2542 * Also accepts "$", then "buf" is used.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2543 * Returns 0 on error.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2544 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2545 linenr_T
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2546 tv_get_lnum_buf(typval_T argvars, buf_T buf)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2547 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2548 if (argvars[0].v_type == VAR_STRING
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2549 && argvars[0].vval.v_string != NULL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2550 && argvars[0].vval.v_string[0] == '$'
26782 b7b82279426f patch 8.2.3919: Vim9: wrong argument for append() results in two errors Bram Moolenaar <Bram@vim.org> parents: 26731 diff changeset	2551 && argvars[0].vval.v_string[1] == NUL
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2552 && buf != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2553 return buf->b_ml.ml_line_count;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2554 return (linenr_T)tv_get_number_chk(&argvars[0], NULL);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2555 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2556
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2557 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2558 * Get buffer by number or pattern.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2559 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2560 buf_T *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2561 tv_get_buf(typval_T *tv, int curtab_only)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2562 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2563 char_u *name = tv->vval.v_string;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2564 buf_T *buf;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2565
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2566 if (tv->v_type == VAR_NUMBER)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2567 return buflist_findnr((int)tv->vval.v_number);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2568 if (tv->v_type != VAR_STRING)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2569 return NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2570 if (name == NULL \|\| *name == NUL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2571 return curbuf;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2572 if (name[0] == '$' && name[1] == NUL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2573 return lastbuf;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2574
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2575 buf = buflist_find_by_name(name, curtab_only);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2576
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2577 // If not found, try expanding the name, like done for bufexists().
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2578 if (buf == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2579 buf = find_buffer(tv);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2580
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2581 return buf;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2582 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2583
22025 71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2584 /*
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2585 * Like tv_get_buf() but give an error message is the type is wrong.
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2586 */
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2587 buf_T *
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2588 tv_get_buf_from_arg(typval_T *tv)
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2589 {
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2590 buf_T *buf;
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2591
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2592 ++emsg_off;
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2593 buf = tv_get_buf(tv, FALSE);
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2594 --emsg_off;
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2595 if (buf == NULL
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2596 && tv->v_type != VAR_NUMBER
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2597 && tv->v_type != VAR_STRING)
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2598 // issue errmsg for type error
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2599 (void)tv_get_number(tv);
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2600 return buf;
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2601 }
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2602
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2603 #endif // FEAT_EVAL

Mercurial > vim

annotate src/typval.c @ 31289:4f1e70a709bb v9.0.0978