vim: src/list.c annotate

annotate src/list.c @ 24160:e695db9a5465 v8.2.2621

patch 8.2.2621: typval2type() cannot handle recursive structures Commit: https://github.com/vim/vim/commit/108cf0153c5770e343aec9e2390acdaa4a0b149a Author: Bram Moolenaar <Bram@vim.org> Date: Thu Mar 18 22:15:04 2021 +0100 patch 8.2.2621: typval2type() cannot handle recursive structures Problem: typval2type() cannot handle recursive structures. Solution: Use copyID. (closes https://github.com/vim/vim/issues/7979)

author	Bram Moolenaar <Bram@vim.org>
date	Thu, 18 Mar 2021 22:30:03 +0100
parents	06da0685077b
children	d406858354a6

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 /*
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	317 * 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	318 * 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	319 */
19916 dcec86d796bc patch 8.2.0514: several global functions are used in only one file Bram Moolenaar <Bram@vim.org> parents: 19888 diff changeset	320 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	321 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	322 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	323 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	324 \|\| 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	325 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	326 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	327
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	328 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	329 * 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	330 * 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	331 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	332 void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	333 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	334 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	335 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	336 list_free_item(l, item);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	337 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	338
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	339 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	340 * 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	341 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	342 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	343 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	344 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	345 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	346 listitem_free(l, item);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	347 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	348
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	349 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	350 * 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	351 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	352 long
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	353 list_len(list_T *l)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	354 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	355 if (l == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	356 return 0L;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	357 return l->lv_len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	358 }
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 * 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	362 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	363 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	364 list_equal(
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	365 list_T *l1,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	366 list_T *l2,
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	367 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	368 int recursive) // TRUE when used recursively
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 listitem_T item1, item2;
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 if (l1 == l2)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	373 return TRUE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	374 if (list_len(l1) != list_len(l2))
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	375 return FALSE;
19966 c0eb073378e7 patch 8.2.0539: comparing two NULL list fails Bram Moolenaar <Bram@vim.org> parents: 19934 diff changeset	376 if (list_len(l1) == 0)
c0eb073378e7 patch 8.2.0539: comparing two NULL list fails Bram Moolenaar <Bram@vim.org> parents: 19934 diff changeset	377 // 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	378 return TRUE;
c0eb073378e7 patch 8.2.0539: comparing two NULL list fails Bram Moolenaar <Bram@vim.org> parents: 19934 diff changeset	379 if (l1 == NULL \|\| l2 == NULL)
c0eb073378e7 patch 8.2.0539: comparing two NULL list fails Bram Moolenaar <Bram@vim.org> parents: 19934 diff changeset	380 return FALSE;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	381
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	382 CHECK_LIST_MATERIALIZE(l1);
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	383 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	384
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	385 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	386 item1 != NULL && item2 != NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	387 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	388 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	389 return FALSE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	390 return item1 == NULL && item2 == NULL;
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
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 * 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	395 * 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	396 * 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	397 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	398 listitem_T *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	399 list_find(list_T *l, long n)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	400 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	401 listitem_T *item;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	402 long idx;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	403
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	404 if (l == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	405 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	406
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	407 // 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	408 if (n < 0)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	409 n = l->lv_len + n;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	410
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	411 // Check for index out of range.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	412 if (n < 0 \|\| n >= l->lv_len)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	413 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	414
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	415 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	416
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	417 // 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	418 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	419 {
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	420 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	421 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	422 // 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	423 item = l->lv_first;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	424 idx = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	425 }
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	426 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	427 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	428 // 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	429 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	430 idx = l->lv_len - 1;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	431 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	432 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	433 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	434 // 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	435 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	436 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	437 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	438 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	439 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	440 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	441 if (n < l->lv_len / 2)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	442 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	443 // 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	444 item = l->lv_first;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	445 idx = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	446 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	447 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	448 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	449 // 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	450 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	451 idx = l->lv_len - 1;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	452 }
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
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	455 while (n > idx)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	456 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	457 // search forward
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	458 item = item->li_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	459 ++idx;
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 while (n < idx)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	462 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	463 // search backward
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	464 item = item->li_prev;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	465 --idx;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	466 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	467
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	468 // cache the used index
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	469 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	470 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	471
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	472 return item;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	473 }
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 * 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	477 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	478 long
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	479 list_find_nr(
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	480 list_T *l,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	481 long idx,
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	482 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	483 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	484 listitem_T *li;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	485
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	486 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	487 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	488 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	489
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	490 // 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	491 // 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	492 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	493 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	494
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	495 // 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	496 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	497 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	498 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	499 *errorp = TRUE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	500 return -1L;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	501 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	502
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	503 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	504 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	505
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	506 li = list_find(l, idx);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	507 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	508 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	509 if (errorp != NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	510 *errorp = TRUE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	511 return -1L;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	512 }
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	513 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	514 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	515
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	516 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	517 * 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	518 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	519 char_u *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	520 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	521 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	522 listitem_T *li;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	523
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	524 li = list_find(l, idx - 1);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	525 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	526 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15211 diff changeset	527 semsg(_(e_listidx), idx);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	528 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	529 }
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	530 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	531 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	532
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	533 /*
23982 9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	534 * 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	535 * 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	536 */
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	537 listitem_T *
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	538 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	539 {
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	540 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	541
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	542 if (li == NULL)
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	543 {
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	544 if (*idx < 0)
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	545 {
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	546 *idx = 0;
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	547 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	548 }
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	549 }
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	550 return li;
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	551 }
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	552
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet Bram Moolenaar <Bram@vim.org> parents: 23917 diff changeset	553 /*
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	554 * 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	555 * 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	556 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	557 long
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	558 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	559 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	560 long idx = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	561 listitem_T *li;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	562
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	563 if (l == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	564 return -1;
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	565 CHECK_LIST_MATERIALIZE(l);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	566 idx = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	567 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	568 ++idx;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	569 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	570 return -1;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	571 return idx;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	572 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	573
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	574 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	575 * 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	576 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	577 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	578 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	579 {
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	580 CHECK_LIST_MATERIALIZE(l);
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	581 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	582 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	583 // empty list
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	584 l->lv_first = item;
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	585 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	586 item->li_prev = NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	587 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	588 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	589 {
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	590 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	591 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	592 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	593 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	594 ++l->lv_len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	595 item->li_next = NULL;
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
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	598 /*
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	599 * Append typval_T "tv" to the end of list "l". "tv" is copied.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	600 * Return FAIL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	601 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	602 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	603 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	604 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	605 listitem_T *li = listitem_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	606
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	607 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	608 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	609 copy_tv(tv, &li->li_tv);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	610 list_append(l, li);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	611 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	612 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	613
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	614 /*
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	615 * 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	616 * 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	617 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	618 int
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	619 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	620 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	621 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	622
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	623 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	624 return FAIL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	625 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	626 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	627 return OK;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	628 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	629
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	630 /*
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	631 * 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	632 * Return FAIL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	633 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	634 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	635 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	636 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	637 listitem_T *li = listitem_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	638
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	639 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	640 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	641 li->li_tv.v_type = VAR_DICT;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	642 li->li_tv.v_lock = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	643 li->li_tv.vval.v_dict = dict;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	644 list_append(list, li);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	645 ++dict->dv_refcount;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	646 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	647 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	648
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	649 /*
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	650 * 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	651 * 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	652 */
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	653 int
14391 46f14852a919 patch 8.1.0210: still a few K&R function declarations Christian Brabandt <cb@256bit.org> parents: 13246 diff changeset	654 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	655 {
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	656 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	657
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	658 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	659 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	660 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	661 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	662 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	663 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	664 ++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	665 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	666 }
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	667
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	668 /*
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	669 * 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	670 * When "len" >= 0 use "str[len]".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	671 * Returns FAIL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	672 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	673 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	674 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	675 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	676 listitem_T *li = listitem_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	677
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	678 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	679 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	680 list_append(l, li);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	681 li->li_tv.v_type = VAR_STRING;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	682 li->li_tv.v_lock = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	683 if (str == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	684 li->li_tv.vval.v_string = NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	685 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	686 : vim_strsave(str))) == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	687 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	688 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	689 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	690
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	691 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	692 * Append "n" to list "l".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	693 * Returns FAIL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	694 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	695 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	696 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	697 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	698 listitem_T *li;
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 li = listitem_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	701 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	702 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	703 li->li_tv.v_type = VAR_NUMBER;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	704 li->li_tv.v_lock = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	705 li->li_tv.vval.v_number = n;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	706 list_append(l, li);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	707 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	708 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	709
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	710 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	711 * 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	712 * 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	713 * 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	714 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	715 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	716 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	717 {
23458 d2b1269c2c68 patch 8.2.2272: Vim9: extend() can violate the type of a variable Bram Moolenaar <Bram@vim.org> parents: 23229 diff changeset	718 listitem_T *ni;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	719
23458 d2b1269c2c68 patch 8.2.2272: Vim9: extend() can violate the type of a variable Bram Moolenaar <Bram@vim.org> parents: 23229 diff changeset	720 if (l->lv_type != NULL && l->lv_type->tt_member != NULL
23917 4b417b776b95 patch 8.2.2501: not always clear where an error is reported Bram Moolenaar <Bram@vim.org> parents: 23888 diff changeset	721 && check_typval_arg_type(l->lv_type->tt_member, tv, 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	722 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	723 ni = listitem_alloc();
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	724 if (ni == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	725 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	726 copy_tv(tv, &ni->li_tv);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	727 list_insert(l, ni, item);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	728 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	729 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	730
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	731 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	732 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	733 {
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	734 CHECK_LIST_MATERIALIZE(l);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	735 if (item == NULL)
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	736 // 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	737 list_append(l, ni);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	738 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	739 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	740 // Insert new item before existing item.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	741 ni->li_prev = item->li_prev;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	742 ni->li_next = item;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	743 if (item->li_prev == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	744 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	745 l->lv_first = ni;
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	746 ++l->lv_u.mat.lv_idx;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	747 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	748 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	749 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	750 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	751 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	752 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	753 item->li_prev = ni;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	754 ++l->lv_len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	755 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	756 }
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 /*
20766 821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	759 * 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	760 * 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	761 * 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	762 */
23816 525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	763 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	764 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	765 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	766 listitem_T *item;
20770 b366a0fe8296 patch 8.2.0937: asan failure in the flatten() test Bram Moolenaar <Bram@vim.org> parents: 20766 diff changeset	767 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	768 int n;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	769
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	770 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	771 return;
20766 821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	772 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	773
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	774 n = 0;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	775 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	776 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	777 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	778 fast_breakcheck();
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	779 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	780 return;
20766 821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	781
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	782 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	783 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	784 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	785
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	786 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	787 if (list_extend(list, item->li_tv.vval.v_list, next) == FAIL)
23816 525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	788 return;
20770 b366a0fe8296 patch 8.2.0937: asan failure in the flatten() test Bram Moolenaar <Bram@vim.org> parents: 20766 diff changeset	789 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	790 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	791
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	792 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	793 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	794 else
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	795 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	796 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	797
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	798 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	799 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	800 n = 0;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	801 item = next;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	802 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	803 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	804 else
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	805 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	806 n = 0;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	807 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	808 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	809 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	810 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	811
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	812 /*
23816 525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	813 * "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	814 */
23816 525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	815 static void
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	816 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	817 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	818 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	819 long maxdepth;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	820 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	821
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	822 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	823 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	824 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	825 return;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	826 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	827
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	828 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	829 maxdepth = 999999;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	830 else
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	831 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	832 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	833 if (error)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	834 return;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	835 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	836 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	837 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	838 return;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	839 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	840 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	841
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	842 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	843 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	844 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	845 if (l == NULL)
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	846 return;
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	847
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	848 if (make_copy)
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	849 {
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	850 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	851 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	852 if (l == NULL)
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	853 return;
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	854 }
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	855 else
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	856 {
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	857 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	858 (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	859 return;
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	860 ++l->lv_refcount;
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	861 }
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	862
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	863 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	864 }
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	865
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	866 /*
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	867 * "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	868 */
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	869 void
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	870 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	871 {
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	872 if (in_vim9script())
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	873 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	874 else
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	875 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	876 }
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	877
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	878 /*
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	879 * "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	880 */
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	881 void
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	882 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	883 {
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type Bram Moolenaar <Bram@vim.org> parents: 23800 diff changeset	884 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	885 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	886
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	887 /*
22545 47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work Bram Moolenaar <Bram@vim.org> parents: 22303 diff changeset	888 * 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	889 * 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	890 * Returns FAIL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	891 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	892 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	893 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	894 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	895 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	896 int todo;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	897
22545 47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work Bram Moolenaar <Bram@vim.org> parents: 22303 diff changeset	898 // 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	899 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	900 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	901
47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work Bram Moolenaar <Bram@vim.org> parents: 22303 diff changeset	902 todo = l2->lv_len;
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	903 CHECK_LIST_MATERIALIZE(l1);
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	904 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	905
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	906 // 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	907 // the list, avoid a hang when we extend a list with itself.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	908 for (item = l2->lv_first; item != NULL && --todo >= 0; item = item->li_next)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	909 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	910 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	911 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	912 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	913
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	914 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	915 * 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	916 * Return FAIL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	917 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	918 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	919 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	920 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	921 list_T *l;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	922
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	923 // 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	924 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	925 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	926 else
47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work Bram Moolenaar <Bram@vim.org> parents: 22303 diff changeset	927 l = list_copy(l1, FALSE, 0);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	928 if (l == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	929 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	930 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	931 tv->v_lock = 0;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	932 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	933 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	934 ++l->lv_refcount;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	935
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	936 // 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	937 return list_extend(l, l2, NULL);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	938 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	939
20871 65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	940 list_T *
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	941 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	942 {
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	943 listitem_T *item;
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	944 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	945
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	946 if (l == NULL)
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	947 return NULL;
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	948 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	949 {
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	950 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	951 {
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	952 list_free(l);
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	953 return NULL;
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	954 }
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	955 item = item->li_next;
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	956 }
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	957 return l;
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	958 }
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	959
21828 af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	960 int
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	961 list_slice_or_index(
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	962 list_T *list,
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	963 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	964 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	965 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	966 int exclusive,
21828 af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	967 typval_T *rettv,
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	968 int verbose)
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	969 {
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	970 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	971 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	972 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	973 typval_T var1;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	974
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	975 if (n1 < 0)
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	976 n1 = len + n1;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	977 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	978 {
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	979 // For a range we allow invalid values and return an empty
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	980 // list. A list index out of range is an error.
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	981 if (!range)
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	982 {
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	983 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	984 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	985 return FAIL;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	986 }
21833 e3f9528bddda patch 8.2.1466: Vim9: cannot index or slice a variable with type "any" Bram Moolenaar <Bram@vim.org> parents: 21831 diff changeset	987 n1 = n1 < 0 ? 0 : len;
21828 af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	988 }
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	989 if (range)
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	990 {
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	991 list_T *l;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	992
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	993 if (n2 < 0)
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	994 n2 = len + n2;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	995 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	996 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	997 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	998 --n2;
21828 af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	999 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	1000 n2 = -1;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1001 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	1002 if (l == NULL)
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1003 return FAIL;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1004 clear_tv(rettv);
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1005 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	1006 }
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1007 else
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1008 {
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1009 // 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	1010 // invalid.
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1011 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	1012 clear_tv(rettv);
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1013 *rettv = var1;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1014 }
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1015 return OK;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1016 }
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1017
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1018 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1019 * 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	1020 * 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	1021 * See item_copy() for "copyID".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1022 * Returns NULL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1023 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1024 list_T *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1025 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	1026 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1027 list_T *copy;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1028 listitem_T *item;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1029 listitem_T *ni;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1030
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1031 if (orig == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1032 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1033
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1034 copy = list_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1035 if (copy != NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1036 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1037 if (copyID != 0)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1038 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1039 // 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	1040 // refer back to this list.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1041 orig->lv_copyID = copyID;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1042 orig->lv_copylist = copy;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1043 }
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1044 CHECK_LIST_MATERIALIZE(orig);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1045 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	1046 item = item->li_next)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1047 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1048 ni = listitem_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1049 if (ni == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1050 break;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1051 if (deep)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1052 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1053 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	1054 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1055 vim_free(ni);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1056 break;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1057 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1058 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1059 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1060 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	1061 list_append(copy, ni);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1062 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1063 ++copy->lv_refcount;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1064 if (item != NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1065 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1066 list_unref(copy);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1067 copy = NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1068 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1069 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1070
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1071 return copy;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1072 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1073
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1074 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1075 * 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	1076 * 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	1077 * 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	1078 * file.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1079 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1080 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1081 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	1082 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1083 listitem_T *ip;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1084
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1085 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	1086
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1087 // notify watchers
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1088 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	1089 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1090 --l->lv_len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1091 list_fix_watch(l, ip);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1092 if (ip == item2)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1093 break;
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
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1096 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	1097 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	1098 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1099 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	1100 if (item->li_prev == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1101 l->lv_first = item2->li_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1102 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1103 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	1104 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	1105 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1106
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1107 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1108 * 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	1109 * May return NULL.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1110 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1111 char_u *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1112 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	1113 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1114 garray_T ga;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1115
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1116 if (tv->vval.v_list == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1117 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1118 ga_init2(&ga, (int)sizeof(char), 80);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1119 ga_append(&ga, '[');
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1120 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	1121 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	1122 FALSE, restore_copyID, copyID) == FAIL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1123 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1124 vim_free(ga.ga_data);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1125 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1126 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1127 ga_append(&ga, ']');
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1128 ga_append(&ga, NUL);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1129 return (char_u *)ga.ga_data;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1130 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1131
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1132 typedef struct join_S {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1133 char_u *s;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1134 char_u *tofree;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1135 } join_T;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1136
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1137 static int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1138 list_join_inner(
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1139 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	1140 list_T *l,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1141 char_u *sep,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1142 int echo_style,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1143 int restore_copyID,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1144 int copyID,
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1145 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	1146 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1147 int i;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1148 join_T *p;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1149 int len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1150 int sumlen = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1151 int first = TRUE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1152 char_u *tofree;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1153 char_u numbuf[NUMBUFLEN];
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1154 listitem_T *item;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1155 char_u *s;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1156
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1157 // 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	1158 CHECK_LIST_MATERIALIZE(l);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1159 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	1160 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1161 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	1162 echo_style, restore_copyID, !echo_style);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1163 if (s == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1164 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1165
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1166 len = (int)STRLEN(s);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1167 sumlen += len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1168
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1169 (void)ga_grow(join_gap, 1);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1170 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	1171 if (tofree != NULL \|\| s != numbuf)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1172 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1173 p->s = s;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1174 p->tofree = tofree;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1175 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1176 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1177 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1178 p->s = vim_strnsave(s, len);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1179 p->tofree = p->s;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1180 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1181
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1182 line_breakcheck();
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1183 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	1184 break;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1185 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1186
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1187 // 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	1188 // 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	1189 if (join_gap->ga_len >= 2)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1190 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	1191 if (ga_grow(gap, sumlen + 2) == FAIL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1192 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1193
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1194 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	1195 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1196 if (first)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1197 first = FALSE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1198 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1199 ga_concat(gap, sep);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1200 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	1201
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1202 if (p->s != NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1203 ga_concat(gap, p->s);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1204 line_breakcheck();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1205 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1206
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1207 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1208 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1209
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1210 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1211 * 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	1212 * 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	1213 * Return FAIL or OK.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1214 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1215 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1216 list_join(
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1217 garray_T *gap,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1218 list_T *l,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1219 char_u *sep,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1220 int echo_style,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1221 int restore_copyID,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1222 int copyID)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1223 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1224 garray_T join_ga;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1225 int retval;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1226 join_T *p;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1227 int i;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1228
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1229 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	1230 return OK; // nothing to do
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1231 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	1232 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	1233 copyID, &join_ga);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1234
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1235 // Dispose each item in join_ga.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1236 if (join_ga.ga_data != NULL)
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 p = (join_T *)join_ga.ga_data;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1239 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	1240 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1241 vim_free(p->tofree);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1242 ++p;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1243 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1244 ga_clear(&join_ga);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1245 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1246
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1247 return retval;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1248 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1249
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1250 /*
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1251 * "join()" function
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1252 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1253 void
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1254 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	1255 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1256 garray_T ga;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1257 char_u *sep;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1258
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1259 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	1260 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1261 emsg(_(e_listreq));
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1262 return;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1263 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1264 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	1265 return;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1266 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	1267 sep = (char_u *)" ";
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1268 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1269 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	1270
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1271 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	1272
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1273 if (sep != NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1274 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1275 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	1276 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	1277 ga_append(&ga, NUL);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1278 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	1279 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1280 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1281 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	1282 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1283
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1284 /*
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1285 * 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	1286 * "*arg" points to the "[".
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1287 * Return OK or FAIL.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1288 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1289 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	1290 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	1291 {
21028 7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list Bram Moolenaar <Bram@vim.org> parents: 21000 diff changeset	1292 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	1293 : evalarg->eval_flags & EVAL_EVALUATE;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1294 list_T *l = NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1295 typval_T tv;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1296 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	1297 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	1298 int had_comma;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1299
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1300 if (evaluate)
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 = list_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1303 if (l == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1304 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1305 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1306
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	1307 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	1308 while (arg != ']' && arg != NUL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1309 {
21028 7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list Bram Moolenaar <Bram@vim.org> parents: 21000 diff changeset	1310 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	1311 goto failret;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1312 if (evaluate)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1313 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1314 item = listitem_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1315 if (item != NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1316 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1317 item->li_tv = tv;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1318 item->li_tv.v_lock = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1319 list_append(l, item);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1320 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1321 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1322 clear_tv(&tv);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1323 }
21556 963913d80284 patch 8.2.1328: no space allowed before comma in list Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1324 // 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	1325 if (!vim9script)
963913d80284 patch 8.2.1328: no space allowed before comma in list Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1326 arg = skipwhite(arg);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1327
21036 f58ee30d863f patch 8.2.1069: Vim9: fail to check for white space in list Bram Moolenaar <Bram@vim.org> parents: 21028 diff changeset	1328 // 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	1329 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	1330 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	1331 {
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	1332 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	1333 {
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	1334 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	1335 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	1336 }
21028 7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list Bram Moolenaar <Bram@vim.org> parents: 21000 diff changeset	1337 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	1338 }
21028 7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list Bram Moolenaar <Bram@vim.org> parents: 21000 diff changeset	1339
21118 b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21064 diff changeset	1340 // 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	1341 // 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	1342 arg = skipwhite_and_linebreak(arg, evalarg);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1343 if (**arg == ']')
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1344 break;
21028 7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list Bram Moolenaar <Bram@vim.org> parents: 21000 diff changeset	1345
7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list Bram Moolenaar <Bram@vim.org> parents: 21000 diff changeset	1346 if (!had_comma)
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1347 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	1348 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	1349 {
5a2373c25a86 patch 8.2.1430: Vim9: error for missing comma instead of extra white space Bram Moolenaar <Bram@vim.org> parents: 21556 diff changeset	1350 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	1351 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	1352 ",", *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	1353 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	1354 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	1355 }
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1356 goto failret;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1357 }
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
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1360 if (**arg != ']')
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1361 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	1362 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	1363 semsg(_(e_list_end), *arg);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1364 failret:
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1365 if (evaluate)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1366 list_free(l);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1367 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1368 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1369
21552 cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list Bram Moolenaar <Bram@vim.org> parents: 21279 diff changeset	1370 *arg += 1;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1371 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	1372 rettv_list_set(rettv, l);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1373
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1374 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1375 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1376
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1377 /*
10549 055b1633aed7 patch 8.0.0164: outdated and misplaced comments Christian Brabandt <cb@256bit.org> parents: 10042 diff changeset	1378 * 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	1379 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1380 int
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1381 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	1382 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1383 listitem_T *li;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1384 int c;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1385 int ret = OK;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1386 char_u *s;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1387
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1388 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	1389 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	1390 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1391 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	1392 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1393 if (*s == '\n')
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1394 c = putc(NUL, fd);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1395 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1396 c = putc(*s, fd);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1397 if (c == EOF)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1398 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1399 ret = FAIL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1400 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1401 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1402 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1403 if (!binary \|\| li->li_next != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1404 if (putc('\n', fd) == EOF)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1405 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1406 ret = FAIL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1407 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1408 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1409 if (ret == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1410 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15211 diff changeset	1411 emsg(_(e_write));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1412 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1413 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1414 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1415 return ret;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1416 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1417
9626 172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1418 /*
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1419 * 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	1420 */
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1421 void
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1422 init_static_list(staticList10_T *sl)
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1423 {
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1424 list_T *l = &sl->sl_list;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1425 int i;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1426
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1427 memset(sl, 0, sizeof(staticList10_T));
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1428 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	1429 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	1430 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	1431 l->lv_lock = VAR_FIXED;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1432 sl->sl_list.lv_len = 10;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1433
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1434 for (i = 0; i < 10; ++i)
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1435 {
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1436 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	1437
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1438 if (i == 0)
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1439 li->li_prev = NULL;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1440 else
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1441 li->li_prev = li - 1;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1442 if (i == 9)
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1443 li->li_next = NULL;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1444 else
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1445 li->li_next = li + 1;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1446 }
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1447 }
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1448
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1449 /*
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1450 * "list2str()" function
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1451 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1452 void
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1453 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	1454 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1455 list_T *l;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1456 listitem_T *li;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1457 garray_T ga;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1458 int utf8 = FALSE;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1459
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1460 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	1461 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	1462 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	1463 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1464 emsg(_(e_invarg));
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1465 return;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1466 }
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 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	1469 if (l == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1470 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	1471
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1472 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	1473 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	1474
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1475 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	1476 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	1477 if (has_mbyte \|\| utf8)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1478 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1479 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	1480 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	1481
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1482 if (utf8 \|\| enc_utf8)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1483 char2bytes = utf_char2bytes;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1484 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1485 char2bytes = mb_char2bytes;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1486
19888 435726a03481 patch 8.2.0500: using the same loop in many places Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1487 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	1488 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1489 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	1490 ga_concat(&ga, buf);
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_append(&ga, NUL);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1493 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1494 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	1495 {
19888 435726a03481 patch 8.2.0500: using the same loop in many places Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1496 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	1497 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	1498 ga_append(&ga, NUL);
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 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	1502 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	1503 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1504
19916 dcec86d796bc patch 8.2.0514: several global functions are used in only one file Bram Moolenaar <Bram@vim.org> parents: 19888 diff changeset	1505 static void
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1506 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	1507 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1508 list_T *l;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1509 listitem_T item, item2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1510 listitem_T *li;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1511 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	1512 long idx;
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1513
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1514 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	1515 \|\| 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	1516 return;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1517
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1518 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	1519 if (error)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1520 ; // 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	1521 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	1522 semsg(_(e_listidx), idx);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1523 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1524 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1525 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	1526 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1527 // 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	1528 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	1529 *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	1530 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	1531 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1532 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1533 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1534 // 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	1535 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	1536
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1537 if (error)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1538 ; // type error: do nothing
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1539 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	1540 semsg(_(e_listidx), end);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1541 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1542 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1543 int cnt = 0;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1544
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1545 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	1546 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1547 ++cnt;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1548 if (li == item2)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1549 break;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1550 }
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1551 if (li == NULL) // didn't find "item2" after "item"
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1552 emsg(_(e_invrange));
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1553 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1554 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1555 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	1556 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	1557 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1558 l = rettv->vval.v_list;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1559 l->lv_first = item;
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	1560 l->lv_u.mat.lv_last = item2;
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1561 item->li_prev = NULL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1562 item2->li_next = NULL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1563 l->lv_len = cnt;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1564 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1565 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1566 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1567 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1568 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1569 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1570
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1571 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	1572 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	1573
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1574 // 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	1575 typedef struct
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1576 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1577 listitem_T *item;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1578 int idx;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1579 } sortItem_T;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1580
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1581 // 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	1582 typedef struct
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1583 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1584 int item_compare_ic;
22770 3e4981de5636 patch 8.2.1933: cannot sort using locale ordering Bram Moolenaar <Bram@vim.org> parents: 22608 diff changeset	1585 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	1586 int item_compare_numeric;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1587 int item_compare_numbers;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1588 #ifdef FEAT_FLOAT
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1589 int item_compare_float;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1590 #endif
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1591 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	1592 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	1593 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	1594 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	1595 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	1596 } sortinfo_T;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1597 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	1598 #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	1599
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1600 /*
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1601 * 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	1602 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1603 static int
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1604 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	1605 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1606 sortItem_T si1, si2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1607 typval_T tv1, tv2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1608 char_u p1, p2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1609 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	1610 int res;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1611 char_u numbuf1[NUMBUFLEN];
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1612 char_u numbuf2[NUMBUFLEN];
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1613
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1614 si1 = (sortItem_T *)s1;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1615 si2 = (sortItem_T *)s2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1616 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	1617 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	1618
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1619 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	1620 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1621 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	1622 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	1623
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1624 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	1625 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1626
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1627 #ifdef FEAT_FLOAT
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1628 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	1629 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1630 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	1631 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	1632
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1633 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	1634 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1635 #endif
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1636
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1637 // 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	1638 // 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	1639 // 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	1640 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	1641 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1642 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	1643 p1 = (char_u *)"'";
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1644 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1645 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	1646 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1647 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1648 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	1649 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	1650 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1651 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	1652 p2 = (char_u *)"'";
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1653 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1654 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	1655 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1656 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1657 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	1658 if (p1 == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1659 p1 = (char_u *)"";
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1660 if (p2 == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1661 p2 = (char_u *)"";
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1662 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	1663 {
22770 3e4981de5636 patch 8.2.1933: cannot sort using locale ordering Bram Moolenaar <Bram@vim.org> parents: 22608 diff changeset	1664 if (sortinfo->item_compare_lc)
3e4981de5636 patch 8.2.1933: cannot sort using locale ordering Bram Moolenaar <Bram@vim.org> parents: 22608 diff changeset	1665 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	1666 else
22770 3e4981de5636 patch 8.2.1933: cannot sort using locale ordering Bram Moolenaar <Bram@vim.org> parents: 22608 diff changeset	1667 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	1668 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1669 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1670 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1671 double n1, n2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1672 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	1673 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	1674 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	1675 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1676
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1677 // 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	1678 // sort stable.
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1679 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	1680 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	1681
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1682 vim_free(tofree1);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1683 vim_free(tofree2);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1684 return res;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1685 }
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 static int
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1688 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	1689 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1690 sortItem_T si1, si2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1691 int res;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1692 typval_T rettv;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1693 typval_T argv[3];
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1694 char_u *func_name;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1695 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	1696 funcexe_T funcexe;
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1697
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1698 // 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	1699 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	1700 return 0;
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 si1 = (sortItem_T *)s1;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1703 si2 = (sortItem_T *)s2;
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 (partial == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1706 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	1707 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1708 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	1709
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1710 // 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	1711 // 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	1712 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	1713 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	1714
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1715 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	1716 CLEAR_FIELD(funcexe);
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17530 diff changeset	1717 funcexe.evaluate = TRUE;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17530 diff changeset	1718 funcexe.partial = partial;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17530 diff changeset	1719 funcexe.selfdict = sortinfo->item_compare_selfdict;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17530 diff changeset	1720 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	1721 clear_tv(&argv[0]);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1722 clear_tv(&argv[1]);
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 if (res == FAIL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1725 res = ITEM_COMPARE_FAIL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1726 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1727 res = (int)tv_get_number_chk(&rettv, &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	1728 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	1729 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	1730 clear_tv(&rettv);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1731
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1732 // 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	1733 // the sort stable.
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1734 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	1735 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	1736
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1737 return res;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1738 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1739
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 * "sort()" or "uniq()" function
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1742 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1743 static void
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1744 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	1745 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1746 list_T *l;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1747 listitem_T *li;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1748 sortItem_T *ptrs;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1749 sortinfo_T *old_sortinfo;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1750 sortinfo_T info;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1751 long len;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1752 long i;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1753
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1754 // 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	1755 // 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	1756 old_sortinfo = sortinfo;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1757 sortinfo = &info;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1758
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1759 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	1760 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	1761 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1762 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1763 l = argvars[0].vval.v_list;
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	1764 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	1765 (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	1766 TRUE))
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1767 goto theend;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1768 rettv_list_set(rettv, l);
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1769 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	1770
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1771 len = list_len(l);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1772 if (len <= 1)
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1773 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	1774
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1775 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	1776 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	1777 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	1778 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	1779 #ifdef FEAT_FLOAT
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1780 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	1781 #endif
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1782 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	1783 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	1784 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	1785 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	1786 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1787 // 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	1788 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	1789 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	1790 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	1791 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	1792 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1793 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1794 int error = FALSE;
22303 4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1795 int nr = 0;
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1796
22303 4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1797 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	1798 {
22303 4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1799 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	1800 if (error)
4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1801 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	1802 if (nr == 1)
4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1803 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	1804 }
4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1805 if (nr != 1)
4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1806 {
4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1807 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	1808 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	1809 else if (nr != 0)
4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1810 {
4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1811 emsg(_(e_invarg));
4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1812 goto theend;
4ce3906e5997 patch 8.2.1701: Vim9: sort("i") does not work Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1813 }
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1814 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1815 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	1816 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1817 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	1818 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1819 // 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	1820 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	1821 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1822 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	1823 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1824 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	1825 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	1826 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1827 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	1828 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1829 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	1830 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	1831 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1832 #ifdef FEAT_FLOAT
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1833 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	1834 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1835 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	1836 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	1837 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1838 #endif
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1839 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	1840 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1841 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	1842 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	1843 }
22770 3e4981de5636 patch 8.2.1933: cannot sort using locale ordering Bram Moolenaar <Bram@vim.org> parents: 22608 diff changeset	1844 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	1845 {
3e4981de5636 patch 8.2.1933: cannot sort using locale ordering Bram Moolenaar <Bram@vim.org> parents: 22608 diff changeset	1846 info.item_compare_func = NULL;
3e4981de5636 patch 8.2.1933: cannot sort using locale ordering Bram Moolenaar <Bram@vim.org> parents: 22608 diff changeset	1847 info.item_compare_lc = TRUE;
3e4981de5636 patch 8.2.1933: cannot sort using locale ordering Bram Moolenaar <Bram@vim.org> parents: 22608 diff changeset	1848 }
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1849 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1850 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1851
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1852 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	1853 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1854 // 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	1855 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	1856 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1857 emsg(_(e_dictreq));
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1858 goto theend;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1859 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1860 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	1861 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1862 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1863
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1864 // 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	1865 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	1866 if (ptrs == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1867 goto theend;
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 i = 0;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1870 if (sort)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1871 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1872 // 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	1873 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	1874 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1875 ptrs[i].item = li;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1876 ptrs[i].idx = i;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1877 ++i;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1878 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1879
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1880 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	1881 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	1882 // 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	1883 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	1884 \|\| 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	1885 && 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	1886 == ITEM_COMPARE_FAIL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1887 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	1888 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1889 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1890 // 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	1891 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	1892 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	1893 && 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	1894 ? item_compare : item_compare2);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1895
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1896 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	1897 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1898 // 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	1899 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	1900 = 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	1901 l->lv_len = 0;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1902 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	1903 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	1904 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1905 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1906 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1907 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1908 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1909 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	1910
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1911 // 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	1912 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	1913 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	1914 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	1915 \|\| 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	1916 ? item_compare2 : item_compare;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1917
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1918 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	1919 li = li->li_next)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1920 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1921 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	1922 == 0)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1923 ptrs[i++].item = li;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1924 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	1925 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1926 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	1927 break;
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
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1931 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	1932 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1933 while (--i >= 0)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1934 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1935 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	1936 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	1937 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	1938 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	1939 else
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	1940 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	1941 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	1942 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	1943 l->lv_len--;
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 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1946 }
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 vim_free(ptrs);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1949 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1950 theend:
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1951 sortinfo = old_sortinfo;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1952 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1953
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1954 /*
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1955 * "sort({list})" function
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1956 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1957 void
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1958 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	1959 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1960 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	1961 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1962
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1963 /*
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1964 * "uniq({list})" function
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1965 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1966 void
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1967 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	1968 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1969 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	1970 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1971
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	1972 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	1973 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	1974 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	1975 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	1976 } 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	1977
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1978 /*
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1979 * 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	1980 * 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	1981 */
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1982 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	1983 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	1984 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	1985 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	1986 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	1987 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	1988 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	1989 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1990 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	1991 int retval = FAIL;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1992
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1993 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	1994 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	1995 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	1996 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	1997 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	1998 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	1999 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2000 int error = FALSE;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2001
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2002 // 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	2003 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	2004 *remp = !tv2bool(newtv);
21831 d8422de73113 patch 8.2.1465: Vim9: subscript not handled properly Bram Moolenaar <Bram@vim.org> parents: 21828 diff changeset	2005 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	2006 *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	2007 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	2008 // 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	2009 // 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	2010 if (error)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2011 goto theend;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2012 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2013 retval = OK;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2014 theend:
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2015 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	2016 return retval;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2017 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2018
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2019 /*
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2020 * 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	2021 */
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2022 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	2023 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	2024 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2025 typval_T *expr;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2026 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	2027 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	2028 dictitem_T *di;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2029 hashtab_T *ht;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2030 hashitem_T *hi;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2031 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	2032 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	2033 int rem;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2034 int todo;
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	2035 char_u ermsg = (char_u )(filtermap == FILTERMAP_MAP ? "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	2036 : filtermap == FILTERMAP_MAPNEW ? "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	2037 : "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	2038 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	2039 ? 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	2040 : 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	2041 ? 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	2042 : 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	2043 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	2044 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	2045 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	2046 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	2047
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	2048 // map() and filter() return the first argument, also on failure.
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2049 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	2050 copy_tv(&argvars[0], rettv);
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	2051 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	2052 {
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	2053 // 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	2054 ga_init2(&type_list, sizeof(type_T *), 10);
24160 e695db9a5465 patch 8.2.2621: typval2type() cannot handle recursive structures Bram Moolenaar <Bram@vim.org> parents: 23990 diff changeset	2055 type = typval2type(argvars, get_copyID(), &type_list);
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	2056 }
22608 f140b9036aa5 patch 8.2.1852: map() returing zero for NULL list is unexpected Bram Moolenaar <Bram@vim.org> parents: 22545 diff changeset	2057
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2058 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	2059 {
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	2060 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	2061 {
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2062 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	2063 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	2064 }
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2065 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	2066 goto theend;
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2067 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2068 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	2069 {
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	2070 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	2071 {
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2072 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	2073 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	2074 }
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2075 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	2076 \|\| (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	2077 && 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	2078 goto theend;
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2079 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2080 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	2081 {
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	2082 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	2083 {
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2084 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	2085 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	2086 }
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2087 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	2088 \|\| (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	2089 && 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	2090 goto theend;
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2091 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2092 else
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2093 {
20550 09143ab0fbbd patch 8.2.0829: filter() may give misleading error message Bram Moolenaar <Bram@vim.org> parents: 20397 diff changeset	2094 semsg(_(e_listdictblobarg), ermsg);
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	2095 goto theend;
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2096 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2097
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2098 expr = &argvars[1];
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2099 // 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	2100 // 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	2101 // 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	2102 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	2103 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2104 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	2105 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	2106
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2107 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	2108 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	2109
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2110 // 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	2111 // 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	2112 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	2113 did_emsg = FALSE;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2114
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2115 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	2116 {
19233 04c164c971a3 patch 8.2.0175: crash when removing list element in map() Bram Moolenaar <Bram@vim.org> parents: 19229 diff changeset	2117 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	2118 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	2119
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	2120 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	2121 {
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2122 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	2123 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	2124 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	2125 }
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2126
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2127 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	2128 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	2129 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	2130 hash_lock(ht);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2131 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	2132 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	2133 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2134 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	2135 {
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	2136 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	2137 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	2138
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2139 --todo;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2140 di = HI2DI(hi);
23058 77f181975381 patch 8.2.2075: error for const argument to mapnew() Bram Moolenaar <Bram@vim.org> parents: 23037 diff changeset	2141 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	2142 && (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	2143 arg_errmsg, TRUE)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2144 \|\| 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	2145 arg_errmsg, TRUE)))
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2146 break;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2147 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	2148 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	2149 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	2150 &newtv, &rem);
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2151 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	2152 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	2153 {
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2154 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	2155 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	2156 }
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2157 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	2158 {
23917 4b417b776b95 patch 8.2.2501: not always clear where an error is reported Bram Moolenaar <Bram@vim.org> parents: 23888 diff changeset	2159 if (type != NULL && check_typval_arg_type(
4b417b776b95 patch 8.2.2501: not always clear where an error is reported Bram Moolenaar <Bram@vim.org> parents: 23888 diff changeset	2160 type->tt_member, &newtv, 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	2161 {
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	2162 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	2163 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	2164 }
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	2165 // 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	2166 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	2167 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	2168 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	2169 }
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2170 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	2171 {
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	2172 // 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	2173 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	2174 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	2175 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	2176 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	2177 }
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2178 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	2179 {
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2180 // 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	2181 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	2182 \|\| 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	2183 break;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2184 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	2185 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2186 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2187 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2188 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	2189 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	2190 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2191 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	2192 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2193 int i;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2194 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	2195 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	2196 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	2197
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2198 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	2199 {
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2200 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	2201 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	2202 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	2203 }
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2204
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2205 // 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	2206 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	2207
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2208 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	2209 {
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	2210 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	2211
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2212 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	2213 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	2214 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	2215 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	2216 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	2217 \|\| did_emsg)
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2218 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	2219 if (newtv.v_type != VAR_NUMBER)
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2220 {
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	2221 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	2222 emsg(_(e_invalblob));
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2223 break;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2224 }
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	2225 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	2226 {
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	2227 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	2228 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	2229 }
09f28c17ac58 patch 8.2.0121: filter() and map() on blob don't work Bram Moolenaar <Bram@vim.org> parents: 18800 diff changeset	2230 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	2231 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2232 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	2233
19123 09f28c17ac58 patch 8.2.0121: filter() and map() on blob don't work Bram Moolenaar <Bram@vim.org> parents: 18800 diff changeset	2234 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	2235 (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	2236 --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	2237 --i;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2238 }
19123 09f28c17ac58 patch 8.2.0121: filter() and map() on blob don't work Bram Moolenaar <Bram@vim.org> parents: 18800 diff changeset	2239 ++idx;
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2240 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2241 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2242 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	2243 {
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	2244 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	2245 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	2246
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	2247 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	2248 {
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2249 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	2250 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	2251 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	2252 }
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2253 // 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	2254 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	2255
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	2256 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	2257 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	2258
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2259 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	2260 {
23037 4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2261 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	2262 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	2263 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	2264
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2265 // 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	2266 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	2267 {
34aa2907082a patch 8.2.2325: Vim9: crash if map() changes the item type Bram Moolenaar <Bram@vim.org> parents: 23551 diff changeset	2268 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	2269 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	2270 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	2271 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	2272 }
23037 4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2273
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2274 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	2275 {
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2276 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	2277 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	2278
23037 4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2279 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	2280 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	2281 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	2282 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	2283 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	2284 == FAIL)
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2285 break;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2286 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	2287 {
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2288 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	2289 break;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2290 }
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2291 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	2292 {
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	2293 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	2294 && check_typval_arg_type(
4b417b776b95 patch 8.2.2501: not always clear where an error is reported Bram Moolenaar <Bram@vim.org> parents: 23888 diff changeset	2295 type->tt_member, &newtv, 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	2296 {
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	2297 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	2298 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	2299 }
23037 4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2300 // 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	2301 // list
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2302 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	2303 ? 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	2304 break;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2305 }
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2306 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	2307 {
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2308 // 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	2309 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	2310 break;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2311 }
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2312
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2313 val += stride;
22848 e4fbe8d1bde9 patch 8.2.1971: memory leak when map() fails Bram Moolenaar <Bram@vim.org> parents: 22844 diff changeset	2314 }
23037 4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2315 }
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2316 else
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2317 {
23058 77f181975381 patch 8.2.2075: error for const argument to mapnew() Bram Moolenaar <Bram@vim.org> parents: 23037 diff changeset	2318 // 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	2319 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	2320 {
23037 4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2321 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	2322
23058 77f181975381 patch 8.2.2075: error for const argument to mapnew() Bram Moolenaar <Bram@vim.org> parents: 23037 diff changeset	2323 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	2324 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	2325 break;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2326 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	2327 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	2328 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	2329 &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	2330 break;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2331 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	2332 {
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2333 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	2334 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	2335 }
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2336 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	2337 {
23917 4b417b776b95 patch 8.2.2501: not always clear where an error is reported Bram Moolenaar <Bram@vim.org> parents: 23888 diff changeset	2338 if (type != NULL && check_typval_arg_type(
4b417b776b95 patch 8.2.2501: not always clear where an error is reported Bram Moolenaar <Bram@vim.org> parents: 23888 diff changeset	2339 type->tt_member, &newtv, 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	2340 {
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 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	2342 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	2343 }
23037 4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2344 // 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	2345 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	2346 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	2347 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	2348 }
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2349 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	2350 {
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2351 // 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	2352 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	2353 break;
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2354 }
4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2355 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	2356 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	2357 ++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	2358 }
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2359 }
23037 4ba6c5eebb28 patch 8.2.2065: using map() and filter() on a range() is inefficient Bram Moolenaar <Bram@vim.org> parents: 22961 diff changeset	2360
19233 04c164c971a3 patch 8.2.0175: crash when removing list element in map() Bram Moolenaar <Bram@vim.org> parents: 19229 diff changeset	2361 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	2362 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2363
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2364 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	2365 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	2366
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2367 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	2368 }
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	2369
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	2370 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	2371 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	2372 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	2373 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2374
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 * "filter()" function
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2377 */
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2378 void
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2379 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	2380 {
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	2381 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	2382 }
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 /*
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2385 * "map()" function
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2386 */
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2387 void
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2388 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	2389 {
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	2390 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	2391 }
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2392
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 /*
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 * "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	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 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	2397 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	2398 {
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type Bram Moolenaar <Bram@vim.org> parents: 22802 diff changeset	2399 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	2400 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2401
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2402 /*
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2403 * "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	2404 */
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2405 void
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2406 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	2407 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2408 list_T *l;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2409 blob_T *b;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2410
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	2411 rettv->vval.v_number = 1; // Default: Failed
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2412 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	2413 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2414 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	2415 && !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	2416 (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	2417 && list_append_tv(l, &argvars[1]) == OK)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2418 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	2419 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2420 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	2421 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2422 if ((b = argvars[0].vval.v_blob) != 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	2423 && !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	2424 (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	2425 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2426 int error = FALSE;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2427 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	2428
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2429 if (!error)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2430 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2431 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	2432 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	2433 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2434 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2435 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2436 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2437 emsg(_(e_listblobreq));
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2438 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2439
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2440 /*
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2441 * "count()" function
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2442 */
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2443 void
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2444 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	2445 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2446 long n = 0;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2447 int ic = FALSE;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2448 int error = FALSE;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2449
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2450 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	2451 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	2452
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2453 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	2454 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2455 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	2456 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	2457 char_u *next;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2458
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2459 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	2460 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2461 if (ic)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2462 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2463 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	2464
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2465 while (*p != NUL)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2466 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2467 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	2468 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2469 ++n;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2470 p += len;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2471 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2472 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2473 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	2474 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2475 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2476 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2477 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	2478 != NULL)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2479 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2480 ++n;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2481 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	2482 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2483 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2484
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2485 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2486 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	2487 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2488 listitem_T *li;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2489 list_T *l;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2490 long idx;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2491
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2492 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	2493 {
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	2494 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	2495 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	2496 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	2497 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2498 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	2499 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2500 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	2501 if (!error)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2502 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2503 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	2504 if (li == NULL)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2505 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	2506 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2507 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2508 if (error)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2509 li = NULL;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2510 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2511
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2512 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	2513 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	2514 ++n;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2515 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2516 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2517 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	2518 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2519 int todo;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2520 dict_T *d;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2521 hashitem_T *hi;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2522
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2523 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	2524 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2525 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	2526 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2527 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	2528 emsg(_(e_invarg));
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2529 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2530
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2531 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	2532 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	2533 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2534 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	2535 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2536 --todo;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2537 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	2538 ++n;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2539 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2540 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2541 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2542 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2543 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2544 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	2545 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	2546 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2547
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2548 /*
23588 510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2549 * "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	2550 */
23588 510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2551 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	2552 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	2553 {
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	2554 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	2555 garray_T type_list;
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	2556
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	2557 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	2558 {
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	2559 // 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	2560 ga_init2(&type_list, sizeof(type_T *), 10);
24160 e695db9a5465 patch 8.2.2621: typval2type() cannot handle recursive structures Bram Moolenaar <Bram@vim.org> parents: 23990 diff changeset	2561 type = typval2type(argvars, get_copyID(), &type_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	2562 }
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	2563
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2564 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	2565 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2566 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	2567 listitem_T *item;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2568 long before;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2569 int error = FALSE;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2570
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2571 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	2572 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	2573 {
3e0f909ca1f2 patch 8.2.1949: Vim9: using extend() on null dict is silently ignored Bram Moolenaar <Bram@vim.org> parents: 22794 diff changeset	2574 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	2575 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	2576 }
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2577 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	2578 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	2579 && l2 != NULL)
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2580 {
23588 510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2581 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	2582 {
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2583 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	2584 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	2585 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	2586 }
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2587
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2588 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	2589 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2590 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	2591 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	2592 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	2593
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2594 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	2595 item = NULL;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2596 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2597 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2598 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	2599 if (item == NULL)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2600 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2601 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	2602 goto theend;
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2603 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2604 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2605 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2606 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2607 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	2608 if (type != NULL && check_typval_arg_type(
4b417b776b95 patch 8.2.2501: not always clear where an error is reported Bram Moolenaar <Bram@vim.org> parents: 23888 diff changeset	2609 type, &argvars[1], 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	2610 goto theend;
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2611 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	2612
23588 510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2613 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	2614 {
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2615 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	2616 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	2617 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	2618 }
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2619 else
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2620 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	2621 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2622 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2623 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	2624 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2625 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	2626 char_u *action;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2627 int i;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2628
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2629 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	2630 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	2631 {
3e0f909ca1f2 patch 8.2.1949: Vim9: using extend() on null dict is silently ignored Bram Moolenaar <Bram@vim.org> parents: 22794 diff changeset	2632 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	2633 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	2634 }
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2635 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	2636 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	2637 && d2 != NULL)
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2638 {
23588 510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2639 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	2640 {
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2641 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	2642 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	2643 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	2644 }
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2645
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	2646 // 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	2647 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	2648 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2649 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	2650
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2651 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	2652 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	2653 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	2654 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	2655 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	2656 break;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2657 if (i == 3)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2658 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2659 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	2660 goto theend;
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2661 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2662 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2663 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2664 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	2665
23917 4b417b776b95 patch 8.2.2501: not always clear where an error is reported Bram Moolenaar <Bram@vim.org> parents: 23888 diff changeset	2666 if (type != NULL && check_typval_arg_type(
4b417b776b95 patch 8.2.2501: not always clear where an error is reported Bram Moolenaar <Bram@vim.org> parents: 23888 diff changeset	2667 type, &argvars[1], 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	2668 goto theend;
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2669 dict_extend(d1, d2, action);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2670
23588 510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2671 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	2672 {
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2673 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	2674 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	2675 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	2676 }
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2677 else
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2678 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	2679 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2680 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2681 else
23588 510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2682 semsg(_(e_listdictarg), 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	2683
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	2684 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	2685 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	2686 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	2687 }
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2688
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2689 /*
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2690 * "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	2691 * "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	2692 */
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2693 void
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2694 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	2695 {
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2696 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	2697
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2698 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	2699 }
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2700
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2701 /*
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2702 * "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	2703 * "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	2704 */
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2705 void
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2706 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	2707 {
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2708 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	2709
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type Bram Moolenaar <Bram@vim.org> parents: 23565 diff changeset	2710 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	2711 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2712
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2713 /*
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2714 * "insert()" function
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2715 */
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2716 void
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2717 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	2718 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2719 long before = 0;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2720 listitem_T *item;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2721 list_T *l;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2722 int error = FALSE;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2723
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2724 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	2725 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2726 int val, len;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2727 char_u *p;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2728
20158 94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	2729 if (argvars[0].vval.v_blob == NULL)
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	2730 return;
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	2731
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2732 len = blob_len(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	2733 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	2734 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2735 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	2736 if (error)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2737 return; // type error; errmsg already given
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2738 if (before < 0 \|\| before > len)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2739 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2740 semsg(_(e_invarg2), tv_get_string(&argvars[2]));
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2741 return;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2742 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2743 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2744 val = 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	2745 if (error)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2746 return;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2747 if (val < 0 \|\| val > 255)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2748 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2749 semsg(_(e_invarg2), tv_get_string(&argvars[1]));
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2750 return;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2751 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2752
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2753 if (ga_grow(&argvars[0].vval.v_blob->bv_ga, 1) == FAIL)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2754 return;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2755 p = (char_u *)argvars[0].vval.v_blob->bv_ga.ga_data;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2756 mch_memmove(p + before + 1, p + before, (size_t)len - before);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2757 *(p + before) = val;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2758 ++argvars[0].vval.v_blob->bv_ga.ga_len;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2759
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2760 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	2761 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2762 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	2763 semsg(_(e_listblobarg), "insert()");
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2764 else 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	2765 && !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	2766 (char_u *)N_("insert() argument"), TRUE))
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2767 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2768 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	2769 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	2770 if (error)
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	2771 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	2772
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2773 if (before == l->lv_len)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2774 item = NULL;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2775 else
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 item = list_find(l, before);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2778 if (item == NULL)
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 semsg(_(e_listidx), before);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2781 l = NULL;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2782 }
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 if (l != NULL)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2785 {
21118 b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21064 diff changeset	2786 (void)list_insert_tv(l, &argvars[1], item);
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2787 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	2788 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2789 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2790 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2791
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2792 /*
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2793 * "remove()" function
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2794 */
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2795 void
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2796 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	2797 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2798 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	2799
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2800 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	2801 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	2802 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	2803 blob_remove(argvars, rettv);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2804 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	2805 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	2806 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2807 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	2808 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2809
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 * "reverse({list})" function
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 void
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2814 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	2815 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2816 list_T *l;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2817 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	2818
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2819 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	2820 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2821 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	2822 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	2823
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2824 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	2825 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2826 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	2827
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2828 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	2829 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	2830 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2831 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	2832 return;
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
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2835 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	2836 semsg(_(e_listblobarg), "reverse()");
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2837 else 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	2838 && !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	2839 (char_u *)N_("reverse() argument"), TRUE))
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2840 {
19203 09f01421a356 patch 8.2.0160: range test fails Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	2841 if (l->lv_first == &range_list_item)
09f01421a356 patch 8.2.0160: range test fails Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	2842 {
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	2843 varnumber_T new_start = l->lv_u.nonmat.lv_start
d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	2844 + (l->lv_len - 1) * l->lv_u.nonmat.lv_stride;
d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	2845 l->lv_u.nonmat.lv_end = new_start
d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	2846 - (l->lv_u.nonmat.lv_end - l->lv_u.nonmat.lv_start);
d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	2847 l->lv_u.nonmat.lv_start = new_start;
d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	2848 l->lv_u.nonmat.lv_stride = -l->lv_u.nonmat.lv_stride;
19203 09f01421a356 patch 8.2.0160: range test fails Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	2849 rettv_list_set(rettv, l);
09f01421a356 patch 8.2.0160: range test fails Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	2850 return;
09f01421a356 patch 8.2.0160: range test fails Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	2851 }
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	2852 li = 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	2853 l->lv_first = l->lv_u.mat.lv_last = NULL;
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2854 l->lv_len = 0;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2855 while (li != NULL)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2856 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2857 ni = li->li_prev;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2858 list_append(l, li);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2859 li = ni;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2860 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2861 rettv_list_set(rettv, l);
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	2862 l->lv_u.mat.lv_idx = l->lv_len - l->lv_u.mat.lv_idx - 1;
17970 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
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2866 /*
23229 b545334ae654 patch 8.2.2160: various typos Bram Moolenaar <Bram@vim.org> parents: 23058 diff changeset	2867 * "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	2868 */
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2869 void
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2870 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	2871 {
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2872 typval_T initial;
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2873 char_u *func_name;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2874 partial_T *partial = NULL;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2875 funcexe_T funcexe;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2876 typval_T argv[3];
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2877
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2878 if (argvars[0].v_type != VAR_LIST && argvars[0].v_type != VAR_BLOB)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2879 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2880 emsg(_(e_listblobreq));
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2881 return;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2882 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2883
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2884 if (argvars[1].v_type == VAR_FUNC)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2885 func_name = argvars[1].vval.v_string;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2886 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	2887 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2888 partial = argvars[1].vval.v_partial;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2889 func_name = partial_name(partial);
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2890 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2891 else
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2892 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	2893 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	2894 {
42bb78d46354 patch 8.2.1945: crash when passing NULL function to reduce() Bram Moolenaar <Bram@vim.org> parents: 22770 diff changeset	2895 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	2896 return;
42bb78d46354 patch 8.2.1945: crash when passing NULL function to reduce() Bram Moolenaar <Bram@vim.org> parents: 22770 diff changeset	2897 }
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2898
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2899 vim_memset(&funcexe, 0, sizeof(funcexe));
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2900 funcexe.evaluate = TRUE;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2901 funcexe.partial = partial;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2902
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2903 if (argvars[0].v_type == VAR_LIST)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2904 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2905 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	2906 listitem_T *li = NULL;
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2907 int r;
21000 3b29ac3394dc patch 8.2.1051: crash when changing a list while using reduce() on it Bram Moolenaar <Bram@vim.org> parents: 20992 diff changeset	2908 int called_emsg_start = called_emsg;
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2909
21064 6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	2910 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	2911 CHECK_LIST_MATERIALIZE(l);
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2912 if (argvars[2].v_type == VAR_UNKNOWN)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2913 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2914 if (l == NULL \|\| l->lv_first == NULL)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2915 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2916 semsg(_(e_reduceempty), "List");
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2917 return;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2918 }
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2919 initial = l->lv_first->li_tv;
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2920 li = l->lv_first->li_next;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2921 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2922 else
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2923 {
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2924 initial = argvars[2];
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2925 if (l != NULL)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2926 li = l->lv_first;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2927 }
21064 6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	2928 copy_tv(&initial, rettv);
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2929
21064 6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	2930 if (l != NULL)
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2931 {
21064 6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	2932 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	2933
6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	2934 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	2935 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	2936 {
6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	2937 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	2938 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	2939 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	2940 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	2941 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	2942 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	2943 break;
6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	2944 }
6dc8625889fe patch 8.2.1083: crash when using reduce() on a NULL list Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	2945 l->lv_lock = prev_locked;
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2946 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2947 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2948 else
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2949 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2950 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	2951 int i;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2952
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2953 if (argvars[2].v_type == VAR_UNKNOWN)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2954 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2955 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	2956 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2957 semsg(_(e_reduceempty), "Blob");
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2958 return;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2959 }
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2960 initial.v_type = VAR_NUMBER;
a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2961 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	2962 i = 1;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2963 }
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2964 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	2965 {
a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2966 emsg(_(e_number_exp));
a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2967 return;
a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2968 }
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2969 else
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2970 {
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2971 initial = argvars[2];
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2972 i = 0;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2973 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2974
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2975 copy_tv(&initial, rettv);
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2976 if (b != NULL)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2977 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2978 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	2979 {
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2980 argv[0] = *rettv;
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2981 argv[1].v_type = VAR_NUMBER;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2982 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	2983 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	2984 return;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2985 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2986 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2987 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2988 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2989
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2990 #endif // defined(FEAT_EVAL)

Mercurial > vim

annotate src/list.c @ 24160:e695db9a5465 v8.2.2621