vim: src/typval.c annotate

annotate src/typval.c @ 25309:79605d04de57

Added tag v8.2.3191 for changeset a386f83499edbde0fa5d2eb94962a7741ffe0c88

author	Bram Moolenaar <Bram@vim.org>
date	Tue, 20 Jul 2021 22:30:05 +0200
parents	4d3c68196d05
children	7e620652bd13

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
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	194 emsg(_("E805: Using a Float as a Number"));
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:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	199 emsg(_("E703: Using a Funcref as a Number"));
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:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	212 emsg(_("E745: Using a List as a Number"));
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:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	215 emsg(_("E728: Using a Dictionary as a Number"));
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
84567584951f patch 8.2.2012: Vim9: confusing error message when using bool wrongly Bram Moolenaar <Bram@vim.org> parents: 22860 diff changeset	224 emsg(_("E611: Using a Special as a 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
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	230 emsg(_("E910: Using a Job as a Number"));
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
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	235 emsg(_("E913: Using a Channel as a Number"));
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:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	239 emsg(_("E974: Using a Blob as a Number"));
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)
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	300 float_T
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	301 tv_get_float(typval_T *varp)
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:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	311 emsg(_("E891: Using a Funcref as a Float"));
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:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	314 emsg(_("E892: Using a String as a Float"));
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:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	317 emsg(_("E893: Using a List as a Float"));
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:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	320 emsg(_("E894: Using a Dictionary as a Float"));
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:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	323 emsg(_("E362: Using a boolean value as a Float"));
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:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	326 emsg(_("E907: Using a special value as a Float"));
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
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	330 emsg(_("E911: Using a Job as a Float"));
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
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	335 emsg(_("E914: Using a Channel as a Float"));
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:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	339 emsg(_("E975: Using a Blob as a Float"));
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 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	350 return 0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	351 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	352 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	353
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	354 /*
25272 712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	355 * 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	356 */
5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22930 diff changeset	357 int
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	358 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	359 {
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	360 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	361 {
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	362 if (idx >= 0)
35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	363 semsg(_(e_string_required_for_argument_nr), idx + 1);
24210 083f07f99e20 patch 8.2.2646: Vim9: error for not using string doesn't mentionargument Bram Moolenaar <Bram@vim.org> parents: 23909 diff changeset	364 else
083f07f99e20 patch 8.2.2646: Vim9: error for not using string doesn't mentionargument Bram Moolenaar <Bram@vim.org> parents: 23909 diff changeset	365 emsg(_(e_stringreq));
23142 5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22930 diff changeset	366 return FAIL;
5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22930 diff changeset	367 }
5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22930 diff changeset	368 return OK;
5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22930 diff changeset	369 }
5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22930 diff changeset	370
5f08d4a42898 patch 8.2.2117: some functions use any value as a string Bram Moolenaar <Bram@vim.org> parents: 22930 diff changeset	371 /*
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	372 * 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	373 */
d7294a6220ac patch 8.2.2133: Vim9: checking for a non-empty string is too strict Bram Moolenaar <Bram@vim.org> parents: 23142 diff changeset	374 int
24246 35603c7991d7 patch 8.2.2664: Vim9: not enough function arguments checked for string Bram Moolenaar <Bram@vim.org> parents: 24210 diff changeset	375 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	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 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	378 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	379 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	380 {
24424 ddcda424f882 patch 8.2.2752 Bram Moolenaar <Bram@vim.org> parents: 24260 diff changeset	381 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	382 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	383 }
d7294a6220ac patch 8.2.2133: Vim9: checking for a non-empty string is too strict Bram Moolenaar <Bram@vim.org> parents: 23142 diff changeset	384 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	385 }
d7294a6220ac patch 8.2.2133: Vim9: checking for a non-empty string is too strict Bram Moolenaar <Bram@vim.org> parents: 23142 diff changeset	386
d7294a6220ac patch 8.2.2133: Vim9: checking for a non-empty string is too strict Bram Moolenaar <Bram@vim.org> parents: 23142 diff changeset	387 /*
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	388 * 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	389 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	390 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	391 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	392 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	393 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	394 \|\| 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	395 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	396
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	397 /*
25272 712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	398 * 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	399 */
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25198 diff changeset	400 int
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25198 diff changeset	401 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	402 {
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25198 diff changeset	403 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	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 if (idx >= 0)
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25198 diff changeset	406 semsg(_(e_number_required_for_argument_nr), idx + 1);
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25198 diff changeset	407 else
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25198 diff changeset	408 emsg(_(e_numberreq));
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25198 diff changeset	409 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	410 }
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 OK;
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
acda780ffc3e patch 8.2.3162: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25198 diff changeset	414 /*
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	415 * 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	416 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	417 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	418 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	419 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	420 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	421 \|\| 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	422 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	423
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	424 /*
25272 712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	425 * 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	426 */
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	427 int
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	428 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	429 {
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	430 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	431 && !(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	432 && (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	433 \|\| 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	434 {
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	435 if (idx >= 0)
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	436 semsg(_(e_bool_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	437 else
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	438 emsg(_(e_boolreq));
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	439 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	440 }
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	441 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	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
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	444 /*
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	445 * Check for an optional bool 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	446 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	447 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	448 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	449 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	450 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	451 \|\| check_for_bool_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	452 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	453
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	454 /*
25272 712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	455 * 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	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 int
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	458 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	459 {
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	460 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	461 {
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	462 if (idx >= 0)
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	463 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	464 else
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	465 emsg(_(e_listreq));
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	466 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	467 }
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	468 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	469 }
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	470
712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	471 /*
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	472 * 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	473 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	474 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	475 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	476 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	477 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	478 \|\| 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	479 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	480
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	481 /*
25272 712e867f9721 patch 8.2.3173: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25252 diff changeset	482 * 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	483 */
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	484 int
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	485 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	486 {
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	487 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	488 {
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	489 if (idx >= 0)
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	490 semsg(_(e_dict_required_for_argument_nr), idx + 1);
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	491 else
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	492 emsg(_(e_dictreq));
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	493 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	494 }
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	495 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	496 }
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	497
eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	498 /*
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	499 * 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	500 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	501 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	502 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	503 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	504 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	505 \|\| 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	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
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	508 /*
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	509 * Give an error and return FAIL unless "args[idx]" is a blob.
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	510 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	511 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	512 check_for_blob_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	513 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	514 if (args[idx].v_type != VAR_BLOB)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	515 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	516 if (idx >= 0)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	517 semsg(_(e_blob_required_for_argument_nr), idx + 1);
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	518 else
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	519 emsg(_(e_blobreq));
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	520 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	521 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	522 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	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
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	525 /*
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	526 * 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	527 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	528 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	529 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	530 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	531 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	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 if (idx >= 0)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	534 semsg(_(e_chan_or_job_required_for_argument_nr), idx + 1);
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	535 else
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	536 emsg(_(e_chan_or_job_req));
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	537 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	538 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	539 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	540 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	541
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 * 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	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 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	546 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	547 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	548 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	549 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	550 if (idx >= 0)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	551 semsg(_(e_job_required_for_argument_nr), idx + 1);
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	552 else
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	553 emsg(_(e_jobreq));
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	554 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	555 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	556 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	557 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	558
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 * 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	561 * 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	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 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	564 check_for_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	565 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	566 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	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 if (idx >= 0)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	569 semsg(_(e_string_required_for_argument_nr), idx + 1);
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	570 else
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	571 emsg(_(e_stringreq));
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	572 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	573 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	574 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	575 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	576
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	577 /*
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	578 * 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	579 * a number (buffer)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	580 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	581 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	582 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	583 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	584 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	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 if (idx >= 0)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	587 semsg(_(e_string_required_for_argument_nr), idx + 1);
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	588 else
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	589 emsg(_(e_stringreq));
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	590 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	591 }
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 OK;
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
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 * 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	597 * a number (line)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	598 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	599 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	600 check_for_lnum_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	601 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	602 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	603 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	604 if (idx >= 0)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	605 semsg(_(e_string_required_for_argument_nr), idx + 1);
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	606 else
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	607 emsg(_(e_stringreq));
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	608 return FAIL;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	609 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	610 return OK;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	611 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	612
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	613 /*
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	614 * 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	615 * a number (line)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	616 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	617 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	618 check_for_opt_lnum_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	619 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	620 if (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	621 && args[idx].v_type != VAR_STRING
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	622 && 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	623 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	624 if (idx >= 0)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	625 semsg(_(e_string_required_for_argument_nr), idx + 1);
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	626 else
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	627 emsg(_(e_stringreq));
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	628 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	629 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	630 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	631 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	632
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	633 /*
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	634 * Check for an optional string or 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	635 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	636 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	637 check_for_opt_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	638 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	639 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	640 \|\| check_for_string_or_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	641 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	642
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	643 /*
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	644 * 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	645 * a blob.
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	646 */
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	647 int
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	648 check_for_string_or_blob_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	649 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	650 if (args[idx].v_type != VAR_STRING && args[idx].v_type != VAR_BLOB)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	651 {
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	652 if (idx >= 0)
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	653 semsg(_(e_string_required_for_argument_nr), idx + 1);
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	654 else
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	655 emsg(_(e_stringreq));
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	656 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	657 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	658 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	659 }
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	660
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25278 diff changeset	661 /*
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	662 * 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	663 * 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	664 * 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	665 * 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	666 * 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	667 * Never returns NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	668 * 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	669 * NULL on error.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	670 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	671 char_u *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	672 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	673 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	674 static char_u mybuf[NUMBUFLEN];
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	675
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	676 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	677 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	678
23786 0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	679 /*
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	680 * 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	681 */
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	682 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	683 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	684 {
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	685 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	686 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	687 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	688
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	689 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	690 }
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	691
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	692 char_u *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	693 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	694 {
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	695 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	696
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	697 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	698 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	699
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	700 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	701 * 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	702 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	703 char_u *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	704 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	705 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	706 static char_u mybuf[NUMBUFLEN];
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	707
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	708 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	709 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	710
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	711 char_u *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	712 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	713 {
23786 0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	714 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	715 }
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	716
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	717 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	718 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	719 {
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	720 switch (varp->v_type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	721 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	722 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	723 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	724 {
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	725 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	726 break;
0512923e54e1 patch 8.2.2434: Vim9: no error when compiling str2nr() with a number Bram Moolenaar <Bram@vim.org> parents: 23563 diff changeset	727 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	728 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	729 (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	730 return buf;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	731 case VAR_FUNC:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	732 case VAR_PARTIAL:
25198 eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	733 emsg(_("E729: Using a Funcref as a String"));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	734 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	735 case VAR_LIST:
25198 eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	736 emsg(_("E730: Using a List as a String"));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	737 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	738 case VAR_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	739 emsg(_("E731: Using a Dictionary as a String"));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	740 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	741 case VAR_FLOAT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	742 #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	743 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	744 {
b1093c1ac109 patch 8.2.2948: substitute() accepts a number but not a float expression Bram Moolenaar <Bram@vim.org> parents: 24812 diff changeset	745 emsg(_(e_float_as_string));
b1093c1ac109 patch 8.2.2948: substitute() accepts a number but not a float expression Bram Moolenaar <Bram@vim.org> parents: 24812 diff changeset	746 break;
b1093c1ac109 patch 8.2.2948: substitute() accepts a number but not a float expression Bram Moolenaar <Bram@vim.org> parents: 24812 diff changeset	747 }
b1093c1ac109 patch 8.2.2948: substitute() accepts a number but not a float expression Bram Moolenaar <Bram@vim.org> parents: 24812 diff changeset	748 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	749 return buf;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	750 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	751 case VAR_STRING:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	752 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	753 return varp->vval.v_string;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	754 return (char_u *)"";
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	755 case VAR_BOOL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	756 case VAR_SPECIAL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	757 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	758 return buf;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	759 case VAR_BLOB:
25198 eafc0e07b188 patch 8.2.3135: Vim9: builtin function arguments not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	760 emsg(_("E976: Using a Blob as a String"));
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	761 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	762 case VAR_JOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	763 #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	764 if (in_vim9script())
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	765 {
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	766 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	767 break;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	768 }
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	769 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	770 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	771 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	772 case VAR_CHANNEL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	773 #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	774 if (in_vim9script())
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	775 {
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	776 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	777 break;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	778 }
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	779 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	780 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	781 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	782 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	783 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	784 break;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	785 case VAR_UNKNOWN:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	786 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	787 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	788 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	789 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	790 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	791 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	792 return NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	793 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	794
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	795 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	796 * 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	797 * string() on Dict, List, etc.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	798 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	799 char_u *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	800 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	801 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	802 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	803 \|\| varp->v_type == VAR_DICT
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	804 \|\| varp->v_type == VAR_BLOB
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	805 \|\| varp->v_type == VAR_FUNC
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	806 \|\| varp->v_type == VAR_PARTIAL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	807 \|\| varp->v_type == VAR_FLOAT)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	808 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	809 typval_T tmp;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	810
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	811 f_string(varp, &tmp);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	812 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	813 clear_tv(varp);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	814 *varp = tmp;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	815 return tmp.vval.v_string;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	816 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	817 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	818 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	819
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	820 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	821 * 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	822 * 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	823 * TRUE.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	824 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	825 int
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	826 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	827 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	828 int lock = 0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	829
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	830 switch (tv->v_type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	831 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	832 case VAR_BLOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	833 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	834 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	835 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	836 case VAR_LIST:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	837 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	838 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	839 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	840 case VAR_DICT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	841 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	842 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	843 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	844 default:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	845 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	846 }
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	847 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	848 \|\| (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	849 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	850
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	851 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	852 * 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	853 * 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	854 * 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	855 * 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	856 * make a copy later.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	857 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	858 void
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	859 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	860 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	861 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	862 to->v_lock = 0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	863 switch (from->v_type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	864 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	865 case VAR_NUMBER:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	866 case VAR_BOOL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	867 case VAR_SPECIAL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	868 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	869 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	870 case VAR_FLOAT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	871 #ifdef FEAT_FLOAT
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	872 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	873 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	874 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	875 case VAR_JOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	876 #ifdef FEAT_JOB_CHANNEL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	877 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	878 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	879 ++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	880 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	881 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	882 case VAR_CHANNEL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	883 #ifdef FEAT_JOB_CHANNEL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	884 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	885 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	886 ++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	887 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	888 #endif
24606 a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled Bram Moolenaar <Bram@vim.org> parents: 24424 diff changeset	889 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	890 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	891 break;
a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled Bram Moolenaar <Bram@vim.org> parents: 24424 diff changeset	892
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	893 case VAR_STRING:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	894 case VAR_FUNC:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	895 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	896 to->vval.v_string = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	897 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	898 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	899 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	900 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	901 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	902 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	903 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	904 case VAR_PARTIAL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	905 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	906 to->vval.v_partial = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	907 else
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 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	910 ++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	911 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	912 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	913 case VAR_BLOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	914 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	915 to->vval.v_blob = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	916 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	917 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	918 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	919 ++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	920 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	921 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	922 case VAR_LIST:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	923 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	924 to->vval.v_list = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	925 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	926 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	927 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	928 ++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	929 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	930 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	931 case VAR_DICT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	932 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	933 to->vval.v_dict = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	934 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	935 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	936 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	937 ++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	938 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	939 break;
24940 0c415a0f54f9 patch 8.2.3007: Vim9: test for void value fails Bram Moolenaar <Bram@vim.org> parents: 24936 diff changeset	940 case VAR_VOID:
0c415a0f54f9 patch 8.2.3007: Vim9: test for void value fails Bram Moolenaar <Bram@vim.org> parents: 24936 diff changeset	941 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	942 break;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	943 case VAR_UNKNOWN:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	944 case VAR_ANY:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	945 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	946 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	947 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	948 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	949
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	950 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	951 * Compare "typ1" and "typ2". Put the result in "typ1".
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	952 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	953 int
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	954 typval_compare(
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	955 typval_T *typ1, // first operand
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	956 typval_T *typ2, // second operand
23553 5c094273c015 patch 8.2.2319: "exptype_T" can be read as "expected type" Bram Moolenaar <Bram@vim.org> parents: 23519 diff changeset	957 exprtype_T type, // operator
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	958 int ic) // ignore case
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	959 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	960 int i;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	961 varnumber_T n1, n2;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	962 char_u s1, s2;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	963 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	964 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	965
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	966 if (type_is && typ1->v_type != typ2->v_type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	967 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	968 // 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	969 // it means TRUE.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	970 n1 = (type == EXPR_ISNOT);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	971 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	972 else if (typ1->v_type == VAR_BLOB \|\| typ2->v_type == VAR_BLOB)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	973 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	974 if (type_is)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	975 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	976 n1 = (typ1->v_type == typ2->v_type
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	977 && typ1->vval.v_blob == typ2->vval.v_blob);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	978 if (type == EXPR_ISNOT)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	979 n1 = !n1;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	980 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	981 else if (typ1->v_type != typ2->v_type
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	982 \|\| (type != EXPR_EQUAL && type != EXPR_NEQUAL))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	983 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	984 if (typ1->v_type != typ2->v_type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	985 emsg(_("E977: Can only compare Blob with Blob"));
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	986 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	987 emsg(_(e_invalblob));
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	988 clear_tv(typ1);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	989 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	990 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	991 else
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 // Compare two Blobs for being equal or unequal.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	994 n1 = blob_equal(typ1->vval.v_blob, typ2->vval.v_blob);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	995 if (type == EXPR_NEQUAL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	996 n1 = !n1;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	997 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	998 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	999 else if (typ1->v_type == VAR_LIST \|\| typ2->v_type == VAR_LIST)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1000 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1001 if (type_is)
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 n1 = (typ1->v_type == typ2->v_type
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1004 && typ1->vval.v_list == typ2->vval.v_list);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1005 if (type == EXPR_ISNOT)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1006 n1 = !n1;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1007 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1008 else if (typ1->v_type != typ2->v_type
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1009 \|\| (type != EXPR_EQUAL && type != EXPR_NEQUAL))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1010 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1011 if (typ1->v_type != typ2->v_type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1012 emsg(_("E691: Can only compare List with List"));
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1013 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1014 emsg(_("E692: Invalid operation for List"));
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1015 clear_tv(typ1);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1016 return FAIL;
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 else
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 // Compare two Lists for being equal or unequal.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1021 n1 = list_equal(typ1->vval.v_list, typ2->vval.v_list,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1022 ic, FALSE);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1023 if (type == EXPR_NEQUAL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1024 n1 = !n1;
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 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1027
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1028 else if (typ1->v_type == VAR_DICT \|\| typ2->v_type == VAR_DICT)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1029 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1030 if (type_is)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1031 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1032 n1 = (typ1->v_type == typ2->v_type
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1033 && typ1->vval.v_dict == typ2->vval.v_dict);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1034 if (type == EXPR_ISNOT)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1035 n1 = !n1;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1036 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1037 else if (typ1->v_type != typ2->v_type
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1038 \|\| (type != EXPR_EQUAL && type != EXPR_NEQUAL))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1039 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1040 if (typ1->v_type != typ2->v_type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1041 emsg(_("E735: Can only compare Dictionary with Dictionary"));
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1042 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1043 emsg(_("E736: Invalid operation for Dictionary"));
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1044 clear_tv(typ1);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1045 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1046 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1047 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1048 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1049 // Compare two Dictionaries for being equal or unequal.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1050 n1 = dict_equal(typ1->vval.v_dict, typ2->vval.v_dict,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1051 ic, FALSE);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1052 if (type == EXPR_NEQUAL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1053 n1 = !n1;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1054 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1055 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1056
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1057 else if (typ1->v_type == VAR_FUNC \|\| typ2->v_type == VAR_FUNC
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1058 \|\| typ1->v_type == VAR_PARTIAL \|\| typ2->v_type == VAR_PARTIAL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1059 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1060 if (type != EXPR_EQUAL && type != EXPR_NEQUAL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1061 && 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	1062 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1063 emsg(_("E694: Invalid operation for Funcrefs"));
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1064 clear_tv(typ1);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1065 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1066 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1067 if ((typ1->v_type == VAR_PARTIAL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1068 && typ1->vval.v_partial == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1069 \|\| (typ2->v_type == VAR_PARTIAL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1070 && typ2->vval.v_partial == NULL))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1071 // When both partials are NULL, then they are equal.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1072 // Otherwise they are not equal.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1073 n1 = (typ1->vval.v_partial == typ2->vval.v_partial);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1074 else if (type_is)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1075 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1076 if (typ1->v_type == VAR_FUNC && typ2->v_type == VAR_FUNC)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1077 // strings are considered the same if their value is
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1078 // the same
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1079 n1 = tv_equal(typ1, typ2, ic, FALSE);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1080 else if (typ1->v_type == VAR_PARTIAL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1081 && typ2->v_type == VAR_PARTIAL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1082 n1 = (typ1->vval.v_partial == typ2->vval.v_partial);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1083 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1084 n1 = FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1085 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1086 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1087 n1 = tv_equal(typ1, typ2, ic, FALSE);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1088 if (type == EXPR_NEQUAL \|\| type == EXPR_ISNOT)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1089 n1 = !n1;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1090 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1091
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1092 #ifdef FEAT_FLOAT
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1093 // 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	1094 // When using "=~" or "!~", always compare as string.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1095 else if ((typ1->v_type == VAR_FLOAT \|\| typ2->v_type == VAR_FLOAT)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1096 && 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	1097 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1098 float_T f1, f2;
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 f1 = tv_get_float(typ1);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1101 f2 = tv_get_float(typ2);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1102 n1 = FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1103 switch (type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1104 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1105 case EXPR_IS:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1106 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	1107 case EXPR_ISNOT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1108 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	1109 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	1110 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	1111 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	1112 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	1113 case EXPR_UNKNOWN:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1114 case EXPR_MATCH:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1115 default: break; // avoid gcc warning
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1116 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1117 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1118 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1119
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1120 // 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	1121 // When using "=~" or "!~", always compare as string.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1122 else if ((typ1->v_type == VAR_NUMBER \|\| typ2->v_type == VAR_NUMBER)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1123 && 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	1124 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1125 n1 = tv_get_number(typ1);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1126 n2 = tv_get_number(typ2);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1127 switch (type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1128 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1129 case EXPR_IS:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1130 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	1131 case EXPR_ISNOT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1132 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	1133 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	1134 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	1135 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	1136 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	1137 case EXPR_UNKNOWN:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1138 case EXPR_MATCH:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1139 default: break; // avoid gcc warning
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1140 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1141 }
23555 0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1142 else if (in_vim9script() && (typ1->v_type == VAR_BOOL
25278 55c85c3a43a0 patch 8.2.3176: Vim9: no type error for comparing number with string Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1143 \|\| typ2->v_type == VAR_BOOL
55c85c3a43a0 patch 8.2.3176: Vim9: no type error for comparing number with string Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1144 \|\| (typ1->v_type == VAR_SPECIAL
55c85c3a43a0 patch 8.2.3176: Vim9: no type error for comparing number with string Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1145 && typ2->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	1146 {
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1147 if (typ1->v_type != typ2->v_type)
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1148 {
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1149 semsg(_(e_cannot_compare_str_with_str),
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1150 vartype_name(typ1->v_type), vartype_name(typ2->v_type));
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1151 clear_tv(typ1);
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1152 return FAIL;
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1153 }
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1154 n1 = typ1->vval.v_number;
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1155 n2 = typ2->vval.v_number;
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1156 switch (type)
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1157 {
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1158 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	1159 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	1160 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	1161 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	1162 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	1163 semsg(_(e_invalid_operation_for_str),
55c85c3a43a0 patch 8.2.3176: Vim9: no type error for comparing number with string Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1164 vartype_name(typ1->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	1165 clear_tv(typ1);
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1166 return FAIL;
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1167 }
0f7bb6f706f0 patch 8.2.2320: Vim9: no error for comparing bool with string Bram Moolenaar <Bram@vim.org> parents: 23553 diff changeset	1168 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1169 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1170 {
25278 55c85c3a43a0 patch 8.2.3176: Vim9: no type error for comparing number with string Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1171 if (in_vim9script()
55c85c3a43a0 patch 8.2.3176: Vim9: no type error for comparing number with string Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1172 && ((typ1->v_type != VAR_STRING && typ1->v_type != VAR_SPECIAL)
55c85c3a43a0 patch 8.2.3176: Vim9: no type error for comparing number with string Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1173 \|\| (typ2->v_type != VAR_STRING && typ2->v_type != VAR_SPECIAL)))
55c85c3a43a0 patch 8.2.3176: Vim9: no type error for comparing number with string Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1174 {
55c85c3a43a0 patch 8.2.3176: Vim9: no type error for comparing number with string Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1175 semsg(_(e_cannot_compare_str_with_str),
55c85c3a43a0 patch 8.2.3176: Vim9: no type error for comparing number with string Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1176 vartype_name(typ1->v_type), vartype_name(typ2->v_type));
55c85c3a43a0 patch 8.2.3176: Vim9: no type error for comparing number with string Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1177 clear_tv(typ1);
55c85c3a43a0 patch 8.2.3176: Vim9: no type error for comparing number with string Bram Moolenaar <Bram@vim.org> parents: 25272 diff changeset	1178 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	1179 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1180 s1 = tv_get_string_buf(typ1, buf1);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1181 s2 = tv_get_string_buf(typ2, buf2);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1182 if (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	1183 i = ic ? MB_STRICMP(s1, s2) : STRCMP(s1, s2);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1184 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1185 i = 0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1186 n1 = FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1187 switch (type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1188 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1189 case EXPR_IS:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1190 case EXPR_EQUAL: n1 = (i == 0); break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1191 case EXPR_ISNOT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1192 case EXPR_NEQUAL: n1 = (i != 0); break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1193 case EXPR_GREATER: n1 = (i > 0); break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1194 case EXPR_GEQUAL: n1 = (i >= 0); break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1195 case EXPR_SMALLER: n1 = (i < 0); break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1196 case EXPR_SEQUAL: n1 = (i <= 0); break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1197
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1198 case EXPR_MATCH:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1199 case EXPR_NOMATCH:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1200 n1 = pattern_match(s2, s1, ic);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1201 if (type == EXPR_NOMATCH)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1202 n1 = !n1;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1203 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1204
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1205 default: break; // avoid gcc warning
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1206 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1207 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1208 clear_tv(typ1);
21425 a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 21120 diff changeset	1209 if (in_vim9script())
a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 21120 diff changeset	1210 {
a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 21120 diff changeset	1211 typ1->v_type = VAR_BOOL;
a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 21120 diff changeset	1212 typ1->vval.v_number = n1 ? VVAL_TRUE : VVAL_FALSE;
a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 21120 diff changeset	1213 }
a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 21120 diff changeset	1214 else
a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 21120 diff changeset	1215 {
a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 21120 diff changeset	1216 typ1->v_type = VAR_NUMBER;
a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 21120 diff changeset	1217 typ1->vval.v_number = n1;
a6c316ef161a patch 8.2.1263: Vim9: comperators use 'ignorecase' in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 21120 diff changeset	1218 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1219
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1220 return OK;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1221 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1222
23788 d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1223 /*
d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1224 * 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	1225 * 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	1226 * 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	1227 */
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1228 char_u *
23788 d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1229 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	1230 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1231 char_u *tofree;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1232 char_u numbuf[NUMBUFLEN];
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1233 char_u *ret = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1234
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1235 if (arg == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1236 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	1237 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	1238 {
d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1239 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	1240 : 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	1241 }
d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1242 else
d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1243 {
d12ef361d9de patch 8.2.2435: setline() gives an error for some types Bram Moolenaar <Bram@vim.org> parents: 23786 diff changeset	1244 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	1245 // 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	1246 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	1247 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	1248 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1249 return ret;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1250 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1251
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1252 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1253 * 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	1254 * 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	1255 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1256 int
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1257 tv_islocked(typval_T *tv)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1258 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1259 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	1260 \|\| (tv->v_type == VAR_LIST
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1261 && tv->vval.v_list != NULL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1262 && (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	1263 \|\| (tv->v_type == VAR_DICT
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1264 && tv->vval.v_dict != NULL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1265 && (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	1266 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1267
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1268 static int
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1269 func_equal(
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1270 typval_T *tv1,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1271 typval_T *tv2,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1272 int ic) // ignore case
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1273 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1274 char_u s1, s2;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1275 dict_T d1, d2;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1276 int a1, a2;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1277 int i;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1278
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1279 // 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	1280 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	1281 : 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	1282 if (s1 != NULL && *s1 == NUL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1283 s1 = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1284 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	1285 : 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	1286 if (s2 != NULL && *s2 == NUL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1287 s2 = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1288 if (s1 == NULL \|\| s2 == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1289 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1290 if (s1 != s2)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1291 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1292 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1293 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	1294 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1295
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1296 // 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	1297 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	1298 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	1299 if (d1 == NULL \|\| d2 == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1300 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1301 if (d1 != d2)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1302 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1303 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1304 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	1305 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1306
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1307 // 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	1308 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	1309 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	1310 if (a1 != a2)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1311 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1312 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	1313 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	1314 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	1315 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1316
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1317 return TRUE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1318 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1319
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1320 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1321 * 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	1322 * 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	1323 * 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	1324 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1325 int
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1326 tv_equal(
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1327 typval_T *tv1,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1328 typval_T *tv2,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1329 int ic, // ignore case
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1330 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	1331 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1332 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	1333 char_u s1, s2;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1334 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	1335 int r;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1336 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	1337
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1338 // 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	1339 // 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	1340 // 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	1341 // 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	1342 // 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	1343 // recursiveness quickly.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1344 if (!recursive)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1345 tv_equal_recurse_limit = 1000;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1346 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	1347 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1348 --tv_equal_recurse_limit;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1349 return TRUE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1350 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1351
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1352 // 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	1353 // arguments.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1354 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	1355 \|\| (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	1356 && (tv2->v_type == VAR_FUNC
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1357 \|\| (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	1358 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1359 ++recursive_cnt;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1360 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	1361 --recursive_cnt;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1362 return r;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1363 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1364
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	1365 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	1366 && ((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	1367 \|\| (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	1368 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1369
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1370 switch (tv1->v_type)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1371 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1372 case VAR_LIST:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1373 ++recursive_cnt;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1374 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	1375 --recursive_cnt;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1376 return r;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1377
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1378 case VAR_DICT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1379 ++recursive_cnt;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1380 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	1381 --recursive_cnt;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1382 return r;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1383
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1384 case VAR_BLOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1385 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	1386
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1387 case VAR_NUMBER:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1388 case VAR_BOOL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1389 case VAR_SPECIAL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1390 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	1391
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1392 case VAR_STRING:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1393 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	1394 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	1395 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	1396
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1397 case VAR_FLOAT:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1398 #ifdef FEAT_FLOAT
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1399 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	1400 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1401 case VAR_JOB:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1402 #ifdef FEAT_JOB_CHANNEL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1403 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	1404 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1405 case VAR_CHANNEL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1406 #ifdef FEAT_JOB_CHANNEL
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1407 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	1408 #endif
24606 a4fda40e0bb9 patch 8.2.2842: Vim9: skip argument to searchpair() is not compiled Bram Moolenaar <Bram@vim.org> parents: 24424 diff changeset	1409 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	1410 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	1411
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1412 case VAR_PARTIAL:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1413 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	1414
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1415 case VAR_FUNC:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1416 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	1417
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1418 case VAR_UNKNOWN:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1419 case VAR_ANY:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1420 case VAR_VOID:
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1421 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1422 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1423
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1424 // 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	1425 // 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	1426 return FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1427 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1428
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1429 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1430 * Get an option value.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1431 * "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	1432 * "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	1433 * Return OK or FAIL.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1434 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1435 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	1436 eval_option(
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1437 char_u **arg,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1438 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	1439 int evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1440 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1441 char_u *option_end;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1442 long numval;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1443 char_u *stringval;
23422 bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1444 getoption_T opt_type;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1445 int c;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1446 int working = (**arg == '+'); // has("+option")
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1447 int ret = OK;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1448 int opt_flags;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1449
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1450 // Isolate the option name and find its value.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1451 option_end = find_option_end(arg, &opt_flags);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1452 if (option_end == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1453 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1454 if (rettv != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1455 semsg(_("E112: Option name missing: %s"), *arg);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1456 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1457 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1458
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1459 if (!evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1460 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1461 *arg = option_end;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1462 return OK;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1463 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1464
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1465 c = *option_end;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1466 *option_end = NUL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1467 opt_type = get_option_value(*arg, &numval,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1468 rettv == NULL ? NULL : &stringval, opt_flags);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1469
23422 bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1470 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	1471 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1472 if (rettv != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1473 semsg(_(e_unknown_option), *arg);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1474 ret = FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1475 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1476 else if (rettv != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1477 {
23519 cb66613dd9d5 patch 8.2.2302: Vim9: using an option value may use uninitialized memory Bram Moolenaar <Bram@vim.org> parents: 23422 diff changeset	1478 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	1479 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	1480 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1481 rettv->v_type = VAR_STRING;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1482 rettv->vval.v_string = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1483 }
23422 bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1484 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	1485 {
23422 bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1486 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	1487 ? VAR_BOOL : VAR_NUMBER;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1488 rettv->vval.v_number = 0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1489 }
23422 bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1490 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	1491 {
23422 bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1492 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	1493 {
bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1494 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	1495 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	1496 }
bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1497 else
bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1498 {
bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1499 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	1500 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	1501 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1502 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1503 else // string option
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1504 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1505 rettv->v_type = VAR_STRING;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1506 rettv->vval.v_string = stringval;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1507 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1508 }
23422 bb0c53f4ef8b patch 8.2.2254: Vim9: bool option type is number Bram Moolenaar <Bram@vim.org> parents: 23276 diff changeset	1509 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	1510 \|\| 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	1511 \|\| 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	1512 ret = FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1513
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1514 *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	1515 *arg = option_end;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1516
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1517 return ret;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1518 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1519
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1520 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1521 * 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	1522 * Return OK or FAIL.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1523 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1524 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	1525 eval_number(
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1526 char_u **arg,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1527 typval_T *rettv,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1528 int evaluate,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1529 int want_string UNUSED)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1530 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1531 int len;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1532 #ifdef FEAT_FLOAT
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1533 char_u *p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1534 int get_float = FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1535
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1536 // 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	1537 // "[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	1538 // 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	1539 // 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	1540 // omitted.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1541 // 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	1542 // ":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	1543 if (**arg == '.')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1544 p = *arg;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1545 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1546 p = skipdigits(*arg + 1);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1547 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	1548 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1549 get_float = TRUE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1550 p = skipdigits(p + 2);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1551 if (p == 'e' \|\| p == 'E')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1552 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1553 ++p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1554 if (p == '-' \|\| p == '+')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1555 ++p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1556 if (!vim_isdigit(*p))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1557 get_float = FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1558 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1559 p = skipdigits(p + 1);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1560 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1561 if (ASCII_ISALPHA(p) \|\| p == '.')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1562 get_float = FALSE;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1563 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1564 if (get_float)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1565 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1566 float_T f;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1567
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1568 arg += string2float(arg, &f);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1569 if (evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1570 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1571 rettv->v_type = VAR_FLOAT;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1572 rettv->vval.v_float = f;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1573 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1574 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1575 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1576 #endif
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1577 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	1578 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1579 char_u *bp;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1580 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	1581
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1582 // Blob constant: 0z0123456789abcdef
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1583 if (evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1584 blob = blob_alloc();
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1585 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	1586 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1587 if (!vim_isxdigit(bp[1]))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1588 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1589 if (blob != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1590 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1591 emsg(_("E973: Blob literal should have an even number of hex characters"));
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1592 ga_clear(&blob->bv_ga);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1593 VIM_CLEAR(blob);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1594 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1595 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1596 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1597 if (blob != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1598 ga_append(&blob->bv_ga,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1599 (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	1600 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	1601 ++bp;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1602 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1603 if (blob != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1604 rettv_blob_set(rettv, blob);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1605 *arg = bp;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1606 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1607 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1608 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1609 varnumber_T n;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1610
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1611 // decimal, hex or octal number
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1612 vim_str2nr(*arg, NULL, &len, current_sctx.sc_version >= 4
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1613 ? STR2NR_NO_OCT + STR2NR_QUOTE
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1614 : 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	1615 if (len == 0)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1616 {
25064 8f2262c72178 patch 8.2.3069: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 24940 diff changeset	1617 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	1618 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1619 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1620 *arg += len;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1621 if (evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1622 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1623 rettv->v_type = VAR_NUMBER;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1624 rettv->vval.v_number = n;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1625 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1626 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1627 return OK;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1628 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1629
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1630 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1631 * 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	1632 * Return OK or FAIL.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1633 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1634 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	1635 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	1636 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1637 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	1638 char_u *end;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1639 int extra = 0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1640 int len;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1641
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1642 // 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	1643 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	1644 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1645 if (*p == '\\' && p[1] != NUL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1646 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1647 ++p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1648 // 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	1649 // 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	1650 // reserve space for 18 extra.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1651 // 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	1652 if (*p == '<')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1653 extra += 18;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1654 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1655 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1656
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1657 if (*p != '"')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1658 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1659 semsg(_("E114: Missing quote: %s"), *arg);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1660 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1661 }
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 // 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	1664 if (!evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1665 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1666 *arg = p + 1;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1667 return OK;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1668 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1669
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1670 // 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	1671 // characters.
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	1672 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	1673 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	1674 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	1675 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	1676 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	1677 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	1678
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1679 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	1680 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1681 if (*p == '\\')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1682 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1683 switch (*++p)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1684 {
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	1685 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	1686 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	1687 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	1688 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	1689 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	1690 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	1691
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1692 case 'X': // hex: "\x1", "\x12"
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1693 case 'x':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1694 case 'u': // Unicode: "\u0023"
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1695 case 'U':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1696 if (vim_isxdigit(p[1]))
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1697 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1698 int n, nr;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1699 int c = toupper(*p);
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 if (c == 'X')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1702 n = 2;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1703 else if (*p == 'u')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1704 n = 4;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1705 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1706 n = 8;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1707 nr = 0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1708 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	1709 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1710 ++p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1711 nr = (nr << 4) + hex2nr(*p);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1712 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1713 ++p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1714 // 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	1715 // 'encoding'.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1716 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	1717 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	1718 else
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	1719 *end++ = nr;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1720 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1721 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1722
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1723 // octal: "\1", "\12", "\123"
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1724 case '0':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1725 case '1':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1726 case '2':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1727 case '3':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1728 case '4':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1729 case '5':
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1730 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	1731 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	1732 if (p >= '0' && p <= '7')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1733 {
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	1734 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	1735 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	1736 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	1737 }
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	1738 ++end;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1739 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1740
20627 8bce783af0cb patch 8.2.0867: using {xxx} for encoding a modifier is not nice Bram Moolenaar <Bram@vim.org> parents: 20603 diff changeset	1741 // 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	1742 case '<':
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1743 {
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	1744 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	1745
20627 8bce783af0cb patch 8.2.0867: using {xxx} for encoding a modifier is not nice Bram Moolenaar <Bram@vim.org> parents: 20603 diff changeset	1746 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	1747 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	1748 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	1749 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	1750 {
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	1751 end += extra;
0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	1752 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	1753 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	1754 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	1755 }
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1756 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1757 // FALLTHROUGH
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1758
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	1759 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	1760 break;
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 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1763 else
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	1764 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	1765 }
20925 0aeac2b45846 patch 8.2.1014: using "name" for a string result is confusing Bram Moolenaar <Bram@vim.org> parents: 20627 diff changeset	1766 *end = NUL;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1767 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	1768 ++p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1769 *arg = p;
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 return OK;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1772 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1773
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1774 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1775 * 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	1776 * Return OK or FAIL.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1777 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1778 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	1779 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	1780 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1781 char_u *p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1782 char_u *str;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1783 int reduce = 0;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1784
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1785 // 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	1786 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	1787 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1788 if (*p == '\'')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1789 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1790 if (p[1] != '\'')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1791 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1792 ++reduce;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1793 ++p;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1794 }
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
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1797 if (*p != '\'')
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 semsg(_("E115: Missing quote: %s"), *arg);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1800 return FAIL;
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
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1803 // 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	1804 if (!evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1805 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1806 *arg = p + 1;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1807 return OK;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1808 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1809
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1810 // 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	1811 str = alloc((p - *arg) - reduce);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1812 if (str == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1813 return FAIL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1814 rettv->v_type = VAR_STRING;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1815 rettv->vval.v_string = str;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1816
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1817 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	1818 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1819 if (*p == '\'')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1820 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1821 if (p[1] != '\'')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1822 break;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1823 ++p;
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 MB_COPY_CHAR(p, str);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1826 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1827 *str = NUL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1828 *arg = p + 1;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1829
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1830 return OK;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1831 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1832
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 * 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	1835 * 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	1836 * "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	1837 * 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	1838 * May return NULL.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1839 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1840 char_u *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1841 tv2string(
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1842 typval_T *tv,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1843 char_u **tofree,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1844 char_u *numbuf,
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1845 int copyID)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1846 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1847 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	1848 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1849
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1850 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1851 * 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	1852 * "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	1853 * 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	1854 * 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	1855 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1856 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	1857 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	1858 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1859 char_u *string = NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1860 int len;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1861 int cc;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1862 char_u *name;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1863 int mustfree = FALSE;
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 ++*arg;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1866 name = *arg;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1867 len = get_env_len(arg);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1868 if (evaluate)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1869 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1870 if (len == 0)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1871 return FAIL; // invalid empty name
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1872
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1873 cc = name[len];
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1874 name[len] = NUL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1875 // 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	1876 string = vim_getenv(name, &mustfree);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1877 if (string != NULL && *string != NUL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1878 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1879 if (!mustfree)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1880 string = vim_strsave(string);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1881 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1882 else
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1883 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1884 if (mustfree)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1885 vim_free(string);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1886
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1887 // 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	1888 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	1889 if (string != NULL && *string == '$')
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1890 VIM_CLEAR(string);
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 name[len] = cc;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1893
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1894 rettv->v_type = VAR_STRING;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1895 rettv->vval.v_string = string;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1896 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1897
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1898 return OK;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1899 }
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 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1902 * 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	1903 * 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	1904 * Returns -1 on error.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1905 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1906 linenr_T
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1907 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	1908 {
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	1909 linenr_T lnum = -1;
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1910
21831 d8422de73113 patch 8.2.1465: Vim9: subscript not handled properly Bram Moolenaar <Bram@vim.org> parents: 21425 diff changeset	1911 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	1912 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	1913 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	1914 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1915 int fnum;
23563 87671ccc6c6b patch 8.2.2324: not easy to get mark en cursor posotion by character count Bram Moolenaar <Bram@vim.org> parents: 23555 diff changeset	1916 pos_T *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	1917
24260 ad065f64eb20 patch 8.2.2671: error for line number in legacy script Bram Moolenaar <Bram@vim.org> parents: 24258 diff changeset	1918 // no valid number, try using arg like line()
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1919 if (fp != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1920 lnum = fp->lnum;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1921 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1922 return lnum;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1923 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1924
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1925 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1926 * 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	1927 * 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	1928 * Returns 0 on error.
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1929 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1930 linenr_T
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1931 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	1932 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1933 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	1934 && 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	1935 && argvars[0].vval.v_string[0] == '$'
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1936 && buf != NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1937 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	1938 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	1939 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1940
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1941 /*
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1942 * 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	1943 */
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1944 buf_T *
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1945 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	1946 {
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1947 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	1948 buf_T *buf;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1949
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1950 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	1951 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	1952 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	1953 return NULL;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1954 if (name == NULL \|\| *name == NUL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1955 return curbuf;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1956 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	1957 return lastbuf;
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 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	1960
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1961 // 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	1962 if (buf == NULL)
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1963 buf = find_buffer(tv);
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1964
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1965 return buf;
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1966 }
f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1967
22025 71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	1968 /*
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	1969 * 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	1970 */
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	1971 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	1972 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	1973 {
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	1974 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	1975
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	1976 ++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	1977 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	1978 --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	1979 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	1980 && 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	1981 && 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	1982 // 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	1983 (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	1984 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	1985 }
71f886a48ef5 patch 8.2.1562: Vim9: error when using "%" where a buffer is expected Bram Moolenaar <Bram@vim.org> parents: 21913 diff changeset	1986
20587 f502455965c0 patch 8.2.0847: typval related code is spread out Bram Moolenaar <Bram@vim.org> parents: diff changeset	1987 #endif // FEAT_EVAL

Mercurial > vim

annotate src/typval.c @ 25309:79605d04de57