vim: src/typval.c annotate

annotate src/typval.c @ 33924:ccdb948c7273 v9.0.2160

patch 9.0.2160: instanceof() should use varargs as second arg Commit: https://github.com/vim/vim/commit/2025af165ec68d831f0f0f668a3ceac3f39142ef Author: Ernie Rael <errael@raelity.com> Date: Tue Dec 12 16:58:00 2023 +0100 patch 9.0.2160: instanceof() should use varargs as second arg Problem: instanceof() should use varargs as second arg Solution: Modify `instanceof()` to use varargs instead of list Modify `instanceof()` to use varargs instead of list Valid `instanceof()` arguments are `type`s. A `type` is not a value; it cannot be added to a list. This change is non-compatible with the current usage of instanceof; but instanceof is relatively new and it's a trivial change. fixes: #13421 closes: #13644 Signed-off-by: Ernie Rael <errael@raelity.com> Signed-off-by: Christian Brabandt <cb@256bit.org>

author	Christian Brabandt <cb@256bit.org>
date	Tue, 12 Dec 2023 17:15:03 +0100
parents	f126ffc85f7c
children	ab6a70fad5b5

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

Mercurial > vim

annotate src/typval.c @ 33924:ccdb948c7273 v9.0.2160