vim: src/typval.c annotate

annotate src/typval.c @ 28011:d10d5cc8e657 v8.2.4530

patch 8.2.4530: making comparison with null work changes legacy behavior Commit: https://github.com/vim/vim/commit/f3507a517c38bee5498736607ead64c8ae6b5941 Author: Bram Moolenaar <Bram@vim.org> Date: Wed Mar 9 11:56:21 2022 +0000 patch 8.2.4530: making comparison with null work changes legacy behavior Problem: Making comparison with null work changes legacy behavior. Solution: Only use the better comparison in Vim9 script. (closes https://github.com/vim/vim/issues/9910)

author	Bram Moolenaar <Bram@vim.org>
date	Wed, 09 Mar 2022 13:00:03 +0100
parents	ca7a207d83cd
children	53e2bf6032e5

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 #ifdef FEAT_FLOAT
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	140 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	141 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	142 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	143 case VAR_JOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	144 #ifdef FEAT_JOB_CHANNEL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	145 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	146 varp->vval.v_job = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	147 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	148 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	149 case VAR_CHANNEL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	150 #ifdef FEAT_JOB_CHANNEL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	151 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	152 varp->vval.v_channel = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	153 #endif
24610 c1263588156b patch 8.2.2844: Vim9: memory leak when using searchpair() Bram Moolenaar <Bram@vim.org> parents: 24606 diff changeset	154 break;
c1263588156b patch 8.2.2844: Vim9: memory leak when using searchpair() Bram Moolenaar <Bram@vim.org> parents: 24606 diff changeset	155 case VAR_INSTR:
c1263588156b patch 8.2.2844: Vim9: memory leak when using searchpair() Bram Moolenaar <Bram@vim.org> parents: 24606 diff changeset	156 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	157 break;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	158 case VAR_UNKNOWN:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	159 case VAR_ANY:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	160 case VAR_VOID:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	161 break;
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 varp->v_lock = 0;
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
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 * 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	169 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	170 void
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	171 init_tv(typval_T *varp)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	172 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	173 if (varp != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	174 CLEAR_POINTER(varp);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	175 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	176
21851 727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	177 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	178 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	179 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	180 varnumber_T n = 0L;
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 switch (varp->v_type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	183 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	184 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	185 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	186 && 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	187 {
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 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	189 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	190 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	191 return varp->vval.v_number;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	192 case VAR_FLOAT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	193 #ifdef FEAT_FLOAT
26962 85866e069c24 patch 8.2.4010: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26958 diff changeset	194 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	195 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	196 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	197 case VAR_FUNC:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	198 case VAR_PARTIAL:
26952 b34ddbca305c patch 8.2.4005: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26948 diff changeset	199 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	200 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	201 case VAR_STRING:
21831 d8422de73113 patch 8.2.1465: Vim9: subscript not handled properly Bram Moolenaar <Bram@vim.org> parents: 21425 diff changeset	202 if (in_vim9script())
d8422de73113 patch 8.2.1465: Vim9: subscript not handled properly Bram Moolenaar <Bram@vim.org> parents: 21425 diff changeset	203 {
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	204 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	205 break;
d8422de73113 patch 8.2.1465: Vim9: subscript not handled properly Bram Moolenaar <Bram@vim.org> parents: 21425 diff changeset	206 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	207 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	208 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	209 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	210 return n;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	211 case VAR_LIST:
26958 d92e0d85923f patch 8.2.4008: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26952 diff changeset	212 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	213 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	214 case VAR_DICT:
26952 b34ddbca305c patch 8.2.4005: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26948 diff changeset	215 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	216 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	217 case VAR_BOOL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	218 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	219 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	220 {
22930 84567584951f patch 8.2.2012: Vim9: confusing error message when using bool wrongly Bram Moolenaar <Bram@vim.org> parents: 22860 diff changeset	221 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	222 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	223 else
26948 51ddf6740ac6 patch 8.2.4003: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26913 diff changeset	224 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	225 break;
d8422de73113 patch 8.2.1465: Vim9: subscript not handled properly Bram Moolenaar <Bram@vim.org> parents: 21425 diff changeset	226 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	227 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	228 case VAR_JOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	229 #ifdef FEAT_JOB_CHANNEL
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	230 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	231 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	232 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	233 case VAR_CHANNEL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	234 #ifdef FEAT_JOB_CHANNEL
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	235 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	236 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	237 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	238 case VAR_BLOB:
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	239 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	240 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	241 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	242 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	243 break;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	244 case VAR_UNKNOWN:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	245 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	246 case VAR_INSTR:
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	247 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	248 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	249 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	250 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	251 n = -1;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	252 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	253 *denote = TRUE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	254 return n;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	255 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	256
21851 727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	257 /*
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	258 * 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	259 * 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	260 * 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	261 * 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	262 * 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	263 * 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	264 */
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	265 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	266 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	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 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	269
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	270 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	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
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	273 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	274 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	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 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	277 }
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 /*
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	280 * 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	281 * 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	282 */
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	283 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	284 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	285 {
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	286 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	287 }
727820154b1a patch 8.2.1475: Vim9: can't use v:true for option flags Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	288
21861 cd8dafe937ba patch 8.2.1480: Vim9: skip expression in search() gives error Bram Moolenaar <Bram@vim.org> parents: 21851 diff changeset	289 /*
cd8dafe937ba patch 8.2.1480: Vim9: skip expression in search() gives error Bram Moolenaar <Bram@vim.org> parents: 21851 diff changeset	290 * 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	291 * 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	292 */
cd8dafe937ba patch 8.2.1480: Vim9: skip expression in search() gives error Bram Moolenaar <Bram@vim.org> parents: 21851 diff changeset	293 varnumber_T
cd8dafe937ba patch 8.2.1480: Vim9: skip expression in search() gives error Bram Moolenaar <Bram@vim.org> parents: 21851 diff changeset	294 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	295 {
cd8dafe937ba patch 8.2.1480: Vim9: skip expression in search() gives error Bram Moolenaar <Bram@vim.org> parents: 21851 diff changeset	296 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	297 }
cd8dafe937ba patch 8.2.1480: Vim9: skip expression in search() gives error Bram Moolenaar <Bram@vim.org> parents: 21851 diff changeset	298
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	299 #if defined(FEAT_FLOAT) \|\| defined(PROTO)
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	300 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	301 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	302 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	303 switch (varp->v_type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	304 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	305 case VAR_NUMBER:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	306 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	307 case VAR_FLOAT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	308 return varp->vval.v_float;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	309 case VAR_FUNC:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	310 case VAR_PARTIAL:
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	311 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	312 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	313 case VAR_STRING:
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	314 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	315 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	316 case VAR_LIST:
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	317 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	318 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	319 case VAR_DICT:
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	320 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	321 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	322 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	323 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	324 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	325 case VAR_SPECIAL:
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	326 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	327 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	328 case VAR_JOB:
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_job_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_CHANNEL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	334 # ifdef FEAT_JOB_CHANNEL
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	335 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	336 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	337 # endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	338 case VAR_BLOB:
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	339 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	340 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	341 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	342 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	343 break;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	344 case VAR_UNKNOWN:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	345 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	346 case VAR_INSTR:
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	347 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	348 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	349 }
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	350 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	351 *error = TRUE;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	352 return 0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	353 }
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	354
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	355 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	356 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	357 {
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	358 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	359 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	360 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	361
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	362 /*
25272 712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	363 * 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	364 */
5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22930 diff changeset	365 int
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	366 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	367 {
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	368 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	369 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	370 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	371 return FAIL;
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 return OK;
5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22930 diff changeset	374 }
5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22930 diff changeset	375
5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22930 diff changeset	376 /*
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	377 * 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	378 */
d7294a6220ac patch 8.2.2133: Vim9: checking for a non-empty string is too strict Bram Moolenaar <Bram@vim.org> parents: 23142 diff changeset	379 int
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	380 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	381 {
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	382 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	383 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	384 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	385 {
24424 ddcda424f882 patch 8.2.2752 Bram Moolenaar <Bram@vim.org> parents: 24260 diff changeset	386 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	387 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	388 }
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 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	390 }
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
d7294a6220ac patch 8.2.2133: Vim9: checking for a non-empty string is too strict Bram Moolenaar <Bram@vim.org> parents: 23142 diff changeset	392 /*
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	393 * 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	394 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	395 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	396 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	397 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	398 return (args[idx].v_type == VAR_UNKNOWN
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	399 \|\| check_for_string_arg(args, idx) != FAIL);
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	400 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	401
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	402 /*
25272 712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	403 * 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	404 */
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25198 diff changeset	405 int
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25198 diff changeset	406 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	407 {
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25198 diff changeset	408 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	409 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	410 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	411 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	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 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	414 }
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 /*
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	417 * 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	418 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	419 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	420 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	421 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	422 return (args[idx].v_type == VAR_UNKNOWN
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	423 \|\| check_for_number_arg(args, idx) != FAIL);
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	424 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	425
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	426 /*
25368 1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	427 * 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	428 */
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	429 int
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	430 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	431 {
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	432 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	433 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	434 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	435 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	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 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	438 }
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 /*
25272 712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	441 * 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	442 */
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	443 int
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	444 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	445 {
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	446 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	447 && !(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	448 && (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	449 \|\| 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	450 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	451 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	452 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	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 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	455 }
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	456
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	457 /*
25802 5ef704de7709 patch 8.2.3436: check for optional bool type has confusing return type Bram Moolenaar <Bram@vim.org> parents: 25622 diff changeset	458 * 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	459 * 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	460 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	461 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	462 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	463 {
25802 5ef704de7709 patch 8.2.3436: check for optional bool type has confusing return type Bram Moolenaar <Bram@vim.org> parents: 25622 diff changeset	464 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	465 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	466 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	467 }
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 /*
25806 8d55e978f95b patch 8.2.3438: cannot manipulate blobs Bram Moolenaar <Bram@vim.org> parents: 25802 diff changeset	470 * 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	471 */
8d55e978f95b patch 8.2.3438: cannot manipulate blobs Bram Moolenaar <Bram@vim.org> parents: 25802 diff changeset	472 int
8d55e978f95b patch 8.2.3438: cannot manipulate blobs Bram Moolenaar <Bram@vim.org> parents: 25802 diff changeset	473 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	474 {
8d55e978f95b patch 8.2.3438: cannot manipulate blobs Bram Moolenaar <Bram@vim.org> parents: 25802 diff changeset	475 if (args[idx].v_type != VAR_BLOB)
8d55e978f95b patch 8.2.3438: cannot manipulate blobs Bram Moolenaar <Bram@vim.org> parents: 25802 diff changeset	476 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	477 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	478 return FAIL;
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 return OK;
8d55e978f95b patch 8.2.3438: cannot manipulate blobs Bram Moolenaar <Bram@vim.org> parents: 25802 diff changeset	481 }
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 /*
25272 712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	484 * 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	485 */
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	486 int
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	487 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	488 {
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	489 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	490 {
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	491 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	492 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	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 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	495 }
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 /*
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	498 * 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	499 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	500 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	501 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	502 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	503 return (args[idx].v_type == VAR_UNKNOWN
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	504 \|\| check_for_list_arg(args, idx) != FAIL);
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	505 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	506
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	507 /*
25272 712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	508 * 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	509 */
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	510 int
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	511 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	512 {
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	513 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	514 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	515 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	516 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	517 }
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	518 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	519 }
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	520
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	521 /*
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	522 * 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	523 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	524 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	525 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	526 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	527 return (args[idx].v_type == VAR_UNKNOWN
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	528 \|\| check_for_dict_arg(args, idx) != FAIL);
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	529 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	530
27018 268f6a3511df patch 8.2.4038: various code not used when features are disabled Bram Moolenaar <Bram@vim.org> parents: 26966 diff changeset	531 #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	532 /*
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	533 * 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	534 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	535 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	536 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	537 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	538 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	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_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	541 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	542 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	543 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	544 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	545
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	546 /*
25348 75031a22be39 patch 8.2.3211: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	547 * 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	548 * job.
75031a22be39 patch 8.2.3211: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	549 */
75031a22be39 patch 8.2.3211: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	550 int
75031a22be39 patch 8.2.3211: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	551 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	552 {
75031a22be39 patch 8.2.3211: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	553 return (args[idx].v_type == VAR_UNKNOWN
75031a22be39 patch 8.2.3211: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	554 \|\| check_for_chan_or_job_arg(args, idx) != FAIL);
75031a22be39 patch 8.2.3211: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	555 }
75031a22be39 patch 8.2.3211: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	556
75031a22be39 patch 8.2.3211: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	557 /*
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	558 * 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	559 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	560 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	561 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	562 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	563 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	564 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	565 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	566 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	567 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	568 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	569 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	570
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	571 /*
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	572 * 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	573 */
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	574 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	575 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	576 {
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	577 return (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	578 \|\| check_for_job_arg(args, idx) != 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	579 }
27018 268f6a3511df patch 8.2.4038: various code not used when features are disabled Bram Moolenaar <Bram@vim.org> parents: 26966 diff changeset	580 #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	581
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	582 /*
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 * 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	584 * 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	585 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	586 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	587 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	588 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	589 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	590 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	591 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	592 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	593 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	594 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	595 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	596
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	597 /*
25314 7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	598 * 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	599 */
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	600 int
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	601 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	602 {
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	603 return (args[idx].v_type == VAR_UNKNOWN
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	604 \|\| check_for_string_or_number_arg(args, idx) != FAIL);
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	605 }
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	606
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	607 /*
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	608 * 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	609 * 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	610 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	611 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	612 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	613 {
25314 7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	614 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	615 }
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	616
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	617 /*
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	618 * 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	619 */
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	620 int
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	621 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	622 {
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	623 return (args[idx].v_type == VAR_UNKNOWN
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	624 \|\| check_for_buffer_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	625 }
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	626
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	627 /*
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	628 * 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	629 * 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	630 */
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	631 int
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	632 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	633 {
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	634 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	635 }
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	636
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	637 /*
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	638 * 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	639 */
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	640 int
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	641 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	642 {
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	643 return (args[idx].v_type == VAR_UNKNOWN
7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	644 \|\| check_for_lnum_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	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
27018 268f6a3511df patch 8.2.4038: various code not used when features are disabled Bram Moolenaar <Bram@vim.org> parents: 26966 diff changeset	647 #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	648 /*
25338 e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	649 * 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	650 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	651 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	652 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	653 {
25314 7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	654 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	655 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	656 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	657 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	658 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	659 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	660 }
27018 268f6a3511df patch 8.2.4038: various code not used when features are disabled Bram Moolenaar <Bram@vim.org> parents: 26966 diff changeset	661 #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	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 /*
25338 e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	664 * 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	665 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	666 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	667 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	668 {
25314 7e620652bd13 patch 8.2.3194: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	669 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	670 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	671 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	672 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	673 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	674 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	675 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	676
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	677 /*
26638 6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	678 * 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	679 * blob.
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	680 */
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	681 int
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	682 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	683 {
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	684 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	685 && 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	686 && 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	687 {
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	688 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	689 return FAIL;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	690 }
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	691 return OK;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	692 }
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	693
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	694 /*
25368 1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	695 * 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	696 */
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	697 int
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	698 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	699 {
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	700 return (args[idx].v_type == VAR_UNKNOWN
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	701 \|\| check_for_string_or_list_arg(args, idx));
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	702 }
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	703
1ffa8eb30353 patch 8.2.3221: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25348 diff changeset	704 /*
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	705 * 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	706 */
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	707 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	708 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	709 {
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	710 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	711 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	712 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	713 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	714 }
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	715 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	716 }
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	717
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	718 /*
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	719 * 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	720 * 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	721 */
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	722 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	723 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	724 {
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	725 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	726 && 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	727 && 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	728 {
26638 6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	729 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	730 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	731 }
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	732 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	733 }
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	734
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	735 /*
25390 a6c347a0c6e3 patch 8.2.3232: system() does not work without a second argument Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	736 * 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	737 * 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	738 */
a6c347a0c6e3 patch 8.2.3232: system() does not work without a second argument Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	739 int
a6c347a0c6e3 patch 8.2.3232: system() does not work without a second argument Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	740 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	741 {
a6c347a0c6e3 patch 8.2.3232: system() does not work without a second argument Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	742 return (args[idx].v_type == VAR_UNKNOWN
a6c347a0c6e3 patch 8.2.3232: system() does not work without a second argument Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	743 \|\| check_for_string_or_number_or_list_arg(args, idx) != FAIL);
a6c347a0c6e3 patch 8.2.3232: system() does not work without a second argument Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	744 }
a6c347a0c6e3 patch 8.2.3232: system() does not work without a second argument Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	745
a6c347a0c6e3 patch 8.2.3232: system() does not work without a second argument Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	746 /*
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	747 * 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	748 * 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	749 */
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	750 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	751 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	752 {
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	753 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	754 && 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	755 && 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	756 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	757 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	758 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	759 }
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 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	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
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 /*
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	764 * 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	765 * 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	766 */
7f4cc4e58f75 patch 8.2.3894: Vim9: no proper type check for first argument of call() Bram Moolenaar <Bram@vim.org> parents: 26696 diff changeset	767 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	768 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	769 {
7f4cc4e58f75 patch 8.2.3894: Vim9: no proper type check for first argument of call() Bram Moolenaar <Bram@vim.org> parents: 26696 diff changeset	770 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	771 && 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	772 && 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	773 {
7f4cc4e58f75 patch 8.2.3894: Vim9: no proper type check for first argument of call() Bram Moolenaar <Bram@vim.org> parents: 26696 diff changeset	774 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	775 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	776 }
7f4cc4e58f75 patch 8.2.3894: Vim9: no proper type check for first argument of call() Bram Moolenaar <Bram@vim.org> parents: 26696 diff changeset	777 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	778 }
7f4cc4e58f75 patch 8.2.3894: Vim9: no proper type check for first argument of call() Bram Moolenaar <Bram@vim.org> parents: 26696 diff changeset	779
7f4cc4e58f75 patch 8.2.3894: Vim9: no proper type check for first argument of call() Bram Moolenaar <Bram@vim.org> parents: 26696 diff changeset	780 /*
25338 e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	781 * 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	782 */
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	783 int
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	784 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	785 {
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	786 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	787 {
26638 6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26622 diff changeset	788 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	789 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	790 }
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	791 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	792 }
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	793
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	794 /*
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	795 * 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	796 */
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	797 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	798 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	799 {
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	800 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	801 && 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	802 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	803 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	804 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	805 }
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	806 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	807 }
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	808
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	809 /*
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	810 * 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	811 * blob.
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	812 */
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	813 int
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	814 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	815 {
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	816 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	817 && 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	818 && 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	819 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	820 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	821 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	822 }
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	823 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	824 }
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	825
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25314 diff changeset	826 /*
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	827 * 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	828 * 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	829 */
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26441 diff changeset	830 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	831 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	832 {
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26441 diff changeset	833 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	834 && 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	835 && 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	836 && 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	837 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	838 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	839 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	840 }
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26441 diff changeset	841 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	842 }
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26441 diff changeset	843
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26441 diff changeset	844 /*
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	845 * 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	846 * 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	847 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	848 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	849 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	850 {
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	851 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	852 && 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	853 && 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	854 && 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	855 {
26622 a28f91b893b2 patch 8.2.3840: useless test for negative index in check functions Bram Moolenaar <Bram@vim.org> parents: 26602 diff changeset	856 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	857 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	858 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	859 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	860 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	861
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	862 /*
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	863 * 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	864 * 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	865 * 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	866 * 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	867 * 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	868 * Never returns NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	869 * 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	870 * NULL on error.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	871 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	872 char_u *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	873 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	874 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	875 static char_u mybuf[NUMBUFLEN];
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	876
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	877 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	878 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	879
23786 0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	880 /*
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	881 * 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	882 */
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	883 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	884 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	885 {
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	886 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	887 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	888 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	889
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	890 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	891 }
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	892
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	893 char_u *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	894 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	895 {
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	896 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	897
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	898 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	899 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	900
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	901 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	902 * 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	903 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	904 char_u *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	905 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	906 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	907 static char_u mybuf[NUMBUFLEN];
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	908
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	909 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	910 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	911
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	912 char_u *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	913 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	914 {
23786 0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	915 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	916 }
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	917
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	918 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	919 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	920 {
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	921 switch (varp->v_type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	922 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	923 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	924 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	925 {
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	926 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	927 break;
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	928 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	929 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	930 (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	931 return buf;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	932 case VAR_FUNC:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	933 case VAR_PARTIAL:
26952 b34ddbca305c patch 8.2.4005: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26948 diff changeset	934 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	935 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	936 case VAR_LIST:
26952 b34ddbca305c patch 8.2.4005: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26948 diff changeset	937 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	938 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	939 case VAR_DICT:
26952 b34ddbca305c patch 8.2.4005: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26948 diff changeset	940 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	941 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	942 case VAR_FLOAT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	943 #ifdef FEAT_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	944 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	945 {
26885 ed39730119bd patch 8.2.3971: build fails Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	946 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	947 break;
b1093c1ac109 patch 8.2.2948: substitute() accepts a number but not a float expression Bram Moolenaar <Bram@vim.org> parents: 24812 diff changeset	948 }
b1093c1ac109 patch 8.2.2948: substitute() accepts a number but not a float expression Bram Moolenaar <Bram@vim.org> parents: 24812 diff changeset	949 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	950 return buf;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	951 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	952 case VAR_STRING:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	953 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	954 return varp->vval.v_string;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	955 return (char_u *)"";
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	956 case VAR_BOOL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	957 case VAR_SPECIAL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	958 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	959 return buf;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	960 case VAR_BLOB:
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	961 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	962 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	963 case VAR_JOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	964 #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	965 if (in_vim9script())
20587 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 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	968 break;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	969 }
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	970 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	971 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	972 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	973 case VAR_CHANNEL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	974 #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	975 if (in_vim9script())
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	976 {
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	977 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	978 break;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	979 }
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	980 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	981 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	982 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	983 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	984 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	985 break;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	986 case VAR_UNKNOWN:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	987 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	988 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	989 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	990 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	991 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	992 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	993 return NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	994 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	995
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	996 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	997 * 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	998 * string() on Dict, List, etc.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	999 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1000 char_u *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1001 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	1002 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1003 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	1004 \|\| varp->v_type == VAR_DICT
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1005 \|\| varp->v_type == VAR_BLOB
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1006 \|\| varp->v_type == VAR_FUNC
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1007 \|\| varp->v_type == VAR_PARTIAL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1008 \|\| varp->v_type == VAR_FLOAT)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1009 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1010 typval_T tmp;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1011
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1012 f_string(varp, &tmp);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1013 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	1014 clear_tv(varp);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1015 *varp = tmp;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1016 return tmp.vval.v_string;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1017 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1018 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	1019 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1020
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1021 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1022 * 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	1023 * 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	1024 * TRUE.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1025 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1026 int
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1027 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	1028 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1029 int lock = 0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1030
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1031 switch (tv->v_type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1032 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1033 case VAR_BLOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1034 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	1035 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	1036 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1037 case VAR_LIST:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1038 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	1039 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	1040 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1041 case VAR_DICT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1042 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	1043 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	1044 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1045 default:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1046 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1047 }
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	1048 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	1049 \|\| (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	1050 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1051
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1052 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1053 * 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	1054 * 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	1055 * 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	1056 * 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	1057 * make a copy later.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1058 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1059 void
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1060 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	1061 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1062 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	1063 to->v_lock = 0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1064 switch (from->v_type)
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 case VAR_NUMBER:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1067 case VAR_BOOL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1068 case VAR_SPECIAL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1069 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	1070 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1071 case VAR_FLOAT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1072 #ifdef FEAT_FLOAT
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1073 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	1074 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1075 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1076 case VAR_JOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1077 #ifdef FEAT_JOB_CHANNEL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1078 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	1079 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	1080 ++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	1081 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1082 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1083 case VAR_CHANNEL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1084 #ifdef FEAT_JOB_CHANNEL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1085 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	1086 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	1087 ++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	1088 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1089 #endif
24606 a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled Bram Moolenaar <Bram@vim.org> parents: 24424 diff changeset	1090 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	1091 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	1092 break;
a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled Bram Moolenaar <Bram@vim.org> parents: 24424 diff changeset	1093
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1094 case VAR_STRING:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1095 case VAR_FUNC:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1096 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	1097 to->vval.v_string = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1098 else
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 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	1101 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	1102 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	1103 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1104 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1105 case VAR_PARTIAL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1106 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	1107 to->vval.v_partial = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1108 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1109 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1110 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	1111 ++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	1112 }
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 case VAR_BLOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1115 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	1116 to->vval.v_blob = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1117 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1118 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1119 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	1120 ++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	1121 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1122 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1123 case VAR_LIST:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1124 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	1125 to->vval.v_list = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1126 else
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 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	1129 ++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	1130 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1131 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1132 case VAR_DICT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1133 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	1134 to->vval.v_dict = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1135 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1136 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1137 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	1138 ++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	1139 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1140 break;
24940 0c415a0f54f9 patch 8.2.3007: Vim9: test for void value fails Bram Moolenaar <Bram@vim.org> parents: 24936 diff changeset	1141 case VAR_VOID:
0c415a0f54f9 patch 8.2.3007: Vim9: test for void value fails Bram Moolenaar <Bram@vim.org> parents: 24936 diff changeset	1142 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	1143 break;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1144 case VAR_UNKNOWN:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1145 case VAR_ANY:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1146 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	1147 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1148 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1149 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1150
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1151 /*
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1152 * 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	1153 * 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	1154 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1155 int
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1156 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	1157 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	1158 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	1159 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	1160 int ic) // ignore case
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1161 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1162 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	1163 int res = 0;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1164 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	1165
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1166 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	1167 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1168 // For "is" a different type always means FALSE, for "notis"
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1169 // it means TRUE.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1170 n1 = (type == EXPR_ISNOT);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1171 }
27924 e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1172 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	1173 \|\| (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	1174 && 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	1175 && 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	1176 && (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	1177 {
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1178 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	1179 if (n1 == MAYBE)
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1180 {
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1181 clear_tv(tv1);
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1182 return FAIL;
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1183 }
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1184 if (type == EXPR_NEQUAL)
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1185 n1 = !n1;
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1186 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1187 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	1188 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1189 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	1190 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1191 clear_tv(tv1);
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1192 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1193 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1194 n1 = res;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1195 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1196 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	1197 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1198 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	1199 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1200 clear_tv(tv1);
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1201 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1202 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1203 n1 = res;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1204 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1205 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	1206 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1207 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	1208 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1209 clear_tv(tv1);
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1210 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1211 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1212 n1 = res;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1213 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1214 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	1215 \|\| 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	1216 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1217 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	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 clear_tv(tv1);
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1220 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1221 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1222 n1 = res;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1223 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1224
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1225 #ifdef FEAT_FLOAT
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1226 // 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	1227 // 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	1228 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	1229 && 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	1230 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1231 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	1232 int error = FALSE;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1233
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	1234 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	1235 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	1236 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	1237 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	1238 {
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	1239 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	1240 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	1241 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1242 n1 = FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1243 switch (type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1244 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1245 case EXPR_IS:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1246 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	1247 case EXPR_ISNOT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1248 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	1249 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	1250 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	1251 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	1252 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	1253 case EXPR_UNKNOWN:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1254 case EXPR_MATCH:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1255 default: break; // avoid gcc warning
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1256 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1257 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1258 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1259
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1260 // 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	1261 // 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	1262 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	1263 && 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	1264 {
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	1265 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	1266
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	1267 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	1268 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	1269 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	1270 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	1271 {
1cee572f2fd7 patch 8.2.3877: function does not abort after a type error in compare Bram Moolenaar <Bram@vim.org> parents: 26644 diff changeset	1272 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	1273 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	1274 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1275 switch (type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1276 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1277 case EXPR_IS:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1278 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	1279 case EXPR_ISNOT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1280 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	1281 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	1282 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	1283 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	1284 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	1285 case EXPR_UNKNOWN:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1286 case EXPR_MATCH:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1287 default: break; // avoid gcc warning
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1288 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1289 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1290 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	1291 \|\| 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	1292 \|\| (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	1293 && 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	1294 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1295 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	1296 {
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1297 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	1298 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	1299 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	1300 return FAIL;
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1301 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1302 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	1303 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	1304 switch (type)
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1305 {
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1306 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	1307 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	1308 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	1309 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	1310 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	1311 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	1312 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	1313 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	1314 return FAIL;
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1315 }
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1316 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1317 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1318 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1319 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	1320 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1321 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	1322 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	1323 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1324 n1 = res;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1325 }
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1326 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	1327 if (in_vim9script())
a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 21120 diff changeset	1328 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1329 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	1330 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	1331 }
a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 21120 diff changeset	1332 else
a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 21120 diff changeset	1333 {
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1334 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	1335 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	1336 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1337
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1338 return OK;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1339 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1340
23788 d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1341 /*
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1342 * Compare "tv1" to "tv2" as lists acording 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	1343 * 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	1344 * 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	1345 */
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1346 int
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1347 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	1348 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	1349 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	1350 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	1351 int ic,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1352 int *res)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1353 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1354 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	1355
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1356 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	1357 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1358 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	1359 && 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	1360 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	1361 val = !val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1362 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1363 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	1364 \|\| (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	1365 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1366 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	1367 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	1368 else
26952 b34ddbca305c patch 8.2.4005: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26948 diff changeset	1369 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	1370 return FAIL;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1371 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1372 else
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1373 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1374 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	1375 ic, FALSE);
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1376 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	1377 val = !val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1378 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1379 *res = val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1380 return OK;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1381 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1382
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1383 /*
28011 d10d5cc8e657 patch 8.2.4530: making comparison with null work changes legacy behavior Bram Moolenaar <Bram@vim.org> parents: 27928 diff changeset	1384 * 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	1385 */
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1386 int
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1387 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	1388 {
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1389 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	1390 \|\| (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	1391 {
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1392 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	1393
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1394 switch (tv->v_type)
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1395 {
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1396 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	1397 #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	1398 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	1399 #endif
27924 e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1400 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	1401 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	1402 #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	1403 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	1404 #endif
27924 e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1405 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	1406 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	1407 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	1408
ca7a207d83cd patch 8.2.4489: failing test for comparing v:null with number Bram Moolenaar <Bram@vim.org> parents: 27926 diff changeset	1409 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	1410 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	1411 break;
ca7a207d83cd patch 8.2.4489: failing test for comparing v:null with number Bram Moolenaar <Bram@vim.org> parents: 27926 diff changeset	1412 #ifdef FEAT_FLOAT
ca7a207d83cd patch 8.2.4489: failing test for comparing v:null with number Bram Moolenaar <Bram@vim.org> parents: 27926 diff changeset	1413 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	1414 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	1415 break;
ca7a207d83cd patch 8.2.4489: failing test for comparing v:null with number Bram Moolenaar <Bram@vim.org> parents: 27926 diff changeset	1416 #endif
27924 e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1417 default: break;
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1418 }
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1419 }
28011 d10d5cc8e657 patch 8.2.4530: making comparison with null work changes legacy behavior Bram Moolenaar <Bram@vim.org> parents: 27928 diff changeset	1420 if (!in_vim9script())
d10d5cc8e657 patch 8.2.4530: making comparison with null work changes legacy behavior Bram Moolenaar <Bram@vim.org> parents: 27928 diff changeset	1421 return FALSE; // backwards compatible
d10d5cc8e657 patch 8.2.4530: making comparison with null work changes legacy behavior Bram Moolenaar <Bram@vim.org> parents: 27928 diff changeset	1422
27924 e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1423 semsg(_(e_cannot_compare_str_with_str),
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1424 vartype_name(tv1->v_type), vartype_name(tv2->v_type));
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1425 return MAYBE;
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1426 }
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1427
e6e3abc28c7a patch 8.2.4487: Vim9: cannot compare with v:null Bram Moolenaar <Bram@vim.org> parents: 27034 diff changeset	1428 /*
26644 2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1429 * Compare "tv1" to "tv2" as blobs acording to "type".
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1430 * 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	1431 * 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	1432 */
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1433 int
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1434 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	1435 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	1436 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	1437 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	1438 int *res)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1439 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1440 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	1441
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1442 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	1443 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1444 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	1445 && 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	1446 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	1447 val = !val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1448 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1449 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	1450 \|\| (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	1451 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1452 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	1453 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	1454 else
26877 06a137af96f8 patch 8.2.3967: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26782 diff changeset	1455 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	1456 return FAIL;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1457 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1458 else
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 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	1461 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	1462 val = !val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1463 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1464 *res = val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1465 return OK;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1466 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1467
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1468 /*
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1469 * Compare "tv1" to "tv2" as dictionaries acording 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	1470 * 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	1471 * 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	1472 */
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1473 int
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1474 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	1475 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	1476 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	1477 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	1478 int ic,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1479 int *res)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1480 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1481 int val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1482
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1483 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	1484 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1485 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	1486 && 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	1487 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	1488 val = !val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1489 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1490 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	1491 \|\| (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	1492 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1493 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	1494 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	1495 else
26952 b34ddbca305c patch 8.2.4005: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26948 diff changeset	1496 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	1497 return FAIL;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1498 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1499 else
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1500 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1501 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	1502 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	1503 val = !val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1504 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1505 *res = val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1506 return OK;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1507 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1508
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1509 /*
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1510 * Compare "tv1" to "tv2" as funcrefs acording 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	1511 * 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	1512 * 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	1513 */
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1514 int
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1515 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	1516 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	1517 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	1518 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	1519 int ic,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1520 int *res)
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 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	1523
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1524 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	1525 && 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	1526 {
26952 b34ddbca305c patch 8.2.4005: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26948 diff changeset	1527 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	1528 return FAIL;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1529 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1530 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	1531 \|\| (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	1532 // 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	1533 // 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	1534 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	1535 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	1536 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1537 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	1538 // 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	1539 // the same
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1540 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	1541 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	1542 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	1543 else
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1544 val = FALSE;
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 else
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1547 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	1548 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	1549 val = !val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1550 *res = val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1551 return OK;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1552 }
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 /*
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1555 * 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	1556 * 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	1557 * 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	1558 */
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1559 int
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1560 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	1561 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	1562 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	1563 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	1564 int ic,
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1565 int *res)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1566 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1567 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	1568 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	1569 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	1570 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	1571
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1572 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	1573 && ((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	1574 \|\| (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	1575 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1576 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	1577 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	1578 return FAIL;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1579 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1580 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	1581 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	1582 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	1583 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	1584 switch (type)
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1585 {
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1586 case EXPR_IS:
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1587 case EXPR_EQUAL: 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	1588 case EXPR_ISNOT:
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1589 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	1590 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	1591 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	1592 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	1593 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	1594
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1595 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	1596 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	1597 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	1598 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	1599 val = !val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1600 break;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1601
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1602 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	1603 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1604 *res = val;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1605 return OK;
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1606 }
2fc1e528e0e1 patch 8.2.3851: Vim9: overhead when comparing string, dict or function Bram Moolenaar <Bram@vim.org> parents: 26638 diff changeset	1607 /*
23788 d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1608 * 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	1609 * 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	1610 * 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	1611 */
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1612 char_u *
23788 d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1613 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	1614 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1615 char_u *tofree;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1616 char_u numbuf[NUMBUFLEN];
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1617 char_u *ret = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1618
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1619 if (arg == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1620 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	1621 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	1622 {
d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1623 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	1624 : 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	1625 }
d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1626 else
d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1627 {
d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1628 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	1629 // 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	1630 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	1631 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	1632 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1633 return ret;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1634 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1635
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1636 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1637 * 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	1638 * 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	1639 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1640 int
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1641 tv_islocked(typval_T *tv)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1642 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1643 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	1644 \|\| (tv->v_type == VAR_LIST
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1645 && tv->vval.v_list != NULL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1646 && (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	1647 \|\| (tv->v_type == VAR_DICT
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1648 && tv->vval.v_dict != NULL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1649 && (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	1650 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1651
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1652 static int
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1653 func_equal(
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1654 typval_T *tv1,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1655 typval_T *tv2,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1656 int ic) // ignore case
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1657 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1658 char_u s1, s2;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1659 dict_T d1, d2;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1660 int a1, a2;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1661 int i;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1662
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1663 // 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	1664 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	1665 : 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	1666 if (s1 != NULL && *s1 == NUL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1667 s1 = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1668 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	1669 : 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	1670 if (s2 != NULL && *s2 == NUL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1671 s2 = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1672 if (s1 == NULL \|\| s2 == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1673 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1674 if (s1 != s2)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1675 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1676 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1677 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	1678 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1679
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1680 // 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	1681 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	1682 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	1683 if (d1 == NULL \|\| d2 == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1684 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1685 if (d1 != d2)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1686 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1687 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1688 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	1689 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1690
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1691 // 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	1692 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	1693 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	1694 if (a1 != a2)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1695 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1696 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	1697 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	1698 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	1699 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1700
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1701 return TRUE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1702 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1703
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1704 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1705 * 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	1706 * 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	1707 * 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	1708 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1709 int
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1710 tv_equal(
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1711 typval_T *tv1,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1712 typval_T *tv2,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1713 int ic, // ignore case
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1714 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	1715 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1716 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	1717 char_u s1, s2;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1718 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	1719 int r;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1720 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	1721
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1722 // 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	1723 // 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	1724 // 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	1725 // 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	1726 // 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	1727 // recursiveness quickly.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1728 if (!recursive)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1729 tv_equal_recurse_limit = 1000;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1730 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	1731 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1732 --tv_equal_recurse_limit;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1733 return TRUE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1734 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1735
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1736 // 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	1737 // arguments.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1738 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	1739 \|\| (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	1740 && (tv2->v_type == VAR_FUNC
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1741 \|\| (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	1742 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1743 ++recursive_cnt;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1744 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	1745 --recursive_cnt;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1746 return r;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1747 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1748
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	1749 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	1750 && ((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	1751 \|\| (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	1752 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1753
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1754 switch (tv1->v_type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1755 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1756 case VAR_LIST:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1757 ++recursive_cnt;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1758 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	1759 --recursive_cnt;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1760 return r;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1761
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1762 case VAR_DICT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1763 ++recursive_cnt;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1764 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	1765 --recursive_cnt;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1766 return r;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1767
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1768 case VAR_BLOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1769 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	1770
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1771 case VAR_NUMBER:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1772 case VAR_BOOL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1773 case VAR_SPECIAL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1774 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	1775
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1776 case VAR_STRING:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1777 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	1778 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	1779 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	1780
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1781 case VAR_FLOAT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1782 #ifdef FEAT_FLOAT
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1783 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	1784 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1785 case VAR_JOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1786 #ifdef FEAT_JOB_CHANNEL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1787 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	1788 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1789 case VAR_CHANNEL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1790 #ifdef FEAT_JOB_CHANNEL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1791 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	1792 #endif
24606 a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled Bram Moolenaar <Bram@vim.org> parents: 24424 diff changeset	1793 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	1794 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	1795
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1796 case VAR_PARTIAL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1797 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	1798
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1799 case VAR_FUNC:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1800 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	1801
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1802 case VAR_UNKNOWN:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1803 case VAR_ANY:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1804 case VAR_VOID:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1805 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1806 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1807
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1808 // 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	1809 // 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	1810 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1811 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1812
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1813 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1814 * Get an option value.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1815 * "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	1816 * "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	1817 * Return OK or FAIL.
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 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	1820 eval_option(
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1821 char_u **arg,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1822 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	1823 int evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1824 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1825 char_u *option_end;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1826 long numval;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1827 char_u *stringval;
23422 bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1828 getoption_T opt_type;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1829 int c;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1830 int working = (**arg == '+'); // has("+option")
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1831 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	1832 int scope;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1833
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1834 // 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	1835 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	1836 if (option_end == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1837 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1838 if (rettv != NULL)
26602 fac6673086df patch 8.2.3830: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	1839 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	1840 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1841 }
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 if (!evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1844 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1845 *arg = option_end;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1846 return OK;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1847 }
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 c = *option_end;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1850 *option_end = NUL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1851 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	1852 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	1853
23422 bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1854 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	1855 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1856 if (rettv != NULL)
26602 fac6673086df patch 8.2.3830: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	1857 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	1858 ret = FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1859 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1860 else if (rettv != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1861 {
23519 cb66613dd9d5 patch 8.2.2302: Vim9: using an option value may use uninitialized memory Bram Moolenaar <Bram@vim.org> parents: 23422 diff changeset	1862 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	1863 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	1864 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1865 rettv->v_type = VAR_STRING;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1866 rettv->vval.v_string = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1867 }
23422 bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1868 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	1869 {
23422 bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1870 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	1871 ? VAR_BOOL : VAR_NUMBER;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1872 rettv->vval.v_number = 0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1873 }
23422 bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1874 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	1875 {
23422 bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1876 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	1877 {
bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1878 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	1879 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	1880 }
bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1881 else
bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1882 {
bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1883 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	1884 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	1885 }
20587 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 else // string option
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1888 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1889 rettv->v_type = VAR_STRING;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1890 rettv->vval.v_string = stringval;
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 }
23422 bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1893 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	1894 \|\| 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	1895 \|\| 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	1896 ret = FAIL;
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 *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	1899 *arg = option_end;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1900
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1901 return ret;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1902 }
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 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1905 * 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	1906 * Return OK or FAIL.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1907 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1908 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	1909 eval_number(
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1910 char_u **arg,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1911 typval_T *rettv,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1912 int evaluate,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1913 int want_string UNUSED)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1914 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1915 int len;
25622 15b54e0a576b patch 8.2.3347: check for legacy script is incomplete Bram Moolenaar <Bram@vim.org> parents: 25585 diff changeset	1916 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	1917 #ifdef FEAT_FLOAT
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1918 char_u *p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1919 int get_float = FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1920
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1921 // 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	1922 // "[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	1923 // 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	1924 // 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	1925 // omitted.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1926 // 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	1927 // ":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	1928 if (**arg == '.')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1929 p = *arg;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1930 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	1931 {
763ea8f075db patch 8.2.3315: cannot use single quote in a float number for readability Bram Moolenaar <Bram@vim.org> parents: 25443 diff changeset	1932 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	1933 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	1934 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	1935 {
763ea8f075db patch 8.2.3315: cannot use single quote in a float number for readability Bram Moolenaar <Bram@vim.org> parents: 25443 diff changeset	1936 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	1937 ++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	1938 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	1939 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	1940 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	1941 }
763ea8f075db patch 8.2.3315: cannot use single quote in a float number for readability Bram Moolenaar <Bram@vim.org> parents: 25443 diff changeset	1942 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	1943 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	1944 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1945 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	1946 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1947 get_float = TRUE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1948 p = skipdigits(p + 2);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1949 if (p == 'e' \|\| p == 'E')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1950 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1951 ++p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1952 if (p == '-' \|\| p == '+')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1953 ++p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1954 if (!vim_isdigit(*p))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1955 get_float = FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1956 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1957 p = skipdigits(p + 1);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1958 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1959 if (ASCII_ISALPHA(p) \|\| p == '.')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1960 get_float = FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1961 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1962 if (get_float)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1963 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1964 float_T f;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1965
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	1966 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	1967 if (evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1968 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1969 rettv->v_type = VAR_FLOAT;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1970 rettv->vval.v_float = f;
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 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1973 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1974 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1975 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	1976 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1977 char_u *bp;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1978 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	1979
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1980 // Blob constant: 0z0123456789abcdef
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1981 if (evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1982 blob = blob_alloc();
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1983 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	1984 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1985 if (!vim_isxdigit(bp[1]))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1986 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1987 if (blob != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1988 {
26966 ac75c145f0a9 patch 8.2.4012: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26962 diff changeset	1989 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	1990 ga_clear(&blob->bv_ga);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1991 VIM_CLEAR(blob);
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 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1994 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1995 if (blob != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1996 ga_append(&blob->bv_ga,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1997 (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	1998 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	1999 ++bp;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2000 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2001 if (blob != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2002 rettv_blob_set(rettv, blob);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2003 *arg = bp;
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 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2006 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2007 varnumber_T n;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2008
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2009 // 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	2010 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	2011 ? STR2NR_NO_OCT + STR2NR_QUOTE
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2012 : 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	2013 if (len == 0)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2014 {
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	2015 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	2016 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	2017 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2018 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2019 *arg += len;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2020 if (evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2021 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2022 rettv->v_type = VAR_NUMBER;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2023 rettv->vval.v_number = n;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2024 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2025 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2026 return OK;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2027 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2028
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2029 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2030 * Allocate a variable for a string constant.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2031 * Return OK or FAIL.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2032 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2033 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	2034 eval_string(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	2035 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2036 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	2037 char_u *end;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2038 int extra = 0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2039 int len;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2040
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2041 // Find the end of the string, skipping backslashed characters.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2042 for (p = arg + 1; p != NUL && *p != '"'; MB_PTR_ADV(p))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2043 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2044 if (*p == '\\' && p[1] != NUL)
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 ++p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2047 // A "\<x>" form occupies at least 4 characters, and produces up
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2048 // to 21 characters (3 * 6 for the char and 3 for a modifier):
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2049 // reserve space for 18 extra.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2050 // Each byte in the char could be encoded as K_SPECIAL K_EXTRA x.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2051 if (*p == '<')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2052 extra += 18;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2053 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2054 }
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 if (*p != '"')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2057 {
26602 fac6673086df patch 8.2.3830: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	2058 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	2059 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2060 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2061
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2062 // 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	2063 if (!evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2064 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2065 *arg = p + 1;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2066 return OK;
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
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2069 // 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	2070 // characters.
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2071 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	2072 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	2073 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	2074 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	2075 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	2076 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	2077
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2078 for (p = arg + 1; p != NUL && *p != '"'; )
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2079 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2080 if (*p == '\\')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2081 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2082 switch (*++p)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2083 {
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2084 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	2085 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	2086 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	2087 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	2088 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	2089 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	2090
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2091 case 'X': // hex: "\x1", "\x12"
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2092 case 'x':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2093 case 'u': // Unicode: "\u0023"
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2094 case 'U':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2095 if (vim_isxdigit(p[1]))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2096 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2097 int n, nr;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2098 int c = toupper(*p);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2099
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2100 if (c == 'X')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2101 n = 2;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2102 else if (*p == 'u')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2103 n = 4;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2104 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2105 n = 8;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2106 nr = 0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2107 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	2108 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2109 ++p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2110 nr = (nr << 4) + hex2nr(*p);
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 ++p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2113 // 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	2114 // 'encoding'.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2115 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	2116 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	2117 else
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2118 *end++ = nr;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2119 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2120 break;
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 // octal: "\1", "\12", "\123"
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2123 case '0':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2124 case '1':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2125 case '2':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2126 case '3':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2127 case '4':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2128 case '5':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2129 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	2130 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	2131 if (p >= '0' && p <= '7')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2132 {
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2133 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	2134 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	2135 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	2136 }
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2137 ++end;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2138 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2139
20627 8bce783af0cb patch 8.2.0867: using {xxx} for encoding a modifier is not nice Bram Moolenaar <Bram@vim.org> parents: 20603 diff changeset	2140 // 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	2141 case '<':
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2142 {
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	2143 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	2144
20627 8bce783af0cb patch 8.2.0867: using {xxx} for encoding a modifier is not nice Bram Moolenaar <Bram@vim.org> parents: 20603 diff changeset	2145 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	2146 flags \|= FSK_SIMPLIFY;
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2147 extra = trans_special(&p, end, flags, 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	2148 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	2149 {
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2150 end += extra;
0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2151 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	2152 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	2153 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	2154 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2155 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2156 // FALLTHROUGH
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2157
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2158 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	2159 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2160 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2161 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2162 else
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2163 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	2164 }
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	2165 *end = NUL;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2166 if (*p != NUL) // just in case
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2167 ++p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2168 *arg = p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2169
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2170 return OK;
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
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2173 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2174 * Allocate a variable for a 'str''ing' constant.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2175 * Return OK or FAIL.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2176 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2177 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	2178 eval_lit_string(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	2179 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2180 char_u *p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2181 char_u *str;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2182 int reduce = 0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2183
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2184 // Find the end of the string, skipping ''.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2185 for (p = arg + 1; p != NUL; MB_PTR_ADV(p))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2186 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2187 if (*p == '\'')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2188 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2189 if (p[1] != '\'')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2190 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2191 ++reduce;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2192 ++p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2193 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2194 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2195
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2196 if (*p != '\'')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2197 {
26602 fac6673086df patch 8.2.3830: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	2198 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	2199 return FAIL;
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
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2202 // 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	2203 if (!evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2204 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2205 *arg = p + 1;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2206 return OK;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2207 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2208
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2209 // Copy the string into allocated memory, handling '' to ' reduction.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2210 str = alloc((p - *arg) - reduce);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2211 if (str == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2212 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2213 rettv->v_type = VAR_STRING;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2214 rettv->vval.v_string = str;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2215
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2216 for (p = arg + 1; p != NUL; )
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2217 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2218 if (*p == '\'')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2219 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2220 if (p[1] != '\'')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2221 break;
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 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2224 MB_COPY_CHAR(p, str);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2225 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2226 *str = NUL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2227 *arg = p + 1;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2228
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2229 return OK;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2230 }
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 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2233 * 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	2234 * 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	2235 * "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	2236 * 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	2237 * May return NULL.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2238 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2239 char_u *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2240 tv2string(
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2241 typval_T *tv,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2242 char_u **tofree,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2243 char_u *numbuf,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2244 int copyID)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2245 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2246 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	2247 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2248
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2249 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2250 * 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	2251 * "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	2252 * 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	2253 * 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	2254 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2255 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	2256 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	2257 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2258 char_u *string = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2259 int len;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2260 int cc;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2261 char_u *name;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2262 int mustfree = FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2263
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2264 ++*arg;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2265 name = *arg;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2266 len = get_env_len(arg);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2267 if (evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2268 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2269 if (len == 0)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2270 return FAIL; // invalid empty name
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 cc = name[len];
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2273 name[len] = NUL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2274 // 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	2275 string = vim_getenv(name, &mustfree);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2276 if (string != NULL && *string != NUL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2277 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2278 if (!mustfree)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2279 string = vim_strsave(string);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2280 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2281 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2282 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2283 if (mustfree)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2284 vim_free(string);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2285
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2286 // 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	2287 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	2288 if (string != NULL && *string == '$')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2289 VIM_CLEAR(string);
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 name[len] = cc;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2292
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2293 rettv->v_type = VAR_STRING;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2294 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	2295 rettv->v_lock = 0;
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
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2298 return OK;
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
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2301 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2302 * 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	2303 * 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	2304 * Returns -1 on error.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2305 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2306 linenr_T
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2307 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	2308 {
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	2309 linenr_T lnum = -1;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2310
21831 d8422de73113 patch 8.2.1465: Vim9: subscript not handled properly Bram Moolenaar <Bram@vim.org> parents: 21425 diff changeset	2311 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	2312 lnum = (linenr_T)tv_get_number_chk(&argvars[0], NULL);
24260 ad065f64eb20 patch 8.2.2671: error for line number in legacy script Bram Moolenaar <Bram@vim.org> parents: 24258 diff changeset	2313 if (lnum <= 0 && 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	2314 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2315 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	2316 pos_T *fp;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2317
24260 ad065f64eb20 patch 8.2.2671: error for line number in legacy script Bram Moolenaar <Bram@vim.org> parents: 24258 diff changeset	2318 // 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	2319 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	2320 if (fp != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2321 lnum = fp->lnum;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2322 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2323 return lnum;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2324 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2325
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2326 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2327 * 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	2328 * 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	2329 * Returns 0 on error.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2330 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2331 linenr_T
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2332 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	2333 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2334 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	2335 && 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	2336 && 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	2337 && 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	2338 && buf != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2339 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	2340 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	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 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2344 * 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	2345 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2346 buf_T *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2347 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	2348 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2349 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	2350 buf_T *buf;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2351
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2352 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	2353 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	2354 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	2355 return NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2356 if (name == NULL \|\| *name == NUL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2357 return curbuf;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2358 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	2359 return lastbuf;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2360
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2361 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	2362
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2363 // 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	2364 if (buf == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2365 buf = find_buffer(tv);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2366
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2367 return buf;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2368 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2369
22025 71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2370 /*
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2371 * 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	2372 */
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2373 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	2374 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	2375 {
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2376 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	2377
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2378 ++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	2379 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	2380 --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	2381 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	2382 && 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	2383 && 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	2384 // 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	2385 (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	2386 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	2387 }
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	2388
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	2389 #endif // FEAT_EVAL

Mercurial > vim

annotate src/typval.c @ 28011:d10d5cc8e657 v8.2.4530