vim: src/list.c annotate

annotate src/list.c @ 26638:6fd15d82e898 v8.2.3848

patch 8.2.3848: cannot use reduce() for a string Commit: https://github.com/vim/vim/commit/0ccb5842f5fb103763d106c7aa364d758343c35a Author: rbtnn <naru123456789@gmail.com> Date: Sat Dec 18 18:33:46 2021 +0000 patch 8.2.3848: cannot use reduce() for a string Problem: Cannot use reduce() for a string. Solution: Make reduce() work with a string. (Naruhiko Nishino, closes https://github.com/vim/vim/issues/9366)

author	Bram Moolenaar <Bram@vim.org>
date	Sat, 18 Dec 2021 19:45:03 +0100
parents	0d2a709e2ff0
children	7c055fdd6200

rev	line source
10042 4aead6a9b7a9 commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47 Christian Brabandt <cb@256bit.org> parents: 9626 diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	2 *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	4 *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	6 * Do ":help credits" in Vim to see a list of people who contributed.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	7 * See README.txt for an overview of the Vim source code.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	8 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	9
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	10 /*
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	11 * list.c: List support and container (List, Dict, Blob) functions.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	12 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	13
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	14 #include "vim.h"
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	15
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	16 #if defined(FEAT_EVAL) \|\| defined(PROTO)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	17
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	18 static char *e_listblobarg = N_("E899: Argument of %s must be a List or Blob");
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	19
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	20 // List heads for garbage collection.
f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	21 static list_T *first_list = NULL; // list of all lists
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	22
19934 3ff714d765ba patch 8.2.0523: loops are repeated Bram Moolenaar <Bram@vim.org> parents: 19916 diff changeset	23 #define FOR_ALL_WATCHERS(l, lw) \
3ff714d765ba patch 8.2.0523: loops are repeated Bram Moolenaar <Bram@vim.org> parents: 19916 diff changeset	24 for ((lw) = (l)->lv_watch; (lw) != NULL; (lw) = (lw)->lw_next)
3ff714d765ba patch 8.2.0523: loops are repeated Bram Moolenaar <Bram@vim.org> parents: 19916 diff changeset	25
19916 dcec86d796bc patch 8.2.0514: several global functions are used in only one file Bram Moolenaar <Bram@vim.org> parents: 19888 diff changeset	26 static void list_free_item(list_T l, listitem_T item);
dcec86d796bc patch 8.2.0514: several global functions are used in only one file Bram Moolenaar <Bram@vim.org> parents: 19888 diff changeset	27
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	28 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	29 * Add a watcher to a list.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	30 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	31 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	32 list_add_watch(list_T l, listwatch_T lw)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	33 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	34 lw->lw_next = l->lv_watch;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	35 l->lv_watch = lw;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	36 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	37
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	38 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	39 * Remove a watcher from a list.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	40 * No warning when it isn't found...
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	41 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	42 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	43 list_rem_watch(list_T l, listwatch_T lwrem)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	44 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	45 listwatch_T lw, *lwp;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	46
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	47 lwp = &l->lv_watch;
19934 3ff714d765ba patch 8.2.0523: loops are repeated Bram Moolenaar <Bram@vim.org> parents: 19916 diff changeset	48 FOR_ALL_WATCHERS(l, lw)
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	49 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	50 if (lw == lwrem)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	51 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	52 *lwp = lw->lw_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	53 break;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	54 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	55 lwp = &lw->lw_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	56 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	57 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	58
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	59 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	60 * Just before removing an item from a list: advance watchers to the next
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	61 * item.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	62 */
17789 0f7ae8010787 patch 8.1.1891: functions used in one file are global Bram Moolenaar <Bram@vim.org> parents: 17606 diff changeset	63 static void
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	64 list_fix_watch(list_T l, listitem_T item)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	65 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	66 listwatch_T *lw;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	67
19934 3ff714d765ba patch 8.2.0523: loops are repeated Bram Moolenaar <Bram@vim.org> parents: 19916 diff changeset	68 FOR_ALL_WATCHERS(l, lw)
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	69 if (lw->lw_item == item)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	70 lw->lw_item = item->li_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	71 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	72
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	73 static void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	74 list_init(list_T *l)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	75 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	76 // Prepend the list to the list of lists for garbage collection.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	77 if (first_list != NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	78 first_list->lv_used_prev = l;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	79 l->lv_used_prev = NULL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	80 l->lv_used_next = first_list;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	81 first_list = l;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	82 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	83
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	84 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	85 * Allocate an empty header for a list.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	86 * Caller should take care of the reference count.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	87 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	88 list_T *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	89 list_alloc(void)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	90 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	91 list_T *l;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	92
16825 ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u " causes a lot of type casts Bram Moolenaar <Bram@vim.org>* parents: 16782 diff changeset	93 l = ALLOC_CLEAR_ONE(list_T);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	94 if (l != NULL)
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	95 list_init(l);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	96 return l;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	97 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	98
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	99 /*
15016 c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14391 diff changeset	100 * list_alloc() with an ID for alloc_fail().
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14391 diff changeset	101 */
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14391 diff changeset	102 list_T *
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14391 diff changeset	103 list_alloc_id(alloc_id_T id UNUSED)
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14391 diff changeset	104 {
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14391 diff changeset	105 #ifdef FEAT_EVAL
16782 fc58fee685e2 patch 8.1.1393: unnecessary type casts Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	106 if (alloc_fail_id == id && alloc_does_fail(sizeof(list_T)))
15016 c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14391 diff changeset	107 return NULL;
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14391 diff changeset	108 #endif
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14391 diff changeset	109 return (list_alloc());
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14391 diff changeset	110 }
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14391 diff changeset	111
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack Bram Moolenaar <Bram@vim.org> parents: 14391 diff changeset	112 /*
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	113 * Allocate space for a list, plus "count" items.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	114 * Next list_set_item() must be called for each item.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	115 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	116 list_T *
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	117 list_alloc_with_items(int count)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	118 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	119 list_T *l;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	120
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	121 l = (list_T )alloc_clear(sizeof(list_T) + count sizeof(listitem_T));
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	122 if (l != NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	123 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	124 list_init(l);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	125
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	126 if (count > 0)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	127 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	128 listitem_T li = (listitem_T )(l + 1);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	129 int i;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	130
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	131 l->lv_len = count;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	132 l->lv_with_items = count;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	133 l->lv_first = li;
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	134 l->lv_u.mat.lv_last = li + count - 1;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	135 for (i = 0; i < count; ++i)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	136 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	137 if (i == 0)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	138 li->li_prev = NULL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	139 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	140 li->li_prev = li - 1;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	141 if (i == count - 1)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	142 li->li_next = NULL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	143 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	144 li->li_next = li + 1;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	145 ++li;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	146 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	147 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	148 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	149 return l;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	150 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	151
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	152 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	153 * Set item "idx" for a list previously allocated with list_alloc_with_items().
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	154 * The contents of "tv" is moved into the list item.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	155 * Each item must be set exactly once.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	156 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	157 void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	158 list_set_item(list_T l, int idx, typval_T tv)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	159 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	160 listitem_T li = (listitem_T )(l + 1) + idx;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	161
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	162 li->li_tv = *tv;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	163 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	164
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	165 /*
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	166 * Allocate an empty list for a return value, with reference count set.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	167 * Returns OK or FAIL.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	168 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	169 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	170 rettv_list_alloc(typval_T *rettv)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	171 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	172 list_T *l = list_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	173
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	174 if (l == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	175 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	176
11418 162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value Christian Brabandt <cb@256bit.org> parents: 10549 diff changeset	177 rettv->v_lock = 0;
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value Christian Brabandt <cb@256bit.org> parents: 10549 diff changeset	178 rettv_list_set(rettv, l);
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value Christian Brabandt <cb@256bit.org> parents: 10549 diff changeset	179 return OK;
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value Christian Brabandt <cb@256bit.org> parents: 10549 diff changeset	180 }
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value Christian Brabandt <cb@256bit.org> parents: 10549 diff changeset	181
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value Christian Brabandt <cb@256bit.org> parents: 10549 diff changeset	182 /*
15209 3a99b2e6d136 patch 8.1.0614: placing signs can be complicated Bram Moolenaar <Bram@vim.org> parents: 15016 diff changeset	183 * Same as rettv_list_alloc() but uses an allocation id for testing.
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated Bram Moolenaar <Bram@vim.org> parents: 15016 diff changeset	184 */
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated Bram Moolenaar <Bram@vim.org> parents: 15016 diff changeset	185 int
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated Bram Moolenaar <Bram@vim.org> parents: 15016 diff changeset	186 rettv_list_alloc_id(typval_T *rettv, alloc_id_T id UNUSED)
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated Bram Moolenaar <Bram@vim.org> parents: 15016 diff changeset	187 {
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated Bram Moolenaar <Bram@vim.org> parents: 15016 diff changeset	188 #ifdef FEAT_EVAL
16782 fc58fee685e2 patch 8.1.1393: unnecessary type casts Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	189 if (alloc_fail_id == id && alloc_does_fail(sizeof(list_T)))
15209 3a99b2e6d136 patch 8.1.0614: placing signs can be complicated Bram Moolenaar <Bram@vim.org> parents: 15016 diff changeset	190 return FAIL;
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated Bram Moolenaar <Bram@vim.org> parents: 15016 diff changeset	191 #endif
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated Bram Moolenaar <Bram@vim.org> parents: 15016 diff changeset	192 return rettv_list_alloc(rettv);
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated Bram Moolenaar <Bram@vim.org> parents: 15016 diff changeset	193 }
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated Bram Moolenaar <Bram@vim.org> parents: 15016 diff changeset	194
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated Bram Moolenaar <Bram@vim.org> parents: 15016 diff changeset	195
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated Bram Moolenaar <Bram@vim.org> parents: 15016 diff changeset	196 /*
17262 041156ce1d22 patch 8.1.1630: various small problems Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	197 * Set a list as the return value. Increments the reference count.
11418 162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value Christian Brabandt <cb@256bit.org> parents: 10549 diff changeset	198 */
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value Christian Brabandt <cb@256bit.org> parents: 10549 diff changeset	199 void
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value Christian Brabandt <cb@256bit.org> parents: 10549 diff changeset	200 rettv_list_set(typval_T rettv, list_T l)
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value Christian Brabandt <cb@256bit.org> parents: 10549 diff changeset	201 {
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	202 rettv->v_type = VAR_LIST;
11418 162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value Christian Brabandt <cb@256bit.org> parents: 10549 diff changeset	203 rettv->vval.v_list = l;
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value Christian Brabandt <cb@256bit.org> parents: 10549 diff changeset	204 if (l != NULL)
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value Christian Brabandt <cb@256bit.org> parents: 10549 diff changeset	205 ++l->lv_refcount;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	206 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	207
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	208 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	209 * Unreference a list: decrement the reference count and free it when it
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	210 * becomes zero.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	211 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	212 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	213 list_unref(list_T *l)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	214 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	215 if (l != NULL && --l->lv_refcount <= 0)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	216 list_free(l);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	217 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	218
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	219 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	220 * Free a list, including all non-container items it points to.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	221 * Ignores the reference count.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	222 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	223 static void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	224 list_free_contents(list_T *l)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	225 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	226 listitem_T *item;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	227
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	228 if (l->lv_first != &range_list_item)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	229 for (item = l->lv_first; item != NULL; item = l->lv_first)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	230 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	231 // Remove the item before deleting it.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	232 l->lv_first = item->li_next;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	233 clear_tv(&item->li_tv);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	234 list_free_item(l, item);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	235 }
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	236 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	237
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	238 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	239 * Go through the list of lists and free items without the copyID.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	240 * But don't free a list that has a watcher (used in a for loop), these
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	241 * are not referenced anywhere.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	242 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	243 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	244 list_free_nonref(int copyID)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	245 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	246 list_T *ll;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	247 int did_free = FALSE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	248
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	249 for (ll = first_list; ll != NULL; ll = ll->lv_used_next)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	250 if ((ll->lv_copyID & COPYID_MASK) != (copyID & COPYID_MASK)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	251 && ll->lv_watch == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	252 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	253 // Free the List and ordinary items it contains, but don't recurse
f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	254 // into Lists and Dictionaries, they will be in the list of dicts
f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	255 // or list of lists.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	256 list_free_contents(ll);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	257 did_free = TRUE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	258 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	259 return did_free;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	260 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	261
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	262 static void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	263 list_free_list(list_T *l)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	264 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	265 // Remove the list from the list of lists for garbage collection.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	266 if (l->lv_used_prev == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	267 first_list = l->lv_used_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	268 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	269 l->lv_used_prev->lv_used_next = l->lv_used_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	270 if (l->lv_used_next != NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	271 l->lv_used_next->lv_used_prev = l->lv_used_prev;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	272
23458 d2b1269c2c68 patch 8.2.2272: Vim9: extend() can violate the type of a variable Bram Moolenaar <Bram@vim.org> parents: 23229 diff changeset	273 free_type(l->lv_type);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	274 vim_free(l);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	275 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	276
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	277 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	278 list_free_items(int copyID)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	279 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	280 list_T ll, ll_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	281
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	282 for (ll = first_list; ll != NULL; ll = ll_next)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	283 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	284 ll_next = ll->lv_used_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	285 if ((ll->lv_copyID & COPYID_MASK) != (copyID & COPYID_MASK)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	286 && ll->lv_watch == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	287 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	288 // Free the List and ordinary items it contains, but don't recurse
f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	289 // into Lists and Dictionaries, they will be in the list of dicts
f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	290 // or list of lists.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	291 list_free_list(ll);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	292 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	293 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	294 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	295
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	296 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	297 list_free(list_T *l)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	298 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	299 if (!in_free_unref_items)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	300 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	301 list_free_contents(l);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	302 list_free_list(l);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	303 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	304 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	305
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	306 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	307 * Allocate a list item.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	308 * It is not initialized, don't forget to set v_lock.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	309 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	310 listitem_T *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	311 listitem_alloc(void)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	312 {
16825 ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u " causes a lot of type casts Bram Moolenaar <Bram@vim.org>* parents: 16782 diff changeset	313 return ALLOC_ONE(listitem_T);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	314 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	315
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	316 /*
26638 6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	317 * Make a typval_T of the first character of "input" and store it in "output".
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	318 * Return OK or FAIL.
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	319 */
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	320 static int
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	321 tv_get_first_char(char_u input, typval_T output)
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	322 {
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	323 char_u buf[MB_MAXBYTES + 1];
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	324 int len;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	325
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	326 if (input == NULL \|\| output == NULL)
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	327 return FAIL;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	328
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	329 len = has_mbyte ? mb_ptr2len(input) : 1;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	330 STRNCPY(buf, input, len);
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	331 buf[len] = NUL;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	332 output->v_type = VAR_STRING;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	333 output->vval.v_string = vim_strsave(buf);
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	334
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	335 return output->vval.v_string == NULL ? FAIL : OK;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	336 }
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	337
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	338 /*
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	339 * Free a list item, unless it was allocated together with the list itself.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	340 * Does not clear the value. Does not notify watchers.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	341 */
19916 dcec86d796bc patch 8.2.0514: several global functions are used in only one file Bram Moolenaar <Bram@vim.org> parents: 19888 diff changeset	342 static void
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	343 list_free_item(list_T l, listitem_T item)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	344 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	345 if (l->lv_with_items == 0 \|\| item < (listitem_T *)l
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	346 \|\| item >= (listitem_T *)(l + 1) + l->lv_with_items)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	347 vim_free(item);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	348 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	349
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	350 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	351 * Free a list item, unless it was allocated together with the list itself.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	352 * Also clears the value. Does not notify watchers.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	353 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	354 void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	355 listitem_free(list_T l, listitem_T item)
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	356 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	357 clear_tv(&item->li_tv);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	358 list_free_item(l, item);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	359 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	360
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	361 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	362 * Remove a list item from a List and free it. Also clears the value.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	363 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	364 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	365 listitem_remove(list_T l, listitem_T item)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	366 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	367 vimlist_remove(l, item, item);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	368 listitem_free(l, item);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	369 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	370
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	371 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	372 * Get the number of items in a list.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	373 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	374 long
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	375 list_len(list_T *l)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	376 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	377 if (l == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	378 return 0L;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	379 return l->lv_len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	380 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	381
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	382 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	383 * Return TRUE when two lists have exactly the same values.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	384 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	385 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	386 list_equal(
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	387 list_T *l1,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	388 list_T *l2,
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	389 int ic, // ignore case for strings
f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	390 int recursive) // TRUE when used recursively
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	391 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	392 listitem_T item1, item2;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	393
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	394 if (l1 == l2)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	395 return TRUE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	396 if (list_len(l1) != list_len(l2))
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	397 return FALSE;
19966 c0eb073378e7 patch 8.2.0539: comparing two NULL list fails Bram Moolenaar <Bram@vim.org> parents: 19934 diff changeset	398 if (list_len(l1) == 0)
c0eb073378e7 patch 8.2.0539: comparing two NULL list fails Bram Moolenaar <Bram@vim.org> parents: 19934 diff changeset	399 // empty and NULL list are considered equal
c0eb073378e7 patch 8.2.0539: comparing two NULL list fails Bram Moolenaar <Bram@vim.org> parents: 19934 diff changeset	400 return TRUE;
c0eb073378e7 patch 8.2.0539: comparing two NULL list fails Bram Moolenaar <Bram@vim.org> parents: 19934 diff changeset	401 if (l1 == NULL \|\| l2 == NULL)
c0eb073378e7 patch 8.2.0539: comparing two NULL list fails Bram Moolenaar <Bram@vim.org> parents: 19934 diff changeset	402 return FALSE;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	403
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	404 CHECK_LIST_MATERIALIZE(l1);
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	405 CHECK_LIST_MATERIALIZE(l2);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	406
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	407 for (item1 = l1->lv_first, item2 = l2->lv_first;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	408 item1 != NULL && item2 != NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	409 item1 = item1->li_next, item2 = item2->li_next)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	410 if (!tv_equal(&item1->li_tv, &item2->li_tv, ic, recursive))
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	411 return FALSE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	412 return item1 == NULL && item2 == NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	413 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	414
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	415 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	416 * Locate item with index "n" in list "l" and return it.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	417 * A negative index is counted from the end; -1 is the last item.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	418 * Returns NULL when "n" is out of range.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	419 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	420 listitem_T *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	421 list_find(list_T *l, long n)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	422 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	423 listitem_T *item;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	424 long idx;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	425
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	426 if (l == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	427 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	428
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	429 // Negative index is relative to the end.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	430 if (n < 0)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	431 n = l->lv_len + n;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	432
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	433 // Check for index out of range.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	434 if (n < 0 \|\| n >= l->lv_len)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	435 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	436
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	437 CHECK_LIST_MATERIALIZE(l);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	438
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	439 // When there is a cached index may start search from there.
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	440 if (l->lv_u.mat.lv_idx_item != NULL)
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	441 {
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	442 if (n < l->lv_u.mat.lv_idx / 2)
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	443 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	444 // closest to the start of the list
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	445 item = l->lv_first;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	446 idx = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	447 }
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	448 else if (n > (l->lv_u.mat.lv_idx + l->lv_len) / 2)
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	449 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	450 // closest to the end of the list
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	451 item = l->lv_u.mat.lv_last;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	452 idx = l->lv_len - 1;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	453 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	454 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	455 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	456 // closest to the cached index
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	457 item = l->lv_u.mat.lv_idx_item;
d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	458 idx = l->lv_u.mat.lv_idx;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	459 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	460 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	461 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	462 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	463 if (n < l->lv_len / 2)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	464 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	465 // closest to the start of the list
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	466 item = l->lv_first;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	467 idx = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	468 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	469 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	470 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	471 // closest to the end of the list
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	472 item = l->lv_u.mat.lv_last;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	473 idx = l->lv_len - 1;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	474 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	475 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	476
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	477 while (n > idx)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	478 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	479 // search forward
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	480 item = item->li_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	481 ++idx;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	482 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	483 while (n < idx)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	484 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	485 // search backward
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	486 item = item->li_prev;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	487 --idx;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	488 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	489
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	490 // cache the used index
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	491 l->lv_u.mat.lv_idx = idx;
d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	492 l->lv_u.mat.lv_idx_item = item;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	493
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	494 return item;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	495 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	496
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	497 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	498 * Get list item "l[idx]" as a number.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	499 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	500 long
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	501 list_find_nr(
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	502 list_T *l,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	503 long idx,
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	504 int *errorp) // set to TRUE when something wrong
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	505 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	506 listitem_T *li;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	507
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	508 if (l != NULL && l->lv_first == &range_list_item)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	509 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	510 long n = idx;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	511
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	512 // not materialized range() list: compute the value.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	513 // Negative index is relative to the end.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	514 if (n < 0)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	515 n = l->lv_len + n;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	516
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	517 // Check for index out of range.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	518 if (n < 0 \|\| n >= l->lv_len)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	519 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	520 if (errorp != NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	521 *errorp = TRUE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	522 return -1L;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	523 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	524
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	525 return l->lv_u.nonmat.lv_start + n * l->lv_u.nonmat.lv_stride;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	526 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	527
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	528 li = list_find(l, idx);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	529 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	530 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	531 if (errorp != NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	532 *errorp = TRUE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	533 return -1L;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	534 }
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	535 return (long)tv_get_number_chk(&li->li_tv, errorp);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	536 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	537
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	538 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	539 * Get list item "l[idx - 1]" as a string. Returns NULL for failure.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	540 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	541 char_u *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	542 list_find_str(list_T *l, long idx)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	543 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	544 listitem_T *li;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	545
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	546 li = list_find(l, idx - 1);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	547 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	548 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15211 diff changeset	549 semsg(_(e_listidx), idx);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	550 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	551 }
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	552 return tv_get_string(&li->li_tv);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	553 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	554
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	555 /*
23982 9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	556 * Like list_find() but when a negative index is used that is not found use
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	557 * zero and set "idx" to zero. Used for first index of a range.
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	558 */
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	559 listitem_T *
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	560 list_find_index(list_T l, long idx)
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	561 {
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	562 listitem_T li = list_find(l, idx);
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	563
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	564 if (li == NULL)
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	565 {
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	566 if (*idx < 0)
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	567 {
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	568 *idx = 0;
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	569 li = list_find(l, *idx);
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	570 }
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	571 }
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	572 return li;
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	573 }
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	574
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	575 /*
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	576 * Locate "item" list "l" and return its index.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	577 * Returns -1 when "item" is not in the list.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	578 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	579 long
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	580 list_idx_of_item(list_T l, listitem_T item)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	581 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	582 long idx = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	583 listitem_T *li;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	584
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	585 if (l == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	586 return -1;
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	587 CHECK_LIST_MATERIALIZE(l);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	588 idx = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	589 for (li = l->lv_first; li != NULL && li != item; li = li->li_next)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	590 ++idx;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	591 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	592 return -1;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	593 return idx;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	594 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	595
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	596 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	597 * Append item "item" to the end of list "l".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	598 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	599 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	600 list_append(list_T l, listitem_T item)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	601 {
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	602 CHECK_LIST_MATERIALIZE(l);
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	603 if (l->lv_u.mat.lv_last == NULL)
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	604 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	605 // empty list
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	606 l->lv_first = item;
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	607 l->lv_u.mat.lv_last = item;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	608 item->li_prev = NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	609 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	610 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	611 {
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	612 l->lv_u.mat.lv_last->li_next = item;
d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	613 item->li_prev = l->lv_u.mat.lv_last;
d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	614 l->lv_u.mat.lv_last = item;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	615 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	616 ++l->lv_len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	617 item->li_next = NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	618 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	619
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	620 /*
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	621 * Append typval_T "tv" to the end of list "l". "tv" is copied.
25182 14448e7acdb2 patch 8.2.3127: Vim9: no error when adding number to list of string Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	622 * Return FAIL when out of memory or the type is wrong.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	623 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	624 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	625 list_append_tv(list_T l, typval_T tv)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	626 {
25194 6c75baaa54ee patch 8.2.3133: Vim9: memory leak when add() fails Bram Moolenaar <Bram@vim.org> parents: 25182 diff changeset	627 listitem_T *li;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	628
25182 14448e7acdb2 patch 8.2.3127: Vim9: no error when adding number to list of string Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	629 if (l->lv_type != NULL && l->lv_type->tt_member != NULL
25326 cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given Bram Moolenaar <Bram@vim.org> parents: 25306 diff changeset	630 && check_typval_arg_type(l->lv_type->tt_member, tv,
cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given Bram Moolenaar <Bram@vim.org> parents: 25306 diff changeset	631 NULL, 0) == FAIL)
25182 14448e7acdb2 patch 8.2.3127: Vim9: no error when adding number to list of string Bram Moolenaar <Bram@vim.org> parents: 25064 diff changeset	632 return FAIL;
25194 6c75baaa54ee patch 8.2.3133: Vim9: memory leak when add() fails Bram Moolenaar <Bram@vim.org> parents: 25182 diff changeset	633 li = listitem_alloc();
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	634 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	635 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	636 copy_tv(tv, &li->li_tv);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	637 list_append(l, li);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	638 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	639 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	640
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	641 /*
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	642 * As list_append_tv() but move the value instead of copying it.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	643 * Return FAIL when out of memory.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	644 */
25567 0082503ff2ff patch 8.2.3320: some local functions are not static Bram Moolenaar <Bram@vim.org> parents: 25495 diff changeset	645 static int
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	646 list_append_tv_move(list_T l, typval_T tv)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	647 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	648 listitem_T *li = listitem_alloc();
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	649
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	650 if (li == NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	651 return FAIL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	652 li->li_tv = *tv;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	653 list_append(l, li);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	654 return OK;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	655 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	656
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	657 /*
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	658 * Add a dictionary to a list. Used by getqflist().
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	659 * Return FAIL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	660 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	661 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	662 list_append_dict(list_T list, dict_T dict)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	663 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	664 listitem_T *li = listitem_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	665
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	666 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	667 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	668 li->li_tv.v_type = VAR_DICT;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	669 li->li_tv.v_lock = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	670 li->li_tv.vval.v_dict = dict;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	671 list_append(list, li);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	672 ++dict->dv_refcount;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	673 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	674 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	675
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	676 /*
13246 dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	677 * Append list2 to list1.
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	678 * Return FAIL when out of memory.
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	679 */
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	680 int
14391 46f14852a919 patch 8.1.0210: still a few K&R function declarations Christian Brabandt <cb@256bit.org> parents: 13246 diff changeset	681 list_append_list(list_T list1, list_T list2)
13246 dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	682 {
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	683 listitem_T *li = listitem_alloc();
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	684
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	685 if (li == NULL)
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	686 return FAIL;
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	687 li->li_tv.v_type = VAR_LIST;
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	688 li->li_tv.v_lock = 0;
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	689 li->li_tv.vval.v_list = list2;
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	690 list_append(list1, li);
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	691 ++list2->lv_refcount;
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	692 return OK;
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	693 }
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	694
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	695 /*
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	696 * Make a copy of "str" and append it as an item to list "l".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	697 * When "len" >= 0 use "str[len]".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	698 * Returns FAIL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	699 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	700 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	701 list_append_string(list_T l, char_u str, int len)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	702 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	703 listitem_T *li = listitem_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	704
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	705 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	706 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	707 list_append(l, li);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	708 li->li_tv.v_type = VAR_STRING;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	709 li->li_tv.v_lock = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	710 if (str == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	711 li->li_tv.vval.v_string = NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	712 else if ((li->li_tv.vval.v_string = (len >= 0 ? vim_strnsave(str, len)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	713 : vim_strsave(str))) == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	714 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	715 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	716 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	717
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	718 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	719 * Append "n" to list "l".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	720 * Returns FAIL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	721 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	722 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	723 list_append_number(list_T *l, varnumber_T n)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	724 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	725 listitem_T *li;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	726
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	727 li = listitem_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	728 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	729 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	730 li->li_tv.v_type = VAR_NUMBER;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	731 li->li_tv.v_lock = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	732 li->li_tv.vval.v_number = n;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	733 list_append(l, li);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	734 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	735 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	736
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	737 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	738 * Insert typval_T "tv" in list "l" before "item".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	739 * If "item" is NULL append at the end.
23458 d2b1269c2c68 patch 8.2.2272: Vim9: extend() can violate the type of a variable Bram Moolenaar <Bram@vim.org> parents: 23229 diff changeset	740 * Return FAIL when out of memory or the type is wrong.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	741 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	742 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	743 list_insert_tv(list_T l, typval_T tv, listitem_T *item)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	744 {
23458 d2b1269c2c68 patch 8.2.2272: Vim9: extend() can violate the type of a variable Bram Moolenaar <Bram@vim.org> parents: 23229 diff changeset	745 listitem_T *ni;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	746
23458 d2b1269c2c68 patch 8.2.2272: Vim9: extend() can violate the type of a variable Bram Moolenaar <Bram@vim.org> parents: 23229 diff changeset	747 if (l->lv_type != NULL && l->lv_type->tt_member != NULL
25326 cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given Bram Moolenaar <Bram@vim.org> parents: 25306 diff changeset	748 && check_typval_arg_type(l->lv_type->tt_member, tv,
cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given Bram Moolenaar <Bram@vim.org> parents: 25306 diff changeset	749 NULL, 0) == FAIL)
23458 d2b1269c2c68 patch 8.2.2272: Vim9: extend() can violate the type of a variable Bram Moolenaar <Bram@vim.org> parents: 23229 diff changeset	750 return FAIL;
d2b1269c2c68 patch 8.2.2272: Vim9: extend() can violate the type of a variable Bram Moolenaar <Bram@vim.org> parents: 23229 diff changeset	751 ni = listitem_alloc();
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	752 if (ni == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	753 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	754 copy_tv(tv, &ni->li_tv);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	755 list_insert(l, ni, item);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	756 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	757 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	758
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	759 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	760 list_insert(list_T l, listitem_T ni, listitem_T *item)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	761 {
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	762 CHECK_LIST_MATERIALIZE(l);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	763 if (item == NULL)
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	764 // Append new item at end of list.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	765 list_append(l, ni);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	766 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	767 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	768 // Insert new item before existing item.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	769 ni->li_prev = item->li_prev;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	770 ni->li_next = item;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	771 if (item->li_prev == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	772 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	773 l->lv_first = ni;
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	774 ++l->lv_u.mat.lv_idx;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	775 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	776 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	777 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	778 item->li_prev->li_next = ni;
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	779 l->lv_u.mat.lv_idx_item = NULL;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	780 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	781 item->li_prev = ni;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	782 ++l->lv_len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	783 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	784 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	785
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	786 /*
25591 ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	787 * Get the list item in "l" with index "n1". "n1" is adjusted if needed.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	788 * In Vim9, it is at the end of the list, add an item.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	789 * Return NULL if there is no such item.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	790 */
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	791 listitem_T *
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	792 check_range_index_one(list_T l, long n1, int quiet)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	793 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	794 listitem_T *li = list_find_index(l, n1);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	795
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	796 if (li == NULL)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	797 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	798 // Vim9: Allow for adding an item at the end.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	799 if (in_vim9script() && *n1 == l->lv_len && l->lv_lock == 0)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	800 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	801 list_append_number(l, 0);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	802 li = list_find_index(l, n1);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	803 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	804 if (li == NULL)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	805 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	806 if (!quiet)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	807 semsg(_(e_listidx), *n1);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	808 return NULL;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	809 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	810 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	811 return li;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	812 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	813
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	814 /*
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	815 * Check that "n2" can be used as the second index in a range of list "l".
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	816 * If "n1" or "n2" is negative it is changed to the positive index.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	817 * "li1" is the item for item "n1".
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	818 * Return OK or FAIL.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	819 */
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	820 int
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	821 check_range_index_two(
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	822 list_T *l,
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	823 long *n1,
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	824 listitem_T *li1,
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	825 long *n2,
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	826 int quiet)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	827 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	828 if (*n2 < 0)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	829 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	830 listitem_T ni = list_find(l, n2);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	831
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	832 if (ni == NULL)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	833 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	834 if (!quiet)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	835 semsg(_(e_listidx), *n2);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	836 return FAIL;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	837 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	838 *n2 = list_idx_of_item(l, ni);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	839 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	840
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	841 // Check that n2 isn't before n1.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	842 if (*n1 < 0)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	843 *n1 = list_idx_of_item(l, li1);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	844 if (n2 < n1)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	845 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	846 if (!quiet)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	847 semsg(_(e_listidx), *n2);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	848 return FAIL;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	849 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	850 return OK;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	851 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	852
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	853 /*
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	854 * Assign values from list "src" into a range of "dest".
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	855 * "idx1_arg" is the index of the first item in "dest" to be replaced.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	856 * "idx2" is the index of last item to be replaced, but when "empty_idx2" is
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	857 * TRUE then replace all items after "idx1".
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	858 * "op" is the operator, normally "=" but can be "+=" and the like.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	859 * "varname" is used for error messages.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	860 * Returns OK or FAIL.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	861 */
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	862 int
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	863 list_assign_range(
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	864 list_T *dest,
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	865 list_T *src,
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	866 long idx1_arg,
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	867 long idx2,
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	868 int empty_idx2,
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	869 char_u *op,
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	870 char_u *varname)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	871 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	872 listitem_T *src_li;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	873 listitem_T *dest_li;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	874 long idx1 = idx1_arg;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	875 listitem_T *first_li = list_find_index(dest, &idx1);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	876 long idx;
25603 525ef4d1d412 patch 8.2.3338: Vim9: no type check when assigning a list range Bram Moolenaar <Bram@vim.org> parents: 25599 diff changeset	877 type_T *member_type = NULL;
25591 ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	878
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	879 /*
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	880 * Check whether any of the list items is locked before making any changes.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	881 */
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	882 idx = idx1;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	883 dest_li = first_li;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	884 for (src_li = src->lv_first; src_li != NULL && dest_li != NULL; )
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	885 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	886 if (value_check_lock(dest_li->li_tv.v_lock, varname, FALSE))
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	887 return FAIL;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	888 src_li = src_li->li_next;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	889 if (src_li == NULL \|\| (!empty_idx2 && idx2 == idx))
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	890 break;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	891 dest_li = dest_li->li_next;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	892 ++idx;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	893 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	894
25603 525ef4d1d412 patch 8.2.3338: Vim9: no type check when assigning a list range Bram Moolenaar <Bram@vim.org> parents: 25599 diff changeset	895 if (in_vim9script() && dest->lv_type != NULL
525ef4d1d412 patch 8.2.3338: Vim9: no type check when assigning a list range Bram Moolenaar <Bram@vim.org> parents: 25599 diff changeset	896 && dest->lv_type->tt_member != NULL)
525ef4d1d412 patch 8.2.3338: Vim9: no type check when assigning a list range Bram Moolenaar <Bram@vim.org> parents: 25599 diff changeset	897 member_type = dest->lv_type->tt_member;
525ef4d1d412 patch 8.2.3338: Vim9: no type check when assigning a list range Bram Moolenaar <Bram@vim.org> parents: 25599 diff changeset	898
25591 ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	899 /*
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	900 * Assign the List values to the list items.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	901 */
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	902 idx = idx1;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	903 dest_li = first_li;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	904 for (src_li = src->lv_first; src_li != NULL; )
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	905 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	906 if (op != NULL && *op != '=')
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	907 tv_op(&dest_li->li_tv, &src_li->li_tv, op);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	908 else
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	909 {
25603 525ef4d1d412 patch 8.2.3338: Vim9: no type check when assigning a list range Bram Moolenaar <Bram@vim.org> parents: 25599 diff changeset	910 if (member_type != NULL
525ef4d1d412 patch 8.2.3338: Vim9: no type check when assigning a list range Bram Moolenaar <Bram@vim.org> parents: 25599 diff changeset	911 && check_typval_arg_type(member_type, &src_li->li_tv,
525ef4d1d412 patch 8.2.3338: Vim9: no type check when assigning a list range Bram Moolenaar <Bram@vim.org> parents: 25599 diff changeset	912 NULL, 0) == FAIL)
525ef4d1d412 patch 8.2.3338: Vim9: no type check when assigning a list range Bram Moolenaar <Bram@vim.org> parents: 25599 diff changeset	913 return FAIL;
25591 ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	914 clear_tv(&dest_li->li_tv);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	915 copy_tv(&src_li->li_tv, &dest_li->li_tv);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	916 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	917 src_li = src_li->li_next;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	918 if (src_li == NULL \|\| (!empty_idx2 && idx2 == idx))
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	919 break;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	920 if (dest_li->li_next == NULL)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	921 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	922 // Need to add an empty item.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	923 if (list_append_number(dest, 0) == FAIL)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	924 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	925 src_li = NULL;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	926 break;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	927 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	928 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	929 dest_li = dest_li->li_next;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	930 ++idx;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	931 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	932 if (src_li != NULL)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	933 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	934 emsg(_(e_list_value_has_more_items_than_targets));
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	935 return FAIL;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	936 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	937 if (empty_idx2
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	938 ? (dest_li != NULL && dest_li->li_next != NULL)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	939 : idx != idx2)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	940 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	941 emsg(_(e_list_value_does_not_have_enough_items));
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	942 return FAIL;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	943 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	944 return OK;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	945 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	946
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list Bram Moolenaar <Bram@vim.org> parents: 25567 diff changeset	947 /*
20766 821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	948 * Flatten "list" to depth "maxdepth".
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	949 * It does nothing if "maxdepth" is 0.
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	950 * Returns FAIL when out of memory.
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	951 */
23816 525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	952 static void
20766 821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	953 list_flatten(list_T *list, long maxdepth)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	954 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	955 listitem_T *item;
20770 b366a0fe8296 patch 8.2.0937: asan failure in the flatten() test Bram Moolenaar <Bram@vim.org> parents: 20766 diff changeset	956 listitem_T *tofree;
20766 821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	957 int n;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	958
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	959 if (maxdepth == 0)
23816 525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	960 return;
20766 821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	961 CHECK_LIST_MATERIALIZE(list);
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	962
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	963 n = 0;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	964 item = list->lv_first;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	965 while (item != NULL)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	966 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	967 fast_breakcheck();
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	968 if (got_int)
23816 525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	969 return;
20766 821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	970
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	971 if (item->li_tv.v_type == VAR_LIST)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	972 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	973 listitem_T *next = item->li_next;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	974
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	975 vimlist_remove(list, item, item);
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	976 if (list_extend(list, item->li_tv.vval.v_list, next) == FAIL)
25784 8dfcee931c6c patch 8.2.3427: double free when list is copied Bram Moolenaar <Bram@vim.org> parents: 25774 diff changeset	977 {
8dfcee931c6c patch 8.2.3427: double free when list is copied Bram Moolenaar <Bram@vim.org> parents: 25774 diff changeset	978 list_free_item(list, item);
23816 525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	979 return;
25784 8dfcee931c6c patch 8.2.3427: double free when list is copied Bram Moolenaar <Bram@vim.org> parents: 25774 diff changeset	980 }
20770 b366a0fe8296 patch 8.2.0937: asan failure in the flatten() test Bram Moolenaar <Bram@vim.org> parents: 20766 diff changeset	981 clear_tv(&item->li_tv);
b366a0fe8296 patch 8.2.0937: asan failure in the flatten() test Bram Moolenaar <Bram@vim.org> parents: 20766 diff changeset	982 tofree = item;
20766 821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	983
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	984 if (item->li_prev == NULL)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	985 item = list->lv_first;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	986 else
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	987 item = item->li_prev->li_next;
20770 b366a0fe8296 patch 8.2.0937: asan failure in the flatten() test Bram Moolenaar <Bram@vim.org> parents: 20766 diff changeset	988 list_free_item(list, tofree);
20766 821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	989
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	990 if (++n >= maxdepth)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	991 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	992 n = 0;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	993 item = next;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	994 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	995 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	996 else
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	997 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	998 n = 0;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	999 item = item->li_next;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1000 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1001 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1002 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1003
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1004 /*
23816 525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1005 * "flatten()" and "flattennew()" functions
20766 821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1006 */
23816 525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1007 static void
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1008 flatten_common(typval_T argvars, typval_T rettv, int make_copy)
20766 821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1009 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1010 list_T *l;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1011 long maxdepth;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1012 int error = FALSE;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1013
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25290 diff changeset	1014 if (in_vim9script()
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25290 diff changeset	1015 && (check_for_list_arg(argvars, 0) == FAIL
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25290 diff changeset	1016 \|\| check_for_opt_number_arg(argvars, 1) == FAIL))
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25290 diff changeset	1017 return;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25290 diff changeset	1018
20766 821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1019 if (argvars[0].v_type != VAR_LIST)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1020 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1021 semsg(_(e_listarg), "flatten()");
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1022 return;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1023 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1024
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1025 if (argvars[1].v_type == VAR_UNKNOWN)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1026 maxdepth = 999999;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1027 else
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1028 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1029 maxdepth = (long)tv_get_number_chk(&argvars[1], &error);
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1030 if (error)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1031 return;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1032 if (maxdepth < 0)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1033 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1034 emsg(_("E900: maxdepth must be non-negative number"));
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1035 return;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1036 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1037 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1038
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1039 l = argvars[0].vval.v_list;
23816 525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1040 rettv->v_type = VAR_LIST;
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1041 rettv->vval.v_list = l;
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1042 if (l == NULL)
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1043 return;
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1044
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1045 if (make_copy)
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1046 {
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1047 l = list_copy(l, TRUE, get_copyID());
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1048 rettv->vval.v_list = l;
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1049 if (l == NULL)
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1050 return;
25784 8dfcee931c6c patch 8.2.3427: double free when list is copied Bram Moolenaar <Bram@vim.org> parents: 25774 diff changeset	1051 // The type will change.
8dfcee931c6c patch 8.2.3427: double free when list is copied Bram Moolenaar <Bram@vim.org> parents: 25774 diff changeset	1052 free_type(l->lv_type);
8dfcee931c6c patch 8.2.3427: double free when list is copied Bram Moolenaar <Bram@vim.org> parents: 25774 diff changeset	1053 l->lv_type = NULL;
23816 525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1054 }
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1055 else
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1056 {
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1057 if (value_check_lock(l->lv_lock,
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1058 (char_u *)N_("flatten() argument"), TRUE))
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1059 return;
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1060 ++l->lv_refcount;
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1061 }
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1062
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1063 list_flatten(l, maxdepth);
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1064 }
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1065
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1066 /*
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1067 * "flatten(list[, {maxdepth}])" function
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1068 */
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1069 void
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1070 f_flatten(typval_T argvars, typval_T rettv)
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1071 {
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1072 if (in_vim9script())
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1073 emsg(_(e_cannot_use_flatten_in_vim9_script));
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1074 else
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1075 flatten_common(argvars, rettv, FALSE);
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1076 }
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1077
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1078 /*
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1079 * "flattennew(list[, {maxdepth}])" function
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1080 */
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1081 void
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1082 f_flattennew(typval_T argvars, typval_T rettv)
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1083 {
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	1084 flatten_common(argvars, rettv, TRUE);
20766 821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1085 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1086
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	1087 /*
22545 47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work Bram Moolenaar <Bram@vim.org> parents: 22303 diff changeset	1088 * Extend "l1" with "l2". "l1" must not be NULL.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1089 * If "bef" is NULL append at the end, otherwise insert before this item.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1090 * Returns FAIL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1091 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1092 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1093 list_extend(list_T l1, list_T l2, listitem_T *bef)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1094 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1095 listitem_T *item;
22545 47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work Bram Moolenaar <Bram@vim.org> parents: 22303 diff changeset	1096 int todo;
24396 d406858354a6 patch 8.2.2738: extending a list with itself can give wrong result Bram Moolenaar <Bram@vim.org> parents: 24160 diff changeset	1097 listitem_T *bef_prev;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1098
22545 47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work Bram Moolenaar <Bram@vim.org> parents: 22303 diff changeset	1099 // NULL list is equivalent to an empty list: nothing to do.
47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work Bram Moolenaar <Bram@vim.org> parents: 22303 diff changeset	1100 if (l2 == NULL \|\| l2->lv_len == 0)
47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work Bram Moolenaar <Bram@vim.org> parents: 22303 diff changeset	1101 return OK;
47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work Bram Moolenaar <Bram@vim.org> parents: 22303 diff changeset	1102
47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work Bram Moolenaar <Bram@vim.org> parents: 22303 diff changeset	1103 todo = l2->lv_len;
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1104 CHECK_LIST_MATERIALIZE(l1);
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1105 CHECK_LIST_MATERIALIZE(l2);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	1106
24396 d406858354a6 patch 8.2.2738: extending a list with itself can give wrong result Bram Moolenaar <Bram@vim.org> parents: 24160 diff changeset	1107 // When exending a list with itself, at some point we run into the item
d406858354a6 patch 8.2.2738: extending a list with itself can give wrong result Bram Moolenaar <Bram@vim.org> parents: 24160 diff changeset	1108 // that was before "bef" and need to skip over the already inserted items
d406858354a6 patch 8.2.2738: extending a list with itself can give wrong result Bram Moolenaar <Bram@vim.org> parents: 24160 diff changeset	1109 // to "bef".
d406858354a6 patch 8.2.2738: extending a list with itself can give wrong result Bram Moolenaar <Bram@vim.org> parents: 24160 diff changeset	1110 bef_prev = bef == NULL ? NULL : bef->li_prev;
d406858354a6 patch 8.2.2738: extending a list with itself can give wrong result Bram Moolenaar <Bram@vim.org> parents: 24160 diff changeset	1111
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1112 // We also quit the loop when we have inserted the original item count of
f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1113 // the list, avoid a hang when we extend a list with itself.
24396 d406858354a6 patch 8.2.2738: extending a list with itself can give wrong result Bram Moolenaar <Bram@vim.org> parents: 24160 diff changeset	1114 for (item = l2->lv_first; item != NULL && --todo >= 0;
d406858354a6 patch 8.2.2738: extending a list with itself can give wrong result Bram Moolenaar <Bram@vim.org> parents: 24160 diff changeset	1115 item = item == bef_prev ? bef : item->li_next)
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1116 if (list_insert_tv(l1, &item->li_tv, bef) == FAIL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1117 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1118 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1119 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1120
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1121 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1122 * Concatenate lists "l1" and "l2" into a new list, stored in "tv".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1123 * Return FAIL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1124 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1125 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1126 list_concat(list_T l1, list_T l2, typval_T *tv)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1127 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1128 list_T *l;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1129
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1130 // make a copy of the first list.
22545 47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work Bram Moolenaar <Bram@vim.org> parents: 22303 diff changeset	1131 if (l1 == NULL)
47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work Bram Moolenaar <Bram@vim.org> parents: 22303 diff changeset	1132 l = list_alloc();
47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work Bram Moolenaar <Bram@vim.org> parents: 22303 diff changeset	1133 else
47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work Bram Moolenaar <Bram@vim.org> parents: 22303 diff changeset	1134 l = list_copy(l1, FALSE, 0);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1135 if (l == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1136 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1137 tv->v_type = VAR_LIST;
22961 6426acc72539 patch 8.2.2027: Coverity warnts for uninitialized field Bram Moolenaar <Bram@vim.org> parents: 22866 diff changeset	1138 tv->v_lock = 0;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1139 tv->vval.v_list = l;
22545 47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work Bram Moolenaar <Bram@vim.org> parents: 22303 diff changeset	1140 if (l1 == NULL)
47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work Bram Moolenaar <Bram@vim.org> parents: 22303 diff changeset	1141 ++l->lv_refcount;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1142
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1143 // append all items from the second list
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1144 return list_extend(l, l2, NULL);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1145 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1146
20871 65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	1147 list_T *
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	1148 list_slice(list_T *ol, long n1, long n2)
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	1149 {
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	1150 listitem_T *item;
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	1151 list_T *l = list_alloc();
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	1152
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	1153 if (l == NULL)
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	1154 return NULL;
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	1155 for (item = list_find(ol, n1); n1 <= n2; ++n1)
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	1156 {
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	1157 if (list_append_tv(l, &item->li_tv) == FAIL)
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	1158 {
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	1159 list_free(l);
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	1160 return NULL;
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	1161 }
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	1162 item = item->li_next;
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	1163 }
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	1164 return l;
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	1165 }
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	1166
21828 af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1167 int
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1168 list_slice_or_index(
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1169 list_T *list,
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1170 int range,
23604 1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired Bram Moolenaar <Bram@vim.org> parents: 23588 diff changeset	1171 varnumber_T n1_arg,
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired Bram Moolenaar <Bram@vim.org> parents: 23588 diff changeset	1172 varnumber_T n2_arg,
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired Bram Moolenaar <Bram@vim.org> parents: 23588 diff changeset	1173 int exclusive,
21828 af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1174 typval_T *rettv,
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1175 int verbose)
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1176 {
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1177 long len = list_len(list);
23604 1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired Bram Moolenaar <Bram@vim.org> parents: 23588 diff changeset	1178 varnumber_T n1 = n1_arg;
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired Bram Moolenaar <Bram@vim.org> parents: 23588 diff changeset	1179 varnumber_T n2 = n2_arg;
21828 af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1180 typval_T var1;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1181
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1182 if (n1 < 0)
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1183 n1 = len + n1;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1184 if (n1 < 0 \|\| n1 >= len)
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1185 {
25599 b85e44974a08 patch 8.2.3336: behavior of negative index in list change changed Bram Moolenaar <Bram@vim.org> parents: 25597 diff changeset	1186 // For a range we allow invalid values and for legacy script return an
b85e44974a08 patch 8.2.3336: behavior of negative index in list change changed Bram Moolenaar <Bram@vim.org> parents: 25597 diff changeset	1187 // empty list, for Vim9 script start at the first item.
b85e44974a08 patch 8.2.3336: behavior of negative index in list change changed Bram Moolenaar <Bram@vim.org> parents: 25597 diff changeset	1188 // A list index out of range is an error.
21828 af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1189 if (!range)
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1190 {
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1191 if (verbose)
23650 83a69ada0274 patch 8.2.2367: test failures on some less often used systems Bram Moolenaar <Bram@vim.org> parents: 23646 diff changeset	1192 semsg(_(e_listidx), (long)n1_arg);
21828 af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1193 return FAIL;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1194 }
25599 b85e44974a08 patch 8.2.3336: behavior of negative index in list change changed Bram Moolenaar <Bram@vim.org> parents: 25597 diff changeset	1195 if (in_vim9script())
b85e44974a08 patch 8.2.3336: behavior of negative index in list change changed Bram Moolenaar <Bram@vim.org> parents: 25597 diff changeset	1196 n1 = n1 < 0 ? 0 : len;
b85e44974a08 patch 8.2.3336: behavior of negative index in list change changed Bram Moolenaar <Bram@vim.org> parents: 25597 diff changeset	1197 else
b85e44974a08 patch 8.2.3336: behavior of negative index in list change changed Bram Moolenaar <Bram@vim.org> parents: 25597 diff changeset	1198 n1 = len;
21828 af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1199 }
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1200 if (range)
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1201 {
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1202 list_T *l;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1203
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1204 if (n2 < 0)
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1205 n2 = len + n2;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1206 else if (n2 >= len)
23604 1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired Bram Moolenaar <Bram@vim.org> parents: 23588 diff changeset	1207 n2 = len - (exclusive ? 0 : 1);
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired Bram Moolenaar <Bram@vim.org> parents: 23588 diff changeset	1208 if (exclusive)
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired Bram Moolenaar <Bram@vim.org> parents: 23588 diff changeset	1209 --n2;
21828 af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1210 if (n2 < 0 \|\| n2 + 1 < n1)
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1211 n2 = -1;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1212 l = list_slice(list, n1, n2);
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1213 if (l == NULL)
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1214 return FAIL;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1215 clear_tv(rettv);
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1216 rettv_list_set(rettv, l);
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1217 }
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1218 else
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1219 {
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1220 // copy the item to "var1" to avoid that freeing the list makes it
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1221 // invalid.
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1222 copy_tv(&list_find(list, n1)->li_tv, &var1);
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1223 clear_tv(rettv);
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1224 *rettv = var1;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1225 }
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1226 return OK;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1227 }
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1228
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1229 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1230 * Make a copy of list "orig". Shallow if "deep" is FALSE.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1231 * The refcount of the new list is set to 1.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1232 * See item_copy() for "copyID".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1233 * Returns NULL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1234 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1235 list_T *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1236 list_copy(list_T *orig, int deep, int copyID)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1237 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1238 list_T *copy;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1239 listitem_T *item;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1240 listitem_T *ni;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1241
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1242 if (orig == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1243 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1244
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1245 copy = list_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1246 if (copy != NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1247 {
25784 8dfcee931c6c patch 8.2.3427: double free when list is copied Bram Moolenaar <Bram@vim.org> parents: 25774 diff changeset	1248 copy->lv_type = alloc_type(orig->lv_type);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1249 if (copyID != 0)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1250 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1251 // Do this before adding the items, because one of the items may
f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1252 // refer back to this list.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1253 orig->lv_copyID = copyID;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1254 orig->lv_copylist = copy;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1255 }
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1256 CHECK_LIST_MATERIALIZE(orig);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1257 for (item = orig->lv_first; item != NULL && !got_int;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1258 item = item->li_next)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1259 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1260 ni = listitem_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1261 if (ni == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1262 break;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1263 if (deep)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1264 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1265 if (item_copy(&item->li_tv, &ni->li_tv, deep, copyID) == FAIL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1266 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1267 vim_free(ni);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1268 break;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1269 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1270 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1271 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1272 copy_tv(&item->li_tv, &ni->li_tv);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1273 list_append(copy, ni);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1274 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1275 ++copy->lv_refcount;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1276 if (item != NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1277 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1278 list_unref(copy);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1279 copy = NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1280 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1281 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1282
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1283 return copy;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1284 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1285
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1286 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1287 * Remove items "item" to "item2" from list "l".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1288 * Does not free the listitem or the value!
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1289 * This used to be called list_remove, but that conflicts with a Sun header
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1290 * file.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1291 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1292 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1293 vimlist_remove(list_T l, listitem_T item, listitem_T *item2)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1294 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1295 listitem_T *ip;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1296
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1297 CHECK_LIST_MATERIALIZE(l);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	1298
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1299 // notify watchers
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1300 for (ip = item; ip != NULL; ip = ip->li_next)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1301 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1302 --l->lv_len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1303 list_fix_watch(l, ip);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1304 if (ip == item2)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1305 break;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1306 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1307
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1308 if (item2->li_next == NULL)
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	1309 l->lv_u.mat.lv_last = item->li_prev;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1310 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1311 item2->li_next->li_prev = item->li_prev;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1312 if (item->li_prev == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1313 l->lv_first = item2->li_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1314 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1315 item->li_prev->li_next = item2->li_next;
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	1316 l->lv_u.mat.lv_idx_item = NULL;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1317 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1318
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1319 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1320 * Return an allocated string with the string representation of a list.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1321 * May return NULL.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1322 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1323 char_u *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1324 list2string(typval_T *tv, int copyID, int restore_copyID)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1325 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1326 garray_T ga;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1327
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1328 if (tv->vval.v_list == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1329 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1330 ga_init2(&ga, (int)sizeof(char), 80);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1331 ga_append(&ga, '[');
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1332 CHECK_LIST_MATERIALIZE(tv->vval.v_list);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1333 if (list_join(&ga, tv->vval.v_list, (char_u *)", ",
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1334 FALSE, restore_copyID, copyID) == FAIL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1335 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1336 vim_free(ga.ga_data);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1337 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1338 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1339 ga_append(&ga, ']');
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1340 ga_append(&ga, NUL);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1341 return (char_u *)ga.ga_data;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1342 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1343
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1344 typedef struct join_S {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1345 char_u *s;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1346 char_u *tofree;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1347 } join_T;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1348
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1349 static int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1350 list_join_inner(
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1351 garray_T *gap, // to store the result in
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1352 list_T *l,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1353 char_u *sep,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1354 int echo_style,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1355 int restore_copyID,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1356 int copyID,
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1357 garray_T *join_gap) // to keep each list item string
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1358 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1359 int i;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1360 join_T *p;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1361 int len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1362 int sumlen = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1363 int first = TRUE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1364 char_u *tofree;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1365 char_u numbuf[NUMBUFLEN];
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1366 listitem_T *item;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1367 char_u *s;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1368
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1369 // Stringify each item in the list.
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1370 CHECK_LIST_MATERIALIZE(l);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1371 for (item = l->lv_first; item != NULL && !got_int; item = item->li_next)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1372 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1373 s = echo_string_core(&item->li_tv, &tofree, numbuf, copyID,
11973 aec3df2af27c patch 8.0.0867: job and channel in a dict value not quoted Christian Brabandt <cb@256bit.org> parents: 11418 diff changeset	1374 echo_style, restore_copyID, !echo_style);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1375 if (s == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1376 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1377
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1378 len = (int)STRLEN(s);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1379 sumlen += len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1380
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1381 (void)ga_grow(join_gap, 1);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1382 p = ((join_T *)join_gap->ga_data) + (join_gap->ga_len++);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1383 if (tofree != NULL \|\| s != numbuf)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1384 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1385 p->s = s;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1386 p->tofree = tofree;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1387 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1388 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1389 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1390 p->s = vim_strnsave(s, len);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1391 p->tofree = p->s;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1392 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1393
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1394 line_breakcheck();
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1395 if (did_echo_string_emsg) // recursion error, bail out
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1396 break;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1397 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1398
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1399 // Allocate result buffer with its total size, avoid re-allocation and
f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1400 // multiple copy operations. Add 2 for a tailing ']' and NUL.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1401 if (join_gap->ga_len >= 2)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1402 sumlen += (int)STRLEN(sep) * (join_gap->ga_len - 1);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1403 if (ga_grow(gap, sumlen + 2) == FAIL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1404 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1405
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1406 for (i = 0; i < join_gap->ga_len && !got_int; ++i)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1407 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1408 if (first)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1409 first = FALSE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1410 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1411 ga_concat(gap, sep);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1412 p = ((join_T *)join_gap->ga_data) + i;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1413
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1414 if (p->s != NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1415 ga_concat(gap, p->s);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1416 line_breakcheck();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1417 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1418
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1419 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1420 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1421
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1422 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1423 * Join list "l" into a string in "*gap", using separator "sep".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1424 * When "echo_style" is TRUE use String as echoed, otherwise as inside a List.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1425 * Return FAIL or OK.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1426 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1427 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1428 list_join(
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1429 garray_T *gap,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1430 list_T *l,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1431 char_u *sep,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1432 int echo_style,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1433 int restore_copyID,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1434 int copyID)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1435 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1436 garray_T join_ga;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1437 int retval;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1438 join_T *p;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1439 int i;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1440
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1441 if (l->lv_len < 1)
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1442 return OK; // nothing to do
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1443 ga_init2(&join_ga, (int)sizeof(join_T), l->lv_len);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1444 retval = list_join_inner(gap, l, sep, echo_style, restore_copyID,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1445 copyID, &join_ga);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1446
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1447 // Dispose each item in join_ga.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1448 if (join_ga.ga_data != NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1449 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1450 p = (join_T *)join_ga.ga_data;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1451 for (i = 0; i < join_ga.ga_len; ++i)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1452 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1453 vim_free(p->tofree);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1454 ++p;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1455 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1456 ga_clear(&join_ga);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1457 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1458
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1459 return retval;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1460 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1461
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1462 /*
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1463 * "join()" function
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1464 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1465 void
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1466 f_join(typval_T argvars, typval_T rettv)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1467 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1468 garray_T ga;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1469 char_u *sep;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1470
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25290 diff changeset	1471 if (in_vim9script()
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25290 diff changeset	1472 && (check_for_list_arg(argvars, 0) == FAIL
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25290 diff changeset	1473 \|\| check_for_opt_string_arg(argvars, 1) == FAIL))
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25290 diff changeset	1474 return;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25290 diff changeset	1475
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1476 if (argvars[0].v_type != VAR_LIST)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1477 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1478 emsg(_(e_listreq));
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1479 return;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1480 }
25597 0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	1481 rettv->v_type = VAR_STRING;
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1482 if (argvars[0].vval.v_list == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1483 return;
25597 0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	1484
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1485 if (argvars[1].v_type == VAR_UNKNOWN)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1486 sep = (char_u *)" ";
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1487 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1488 sep = tv_get_string_chk(&argvars[1]);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1489
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1490 if (sep != NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1491 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1492 ga_init2(&ga, (int)sizeof(char), 80);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1493 list_join(&ga, argvars[0].vval.v_list, sep, TRUE, FALSE, 0);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1494 ga_append(&ga, NUL);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1495 rettv->vval.v_string = (char_u *)ga.ga_data;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1496 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1497 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1498 rettv->vval.v_string = NULL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1499 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1500
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1501 /*
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1502 * Allocate a variable for a List and fill it from "*arg".
21028 7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list Bram Moolenaar <Bram@vim.org> parents: 21000 diff changeset	1503 * "*arg" points to the "[".
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1504 * Return OK or FAIL.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1505 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1506 int
21120 4d844a65183d patch 8.2.1111: inconsistent naming of get_list_tv() and eval_dict() Bram Moolenaar <Bram@vim.org> parents: 21118 diff changeset	1507 eval_list(char_u *arg, typval_T rettv, evalarg_T *evalarg, int do_error)
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1508 {
21028 7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list Bram Moolenaar <Bram@vim.org> parents: 21000 diff changeset	1509 int evaluate = evalarg == NULL ? FALSE
7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list Bram Moolenaar <Bram@vim.org> parents: 21000 diff changeset	1510 : evalarg->eval_flags & EVAL_EVALUATE;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1511 list_T *l = NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1512 typval_T tv;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1513 listitem_T *item;
21279 8d1d11afd8c8 patch 8.2.1190: Vim9: checking for Vim9 syntax is spread out Bram Moolenaar <Bram@vim.org> parents: 21148 diff changeset	1514 int vim9script = in_vim9script();
21028 7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list Bram Moolenaar <Bram@vim.org> parents: 21000 diff changeset	1515 int had_comma;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1516
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1517 if (evaluate)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1518 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1519 l = list_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1520 if (l == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1521 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1522 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1523
21148 667192c5938b patch 8.2.1125: Vim9: double quote can be a string or a comment Bram Moolenaar <Bram@vim.org> parents: 21120 diff changeset	1524 arg = skipwhite_and_linebreak(arg + 1, evalarg);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1525 while (arg != ']' && arg != NUL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1526 {
21028 7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list Bram Moolenaar <Bram@vim.org> parents: 21000 diff changeset	1527 if (eval1(arg, &tv, evalarg) == FAIL) // recursive!
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1528 goto failret;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1529 if (evaluate)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1530 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1531 item = listitem_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1532 if (item != NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1533 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1534 item->li_tv = tv;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1535 item->li_tv.v_lock = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1536 list_append(l, item);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1537 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1538 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1539 clear_tv(&tv);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1540 }
21556 963913d80284 patch 8.2.1328: no space allowed before comma in list Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1541 // Legacy Vim script allowed a space before the comma.
963913d80284 patch 8.2.1328: no space allowed before comma in list Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1542 if (!vim9script)
963913d80284 patch 8.2.1328: no space allowed before comma in list Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1543 arg = skipwhite(arg);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1544
21036 f58ee30d863f patch 8.2.1069: Vim9: fail to check for white space in list Bram Moolenaar <Bram@vim.org> parents: 21028 diff changeset	1545 // the comma must come after the value
21028 7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list Bram Moolenaar <Bram@vim.org> parents: 21000 diff changeset	1546 had_comma = **arg == ',';
7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list Bram Moolenaar <Bram@vim.org> parents: 21000 diff changeset	1547 if (had_comma)
21036 f58ee30d863f patch 8.2.1069: Vim9: fail to check for white space in list Bram Moolenaar <Bram@vim.org> parents: 21028 diff changeset	1548 {
22866 52e64d340a98 patch 8.2.1980: Vim9: some tests are not done at the script level Bram Moolenaar <Bram@vim.org> parents: 22848 diff changeset	1549 if (vim9script && !IS_WHITE_OR_NUL((arg)[1]) && (arg)[1] != ']')
21036 f58ee30d863f patch 8.2.1069: Vim9: fail to check for white space in list Bram Moolenaar <Bram@vim.org> parents: 21028 diff changeset	1550 {
23877 85cf06ddb2a8 patch 8.2.2480: Vim9: some errors for white space do not show context Bram Moolenaar <Bram@vim.org> parents: 23816 diff changeset	1551 semsg(_(e_white_space_required_after_str_str), ",", *arg);
21036 f58ee30d863f patch 8.2.1069: Vim9: fail to check for white space in list Bram Moolenaar <Bram@vim.org> parents: 21028 diff changeset	1552 goto failret;
f58ee30d863f patch 8.2.1069: Vim9: fail to check for white space in list Bram Moolenaar <Bram@vim.org> parents: 21028 diff changeset	1553 }
21028 7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list Bram Moolenaar <Bram@vim.org> parents: 21000 diff changeset	1554 arg = skipwhite(arg + 1);
21036 f58ee30d863f patch 8.2.1069: Vim9: fail to check for white space in list Bram Moolenaar <Bram@vim.org> parents: 21028 diff changeset	1555 }
21028 7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list Bram Moolenaar <Bram@vim.org> parents: 21000 diff changeset	1556
21118 b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21064 diff changeset	1557 // The "]" can be on the next line. But a double quoted string may
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21064 diff changeset	1558 // follow, not a comment.
21148 667192c5938b patch 8.2.1125: Vim9: double quote can be a string or a comment Bram Moolenaar <Bram@vim.org> parents: 21120 diff changeset	1559 arg = skipwhite_and_linebreak(arg, evalarg);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1560 if (**arg == ']')
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1561 break;
21028 7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list Bram Moolenaar <Bram@vim.org> parents: 21000 diff changeset	1562
7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list Bram Moolenaar <Bram@vim.org> parents: 21000 diff changeset	1563 if (!had_comma)
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1564 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	1565 if (do_error)
21761 5a2373c25a86 patch 8.2.1430: Vim9: error for missing comma instead of extra white space Bram Moolenaar <Bram@vim.org> parents: 21556 diff changeset	1566 {
5a2373c25a86 patch 8.2.1430: Vim9: error for missing comma instead of extra white space Bram Moolenaar <Bram@vim.org> parents: 21556 diff changeset	1567 if (**arg == ',')
23888 d95403445b6b patch 8.2.2486: Vim9: some errors for white space do not show context Bram Moolenaar <Bram@vim.org> parents: 23877 diff changeset	1568 semsg(_(e_no_white_space_allowed_before_str_str),
d95403445b6b patch 8.2.2486: Vim9: some errors for white space do not show context Bram Moolenaar <Bram@vim.org> parents: 23877 diff changeset	1569 ",", *arg);
21761 5a2373c25a86 patch 8.2.1430: Vim9: error for missing comma instead of extra white space Bram Moolenaar <Bram@vim.org> parents: 21556 diff changeset	1570 else
5a2373c25a86 patch 8.2.1430: Vim9: error for missing comma instead of extra white space Bram Moolenaar <Bram@vim.org> parents: 21556 diff changeset	1571 semsg(_("E696: Missing comma in List: %s"), *arg);
5a2373c25a86 patch 8.2.1430: Vim9: error for missing comma instead of extra white space Bram Moolenaar <Bram@vim.org> parents: 21556 diff changeset	1572 }
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1573 goto failret;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1574 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1575 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1576
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1577 if (**arg != ']')
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1578 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	1579 if (do_error)
19826 293a22b677a8 patch 8.2.0469: Vim9: no error for missing ] after list Bram Moolenaar <Bram@vim.org> parents: 19233 diff changeset	1580 semsg(_(e_list_end), *arg);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1581 failret:
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1582 if (evaluate)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1583 list_free(l);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1584 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1585 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1586
21552 cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list Bram Moolenaar <Bram@vim.org> parents: 21279 diff changeset	1587 *arg += 1;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1588 if (evaluate)
11418 162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value Christian Brabandt <cb@256bit.org> parents: 10549 diff changeset	1589 rettv_list_set(rettv, l);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1590
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1591 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1592 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1593
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1594 /*
10549 055b1633aed7 patch 8.0.0164: outdated and misplaced comments Christian Brabandt <cb@256bit.org> parents: 10042 diff changeset	1595 * Write "list" of strings to file "fd".
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1596 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1597 int
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1598 write_list(FILE fd, list_T list, int binary)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1599 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1600 listitem_T *li;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1601 int c;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1602 int ret = OK;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1603 char_u *s;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1604
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1605 CHECK_LIST_MATERIALIZE(list);
19888 435726a03481 patch 8.2.0500: using the same loop in many places Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1606 FOR_ALL_LIST_ITEMS(list, li)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1607 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1608 for (s = tv_get_string(&li->li_tv); *s != NUL; ++s)
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1609 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1610 if (*s == '\n')
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1611 c = putc(NUL, fd);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1612 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1613 c = putc(*s, fd);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1614 if (c == EOF)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1615 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1616 ret = FAIL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1617 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1618 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1619 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1620 if (!binary \|\| li->li_next != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1621 if (putc('\n', fd) == EOF)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1622 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1623 ret = FAIL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1624 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1625 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1626 if (ret == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1627 {
26439 b18f3b0f317c patch 8.2.3750: error messages are everywhere Bram Moolenaar <Bram@vim.org> parents: 25828 diff changeset	1628 emsg(_(e_error_while_writing));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1629 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1630 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1631 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1632 return ret;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1633 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1634
9626 172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1635 /*
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1636 * Initialize a static list with 10 items.
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1637 */
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1638 void
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1639 init_static_list(staticList10_T *sl)
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1640 {
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1641 list_T *l = &sl->sl_list;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1642 int i;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1643
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1644 memset(sl, 0, sizeof(staticList10_T));
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1645 l->lv_first = &sl->sl_items[0];
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	1646 l->lv_u.mat.lv_last = &sl->sl_items[9];
9626 172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1647 l->lv_refcount = DO_NOT_FREE_CNT;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1648 l->lv_lock = VAR_FIXED;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1649 sl->sl_list.lv_len = 10;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1650
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1651 for (i = 0; i < 10; ++i)
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1652 {
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1653 listitem_T *li = &sl->sl_items[i];
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1654
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1655 if (i == 0)
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1656 li->li_prev = NULL;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1657 else
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1658 li->li_prev = li - 1;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1659 if (i == 9)
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1660 li->li_next = NULL;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1661 else
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1662 li->li_next = li + 1;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1663 }
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1664 }
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1665
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1666 /*
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1667 * "list2str()" function
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1668 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1669 void
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1670 f_list2str(typval_T argvars, typval_T rettv)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1671 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1672 list_T *l;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1673 listitem_T *li;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1674 garray_T ga;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1675 int utf8 = FALSE;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1676
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1677 rettv->v_type = VAR_STRING;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1678 rettv->vval.v_string = NULL;
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25290 diff changeset	1679
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25290 diff changeset	1680 if (in_vim9script()
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25290 diff changeset	1681 && (check_for_list_arg(argvars, 0) == FAIL
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25290 diff changeset	1682 \|\| check_for_opt_bool_arg(argvars, 1) == FAIL))
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25290 diff changeset	1683 return;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25290 diff changeset	1684
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1685 if (argvars[0].v_type != VAR_LIST)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1686 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1687 emsg(_(e_invarg));
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1688 return;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1689 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1690
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1691 l = argvars[0].vval.v_list;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1692 if (l == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1693 return; // empty list results in empty string
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1694
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1695 if (argvars[1].v_type != VAR_UNKNOWN)
22121 b50610a6aee0 patch 8.2.1610: Vim9: cannot pass "true" to list2str() and str2list() Bram Moolenaar <Bram@vim.org> parents: 22043 diff changeset	1696 utf8 = (int)tv_get_bool_chk(&argvars[1], NULL);
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1697
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1698 CHECK_LIST_MATERIALIZE(l);
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1699 ga_init2(&ga, 1, 80);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1700 if (has_mbyte \|\| utf8)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1701 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1702 char_u buf[MB_MAXBYTES + 1];
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1703 int (char2bytes)(int, char_u );
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1704
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1705 if (utf8 \|\| enc_utf8)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1706 char2bytes = utf_char2bytes;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1707 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1708 char2bytes = mb_char2bytes;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1709
19888 435726a03481 patch 8.2.0500: using the same loop in many places Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1710 FOR_ALL_LIST_ITEMS(l, li)
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1711 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1712 buf[(*char2bytes)(tv_get_number(&li->li_tv), buf)] = NUL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1713 ga_concat(&ga, buf);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1714 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1715 ga_append(&ga, NUL);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1716 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1717 else if (ga_grow(&ga, list_len(l) + 1) == OK)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1718 {
19888 435726a03481 patch 8.2.0500: using the same loop in many places Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1719 FOR_ALL_LIST_ITEMS(l, li)
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1720 ga_append(&ga, tv_get_number(&li->li_tv));
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1721 ga_append(&ga, NUL);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1722 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1723
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1724 rettv->v_type = VAR_STRING;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1725 rettv->vval.v_string = ga.ga_data;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1726 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1727
19916 dcec86d796bc patch 8.2.0514: several global functions are used in only one file Bram Moolenaar <Bram@vim.org> parents: 19888 diff changeset	1728 static void
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1729 list_remove(typval_T argvars, typval_T rettv, char_u *arg_errmsg)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1730 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1731 list_T *l;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1732 listitem_T item, item2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1733 listitem_T *li;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1734 int error = FALSE;
23650 83a69ada0274 patch 8.2.2367: test failures on some less often used systems Bram Moolenaar <Bram@vim.org> parents: 23646 diff changeset	1735 long idx;
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1736
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1737 if ((l = argvars[0].vval.v_list) == NULL
22298 07e48ee8c3bb patch 8.2.1698: cannot lock a variable in legacy Vim script like in Vim9 Bram Moolenaar <Bram@vim.org> parents: 22121 diff changeset	1738 \|\| value_check_lock(l->lv_lock, arg_errmsg, TRUE))
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1739 return;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1740
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1741 idx = (long)tv_get_number_chk(&argvars[1], &error);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1742 if (error)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1743 ; // type error: do nothing, errmsg already given
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1744 else if ((item = list_find(l, idx)) == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1745 semsg(_(e_listidx), idx);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1746 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1747 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1748 if (argvars[2].v_type == VAR_UNKNOWN)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1749 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1750 // Remove one item, return its value.
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1751 vimlist_remove(l, item, item);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1752 *rettv = item->li_tv;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	1753 list_free_item(l, item);
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1754 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1755 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1756 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1757 // Remove range of items, return list with values.
23650 83a69ada0274 patch 8.2.2367: test failures on some less often used systems Bram Moolenaar <Bram@vim.org> parents: 23646 diff changeset	1758 long end = (long)tv_get_number_chk(&argvars[2], &error);
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1759
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1760 if (error)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1761 ; // type error: do nothing
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1762 else if ((item2 = list_find(l, end)) == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1763 semsg(_(e_listidx), end);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1764 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1765 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1766 int cnt = 0;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1767
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1768 for (li = item; li != NULL; li = li->li_next)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1769 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1770 ++cnt;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1771 if (li == item2)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1772 break;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1773 }
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1774 if (li == NULL) // didn't find "item2" after "item"
25064 8f2262c72178 patch 8.2.3069: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 24484 diff changeset	1775 emsg(_(e_invalid_range));
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1776 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1777 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1778 vimlist_remove(l, item, item2);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1779 if (rettv_list_alloc(rettv) == OK)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1780 {
25290 8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1781 list_T *rl = rettv->vval.v_list;
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1782
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1783 if (l->lv_with_items > 0)
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1784 {
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1785 // need to copy the list items and move the value
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1786 while (item != NULL)
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1787 {
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1788 li = listitem_alloc();
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1789 if (li == NULL)
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1790 return;
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1791 li->li_tv = item->li_tv;
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1792 init_tv(&item->li_tv);
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1793 list_append(rl, li);
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1794 if (item == item2)
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1795 break;
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1796 item = item->li_next;
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1797 }
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1798 }
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1799 else
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1800 {
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1801 rl->lv_first = item;
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1802 rl->lv_u.mat.lv_last = item2;
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1803 item->li_prev = NULL;
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1804 item2->li_next = NULL;
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1805 rl->lv_len = cnt;
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list Bram Moolenaar <Bram@vim.org> parents: 25194 diff changeset	1806 }
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1807 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1808 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1809 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1810 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1811 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1812 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1813
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1814 static int item_compare(const void s1, const void s2);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1815 static int item_compare2(const void s1, const void s2);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1816
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1817 // struct used in the array that's given to qsort()
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1818 typedef struct
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1819 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1820 listitem_T *item;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1821 int idx;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1822 } sortItem_T;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1823
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1824 // struct storing information about current sort
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1825 typedef struct
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1826 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1827 int item_compare_ic;
22770 3e4981de5636 patch 8.2.1933: cannot sort using locale ordering Bram Moolenaar <Bram@vim.org> parents: 22608 diff changeset	1828 int item_compare_lc;
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1829 int item_compare_numeric;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1830 int item_compare_numbers;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1831 #ifdef FEAT_FLOAT
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1832 int item_compare_float;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1833 #endif
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1834 char_u *item_compare_func;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1835 partial_T *item_compare_partial;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1836 dict_T *item_compare_selfdict;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1837 int item_compare_func_err;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1838 int item_compare_keep_zero;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1839 } sortinfo_T;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1840 static sortinfo_T *sortinfo = NULL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1841 #define ITEM_COMPARE_FAIL 999
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1842
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1843 /*
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1844 * Compare functions for f_sort() and f_uniq() below.
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1845 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1846 static int
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1847 item_compare(const void s1, const void s2)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1848 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1849 sortItem_T si1, si2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1850 typval_T tv1, tv2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1851 char_u p1, p2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1852 char_u tofree1 = NULL, tofree2 = NULL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1853 int res;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1854 char_u numbuf1[NUMBUFLEN];
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1855 char_u numbuf2[NUMBUFLEN];
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1856
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1857 si1 = (sortItem_T *)s1;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1858 si2 = (sortItem_T *)s2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1859 tv1 = &si1->item->li_tv;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1860 tv2 = &si2->item->li_tv;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1861
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1862 if (sortinfo->item_compare_numbers)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1863 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1864 varnumber_T v1 = tv_get_number(tv1);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1865 varnumber_T v2 = tv_get_number(tv2);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1866
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1867 return v1 == v2 ? 0 : v1 > v2 ? 1 : -1;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1868 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1869
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1870 #ifdef FEAT_FLOAT
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1871 if (sortinfo->item_compare_float)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1872 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1873 float_T v1 = tv_get_float(tv1);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1874 float_T v2 = tv_get_float(tv2);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1875
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1876 return v1 == v2 ? 0 : v1 > v2 ? 1 : -1;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1877 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1878 #endif
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1879
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1880 // tv2string() puts quotes around a string and allocates memory. Don't do
f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1881 // that for string variables. Use a single quote when comparing with a
f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1882 // non-string to do what the docs promise.
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1883 if (tv1->v_type == VAR_STRING)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1884 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1885 if (tv2->v_type != VAR_STRING \|\| sortinfo->item_compare_numeric)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1886 p1 = (char_u *)"'";
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1887 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1888 p1 = tv1->vval.v_string;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1889 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1890 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1891 p1 = tv2string(tv1, &tofree1, numbuf1, 0);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1892 if (tv2->v_type == VAR_STRING)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1893 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1894 if (tv1->v_type != VAR_STRING \|\| sortinfo->item_compare_numeric)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1895 p2 = (char_u *)"'";
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1896 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1897 p2 = tv2->vval.v_string;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1898 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1899 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1900 p2 = tv2string(tv2, &tofree2, numbuf2, 0);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1901 if (p1 == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1902 p1 = (char_u *)"";
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1903 if (p2 == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1904 p2 = (char_u *)"";
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1905 if (!sortinfo->item_compare_numeric)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1906 {
22770 3e4981de5636 patch 8.2.1933: cannot sort using locale ordering Bram Moolenaar <Bram@vim.org> parents: 22608 diff changeset	1907 if (sortinfo->item_compare_lc)
3e4981de5636 patch 8.2.1933: cannot sort using locale ordering Bram Moolenaar <Bram@vim.org> parents: 22608 diff changeset	1908 res = strcoll((char )p1, (char )p2);
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1909 else
22770 3e4981de5636 patch 8.2.1933: cannot sort using locale ordering Bram Moolenaar <Bram@vim.org> parents: 22608 diff changeset	1910 res = sortinfo->item_compare_ic ? STRICMP(p1, p2): STRCMP(p1, p2);
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1911 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1912 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1913 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1914 double n1, n2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1915 n1 = strtod((char )p1, (char *)&p1);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1916 n2 = strtod((char )p2, (char *)&p2);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1917 res = n1 == n2 ? 0 : n1 > n2 ? 1 : -1;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1918 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1919
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1920 // When the result would be zero, compare the item indexes. Makes the
f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1921 // sort stable.
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1922 if (res == 0 && !sortinfo->item_compare_keep_zero)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1923 res = si1->idx > si2->idx ? 1 : -1;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1924
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1925 vim_free(tofree1);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1926 vim_free(tofree2);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1927 return res;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1928 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1929
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1930 static int
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1931 item_compare2(const void s1, const void s2)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1932 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1933 sortItem_T si1, si2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1934 int res;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1935 typval_T rettv;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1936 typval_T argv[3];
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1937 char_u *func_name;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1938 partial_T *partial = sortinfo->item_compare_partial;
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17530 diff changeset	1939 funcexe_T funcexe;
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1940
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1941 // shortcut after failure in previous call; compare all items equal
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1942 if (sortinfo->item_compare_func_err)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1943 return 0;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1944
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1945 si1 = (sortItem_T *)s1;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1946 si2 = (sortItem_T *)s2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1947
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1948 if (partial == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1949 func_name = sortinfo->item_compare_func;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1950 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1951 func_name = partial_name(partial);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1952
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1953 // Copy the values. This is needed to be able to set v_lock to VAR_FIXED
f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1954 // in the copy without changing the original list items.
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1955 copy_tv(&si1->item->li_tv, &argv[0]);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1956 copy_tv(&si2->item->li_tv, &argv[1]);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1957
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1958 rettv.v_type = VAR_UNKNOWN; // clear_tv() uses this
20007 aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose Bram Moolenaar <Bram@vim.org> parents: 19966 diff changeset	1959 CLEAR_FIELD(funcexe);
26534 28745eec1dda patch 8.2.3796: the funcexe_T struct members are not named consistently Bram Moolenaar <Bram@vim.org> parents: 26439 diff changeset	1960 funcexe.fe_evaluate = TRUE;
28745eec1dda patch 8.2.3796: the funcexe_T struct members are not named consistently Bram Moolenaar <Bram@vim.org> parents: 26439 diff changeset	1961 funcexe.fe_partial = partial;
28745eec1dda patch 8.2.3796: the funcexe_T struct members are not named consistently Bram Moolenaar <Bram@vim.org> parents: 26439 diff changeset	1962 funcexe.fe_selfdict = sortinfo->item_compare_selfdict;
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17530 diff changeset	1963 res = call_func(func_name, -1, &rettv, 2, argv, &funcexe);
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1964 clear_tv(&argv[0]);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1965 clear_tv(&argv[1]);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1966
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1967 if (res == FAIL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1968 res = ITEM_COMPARE_FAIL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1969 else
25828 14954a7e7c6d patch 8.2.3449: sort fails if the sort compare function returns 999 Bram Moolenaar <Bram@vim.org> parents: 25784 diff changeset	1970 {
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1971 res = (int)tv_get_number_chk(&rettv, &sortinfo->item_compare_func_err);
25828 14954a7e7c6d patch 8.2.3449: sort fails if the sort compare function returns 999 Bram Moolenaar <Bram@vim.org> parents: 25784 diff changeset	1972 if (res > 0)
14954a7e7c6d patch 8.2.3449: sort fails if the sort compare function returns 999 Bram Moolenaar <Bram@vim.org> parents: 25784 diff changeset	1973 res = 1;
14954a7e7c6d patch 8.2.3449: sort fails if the sort compare function returns 999 Bram Moolenaar <Bram@vim.org> parents: 25784 diff changeset	1974 else if (res < 0)
14954a7e7c6d patch 8.2.3449: sort fails if the sort compare function returns 999 Bram Moolenaar <Bram@vim.org> parents: 25784 diff changeset	1975 res = -1;
14954a7e7c6d patch 8.2.3449: sort fails if the sort compare function returns 999 Bram Moolenaar <Bram@vim.org> parents: 25784 diff changeset	1976 }
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1977 if (sortinfo->item_compare_func_err)
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1978 res = ITEM_COMPARE_FAIL; // return value has wrong type
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1979 clear_tv(&rettv);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1980
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1981 // When the result would be zero, compare the pointers themselves. Makes
f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1982 // the sort stable.
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1983 if (res == 0 && !sortinfo->item_compare_keep_zero)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1984 res = si1->idx > si2->idx ? 1 : -1;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1985
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1986 return res;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1987 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1988
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1989 /*
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1990 * "sort()" or "uniq()" function
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1991 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1992 static void
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1993 do_sort_uniq(typval_T argvars, typval_T rettv, int sort)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1994 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1995 list_T *l;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1996 listitem_T *li;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1997 sortItem_T *ptrs;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1998 sortinfo_T *old_sortinfo;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1999 sortinfo_T info;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2000 long len;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2001 long i;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2002
25338 e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	2003 if (in_vim9script()
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	2004 && (check_for_list_arg(argvars, 0) == FAIL
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	2005 \|\| (argvars[1].v_type != VAR_UNKNOWN
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	2006 && check_for_opt_dict_arg(argvars, 2) == FAIL)))
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	2007 return;
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	2008
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	2009 // Pointer to current info struct used in compare function. Save and
f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	2010 // restore the current one for nested calls.
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2011 old_sortinfo = sortinfo;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2012 sortinfo = &info;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2013
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2014 if (argvars[0].v_type != VAR_LIST)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2015 semsg(_(e_listarg), sort ? "sort()" : "uniq()");
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2016 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2017 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2018 l = argvars[0].vval.v_list;
25597 0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	2019 if (l != NULL && value_check_lock(l->lv_lock,
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2020 (char_u *)(sort ? N_("sort() argument") : N_("uniq() argument")),
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2021 TRUE))
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2022 goto theend;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2023 rettv_list_set(rettv, l);
25597 0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	2024 if (l == NULL)
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	2025 goto theend;
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	2026 CHECK_LIST_MATERIALIZE(l);
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2027
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2028 len = list_len(l);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2029 if (len <= 1)
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	2030 goto theend; // short list sorts pretty quickly
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2031
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2032 info.item_compare_ic = FALSE;
22770 3e4981de5636 patch 8.2.1933: cannot sort using locale ordering Bram Moolenaar <Bram@vim.org> parents: 22608 diff changeset	2033 info.item_compare_lc = FALSE;
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2034 info.item_compare_numeric = FALSE;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2035 info.item_compare_numbers = FALSE;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2036 #ifdef FEAT_FLOAT
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2037 info.item_compare_float = FALSE;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2038 #endif
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2039 info.item_compare_func = NULL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2040 info.item_compare_partial = NULL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2041 info.item_compare_selfdict = NULL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2042 if (argvars[1].v_type != VAR_UNKNOWN)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2043 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	2044 // optional second argument: {func}
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2045 if (argvars[1].v_type == VAR_FUNC)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2046 info.item_compare_func = argvars[1].vval.v_string;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2047 else if (argvars[1].v_type == VAR_PARTIAL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2048 info.item_compare_partial = argvars[1].vval.v_partial;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2049 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2050 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2051 int error = FALSE;
22303 4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	2052 int nr = 0;
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2053
22303 4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	2054 if (argvars[1].v_type == VAR_NUMBER)
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2055 {
22303 4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	2056 nr = tv_get_number_chk(&argvars[1], &error);
4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	2057 if (error)
4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	2058 goto theend; // type error; errmsg already given
4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	2059 if (nr == 1)
4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	2060 info.item_compare_ic = TRUE;
4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	2061 }
4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	2062 if (nr != 1)
4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	2063 {
4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	2064 if (argvars[1].v_type != VAR_NUMBER)
4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	2065 info.item_compare_func = tv_get_string(&argvars[1]);
4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	2066 else if (nr != 0)
4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	2067 {
4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	2068 emsg(_(e_invarg));
4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	2069 goto theend;
4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	2070 }
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2071 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2072 if (info.item_compare_func != NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2073 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2074 if (*info.item_compare_func == NUL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2075 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	2076 // empty string means default sort
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2077 info.item_compare_func = NULL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2078 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2079 else if (STRCMP(info.item_compare_func, "n") == 0)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2080 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2081 info.item_compare_func = NULL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2082 info.item_compare_numeric = TRUE;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2083 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2084 else if (STRCMP(info.item_compare_func, "N") == 0)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2085 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2086 info.item_compare_func = NULL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2087 info.item_compare_numbers = TRUE;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2088 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2089 #ifdef FEAT_FLOAT
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2090 else if (STRCMP(info.item_compare_func, "f") == 0)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2091 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2092 info.item_compare_func = NULL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2093 info.item_compare_float = TRUE;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2094 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2095 #endif
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2096 else if (STRCMP(info.item_compare_func, "i") == 0)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2097 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2098 info.item_compare_func = NULL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2099 info.item_compare_ic = TRUE;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2100 }
22770 3e4981de5636 patch 8.2.1933: cannot sort using locale ordering Bram Moolenaar <Bram@vim.org> parents: 22608 diff changeset	2101 else if (STRCMP(info.item_compare_func, "l") == 0)
3e4981de5636 patch 8.2.1933: cannot sort using locale ordering Bram Moolenaar <Bram@vim.org> parents: 22608 diff changeset	2102 {
3e4981de5636 patch 8.2.1933: cannot sort using locale ordering Bram Moolenaar <Bram@vim.org> parents: 22608 diff changeset	2103 info.item_compare_func = NULL;
3e4981de5636 patch 8.2.1933: cannot sort using locale ordering Bram Moolenaar <Bram@vim.org> parents: 22608 diff changeset	2104 info.item_compare_lc = TRUE;
3e4981de5636 patch 8.2.1933: cannot sort using locale ordering Bram Moolenaar <Bram@vim.org> parents: 22608 diff changeset	2105 }
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2106 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2107 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2108
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2109 if (argvars[2].v_type != VAR_UNKNOWN)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2110 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	2111 // optional third argument: {dict}
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2112 if (argvars[2].v_type != VAR_DICT)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2113 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2114 emsg(_(e_dictreq));
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2115 goto theend;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2116 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2117 info.item_compare_selfdict = argvars[2].vval.v_dict;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2118 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2119 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2120
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	2121 // Make an array with each entry pointing to an item in the List.
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2122 ptrs = ALLOC_MULT(sortItem_T, len);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2123 if (ptrs == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2124 goto theend;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2125
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2126 i = 0;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2127 if (sort)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2128 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	2129 // sort(): ptrs will be the list to sort
19888 435726a03481 patch 8.2.0500: using the same loop in many places Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2130 FOR_ALL_LIST_ITEMS(l, li)
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2131 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2132 ptrs[i].item = li;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2133 ptrs[i].idx = i;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2134 ++i;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2135 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2136
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2137 info.item_compare_func_err = FALSE;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2138 info.item_compare_keep_zero = FALSE;
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	2139 // test the compare function
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2140 if ((info.item_compare_func != NULL
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2141 \|\| info.item_compare_partial != NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2142 && item_compare2((void )&ptrs[0], (void )&ptrs[1])
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2143 == ITEM_COMPARE_FAIL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2144 emsg(_("E702: Sort compare function failed"));
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2145 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2146 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	2147 // Sort the array with item pointers.
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2148 qsort((void *)ptrs, (size_t)len, sizeof(sortItem_T),
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2149 info.item_compare_func == NULL
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2150 && info.item_compare_partial == NULL
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2151 ? item_compare : item_compare2);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2152
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2153 if (!info.item_compare_func_err)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2154 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	2155 // Clear the List and append the items in sorted order.
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	2156 l->lv_first = l->lv_u.mat.lv_last
d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	2157 = l->lv_u.mat.lv_idx_item = NULL;
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2158 l->lv_len = 0;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2159 for (i = 0; i < len; ++i)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2160 list_append(l, ptrs[i].item);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2161 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2162 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2163 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2164 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2165 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2166 int (item_compare_func_ptr)(const void , const void *);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2167
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	2168 // f_uniq(): ptrs will be a stack of items to remove
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2169 info.item_compare_func_err = FALSE;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2170 info.item_compare_keep_zero = TRUE;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2171 item_compare_func_ptr = info.item_compare_func != NULL
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2172 \|\| info.item_compare_partial != NULL
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2173 ? item_compare2 : item_compare;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2174
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2175 for (li = l->lv_first; li != NULL && li->li_next != NULL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2176 li = li->li_next)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2177 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2178 if (item_compare_func_ptr((void )&li, (void )&li->li_next)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2179 == 0)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2180 ptrs[i++].item = li;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2181 if (info.item_compare_func_err)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2182 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2183 emsg(_("E882: Uniq compare function failed"));
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2184 break;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2185 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2186 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2187
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2188 if (!info.item_compare_func_err)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2189 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2190 while (--i >= 0)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2191 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2192 li = ptrs[i].item->li_next;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2193 ptrs[i].item->li_next = li->li_next;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2194 if (li->li_next != NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2195 li->li_next->li_prev = ptrs[i].item;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2196 else
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	2197 l->lv_u.mat.lv_last = ptrs[i].item;
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2198 list_fix_watch(l, li);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	2199 listitem_free(l, li);
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2200 l->lv_len--;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2201 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2202 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2203 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2204
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2205 vim_free(ptrs);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2206 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2207 theend:
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2208 sortinfo = old_sortinfo;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2209 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2210
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2211 /*
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2212 * "sort({list})" function
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2213 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2214 void
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2215 f_sort(typval_T argvars, typval_T rettv)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2216 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2217 do_sort_uniq(argvars, rettv, TRUE);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2218 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2219
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2220 /*
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2221 * "uniq({list})" function
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2222 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2223 void
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2224 f_uniq(typval_T argvars, typval_T rettv)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2225 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2226 do_sort_uniq(argvars, rettv, FALSE);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2227 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	2228
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2229 typedef enum {
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2230 FILTERMAP_FILTER,
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2231 FILTERMAP_MAP,
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2232 FILTERMAP_MAPNEW
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2233 } filtermap_T;
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2234
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2235 /*
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2236 * Handle one item for map() and filter().
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2237 * Sets v:val to "tv". Caller must set v:key.
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2238 */
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2239 static int
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2240 filter_map_one(
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2241 typval_T *tv, // original value
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2242 typval_T *expr, // callback
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2243 filtermap_T filtermap,
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2244 typval_T *newtv, // for map() and mapnew(): new value
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2245 int *remp) // for filter(): remove flag
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2246 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2247 typval_T argv[3];
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2248 int retval = FAIL;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2249
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2250 copy_tv(tv, get_vim_var_tv(VV_VAL));
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2251 argv[0] = *get_vim_var_tv(VV_KEY);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2252 argv[1] = *get_vim_var_tv(VV_VAL);
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2253 if (eval_expr_typval(expr, argv, 2, newtv) == FAIL)
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2254 goto theend;
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2255 if (filtermap == FILTERMAP_FILTER)
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2256 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2257 int error = FALSE;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2258
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2259 // filter(): when expr is zero remove the item
21831 d8422de73113 patch 8.2.1465: Vim9: subscript not handled properly Bram Moolenaar <Bram@vim.org> parents: 21828 diff changeset	2260 if (in_vim9script())
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2261 *remp = !tv2bool(newtv);
21831 d8422de73113 patch 8.2.1465: Vim9: subscript not handled properly Bram Moolenaar <Bram@vim.org> parents: 21828 diff changeset	2262 else
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2263 *remp = (tv_get_number_chk(newtv, &error) == 0);
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2264 clear_tv(newtv);
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2265 // On type error, nothing has been removed; return FAIL to stop the
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2266 // loop. The error message was given by tv_get_number_chk().
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2267 if (error)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2268 goto theend;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2269 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2270 retval = OK;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2271 theend:
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2272 clear_tv(get_vim_var_tv(VV_VAL));
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2273 return retval;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2274 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2275
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2276 /*
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2277 * Implementation of map() and filter().
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2278 */
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2279 static void
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2280 filter_map(typval_T argvars, typval_T rettv, filtermap_T filtermap)
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2281 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2282 typval_T *expr;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2283 listitem_T li, nli;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2284 list_T *l = NULL;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2285 dictitem_T *di;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2286 hashtab_T *ht;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2287 hashitem_T *hi;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2288 dict_T *d = NULL;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2289 blob_T *b = NULL;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2290 int rem;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2291 int todo;
25326 cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given Bram Moolenaar <Bram@vim.org> parents: 25306 diff changeset	2292 char *func_name = filtermap == FILTERMAP_MAP ? "map()"
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2293 : filtermap == FILTERMAP_MAPNEW ? "mapnew()"
25326 cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given Bram Moolenaar <Bram@vim.org> parents: 25306 diff changeset	2294 : "filter()";
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2295 char_u arg_errmsg = (char_u )(filtermap == FILTERMAP_MAP
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2296 ? N_("map() argument")
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2297 : filtermap == FILTERMAP_MAPNEW
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2298 ? N_("mapnew() argument")
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2299 : N_("filter() argument"));
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2300 int save_did_emsg;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2301 int idx = 0;
23646 5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2302 type_T *type = NULL;
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2303 garray_T type_list;
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2304
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2305 // map() and filter() return the first argument, also on failure.
26585 0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26578 diff changeset	2306 if (filtermap != FILTERMAP_MAPNEW && argvars[0].v_type != VAR_STRING)
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2307 copy_tv(&argvars[0], rettv);
25338 e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	2308
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	2309 if (in_vim9script()
26585 0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26578 diff changeset	2310 && (check_for_list_or_dict_or_blob_or_string_arg(argvars, 0)
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9 Bram Moolenaar <Bram@vim.org> parents: 26578 diff changeset	2311 == FAIL))
25338 e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	2312 return;
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	2313
23646 5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2314 if (filtermap == FILTERMAP_MAP && in_vim9script())
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2315 {
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2316 // Check that map() does not change the type of the dict.
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2317 ga_init2(&type_list, sizeof(type_T *), 10);
24438 5c6ccab68d1e patch 8.2.2759: Vim9: for loop infers type of loop variable Bram Moolenaar <Bram@vim.org> parents: 24396 diff changeset	2318 type = typval2type(argvars, get_copyID(), &type_list, TRUE);
23646 5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2319 }
22608 f140b9036aa5 patch 8.2.1852: map() returing zero for NULL list is unexpected Bram Moolenaar <Bram@vim.org> parents: 22545 diff changeset	2320
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2321 if (argvars[0].v_type == VAR_BLOB)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2322 {
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2323 if (filtermap == FILTERMAP_MAPNEW)
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2324 {
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2325 rettv->v_type = VAR_BLOB;
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2326 rettv->vval.v_blob = NULL;
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2327 }
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2328 if ((b = argvars[0].vval.v_blob) == NULL)
23646 5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2329 goto theend;
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2330 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2331 else if (argvars[0].v_type == VAR_LIST)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2332 {
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2333 if (filtermap == FILTERMAP_MAPNEW)
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2334 {
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2335 rettv->v_type = VAR_LIST;
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2336 rettv->vval.v_list = NULL;
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2337 }
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2338 if ((l = argvars[0].vval.v_list) == NULL
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2339 \|\| (filtermap == FILTERMAP_FILTER
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2340 && value_check_lock(l->lv_lock, arg_errmsg, TRUE)))
23646 5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2341 goto theend;
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2342 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2343 else if (argvars[0].v_type == VAR_DICT)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2344 {
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2345 if (filtermap == FILTERMAP_MAPNEW)
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2346 {
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2347 rettv->v_type = VAR_DICT;
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2348 rettv->vval.v_dict = NULL;
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2349 }
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2350 if ((d = argvars[0].vval.v_dict) == NULL
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2351 \|\| (filtermap == FILTERMAP_FILTER
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2352 && value_check_lock(d->dv_lock, arg_errmsg, TRUE)))
23646 5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2353 goto theend;
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2354 }
26578 06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2355 else if (argvars[0].v_type == VAR_STRING)
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2356 {
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2357 rettv->v_type = VAR_STRING;
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2358 rettv->vval.v_string = NULL;
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2359 }
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2360 else
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2361 {
26578 06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2362 semsg(_(e_argument_of_str_must_be_list_string_dictionary_or_blob),
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2363 func_name);
23646 5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2364 goto theend;
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2365 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2366
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2367 expr = &argvars[1];
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2368 // On type errors, the preceding call has already displayed an error
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2369 // message. Avoid a misleading error message for an empty string that
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2370 // was not passed as argument.
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2371 if (expr->v_type != VAR_UNKNOWN)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2372 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2373 typval_T save_val;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2374 typval_T save_key;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2375
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2376 prepare_vimvar(VV_VAL, &save_val);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2377 prepare_vimvar(VV_KEY, &save_key);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2378
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2379 // We reset "did_emsg" to be able to detect whether an error
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2380 // occurred during evaluation of the expression.
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2381 save_did_emsg = did_emsg;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2382 did_emsg = FALSE;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2383
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2384 if (argvars[0].v_type == VAR_DICT)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2385 {
19233 04c164c971a3 patch 8.2.0175: crash when removing list element in map() Bram Moolenaar <Bram@vim.org> parents: 19229 diff changeset	2386 int prev_lock = d->dv_lock;
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2387 dict_T *d_ret = NULL;
19233 04c164c971a3 patch 8.2.0175: crash when removing list element in map() Bram Moolenaar <Bram@vim.org> parents: 19229 diff changeset	2388
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2389 if (filtermap == FILTERMAP_MAPNEW)
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2390 {
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2391 if (rettv_dict_alloc(rettv) == FAIL)
23646 5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2392 goto theend;
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2393 d_ret = rettv->vval.v_dict;
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2394 }
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2395
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2396 if (filtermap != FILTERMAP_FILTER && d->dv_lock == 0)
19233 04c164c971a3 patch 8.2.0175: crash when removing list element in map() Bram Moolenaar <Bram@vim.org> parents: 19229 diff changeset	2397 d->dv_lock = VAR_LOCKED;
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2398 ht = &d->dv_hashtab;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2399 hash_lock(ht);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2400 todo = (int)ht->ht_used;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2401 for (hi = ht->ht_array; todo > 0; ++hi)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2402 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2403 if (!HASHITEM_EMPTY(hi))
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2404 {
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2405 int r;
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2406 typval_T newtv;
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2407
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2408 --todo;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2409 di = HI2DI(hi);
23058 77f181975381 patch 8.2.2075: error for const argument to mapnew() Bram Moolenaar <Bram@vim.org> parents: 23037 diff changeset	2410 if (filtermap == FILTERMAP_MAP
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2411 && (value_check_lock(di->di_tv.v_lock,
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2412 arg_errmsg, TRUE)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2413 \|\| var_check_ro(di->di_flags,
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2414 arg_errmsg, TRUE)))
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2415 break;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2416 set_vim_var_string(VV_KEY, di->di_key, -1);
23990 06da0685077b patch 8.2.2537: Vim9: crash when map() fails Bram Moolenaar <Bram@vim.org> parents: 23982 diff changeset	2417 newtv.v_type = VAR_UNKNOWN;
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2418 r = filter_map_one(&di->di_tv, expr, filtermap,
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2419 &newtv, &rem);
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2420 clear_tv(get_vim_var_tv(VV_KEY));
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2421 if (r == FAIL \|\| did_emsg)
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2422 {
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2423 clear_tv(&newtv);
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2424 break;
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2425 }
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2426 if (filtermap == FILTERMAP_MAP)
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2427 {
23917 4b417b776b95 patch 8.2.2501: not always clear where an error is reported Bram Moolenaar <Bram@vim.org> parents: 23888 diff changeset	2428 if (type != NULL && check_typval_arg_type(
25326 cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given Bram Moolenaar <Bram@vim.org> parents: 25306 diff changeset	2429 type->tt_member, &newtv,
cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given Bram Moolenaar <Bram@vim.org> parents: 25306 diff changeset	2430 func_name, 0) == FAIL)
23646 5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2431 {
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2432 clear_tv(&newtv);
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2433 break;
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2434 }
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2435 // map(): replace the dict item value
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2436 clear_tv(&di->di_tv);
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2437 newtv.v_lock = 0;
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2438 di->di_tv = newtv;
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2439 }
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2440 else if (filtermap == FILTERMAP_MAPNEW)
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2441 {
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2442 // mapnew(): add the item value to the new dict
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2443 r = dict_add_tv(d_ret, (char *)di->di_key, &newtv);
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2444 clear_tv(&newtv);
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2445 if (r == FAIL)
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2446 break;
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2447 }
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2448 else if (filtermap == FILTERMAP_FILTER && rem)
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2449 {
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2450 // filter(false): remove the item from the dict
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2451 if (var_check_fixed(di->di_flags, arg_errmsg, TRUE)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2452 \|\| var_check_ro(di->di_flags, arg_errmsg, TRUE))
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2453 break;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2454 dictitem_remove(d, di);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2455 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2456 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2457 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2458 hash_unlock(ht);
19233 04c164c971a3 patch 8.2.0175: crash when removing list element in map() Bram Moolenaar <Bram@vim.org> parents: 19229 diff changeset	2459 d->dv_lock = prev_lock;
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2460 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2461 else if (argvars[0].v_type == VAR_BLOB)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2462 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2463 int i;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2464 typval_T tv;
19123 09f28c17ac58 patch 8.2.0121: filter() and map() on blob don't work Bram Moolenaar <Bram@vim.org> parents: 18800 diff changeset	2465 varnumber_T val;
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2466 blob_T *b_ret = b;
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2467
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2468 if (filtermap == FILTERMAP_MAPNEW)
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2469 {
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2470 if (blob_copy(b, rettv) == FAIL)
23646 5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2471 goto theend;
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2472 b_ret = rettv->vval.v_blob;
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2473 }
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2474
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2475 // set_vim_var_nr() doesn't set the type
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2476 set_vim_var_type(VV_KEY, VAR_NUMBER);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2477
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2478 for (i = 0; i < b->bv_ga.ga_len; i++)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2479 {
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2480 typval_T newtv;
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2481
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2482 tv.v_type = VAR_NUMBER;
19123 09f28c17ac58 patch 8.2.0121: filter() and map() on blob don't work Bram Moolenaar <Bram@vim.org> parents: 18800 diff changeset	2483 val = blob_get(b, i);
09f28c17ac58 patch 8.2.0121: filter() and map() on blob don't work Bram Moolenaar <Bram@vim.org> parents: 18800 diff changeset	2484 tv.vval.v_number = val;
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2485 set_vim_var_nr(VV_KEY, idx);
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2486 if (filter_map_one(&tv, expr, filtermap, &newtv, &rem) == FAIL
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2487 \|\| did_emsg)
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2488 break;
24484 bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	2489 if (newtv.v_type != VAR_NUMBER && newtv.v_type != VAR_BOOL)
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2490 {
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2491 clear_tv(&newtv);
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2492 emsg(_(e_invalblob));
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2493 break;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2494 }
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2495 if (filtermap != FILTERMAP_FILTER)
19123 09f28c17ac58 patch 8.2.0121: filter() and map() on blob don't work Bram Moolenaar <Bram@vim.org> parents: 18800 diff changeset	2496 {
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2497 if (newtv.vval.v_number != val)
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2498 blob_set(b_ret, i, newtv.vval.v_number);
19123 09f28c17ac58 patch 8.2.0121: filter() and map() on blob don't work Bram Moolenaar <Bram@vim.org> parents: 18800 diff changeset	2499 }
09f28c17ac58 patch 8.2.0121: filter() and map() on blob don't work Bram Moolenaar <Bram@vim.org> parents: 18800 diff changeset	2500 else if (rem)
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2501 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2502 char_u p = (char_u )argvars[0].vval.v_blob->bv_ga.ga_data;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2503
19123 09f28c17ac58 patch 8.2.0121: filter() and map() on blob don't work Bram Moolenaar <Bram@vim.org> parents: 18800 diff changeset	2504 mch_memmove(p + i, p + i + 1,
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2505 (size_t)b->bv_ga.ga_len - i - 1);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2506 --b->bv_ga.ga_len;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2507 --i;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2508 }
19123 09f28c17ac58 patch 8.2.0121: filter() and map() on blob don't work Bram Moolenaar <Bram@vim.org> parents: 18800 diff changeset	2509 ++idx;
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2510 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2511 }
26578 06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2512 else if (argvars[0].v_type == VAR_STRING)
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2513 {
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2514 char_u *p;
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2515 typval_T tv;
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2516 garray_T ga;
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2517 int len;
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2518
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2519 // set_vim_var_nr() doesn't set the type
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2520 set_vim_var_type(VV_KEY, VAR_NUMBER);
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2521
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2522 ga_init2(&ga, (int)sizeof(char), 80);
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2523 for (p = tv_get_string(&argvars[0]); *p != NUL; p += len)
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2524 {
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2525 typval_T newtv;
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2526
26638 6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	2527 if (tv_get_first_char(p, &tv) == FAIL)
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	2528 break;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	2529 len = STRLEN(tv.vval.v_string);
26578 06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2530
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2531 set_vim_var_nr(VV_KEY, idx);
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2532 if (filter_map_one(&tv, expr, filtermap, &newtv, &rem) == FAIL
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2533 \|\| did_emsg)
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2534 break;
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2535 if (did_emsg)
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2536 {
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2537 clear_tv(&newtv);
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2538 clear_tv(&tv);
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2539 break;
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2540 }
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2541 else if (filtermap != FILTERMAP_FILTER)
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2542 {
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2543 if (newtv.v_type != VAR_STRING)
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2544 {
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2545 clear_tv(&newtv);
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2546 clear_tv(&tv);
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2547 emsg(_(e_stringreq));
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2548 break;
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2549 }
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2550 else
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2551 ga_concat(&ga, newtv.vval.v_string);
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2552 }
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2553 else if (!rem)
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2554 ga_concat(&ga, tv.vval.v_string);
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2555
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2556 clear_tv(&newtv);
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2557 clear_tv(&tv);
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2558
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2559 ++idx;
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2560 }
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2561 ga_append(&ga, NUL);
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2562 rettv->vval.v_string = ga.ga_data;
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string Bram Moolenaar <Bram@vim.org> parents: 26534 diff changeset	2563 }
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2564 else // argvars[0].v_type == VAR_LIST
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2565 {
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2566 int prev_lock = l->lv_lock;
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2567 list_T *l_ret = NULL;
19233 04c164c971a3 patch 8.2.0175: crash when removing list element in map() Bram Moolenaar <Bram@vim.org> parents: 19229 diff changeset	2568
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2569 if (filtermap == FILTERMAP_MAPNEW)
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2570 {
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2571 if (rettv_list_alloc(rettv) == FAIL)
23646 5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2572 goto theend;
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2573 l_ret = rettv->vval.v_list;
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2574 }
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2575 // set_vim_var_nr() doesn't set the type
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2576 set_vim_var_type(VV_KEY, VAR_NUMBER);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2577
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2578 if (filtermap != FILTERMAP_FILTER && l->lv_lock == 0)
19233 04c164c971a3 patch 8.2.0175: crash when removing list element in map() Bram Moolenaar <Bram@vim.org> parents: 19229 diff changeset	2579 l->lv_lock = VAR_LOCKED;
23037 4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2580
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2581 if (l->lv_first == &range_list_item)
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2582 {
23037 4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2583 varnumber_T val = l->lv_u.nonmat.lv_start;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2584 int len = l->lv_len;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2585 int stride = l->lv_u.nonmat.lv_stride;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2586
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2587 // List from range(): loop over the numbers
23565 34aa2907082a patch 8.2.2325: Vim9: crash if map() changes the item type Bram Moolenaar <Bram@vim.org> parents: 23551 diff changeset	2588 if (filtermap != FILTERMAP_MAPNEW)
34aa2907082a patch 8.2.2325: Vim9: crash if map() changes the item type Bram Moolenaar <Bram@vim.org> parents: 23551 diff changeset	2589 {
34aa2907082a patch 8.2.2325: Vim9: crash if map() changes the item type Bram Moolenaar <Bram@vim.org> parents: 23551 diff changeset	2590 l->lv_first = NULL;
34aa2907082a patch 8.2.2325: Vim9: crash if map() changes the item type Bram Moolenaar <Bram@vim.org> parents: 23551 diff changeset	2591 l->lv_u.mat.lv_last = NULL;
34aa2907082a patch 8.2.2325: Vim9: crash if map() changes the item type Bram Moolenaar <Bram@vim.org> parents: 23551 diff changeset	2592 l->lv_len = 0;
34aa2907082a patch 8.2.2325: Vim9: crash if map() changes the item type Bram Moolenaar <Bram@vim.org> parents: 23551 diff changeset	2593 l->lv_u.mat.lv_idx_item = NULL;
34aa2907082a patch 8.2.2325: Vim9: crash if map() changes the item type Bram Moolenaar <Bram@vim.org> parents: 23551 diff changeset	2594 }
23037 4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2595
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2596 for (idx = 0; idx < len; ++idx)
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2597 {
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2598 typval_T tv;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2599 typval_T newtv;
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2600
23037 4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2601 tv.v_type = VAR_NUMBER;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2602 tv.v_lock = 0;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2603 tv.vval.v_number = val;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2604 set_vim_var_nr(VV_KEY, idx);
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2605 if (filter_map_one(&tv, expr, filtermap, &newtv, &rem)
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2606 == FAIL)
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2607 break;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2608 if (did_emsg)
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2609 {
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2610 clear_tv(&newtv);
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2611 break;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2612 }
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2613 if (filtermap != FILTERMAP_FILTER)
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2614 {
23646 5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2615 if (filtermap == FILTERMAP_MAP && type != NULL
23917 4b417b776b95 patch 8.2.2501: not always clear where an error is reported Bram Moolenaar <Bram@vim.org> parents: 23888 diff changeset	2616 && check_typval_arg_type(
25326 cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given Bram Moolenaar <Bram@vim.org> parents: 25306 diff changeset	2617 type->tt_member, &newtv,
cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given Bram Moolenaar <Bram@vim.org> parents: 25306 diff changeset	2618 func_name, 0) == FAIL)
23646 5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2619 {
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2620 clear_tv(&newtv);
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2621 break;
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2622 }
23037 4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2623 // map(), mapnew(): always append the new value to the
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2624 // list
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2625 if (list_append_tv_move(filtermap == FILTERMAP_MAP
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2626 ? l : l_ret, &newtv) == FAIL)
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2627 break;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2628 }
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2629 else if (!rem)
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2630 {
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2631 // filter(): append the list item value when not rem
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2632 if (list_append_tv_move(l, &tv) == FAIL)
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2633 break;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2634 }
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2635
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2636 val += stride;
22848 e4fbe8d1bde9 patch 8.2.1971: memory leak when map() fails Bram Moolenaar <Bram@vim.org> parents: 22844 diff changeset	2637 }
23037 4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2638 }
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2639 else
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2640 {
23058 77f181975381 patch 8.2.2075: error for const argument to mapnew() Bram Moolenaar <Bram@vim.org> parents: 23037 diff changeset	2641 // Materialized list: loop over the items
23037 4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2642 for (li = l->lv_first; li != NULL; li = nli)
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2643 {
23037 4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2644 typval_T newtv;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2645
23058 77f181975381 patch 8.2.2075: error for const argument to mapnew() Bram Moolenaar <Bram@vim.org> parents: 23037 diff changeset	2646 if (filtermap == FILTERMAP_MAP && value_check_lock(
23037 4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2647 li->li_tv.v_lock, arg_errmsg, TRUE))
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2648 break;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2649 nli = li->li_next;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2650 set_vim_var_nr(VV_KEY, idx);
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2651 if (filter_map_one(&li->li_tv, expr, filtermap,
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2652 &newtv, &rem) == FAIL)
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2653 break;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2654 if (did_emsg)
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2655 {
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2656 clear_tv(&newtv);
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2657 break;
23037 4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2658 }
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2659 if (filtermap == FILTERMAP_MAP)
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2660 {
23917 4b417b776b95 patch 8.2.2501: not always clear where an error is reported Bram Moolenaar <Bram@vim.org> parents: 23888 diff changeset	2661 if (type != NULL && check_typval_arg_type(
25326 cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given Bram Moolenaar <Bram@vim.org> parents: 25306 diff changeset	2662 type->tt_member, &newtv, func_name, 0) == FAIL)
23646 5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2663 {
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2664 clear_tv(&newtv);
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2665 break;
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2666 }
23037 4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2667 // map(): replace the list item value
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2668 clear_tv(&li->li_tv);
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2669 newtv.v_lock = 0;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2670 li->li_tv = newtv;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2671 }
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2672 else if (filtermap == FILTERMAP_MAPNEW)
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2673 {
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2674 // mapnew(): append the list item value
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2675 if (list_append_tv_move(l_ret, &newtv) == FAIL)
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2676 break;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2677 }
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2678 else if (filtermap == FILTERMAP_FILTER && rem)
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2679 listitem_remove(l, li);
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2680 ++idx;
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2681 }
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2682 }
23037 4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2683
19233 04c164c971a3 patch 8.2.0175: crash when removing list element in map() Bram Moolenaar <Bram@vim.org> parents: 19229 diff changeset	2684 l->lv_lock = prev_lock;
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2685 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2686
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2687 restore_vimvar(VV_KEY, &save_key);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2688 restore_vimvar(VV_VAL, &save_val);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2689
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2690 did_emsg \|= save_did_emsg;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2691 }
23646 5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2692
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2693 theend:
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2694 if (type != NULL)
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level Bram Moolenaar <Bram@vim.org> parents: 23604 diff changeset	2695 clear_type_list(&type_list);
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2696 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2697
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2698 /*
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2699 * "filter()" function
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2700 */
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2701 void
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2702 f_filter(typval_T argvars, typval_T rettv)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2703 {
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2704 filter_map(argvars, rettv, FILTERMAP_FILTER);
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2705 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2706
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2707 /*
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2708 * "map()" function
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2709 */
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2710 void
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2711 f_map(typval_T argvars, typval_T rettv)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2712 {
22844 36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2713 filter_map(argvars, rettv, FILTERMAP_MAP);
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2714 }
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2715
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2716 /*
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2717 * "mapnew()" function
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2718 */
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2719 void
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2720 f_mapnew(typval_T argvars, typval_T rettv)
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2721 {
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2722 filter_map(argvars, rettv, FILTERMAP_MAPNEW);
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2723 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2724
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2725 /*
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2726 * "add(list, item)" function
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2727 */
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2728 void
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2729 f_add(typval_T argvars, typval_T rettv)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2730 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	2731 rettv->vval.v_number = 1; // Default: Failed
25338 e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	2732
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	2733 if (in_vim9script()
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	2734 && (check_for_list_or_blob_arg(argvars, 0) == FAIL
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	2735 \|\| (argvars[0].v_type == VAR_BLOB
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	2736 && check_for_number_arg(argvars, 1) == FAIL)))
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	2737 return;
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	2738
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2739 if (argvars[0].v_type == VAR_LIST)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2740 {
24482 3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob Bram Moolenaar <Bram@vim.org> parents: 24438 diff changeset	2741 list_T *l = argvars[0].vval.v_list;
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob Bram Moolenaar <Bram@vim.org> parents: 24438 diff changeset	2742
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob Bram Moolenaar <Bram@vim.org> parents: 24438 diff changeset	2743 if (l == NULL)
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob Bram Moolenaar <Bram@vim.org> parents: 24438 diff changeset	2744 {
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob Bram Moolenaar <Bram@vim.org> parents: 24438 diff changeset	2745 if (in_vim9script())
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob Bram Moolenaar <Bram@vim.org> parents: 24438 diff changeset	2746 emsg(_(e_cannot_add_to_null_list));
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob Bram Moolenaar <Bram@vim.org> parents: 24438 diff changeset	2747 }
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob Bram Moolenaar <Bram@vim.org> parents: 24438 diff changeset	2748 else if (!value_check_lock(l->lv_lock,
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob Bram Moolenaar <Bram@vim.org> parents: 24438 diff changeset	2749 (char_u *)N_("add() argument"), TRUE)
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2750 && list_append_tv(l, &argvars[1]) == OK)
24482 3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob Bram Moolenaar <Bram@vim.org> parents: 24438 diff changeset	2751 {
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2752 copy_tv(&argvars[0], rettv);
24482 3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob Bram Moolenaar <Bram@vim.org> parents: 24438 diff changeset	2753 }
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2754 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2755 else if (argvars[0].v_type == VAR_BLOB)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2756 {
24482 3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob Bram Moolenaar <Bram@vim.org> parents: 24438 diff changeset	2757 blob_T *b = argvars[0].vval.v_blob;
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob Bram Moolenaar <Bram@vim.org> parents: 24438 diff changeset	2758
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob Bram Moolenaar <Bram@vim.org> parents: 24438 diff changeset	2759 if (b == NULL)
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob Bram Moolenaar <Bram@vim.org> parents: 24438 diff changeset	2760 {
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob Bram Moolenaar <Bram@vim.org> parents: 24438 diff changeset	2761 if (in_vim9script())
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob Bram Moolenaar <Bram@vim.org> parents: 24438 diff changeset	2762 emsg(_(e_cannot_add_to_null_blob));
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob Bram Moolenaar <Bram@vim.org> parents: 24438 diff changeset	2763 }
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob Bram Moolenaar <Bram@vim.org> parents: 24438 diff changeset	2764 else if (!value_check_lock(b->bv_lock,
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2765 (char_u *)N_("add() argument"), TRUE))
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2766 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2767 int error = FALSE;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2768 varnumber_T n = tv_get_number_chk(&argvars[1], &error);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2769
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2770 if (!error)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2771 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2772 ga_append(&b->bv_ga, (int)n);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2773 copy_tv(&argvars[0], rettv);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2774 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2775 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2776 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2777 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2778 emsg(_(e_listblobreq));
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2779 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2780
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2781 /*
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2782 * "count()" function
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2783 */
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2784 void
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2785 f_count(typval_T argvars, typval_T rettv)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2786 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2787 long n = 0;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2788 int ic = FALSE;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2789 int error = FALSE;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2790
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25290 diff changeset	2791 if (in_vim9script()
25384 e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same Bram Moolenaar <Bram@vim.org> parents: 25338 diff changeset	2792 && (check_for_string_or_list_or_dict_arg(argvars, 0) == FAIL
25302 4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25290 diff changeset	2793 \|\| check_for_opt_bool_arg(argvars, 2) == FAIL
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25290 diff changeset	2794 \|\| (argvars[2].v_type != VAR_UNKNOWN
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25290 diff changeset	2795 && check_for_opt_number_arg(argvars, 3) == FAIL)))
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25290 diff changeset	2796 return;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25290 diff changeset	2797
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2798 if (argvars[2].v_type != VAR_UNKNOWN)
22043 4bc644f4dd2d patch 8.2.1571: Vim9: count() third argument cannot be "true" Bram Moolenaar <Bram@vim.org> parents: 21909 diff changeset	2799 ic = (int)tv_get_bool_chk(&argvars[2], &error);
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2800
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2801 if (argvars[0].v_type == VAR_STRING)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2802 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2803 char_u *expr = tv_get_string_chk(&argvars[1]);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2804 char_u *p = argvars[0].vval.v_string;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2805 char_u *next;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2806
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2807 if (!error && expr != NULL && *expr != NUL && p != NULL)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2808 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2809 if (ic)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2810 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2811 size_t len = STRLEN(expr);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2812
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2813 while (*p != NUL)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2814 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2815 if (MB_STRNICMP(p, expr, len) == 0)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2816 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2817 ++n;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2818 p += len;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2819 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2820 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2821 MB_PTR_ADV(p);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2822 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2823 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2824 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2825 while ((next = (char_u )strstr((char )p, (char *)expr))
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2826 != NULL)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2827 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2828 ++n;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2829 p = next + STRLEN(expr);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2830 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2831 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2832
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2833 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2834 else if (argvars[0].v_type == VAR_LIST)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2835 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2836 listitem_T *li;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2837 list_T *l;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2838 long idx;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2839
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2840 if ((l = argvars[0].vval.v_list) != NULL)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2841 {
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	2842 CHECK_LIST_MATERIALIZE(l);
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2843 li = l->lv_first;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2844 if (argvars[2].v_type != VAR_UNKNOWN)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2845 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2846 if (argvars[3].v_type != VAR_UNKNOWN)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2847 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2848 idx = (long)tv_get_number_chk(&argvars[3], &error);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2849 if (!error)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2850 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2851 li = list_find(l, idx);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2852 if (li == NULL)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2853 semsg(_(e_listidx), idx);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2854 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2855 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2856 if (error)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2857 li = NULL;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2858 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2859
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2860 for ( ; li != NULL; li = li->li_next)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2861 if (tv_equal(&li->li_tv, &argvars[1], ic, FALSE))
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2862 ++n;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2863 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2864 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2865 else if (argvars[0].v_type == VAR_DICT)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2866 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2867 int todo;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2868 dict_T *d;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2869 hashitem_T *hi;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2870
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2871 if ((d = argvars[0].vval.v_dict) != NULL)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2872 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2873 if (argvars[2].v_type != VAR_UNKNOWN)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2874 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2875 if (argvars[3].v_type != VAR_UNKNOWN)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2876 emsg(_(e_invarg));
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2877 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2878
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2879 todo = error ? 0 : (int)d->dv_hashtab.ht_used;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2880 for (hi = d->dv_hashtab.ht_array; todo > 0; ++hi)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2881 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2882 if (!HASHITEM_EMPTY(hi))
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2883 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2884 --todo;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2885 if (tv_equal(&HI2DI(hi)->di_tv, &argvars[1], ic, FALSE))
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2886 ++n;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2887 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2888 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2889 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2890 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2891 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2892 semsg(_(e_listdictarg), "count()");
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2893 rettv->vval.v_number = n;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2894 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2895
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2896 /*
23588 510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2897 * "extend()" or "extendnew()" function. "is_new" is TRUE for extendnew().
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2898 */
23588 510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2899 static void
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2900 extend(typval_T argvars, typval_T rettv, char_u *arg_errmsg, int is_new)
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2901 {
23800 57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch Bram Moolenaar <Bram@vim.org> parents: 23650 diff changeset	2902 type_T *type = NULL;
57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch Bram Moolenaar <Bram@vim.org> parents: 23650 diff changeset	2903 garray_T type_list;
25326 cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given Bram Moolenaar <Bram@vim.org> parents: 25306 diff changeset	2904 char *func_name = is_new ? "extendnew()" : "extend()";
23800 57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch Bram Moolenaar <Bram@vim.org> parents: 23650 diff changeset	2905
57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch Bram Moolenaar <Bram@vim.org> parents: 23650 diff changeset	2906 if (!is_new && in_vim9script())
57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch Bram Moolenaar <Bram@vim.org> parents: 23650 diff changeset	2907 {
57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch Bram Moolenaar <Bram@vim.org> parents: 23650 diff changeset	2908 // Check that map() does not change the type of the dict.
57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch Bram Moolenaar <Bram@vim.org> parents: 23650 diff changeset	2909 ga_init2(&type_list, sizeof(type_T *), 10);
24438 5c6ccab68d1e patch 8.2.2759: Vim9: for loop infers type of loop variable Bram Moolenaar <Bram@vim.org> parents: 24396 diff changeset	2910 type = typval2type(argvars, get_copyID(), &type_list, TRUE);
23800 57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch Bram Moolenaar <Bram@vim.org> parents: 23650 diff changeset	2911 }
57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch Bram Moolenaar <Bram@vim.org> parents: 23650 diff changeset	2912
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2913 if (argvars[0].v_type == VAR_LIST && argvars[1].v_type == VAR_LIST)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2914 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2915 list_T l1, l2;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2916 listitem_T *item;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2917 long before;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2918 int error = FALSE;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2919
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2920 l1 = argvars[0].vval.v_list;
22802 3e0f909ca1f2 patch 8.2.1949: Vim9: using extend() on null dict is silently ignored Bram Moolenaar <Bram@vim.org> parents: 22794 diff changeset	2921 if (l1 == NULL)
3e0f909ca1f2 patch 8.2.1949: Vim9: using extend() on null dict is silently ignored Bram Moolenaar <Bram@vim.org> parents: 22794 diff changeset	2922 {
3e0f909ca1f2 patch 8.2.1949: Vim9: using extend() on null dict is silently ignored Bram Moolenaar <Bram@vim.org> parents: 22794 diff changeset	2923 emsg(_(e_cannot_extend_null_list));
23800 57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch Bram Moolenaar <Bram@vim.org> parents: 23650 diff changeset	2924 goto theend;
22802 3e0f909ca1f2 patch 8.2.1949: Vim9: using extend() on null dict is silently ignored Bram Moolenaar <Bram@vim.org> parents: 22794 diff changeset	2925 }
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2926 l2 = argvars[1].vval.v_list;
23588 510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2927 if ((is_new \|\| !value_check_lock(l1->lv_lock, arg_errmsg, TRUE))
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2928 && l2 != NULL)
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2929 {
23588 510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2930 if (is_new)
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2931 {
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2932 l1 = list_copy(l1, FALSE, get_copyID());
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2933 if (l1 == NULL)
23800 57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch Bram Moolenaar <Bram@vim.org> parents: 23650 diff changeset	2934 goto theend;
23588 510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2935 }
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2936
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2937 if (argvars[2].v_type != VAR_UNKNOWN)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2938 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2939 before = (long)tv_get_number_chk(&argvars[2], &error);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2940 if (error)
23800 57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch Bram Moolenaar <Bram@vim.org> parents: 23650 diff changeset	2941 goto theend; // type error; errmsg already given
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2942
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2943 if (before == l1->lv_len)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2944 item = NULL;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2945 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2946 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2947 item = list_find(l1, before);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2948 if (item == NULL)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2949 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2950 semsg(_(e_listidx), before);
23800 57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch Bram Moolenaar <Bram@vim.org> parents: 23650 diff changeset	2951 goto theend;
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2952 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2953 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2954 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2955 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2956 item = NULL;
23917 4b417b776b95 patch 8.2.2501: not always clear where an error is reported Bram Moolenaar <Bram@vim.org> parents: 23888 diff changeset	2957 if (type != NULL && check_typval_arg_type(
25326 cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given Bram Moolenaar <Bram@vim.org> parents: 25306 diff changeset	2958 type, &argvars[1], func_name, 2) == FAIL)
23800 57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch Bram Moolenaar <Bram@vim.org> parents: 23650 diff changeset	2959 goto theend;
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2960 list_extend(l1, l2, item);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2961
23588 510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2962 if (is_new)
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2963 {
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2964 rettv->v_type = VAR_LIST;
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2965 rettv->vval.v_list = l1;
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2966 rettv->v_lock = FALSE;
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2967 }
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2968 else
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2969 copy_tv(&argvars[0], rettv);
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2970 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2971 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2972 else if (argvars[0].v_type == VAR_DICT && argvars[1].v_type == VAR_DICT)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2973 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2974 dict_T d1, d2;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2975 char_u *action;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2976 int i;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2977
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2978 d1 = argvars[0].vval.v_dict;
22802 3e0f909ca1f2 patch 8.2.1949: Vim9: using extend() on null dict is silently ignored Bram Moolenaar <Bram@vim.org> parents: 22794 diff changeset	2979 if (d1 == NULL)
3e0f909ca1f2 patch 8.2.1949: Vim9: using extend() on null dict is silently ignored Bram Moolenaar <Bram@vim.org> parents: 22794 diff changeset	2980 {
3e0f909ca1f2 patch 8.2.1949: Vim9: using extend() on null dict is silently ignored Bram Moolenaar <Bram@vim.org> parents: 22794 diff changeset	2981 emsg(_(e_cannot_extend_null_dict));
23800 57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch Bram Moolenaar <Bram@vim.org> parents: 23650 diff changeset	2982 goto theend;
22802 3e0f909ca1f2 patch 8.2.1949: Vim9: using extend() on null dict is silently ignored Bram Moolenaar <Bram@vim.org> parents: 22794 diff changeset	2983 }
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2984 d2 = argvars[1].vval.v_dict;
23588 510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2985 if ((is_new \|\| !value_check_lock(d1->dv_lock, arg_errmsg, TRUE))
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2986 && d2 != NULL)
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2987 {
23588 510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2988 if (is_new)
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2989 {
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2990 d1 = dict_copy(d1, FALSE, get_copyID());
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2991 if (d1 == NULL)
23800 57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch Bram Moolenaar <Bram@vim.org> parents: 23650 diff changeset	2992 goto theend;
23588 510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2993 }
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2994
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	2995 // Check the third argument.
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2996 if (argvars[2].v_type != VAR_UNKNOWN)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2997 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2998 static char *(av[]) = {"keep", "force", "error"};
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2999
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3000 action = tv_get_string_chk(&argvars[2]);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3001 if (action == NULL)
23800 57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch Bram Moolenaar <Bram@vim.org> parents: 23650 diff changeset	3002 goto theend; // type error; errmsg already given
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3003 for (i = 0; i < 3; ++i)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3004 if (STRCMP(action, av[i]) == 0)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3005 break;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3006 if (i == 3)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3007 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3008 semsg(_(e_invarg2), action);
23800 57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch Bram Moolenaar <Bram@vim.org> parents: 23650 diff changeset	3009 goto theend;
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3010 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3011 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3012 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3013 action = (char_u *)"force";
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3014
25326 cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given Bram Moolenaar <Bram@vim.org> parents: 25306 diff changeset	3015 if (type != NULL && check_typval_arg_type(type, &argvars[1],
cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given Bram Moolenaar <Bram@vim.org> parents: 25306 diff changeset	3016 func_name, 2) == FAIL)
23800 57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch Bram Moolenaar <Bram@vim.org> parents: 23650 diff changeset	3017 goto theend;
25326 cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given Bram Moolenaar <Bram@vim.org> parents: 25306 diff changeset	3018 dict_extend(d1, d2, action, func_name);
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3019
23588 510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3020 if (is_new)
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3021 {
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3022 rettv->v_type = VAR_DICT;
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3023 rettv->vval.v_dict = d1;
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3024 rettv->v_lock = FALSE;
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3025 }
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3026 else
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3027 copy_tv(&argvars[0], rettv);
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3028 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3029 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3030 else
25326 cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given Bram Moolenaar <Bram@vim.org> parents: 25306 diff changeset	3031 semsg(_(e_listdictarg), func_name);
23800 57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch Bram Moolenaar <Bram@vim.org> parents: 23650 diff changeset	3032
57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch Bram Moolenaar <Bram@vim.org> parents: 23650 diff changeset	3033 theend:
57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch Bram Moolenaar <Bram@vim.org> parents: 23650 diff changeset	3034 if (type != NULL)
57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch Bram Moolenaar <Bram@vim.org> parents: 23650 diff changeset	3035 clear_type_list(&type_list);
23588 510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3036 }
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3037
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3038 /*
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3039 * "extend(list, list [, idx])" function
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3040 * "extend(dict, dict [, action])" function
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3041 */
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3042 void
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3043 f_extend(typval_T argvars, typval_T rettv)
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3044 {
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3045 char_u errmsg = (char_u )N_("extend() argument");
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3046
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3047 extend(argvars, rettv, errmsg, FALSE);
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3048 }
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3049
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3050 /*
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3051 * "extendnew(list, list [, idx])" function
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3052 * "extendnew(dict, dict [, action])" function
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3053 */
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3054 void
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3055 f_extendnew(typval_T argvars, typval_T rettv)
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3056 {
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3057 char_u errmsg = (char_u )N_("extendnew() argument");
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3058
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	3059 extend(argvars, rettv, errmsg, TRUE);
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3060 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3061
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3062 /*
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3063 * "insert()" function
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3064 */
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3065 void
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3066 f_insert(typval_T argvars, typval_T rettv)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3067 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3068 long before = 0;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3069 listitem_T *item;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3070 int error = FALSE;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3071
25338 e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	3072 if (in_vim9script()
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	3073 && (check_for_list_or_blob_arg(argvars, 0) == FAIL
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	3074 \|\| (argvars[0].v_type == VAR_BLOB
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	3075 && check_for_number_arg(argvars, 1) == FAIL)
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	3076 \|\| check_for_opt_number_arg(argvars, 2) == FAIL))
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	3077 return;
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	3078
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3079 if (argvars[0].v_type == VAR_BLOB)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3080 {
25495 7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3081 blob_T *b = argvars[0].vval.v_blob;
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3082
25495 7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3083 if (b == NULL)
24484 bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3084 {
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3085 if (in_vim9script())
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3086 emsg(_(e_cannot_add_to_null_blob));
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3087 }
25495 7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3088 else if (!value_check_lock(b->bv_lock,
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3089 (char_u *)N_("insert() argument"), TRUE))
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3090 {
25495 7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3091 int val, len;
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3092 char_u *p;
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3093
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3094 len = blob_len(b);
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3095 if (argvars[2].v_type != VAR_UNKNOWN)
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3096 {
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3097 before = (long)tv_get_number_chk(&argvars[2], &error);
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3098 if (error)
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3099 return; // type error; errmsg already given
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3100 if (before < 0 \|\| before > len)
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3101 {
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3102 semsg(_(e_invarg2), tv_get_string(&argvars[2]));
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3103 return;
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3104 }
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3105 }
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3106 val = tv_get_number_chk(&argvars[1], &error);
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3107 if (error)
25495 7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3108 return;
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3109 if (val < 0 \|\| val > 255)
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3110 {
25495 7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3111 semsg(_(e_invarg2), tv_get_string(&argvars[1]));
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3112 return;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3113 }
25495 7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3114
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3115 if (ga_grow(&b->bv_ga, 1) == FAIL)
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3116 return;
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3117 p = (char_u *)b->bv_ga.ga_data;
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3118 mch_memmove(p + before + 1, p + before, (size_t)len - before);
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3119 *(p + before) = val;
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3120 ++b->bv_ga.ga_len;
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3121
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3122 copy_tv(&argvars[0], rettv);
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3123 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3124 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3125 else if (argvars[0].v_type != VAR_LIST)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3126 semsg(_(e_listblobarg), "insert()");
24484 bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3127 else
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3128 {
24484 bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3129 list_T *l = argvars[0].vval.v_list;
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3130
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3131 if (l == NULL)
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3132 {
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3133 if (in_vim9script())
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3134 emsg(_(e_cannot_add_to_null_list));
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3135 }
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3136 else if (!value_check_lock(l->lv_lock,
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3137 (char_u *)N_("insert() argument"), TRUE))
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3138 {
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3139 if (argvars[2].v_type != VAR_UNKNOWN)
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3140 before = (long)tv_get_number_chk(&argvars[2], &error);
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3141 if (error)
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3142 return; // type error; errmsg already given
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3143
24484 bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3144 if (before == l->lv_len)
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3145 item = NULL;
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3146 else
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3147 {
24484 bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3148 item = list_find(l, before);
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3149 if (item == NULL)
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3150 {
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3151 semsg(_(e_listidx), before);
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3152 l = NULL;
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3153 }
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3154 }
24484 bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3155 if (l != NULL)
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3156 {
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3157 (void)list_insert_tv(l, &argvars[1], item);
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3158 copy_tv(&argvars[0], rettv);
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested Bram Moolenaar <Bram@vim.org> parents: 24482 diff changeset	3159 }
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3160 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3161 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3162 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3163
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3164 /*
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3165 * "remove()" function
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3166 */
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3167 void
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3168 f_remove(typval_T argvars, typval_T rettv)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3169 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3170 char_u arg_errmsg = (char_u )N_("remove() argument");
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3171
25338 e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	3172 if (in_vim9script()
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	3173 && (check_for_list_or_dict_or_blob_arg(argvars, 0) == FAIL
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	3174 \|\| ((argvars[0].v_type == VAR_LIST
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	3175 \|\| argvars[0].v_type == VAR_BLOB)
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	3176 && (check_for_number_arg(argvars, 1) == FAIL
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	3177 \|\| check_for_opt_number_arg(argvars, 2) == FAIL))
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	3178 \|\| (argvars[0].v_type == VAR_DICT
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	3179 && check_for_string_or_number_arg(argvars, 1) == FAIL)))
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	3180 return;
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	3181
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3182 if (argvars[0].v_type == VAR_DICT)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3183 dict_remove(argvars, rettv, arg_errmsg);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3184 else if (argvars[0].v_type == VAR_BLOB)
25495 7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob Bram Moolenaar <Bram@vim.org> parents: 25384 diff changeset	3185 blob_remove(argvars, rettv, arg_errmsg);
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3186 else if (argvars[0].v_type == VAR_LIST)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3187 list_remove(argvars, rettv, arg_errmsg);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3188 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3189 semsg(_(e_listdictblobarg), "remove()");
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3190 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3191
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3192 /*
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3193 * "reverse({list})" function
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3194 */
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3195 void
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3196 f_reverse(typval_T argvars, typval_T rettv)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3197 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3198 list_T *l;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3199 listitem_T li, ni;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3200
25338 e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	3201 if (in_vim9script() && check_for_list_or_blob_arg(argvars, 0) == FAIL)
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	3202 return;
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time Bram Moolenaar <Bram@vim.org> parents: 25326 diff changeset	3203
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3204 if (argvars[0].v_type == VAR_BLOB)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3205 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3206 blob_T *b = argvars[0].vval.v_blob;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3207 int i, len = blob_len(b);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3208
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3209 for (i = 0; i < len / 2; i++)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3210 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3211 int tmp = blob_get(b, i);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3212
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3213 blob_set(b, i, blob_get(b, len - i - 1));
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3214 blob_set(b, len - i - 1, tmp);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3215 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3216 rettv_blob_set(rettv, b);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3217 return;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3218 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3219
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3220 if (argvars[0].v_type != VAR_LIST)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3221 semsg(_(e_listblobarg), "reverse()");
25597 0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	3222 else
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	3223 {
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	3224 l = argvars[0].vval.v_list;
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	3225 rettv_list_set(rettv, l);
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	3226 if (l != NULL
22298 07e48ee8c3bb patch 8.2.1698: cannot lock a variable in legacy Vim script like in Vim9 Bram Moolenaar <Bram@vim.org> parents: 22121 diff changeset	3227 && !value_check_lock(l->lv_lock,
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3228 (char_u *)N_("reverse() argument"), TRUE))
19203 09f01421a356 patch 8.2.0160: range test fails Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	3229 {
25597 0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	3230 if (l->lv_first == &range_list_item)
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	3231 {
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	3232 varnumber_T new_start = l->lv_u.nonmat.lv_start
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	3233 + (l->lv_len - 1) * l->lv_u.nonmat.lv_stride;
25597 0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	3234 l->lv_u.nonmat.lv_end = new_start
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	3235 - (l->lv_u.nonmat.lv_end - l->lv_u.nonmat.lv_start);
25597 0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	3236 l->lv_u.nonmat.lv_start = new_start;
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	3237 l->lv_u.nonmat.lv_stride = -l->lv_u.nonmat.lv_stride;
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	3238 return;
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	3239 }
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	3240 li = l->lv_u.mat.lv_last;
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	3241 l->lv_first = l->lv_u.mat.lv_last = NULL;
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	3242 l->lv_len = 0;
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	3243 while (li != NULL)
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	3244 {
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	3245 ni = li->li_prev;
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	3246 list_append(l, li);
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	3247 li = ni;
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	3248 }
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9 Bram Moolenaar <Bram@vim.org> parents: 25591 diff changeset	3249 l->lv_u.mat.lv_idx = l->lv_len - l->lv_u.mat.lv_idx - 1;
19203 09f01421a356 patch 8.2.0160: range test fails Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	3250 }
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3251 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3252 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	3253
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3254 /*
23229 b545334ae654 patch 8.2.2160: various typos Bram Moolenaar <Bram@vim.org> parents: 23058 diff changeset	3255 * "reduce(list, { accumulator, element -> value } [, initial])" function
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3256 */
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3257 void
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3258 f_reduce(typval_T argvars, typval_T rettv)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3259 {
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	3260 typval_T initial;
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3261 char_u *func_name;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3262 partial_T *partial = NULL;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3263 funcexe_T funcexe;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3264 typval_T argv[3];
26638 6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3265 int r;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3266 int called_emsg_start = called_emsg;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3267
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3268 if (in_vim9script()
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3269 && check_for_string_or_list_or_blob_arg(argvars, 0) == FAIL)
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3270 return;
26638 6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3271
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3272 if (argvars[0].v_type != VAR_STRING
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3273 && argvars[0].v_type != VAR_LIST
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3274 && argvars[0].v_type != VAR_BLOB)
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3275 semsg(_(e_string_list_or_blob_required), "reduce()");
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3276
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3277 if (argvars[1].v_type == VAR_FUNC)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3278 func_name = argvars[1].vval.v_string;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3279 else if (argvars[1].v_type == VAR_PARTIAL)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3280 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3281 partial = argvars[1].vval.v_partial;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3282 func_name = partial_name(partial);
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3283 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3284 else
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3285 func_name = tv_get_string(&argvars[1]);
22794 42bb78d46354 patch 8.2.1945: crash when passing NULL function to reduce() Bram Moolenaar <Bram@vim.org> parents: 22770 diff changeset	3286 if (func_name == NULL \|\| *func_name == NUL)
42bb78d46354 patch 8.2.1945: crash when passing NULL function to reduce() Bram Moolenaar <Bram@vim.org> parents: 22770 diff changeset	3287 {
42bb78d46354 patch 8.2.1945: crash when passing NULL function to reduce() Bram Moolenaar <Bram@vim.org> parents: 22770 diff changeset	3288 emsg(_(e_missing_function_argument));
42bb78d46354 patch 8.2.1945: crash when passing NULL function to reduce() Bram Moolenaar <Bram@vim.org> parents: 22770 diff changeset	3289 return;
42bb78d46354 patch 8.2.1945: crash when passing NULL function to reduce() Bram Moolenaar <Bram@vim.org> parents: 22770 diff changeset	3290 }
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3291
26534 28745eec1dda patch 8.2.3796: the funcexe_T struct members are not named consistently Bram Moolenaar <Bram@vim.org> parents: 26439 diff changeset	3292 CLEAR_FIELD(funcexe);
28745eec1dda patch 8.2.3796: the funcexe_T struct members are not named consistently Bram Moolenaar <Bram@vim.org> parents: 26439 diff changeset	3293 funcexe.fe_evaluate = TRUE;
28745eec1dda patch 8.2.3796: the funcexe_T struct members are not named consistently Bram Moolenaar <Bram@vim.org> parents: 26439 diff changeset	3294 funcexe.fe_partial = partial;
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3295
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3296 if (argvars[0].v_type == VAR_LIST)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3297 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3298 list_T *l = argvars[0].vval.v_list;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3299 listitem_T *li = NULL;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3300
21064 6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	3301 if (l != NULL)
6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	3302 CHECK_LIST_MATERIALIZE(l);
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3303 if (argvars[2].v_type == VAR_UNKNOWN)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3304 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3305 if (l == NULL \|\| l->lv_first == NULL)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3306 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3307 semsg(_(e_reduceempty), "List");
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3308 return;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3309 }
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	3310 initial = l->lv_first->li_tv;
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3311 li = l->lv_first->li_next;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3312 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3313 else
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3314 {
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	3315 initial = argvars[2];
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3316 if (l != NULL)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3317 li = l->lv_first;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3318 }
21064 6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	3319 copy_tv(&initial, rettv);
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3320
21064 6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	3321 if (l != NULL)
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3322 {
21064 6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	3323 int prev_locked = l->lv_lock;
6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	3324
6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	3325 l->lv_lock = VAR_FIXED; // disallow the list changing here
6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	3326 for ( ; li != NULL; li = li->li_next)
6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	3327 {
6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	3328 argv[0] = *rettv;
6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	3329 argv[1] = li->li_tv;
6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	3330 rettv->v_type = VAR_UNKNOWN;
6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	3331 r = call_func(func_name, -1, rettv, 2, argv, &funcexe);
6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	3332 clear_tv(&argv[0]);
6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	3333 if (r == FAIL \|\| called_emsg != called_emsg_start)
6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	3334 break;
6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	3335 }
6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	3336 l->lv_lock = prev_locked;
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3337 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3338 }
26638 6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3339 else if (argvars[0].v_type == VAR_STRING)
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3340 {
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3341 char_u *p = tv_get_string(&argvars[0]);
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3342 int len;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3343
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3344 if (argvars[2].v_type == VAR_UNKNOWN)
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3345 {
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3346 if (*p == NUL)
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3347 {
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3348 semsg(_(e_reduceempty), "String");
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3349 return;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3350 }
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3351 if (tv_get_first_char(p, rettv) == FAIL)
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3352 return;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3353 p += STRLEN(rettv->vval.v_string);
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3354 }
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3355 else if (argvars[2].v_type != VAR_STRING)
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3356 {
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3357 semsg(_(e_string_expected_for_argument_nr), 3);
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3358 return;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3359 }
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3360 else
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3361 copy_tv(&argvars[2], rettv);
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3362
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3363 for ( ; *p != NUL; p += len)
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3364 {
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3365 argv[0] = *rettv;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3366 if (tv_get_first_char(p, &argv[1]) == FAIL)
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3367 break;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3368 len = STRLEN(argv[1].vval.v_string);
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3369 r = call_func(func_name, -1, rettv, 2, argv, &funcexe);
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3370 clear_tv(&argv[0]);
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3371 clear_tv(&argv[1]);
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3372 if (r == FAIL \|\| called_emsg != called_emsg_start)
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3373 break;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3374 }
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string Bram Moolenaar <Bram@vim.org> parents: 26585 diff changeset	3375 }
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3376 else
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3377 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3378 blob_T *b = argvars[0].vval.v_blob;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3379 int i;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3380
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3381 if (argvars[2].v_type == VAR_UNKNOWN)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3382 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3383 if (b == NULL \|\| b->bv_ga.ga_len == 0)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3384 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3385 semsg(_(e_reduceempty), "Blob");
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3386 return;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3387 }
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	3388 initial.v_type = VAR_NUMBER;
a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	3389 initial.vval.v_number = blob_get(b, 0);
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3390 i = 1;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3391 }
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	3392 else if (argvars[2].v_type != VAR_NUMBER)
a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	3393 {
25306 078edc1821bf patch 8.2.3190: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 25302 diff changeset	3394 emsg(_(e_number_expected));
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	3395 return;
a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	3396 }
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3397 else
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3398 {
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	3399 initial = argvars[2];
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3400 i = 0;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3401 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3402
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	3403 copy_tv(&initial, rettv);
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3404 if (b != NULL)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3405 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3406 for ( ; i < b->bv_ga.ga_len; i++)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3407 {
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	3408 argv[0] = *rettv;
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3409 argv[1].v_type = VAR_NUMBER;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3410 argv[1].vval.v_number = blob_get(b, i);
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3411 if (call_func(func_name, -1, rettv, 2, argv, &funcexe) == FAIL)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3412 return;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3413 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3414 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3415 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3416 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	3417
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	3418 #endif // defined(FEAT_EVAL)

Mercurial > vim

annotate src/list.c @ 26638:6fd15d82e898 v8.2.3848