vim: src/list.c annotate

annotate src/list.c @ 20992:7ee565134d4a v8.2.1047

patch 8.2.1047: Vim9: script cannot use line continuation like :def function Commit: https://github.com/vim/vim/commit/5409f5d8c95007216ae1190565a7a8ee9ebd7100 Author: Bram Moolenaar <Bram@vim.org> Date: Wed Jun 24 18:37:35 2020 +0200 patch 8.2.1047: Vim9: script cannot use line continuation like :def function Problem: Vim9: script cannot use line continuation like in a :def function. Solution: Pass the getline function pointer to the eval() functions. Use it for addition and multiplication operators.

author	Bram Moolenaar <Bram@vim.org>
date	Wed, 24 Jun 2020 18:45:04 +0200
parents	65d9189d4dca
children	3b29ac3394dc

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
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	273 vim_free(l);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	274 }
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 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	277 list_free_items(int copyID)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	278 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	279 list_T ll, ll_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	280
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	281 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	282 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	283 ll_next = ll->lv_used_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	284 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	285 && ll->lv_watch == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	286 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	287 // 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	288 // 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	289 // or list of lists.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	290 list_free_list(ll);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	291 }
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 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	296 list_free(list_T *l)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	297 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	298 if (!in_free_unref_items)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	299 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	300 list_free_contents(l);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	301 list_free_list(l);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	302 }
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 * Allocate a list item.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	307 * 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	308 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	309 listitem_T *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	310 listitem_alloc(void)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	311 {
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	312 return ALLOC_ONE(listitem_T);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	313 }
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 /*
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	316 * 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	317 * 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	318 */
19916 dcec86d796bc patch 8.2.0514: several global functions are used in only one file Bram Moolenaar <Bram@vim.org> parents: 19888 diff changeset	319 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	320 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	321 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	322 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	323 \|\| 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	324 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	325 }
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 * 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	329 * 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	330 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	331 void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	332 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	333 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	334 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	335 list_free_item(l, item);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	336 }
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 * 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	340 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	341 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	342 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	343 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	344 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	345 listitem_free(l, item);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	346 }
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 * 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	350 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	351 long
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	352 list_len(list_T *l)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	353 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	354 if (l == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	355 return 0L;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	356 return l->lv_len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	357 }
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 * 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	361 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	362 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	363 list_equal(
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	364 list_T *l1,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	365 list_T *l2,
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	366 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	367 int recursive) // TRUE when used recursively
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	368 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	369 listitem_T item1, item2;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	370
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	371 if (l1 == l2)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	372 return TRUE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	373 if (list_len(l1) != list_len(l2))
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	374 return FALSE;
19966 c0eb073378e7 patch 8.2.0539: comparing two NULL list fails Bram Moolenaar <Bram@vim.org> parents: 19934 diff changeset	375 if (list_len(l1) == 0)
c0eb073378e7 patch 8.2.0539: comparing two NULL list fails Bram Moolenaar <Bram@vim.org> parents: 19934 diff changeset	376 // 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	377 return TRUE;
c0eb073378e7 patch 8.2.0539: comparing two NULL list fails Bram Moolenaar <Bram@vim.org> parents: 19934 diff changeset	378 if (l1 == NULL \|\| l2 == NULL)
c0eb073378e7 patch 8.2.0539: comparing two NULL list fails Bram Moolenaar <Bram@vim.org> parents: 19934 diff changeset	379 return FALSE;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	380
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	381 CHECK_LIST_MATERIALIZE(l1);
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	382 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	383
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	384 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	385 item1 != NULL && item2 != NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	386 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	387 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	388 return FALSE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	389 return item1 == NULL && item2 == NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	390 }
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 * 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	394 * 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	395 * 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	396 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	397 listitem_T *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	398 list_find(list_T *l, long n)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	399 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	400 listitem_T *item;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	401 long idx;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	402
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	403 if (l == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	404 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	405
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	406 // 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	407 if (n < 0)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	408 n = l->lv_len + n;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	409
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	410 // Check for index out of range.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	411 if (n < 0 \|\| n >= l->lv_len)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	412 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	413
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	414 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	415
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	416 // 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	417 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	418 {
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	419 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	420 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	421 // 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	422 item = l->lv_first;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	423 idx = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	424 }
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	425 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	426 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	427 // 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	428 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	429 idx = l->lv_len - 1;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	430 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	431 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	432 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	433 // 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	434 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	435 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	436 }
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 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	439 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	440 if (n < l->lv_len / 2)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	441 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	442 // 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	443 item = l->lv_first;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	444 idx = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	445 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	446 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	447 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	448 // 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	449 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	450 idx = l->lv_len - 1;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	451 }
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 while (n > idx)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	455 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	456 // search forward
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	457 item = item->li_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	458 ++idx;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	459 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	460 while (n < idx)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	461 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	462 // search backward
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	463 item = item->li_prev;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	464 --idx;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	465 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	466
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	467 // cache the used index
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	468 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	469 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	470
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	471 return item;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	472 }
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 * 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	476 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	477 long
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	478 list_find_nr(
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	479 list_T *l,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	480 long idx,
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	481 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	482 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	483 listitem_T *li;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	484
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	485 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	486 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	487 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	488
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	489 // 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	490 // 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	491 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	492 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	493
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	494 // 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	495 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	496 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	497 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	498 *errorp = TRUE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	499 return -1L;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	500 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	501
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	502 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	503 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	504
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	505 li = list_find(l, idx);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	506 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	507 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	508 if (errorp != NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	509 *errorp = TRUE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	510 return -1L;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	511 }
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	512 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	513 }
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 * 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	517 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	518 char_u *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	519 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	520 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	521 listitem_T *li;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	522
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	523 li = list_find(l, idx - 1);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	524 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	525 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15211 diff changeset	526 semsg(_(e_listidx), idx);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	527 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	528 }
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	529 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	530 }
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 * 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	534 * 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	535 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	536 long
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	537 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	538 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	539 long idx = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	540 listitem_T *li;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	541
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	542 if (l == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	543 return -1;
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	544 CHECK_LIST_MATERIALIZE(l);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	545 idx = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	546 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	547 ++idx;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	548 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	549 return -1;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	550 return idx;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	551 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	552
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	553 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	554 * 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	555 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	556 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	557 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	558 {
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	559 CHECK_LIST_MATERIALIZE(l);
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	560 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	561 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	562 // empty list
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	563 l->lv_first = item;
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	564 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	565 item->li_prev = NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	566 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	567 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	568 {
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	569 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	570 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	571 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	572 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	573 ++l->lv_len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	574 item->li_next = NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	575 }
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 /*
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	578 * 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	579 * Return FAIL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	580 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	581 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	582 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	583 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	584 listitem_T *li = listitem_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	585
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	586 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	587 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	588 copy_tv(tv, &li->li_tv);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	589 list_append(l, li);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	590 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	591 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	592
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	593 /*
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	594 * 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	595 * 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	596 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	597 int
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	598 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	599 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	600 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	601
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	602 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	603 return FAIL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	604 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	605 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	606 return OK;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	607 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	608
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	609 /*
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	610 * 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	611 * Return FAIL when out of memory.
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 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	614 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	615 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	616 listitem_T *li = listitem_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	617
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	618 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	619 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	620 li->li_tv.v_type = VAR_DICT;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	621 li->li_tv.v_lock = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	622 li->li_tv.vval.v_dict = dict;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	623 list_append(list, li);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	624 ++dict->dv_refcount;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	625 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	626 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	627
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	628 /*
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	629 * 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	630 * 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	631 */
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	632 int
14391 46f14852a919 patch 8.1.0210: still a few K&R function declarations Christian Brabandt <cb@256bit.org> parents: 13246 diff changeset	633 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	634 {
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	635 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	636
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	637 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	638 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	639 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	640 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	641 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	642 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	643 ++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	644 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	645 }
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	646
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps Christian Brabandt <cb@256bit.org> parents: 11973 diff changeset	647 /*
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	648 * 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	649 * When "len" >= 0 use "str[len]".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	650 * Returns FAIL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	651 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	652 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	653 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	654 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	655 listitem_T *li = listitem_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	656
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	657 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	658 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	659 list_append(l, li);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	660 li->li_tv.v_type = VAR_STRING;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	661 li->li_tv.v_lock = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	662 if (str == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	663 li->li_tv.vval.v_string = NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	664 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	665 : vim_strsave(str))) == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	666 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	667 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	668 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	669
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	670 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	671 * Append "n" to list "l".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	672 * Returns FAIL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	673 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	674 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	675 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	676 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	677 listitem_T *li;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	678
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	679 li = listitem_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	680 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	681 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	682 li->li_tv.v_type = VAR_NUMBER;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	683 li->li_tv.v_lock = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	684 li->li_tv.vval.v_number = n;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	685 list_append(l, li);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	686 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	687 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	688
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 * 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	691 * If "item" is NULL append at the end.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	692 * Return FAIL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	693 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	694 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	695 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	696 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	697 listitem_T *ni = listitem_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	698
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	699 if (ni == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	700 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	701 copy_tv(tv, &ni->li_tv);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	702 list_insert(l, ni, item);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	703 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	704 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	705
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	706 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	707 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	708 {
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	709 CHECK_LIST_MATERIALIZE(l);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	710 if (item == NULL)
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	711 // 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	712 list_append(l, ni);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	713 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	714 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	715 // Insert new item before existing item.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	716 ni->li_prev = item->li_prev;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	717 ni->li_next = item;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	718 if (item->li_prev == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	719 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	720 l->lv_first = ni;
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	721 ++l->lv_u.mat.lv_idx;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	722 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	723 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	724 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	725 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	726 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	727 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	728 item->li_prev = ni;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	729 ++l->lv_len;
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 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	732
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	733 /*
20766 821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	734 * 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	735 * 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	736 * 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	737 */
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	738 static int
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	739 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	740 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	741 listitem_T *item;
20770 b366a0fe8296 patch 8.2.0937: asan failure in the flatten() test Bram Moolenaar <Bram@vim.org> parents: 20766 diff changeset	742 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	743 int n;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	744
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	745 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	746 return OK;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	747 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	748
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	749 n = 0;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	750 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	751 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	752 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	753 fast_breakcheck();
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	754 if (got_int)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	755 return FAIL;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	756
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	757 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	758 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	759 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	760
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	761 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	762 if (list_extend(list, item->li_tv.vval.v_list, next) == FAIL)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	763 return FAIL;
20770 b366a0fe8296 patch 8.2.0937: asan failure in the flatten() test Bram Moolenaar <Bram@vim.org> parents: 20766 diff changeset	764 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	765 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	766
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	767 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	768 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	769 else
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	770 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	771 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	772
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	773 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	774 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	775 n = 0;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	776 item = next;
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 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	779 else
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	780 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	781 n = 0;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	782 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	783 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	784 }
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 return OK;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	787 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	788
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	789 /*
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	790 * "flatten(list[, {maxdepth}])" function
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 void
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	793 f_flatten(typval_T argvars, typval_T rettv)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	794 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	795 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	796 long maxdepth;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	797 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	798
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	799 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	800 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	801 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	802 return;
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
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	805 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	806 maxdepth = 999999;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	807 else
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 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	810 if (error)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	811 return;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	812 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	813 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	814 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	815 return;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	816 }
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
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	819 l = argvars[0].vval.v_list;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	820 if (l != NULL && !var_check_lock(l->lv_lock,
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	821 (char_u *)N_("flatten() argument"), TRUE)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	822 && list_flatten(l, maxdepth) == OK)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	823 copy_tv(&argvars[0], rettv);
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	824 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	825
821925509d8c patch 8.2.0935: flattening a list with existing code is slow Bram Moolenaar <Bram@vim.org> parents: 20657 diff changeset	826 /*
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	827 * Extend "l1" with "l2".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	828 * 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	829 * Returns FAIL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	830 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	831 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	832 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	833 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	834 listitem_T *item;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	835 int todo = l2->lv_len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	836
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	837 CHECK_LIST_MATERIALIZE(l1);
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	838 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	839
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	840 // 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	841 // 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	842 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	843 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	844 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	845 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	846 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	847
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	848 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	849 * 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	850 * Return FAIL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	851 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	852 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	853 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	854 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	855 list_T *l;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	856
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	857 if (l1 == NULL \|\| l2 == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	858 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	859
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	860 // make a copy of the first list.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	861 l = list_copy(l1, FALSE, 0);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	862 if (l == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	863 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	864 tv->v_type = VAR_LIST;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	865 tv->vval.v_list = l;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	866
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	867 // 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	868 return list_extend(l, l2, NULL);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	869 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	870
20871 65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	871 list_T *
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	872 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	873 {
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	874 listitem_T *item;
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	875 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	876
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	877 if (l == NULL)
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	878 return NULL;
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	879 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	880 {
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	881 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	882 {
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	883 list_free(l);
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	884 return NULL;
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	885 }
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	886 item = item->li_next;
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	887 }
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	888 return l;
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	889 }
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var] Bram Moolenaar <Bram@vim.org> parents: 20770 diff changeset	890
9560 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 * 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	893 * 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	894 * See item_copy() for "copyID".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	895 * Returns NULL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	896 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	897 list_T *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	898 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	899 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	900 list_T *copy;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	901 listitem_T *item;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	902 listitem_T *ni;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	903
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	904 if (orig == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	905 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	906
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	907 copy = list_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	908 if (copy != NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	909 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	910 if (copyID != 0)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	911 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	912 // 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	913 // refer back to this list.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	914 orig->lv_copyID = copyID;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	915 orig->lv_copylist = copy;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	916 }
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	917 CHECK_LIST_MATERIALIZE(orig);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	918 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	919 item = item->li_next)
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 ni = listitem_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	922 if (ni == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	923 break;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	924 if (deep)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	925 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	926 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	927 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	928 vim_free(ni);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	929 break;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	930 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	931 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	932 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	933 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	934 list_append(copy, ni);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	935 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	936 ++copy->lv_refcount;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	937 if (item != 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 list_unref(copy);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	940 copy = NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	941 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	942 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	943
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	944 return copy;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	945 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	946
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	947 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	948 * 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	949 * 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	950 * 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	951 * file.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	952 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	953 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	954 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	955 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	956 listitem_T *ip;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	957
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	958 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	959
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	960 // notify watchers
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	961 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	962 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	963 --l->lv_len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	964 list_fix_watch(l, ip);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	965 if (ip == item2)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	966 break;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	967 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	968
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	969 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	970 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	971 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	972 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	973 if (item->li_prev == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	974 l->lv_first = item2->li_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	975 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	976 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	977 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	978 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	979
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	980 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	981 * 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	982 * May return NULL.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	983 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	984 char_u *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	985 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	986 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	987 garray_T ga;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	988
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	989 if (tv->vval.v_list == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	990 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	991 ga_init2(&ga, (int)sizeof(char), 80);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	992 ga_append(&ga, '[');
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	993 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	994 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	995 FALSE, restore_copyID, copyID) == FAIL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	996 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	997 vim_free(ga.ga_data);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	998 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	999 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1000 ga_append(&ga, ']');
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1001 ga_append(&ga, NUL);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1002 return (char_u *)ga.ga_data;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1003 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1004
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1005 typedef struct join_S {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1006 char_u *s;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1007 char_u *tofree;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1008 } join_T;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1009
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1010 static int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1011 list_join_inner(
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1012 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	1013 list_T *l,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1014 char_u *sep,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1015 int echo_style,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1016 int restore_copyID,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1017 int copyID,
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1018 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	1019 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1020 int i;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1021 join_T *p;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1022 int len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1023 int sumlen = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1024 int first = TRUE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1025 char_u *tofree;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1026 char_u numbuf[NUMBUFLEN];
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1027 listitem_T *item;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1028 char_u *s;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1029
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1030 // 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	1031 CHECK_LIST_MATERIALIZE(l);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1032 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	1033 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1034 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	1035 echo_style, restore_copyID, !echo_style);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1036 if (s == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1037 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1038
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1039 len = (int)STRLEN(s);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1040 sumlen += len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1041
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1042 (void)ga_grow(join_gap, 1);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1043 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	1044 if (tofree != NULL \|\| s != numbuf)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1045 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1046 p->s = s;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1047 p->tofree = tofree;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1048 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1049 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1050 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1051 p->s = vim_strnsave(s, len);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1052 p->tofree = p->s;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1053 }
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 line_breakcheck();
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1056 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	1057 break;
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
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1060 // 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	1061 // 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	1062 if (join_gap->ga_len >= 2)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1063 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	1064 if (ga_grow(gap, sumlen + 2) == FAIL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1065 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1066
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1067 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	1068 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1069 if (first)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1070 first = FALSE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1071 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1072 ga_concat(gap, sep);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1073 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	1074
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1075 if (p->s != NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1076 ga_concat(gap, p->s);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1077 line_breakcheck();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1078 }
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 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1081 }
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 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1084 * 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	1085 * 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	1086 * Return FAIL or OK.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1087 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1088 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1089 list_join(
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1090 garray_T *gap,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1091 list_T *l,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1092 char_u *sep,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1093 int echo_style,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1094 int restore_copyID,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1095 int copyID)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1096 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1097 garray_T join_ga;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1098 int retval;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1099 join_T *p;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1100 int i;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1101
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1102 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	1103 return OK; // nothing to do
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1104 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	1105 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	1106 copyID, &join_ga);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1107
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1108 // Dispose each item in join_ga.
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1109 if (join_ga.ga_data != 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 p = (join_T *)join_ga.ga_data;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1112 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	1113 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1114 vim_free(p->tofree);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1115 ++p;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1116 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1117 ga_clear(&join_ga);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1118 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1119
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1120 return retval;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1121 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1122
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1123 /*
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1124 * "join()" function
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1125 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1126 void
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1127 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	1128 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1129 garray_T ga;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1130 char_u *sep;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1131
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1132 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	1133 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1134 emsg(_(e_listreq));
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1135 return;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1136 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1137 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	1138 return;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1139 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	1140 sep = (char_u *)" ";
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1141 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1142 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	1143
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1144 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	1145
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1146 if (sep != NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1147 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1148 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	1149 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	1150 ga_append(&ga, NUL);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1151 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	1152 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1153 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1154 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	1155 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1156
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1157 /*
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1158 * Allocate a variable for a List and fill it from "*arg".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1159 * Return OK or FAIL.
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 int
20397 c225be44692a patch 8.2.0753: Vim9: expressions are evaluated in the discovery phase Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1162 get_list_tv(char_u *arg, typval_T rettv, int flags, int do_error)
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1163 {
20397 c225be44692a patch 8.2.0753: Vim9: expressions are evaluated in the discovery phase Bram Moolenaar <Bram@vim.org> parents: 20392 diff changeset	1164 int evaluate = flags & EVAL_EVALUATE;
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1165 list_T *l = NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1166 typval_T tv;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1167 listitem_T *item;
20992 7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function Bram Moolenaar <Bram@vim.org> parents: 20871 diff changeset	1168 evalarg_T evalarg;
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function Bram Moolenaar <Bram@vim.org> parents: 20871 diff changeset	1169
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function Bram Moolenaar <Bram@vim.org> parents: 20871 diff changeset	1170 CLEAR_FIELD(evalarg);
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function Bram Moolenaar <Bram@vim.org> parents: 20871 diff changeset	1171 evalarg.eval_flags = flags;
9560 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 if (evaluate)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1174 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1175 l = list_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1176 if (l == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1177 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1178 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1179
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1180 arg = skipwhite(arg + 1);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1181 while (arg != ']' && arg != NUL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1182 {
20992 7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function Bram Moolenaar <Bram@vim.org> parents: 20871 diff changeset	1183 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	1184 goto failret;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1185 if (evaluate)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1186 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1187 item = listitem_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1188 if (item != NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1189 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1190 item->li_tv = tv;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1191 item->li_tv.v_lock = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1192 list_append(l, item);
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 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1195 clear_tv(&tv);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1196 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1197
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1198 if (**arg == ']')
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1199 break;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1200 if (**arg != ',')
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1201 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	1202 if (do_error)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	1203 semsg(_("E696: Missing comma in List: %s"), *arg);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1204 goto failret;
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 arg = skipwhite(arg + 1);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1207 }
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 if (**arg != ']')
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1210 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19123 diff changeset	1211 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	1212 semsg(_(e_list_end), *arg);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1213 failret:
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1214 if (evaluate)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1215 list_free(l);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1216 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1217 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1218
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1219 arg = skipwhite(arg + 1);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1220 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	1221 rettv_list_set(rettv, l);
9560 1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1222
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1223 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1224 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911 Christian Brabandt <cb@256bit.org> parents: diff changeset	1225
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1226 /*
10549 055b1633aed7 patch 8.0.0164: outdated and misplaced comments Christian Brabandt <cb@256bit.org> parents: 10042 diff changeset	1227 * 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	1228 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1229 int
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1230 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	1231 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1232 listitem_T *li;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1233 int c;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1234 int ret = OK;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1235 char_u *s;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1236
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1237 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	1238 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	1239 {
15211 de63593896b3 patch 8.1.0615: get_tv function names are not consistent Bram Moolenaar <Bram@vim.org> parents: 15209 diff changeset	1240 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	1241 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1242 if (*s == '\n')
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1243 c = putc(NUL, fd);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1244 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1245 c = putc(*s, fd);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1246 if (c == EOF)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1247 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1248 ret = FAIL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1249 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1250 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1251 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1252 if (!binary \|\| li->li_next != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1253 if (putc('\n', fd) == EOF)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1254 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1255 ret = FAIL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1256 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1257 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1258 if (ret == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1259 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15211 diff changeset	1260 emsg(_(e_write));
9571 5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1261 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1262 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1263 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1264 return ret;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1265 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76 Christian Brabandt <cb@256bit.org> parents: 9560 diff changeset	1266
9626 172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1267 /*
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1268 * 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	1269 */
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1270 void
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1271 init_static_list(staticList10_T *sl)
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1272 {
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1273 list_T *l = &sl->sl_list;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1274 int i;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1275
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1276 memset(sl, 0, sizeof(staticList10_T));
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1277 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	1278 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	1279 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	1280 l->lv_lock = VAR_FIXED;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1281 sl->sl_list.lv_len = 10;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1282
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1283 for (i = 0; i < 10; ++i)
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1284 {
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1285 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	1286
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1287 if (i == 0)
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1288 li->li_prev = NULL;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1289 else
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1290 li->li_prev = li - 1;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1291 if (i == 9)
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1292 li->li_next = NULL;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1293 else
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1294 li->li_next = li + 1;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1295 }
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1296 }
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9571 diff changeset	1297
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1298 /*
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1299 * "list2str()" function
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1300 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1301 void
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1302 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	1303 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1304 list_T *l;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1305 listitem_T *li;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1306 garray_T ga;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1307 int utf8 = FALSE;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1308
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1309 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	1310 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	1311 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	1312 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1313 emsg(_(e_invarg));
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1314 return;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1315 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1316
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1317 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	1318 if (l == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1319 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	1320
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1321 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	1322 utf8 = (int)tv_get_number_chk(&argvars[1], NULL);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1323
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1324 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	1325 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	1326 if (has_mbyte \|\| utf8)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1327 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1328 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	1329 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	1330
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1331 if (utf8 \|\| enc_utf8)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1332 char2bytes = utf_char2bytes;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1333 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1334 char2bytes = mb_char2bytes;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1335
19888 435726a03481 patch 8.2.0500: using the same loop in many places Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1336 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	1337 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1338 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	1339 ga_concat(&ga, buf);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1340 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1341 ga_append(&ga, NUL);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1342 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1343 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	1344 {
19888 435726a03481 patch 8.2.0500: using the same loop in many places Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1345 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	1346 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	1347 ga_append(&ga, NUL);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1348 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1349
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1350 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	1351 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	1352 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1353
19916 dcec86d796bc patch 8.2.0514: several global functions are used in only one file Bram Moolenaar <Bram@vim.org> parents: 19888 diff changeset	1354 static void
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1355 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	1356 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1357 list_T *l;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1358 listitem_T item, item2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1359 listitem_T *li;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1360 int error = FALSE;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1361 int idx;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1362
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1363 if ((l = 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	1364 \|\| var_check_lock(l->lv_lock, arg_errmsg, TRUE))
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1365 return;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1366
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1367 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	1368 if (error)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1369 ; // 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	1370 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	1371 semsg(_(e_listidx), idx);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1372 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1373 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1374 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	1375 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1376 // 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	1377 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	1378 *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	1379 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	1380 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1381 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1382 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1383 // Remove range of items, return list with values.
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1384 int end = (long)tv_get_number_chk(&argvars[2], &error);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1385
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1386 if (error)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1387 ; // type error: do nothing
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1388 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	1389 semsg(_(e_listidx), end);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1390 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1391 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1392 int cnt = 0;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1393
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1394 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	1395 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1396 ++cnt;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1397 if (li == item2)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1398 break;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1399 }
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1400 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	1401 emsg(_(e_invrange));
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1402 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1403 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1404 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	1405 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	1406 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1407 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	1408 l->lv_first = item;
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	1409 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	1410 item->li_prev = NULL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1411 item2->li_next = NULL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1412 l->lv_len = cnt;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1413 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1414 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1415 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1416 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1417 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1418 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1419
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1420 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	1421 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	1422
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1423 // 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	1424 typedef struct
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1425 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1426 listitem_T *item;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1427 int idx;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1428 } sortItem_T;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1429
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1430 // 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	1431 typedef struct
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1432 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1433 int item_compare_ic;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1434 int item_compare_numeric;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1435 int item_compare_numbers;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1436 #ifdef FEAT_FLOAT
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1437 int item_compare_float;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1438 #endif
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1439 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	1440 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	1441 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	1442 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	1443 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	1444 } sortinfo_T;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1445 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	1446 #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	1447
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1448 /*
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1449 * 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	1450 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1451 static int
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1452 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	1453 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1454 sortItem_T si1, si2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1455 typval_T tv1, tv2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1456 char_u p1, p2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1457 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	1458 int res;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1459 char_u numbuf1[NUMBUFLEN];
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1460 char_u numbuf2[NUMBUFLEN];
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1461
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1462 si1 = (sortItem_T *)s1;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1463 si2 = (sortItem_T *)s2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1464 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	1465 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	1466
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1467 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	1468 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1469 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	1470 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	1471
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1472 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	1473 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1474
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1475 #ifdef FEAT_FLOAT
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1476 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	1477 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1478 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	1479 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	1480
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1481 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	1482 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1483 #endif
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1484
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1485 // 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	1486 // 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	1487 // 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	1488 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	1489 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1490 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	1491 p1 = (char_u *)"'";
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1492 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1493 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	1494 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1495 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1496 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	1497 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	1498 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1499 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	1500 p2 = (char_u *)"'";
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1501 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1502 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	1503 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1504 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1505 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	1506 if (p1 == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1507 p1 = (char_u *)"";
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1508 if (p2 == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1509 p2 = (char_u *)"";
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1510 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	1511 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1512 if (sortinfo->item_compare_ic)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1513 res = STRICMP(p1, p2);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1514 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1515 res = STRCMP(p1, p2);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1516 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1517 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1518 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1519 double n1, n2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1520 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	1521 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	1522 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	1523 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1524
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1525 // 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	1526 // sort stable.
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1527 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	1528 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	1529
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1530 vim_free(tofree1);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1531 vim_free(tofree2);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1532 return res;
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
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1535 static int
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1536 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	1537 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1538 sortItem_T si1, si2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1539 int res;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1540 typval_T rettv;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1541 typval_T argv[3];
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1542 char_u *func_name;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1543 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	1544 funcexe_T funcexe;
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1545
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1546 // 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	1547 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	1548 return 0;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1549
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1550 si1 = (sortItem_T *)s1;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1551 si2 = (sortItem_T *)s2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1552
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1553 if (partial == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1554 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	1555 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1556 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	1557
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1558 // 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	1559 // 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	1560 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	1561 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	1562
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1563 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	1564 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	1565 funcexe.evaluate = TRUE;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17530 diff changeset	1566 funcexe.partial = partial;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17530 diff changeset	1567 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	1568 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	1569 clear_tv(&argv[0]);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1570 clear_tv(&argv[1]);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1571
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1572 if (res == FAIL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1573 res = ITEM_COMPARE_FAIL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1574 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1575 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	1576 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	1577 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	1578 clear_tv(&rettv);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1579
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1580 // 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	1581 // the sort stable.
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1582 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	1583 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	1584
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1585 return res;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1586 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1587
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1588 /*
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1589 * "sort()" or "uniq()" function
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1590 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1591 static void
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1592 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	1593 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1594 list_T *l;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1595 listitem_T *li;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1596 sortItem_T *ptrs;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1597 sortinfo_T *old_sortinfo;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1598 sortinfo_T info;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1599 long len;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1600 long i;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1601
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1602 // 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	1603 // 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	1604 old_sortinfo = sortinfo;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1605 sortinfo = &info;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1606
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1607 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	1608 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	1609 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1610 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1611 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	1612 if (l == NULL \|\| var_check_lock(l->lv_lock,
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1613 (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	1614 TRUE))
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1615 goto theend;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1616 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	1617 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	1618
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1619 len = list_len(l);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1620 if (len <= 1)
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1621 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	1622
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1623 info.item_compare_ic = FALSE;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1624 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	1625 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	1626 #ifdef FEAT_FLOAT
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1627 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	1628 #endif
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1629 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	1630 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	1631 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	1632 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	1633 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1634 // 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	1635 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	1636 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	1637 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	1638 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	1639 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1640 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1641 int error = FALSE;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1642
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1643 i = (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	1644 if (error)
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1645 goto theend; // type error; errmsg already given
17530 ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1646 if (i == 1)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1647 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	1648 else if (argvars[1].v_type != VAR_NUMBER)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1649 info.item_compare_func = tv_get_string(&argvars[1]);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1650 else if (i != 0)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1651 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1652 emsg(_(e_invarg));
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1653 goto theend;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1654 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1655 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	1656 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1657 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	1658 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1659 // 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	1660 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	1661 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1662 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	1663 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1664 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	1665 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	1666 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1667 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	1668 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1669 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	1670 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	1671 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1672 #ifdef FEAT_FLOAT
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1673 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	1674 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1675 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	1676 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	1677 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1678 #endif
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1679 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	1680 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1681 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	1682 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	1683 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1684 }
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 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	1688 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1689 // 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	1690 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	1691 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1692 emsg(_(e_dictreq));
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1693 goto theend;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1694 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1695 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	1696 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1697 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1698
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1699 // 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	1700 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	1701 if (ptrs == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1702 goto theend;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1703
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1704 i = 0;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1705 if (sort)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1706 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1707 // 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	1708 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	1709 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1710 ptrs[i].item = li;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1711 ptrs[i].idx = i;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1712 ++i;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1713 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1714
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1715 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	1716 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	1717 // 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	1718 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	1719 \|\| 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	1720 && 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	1721 == ITEM_COMPARE_FAIL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1722 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	1723 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1724 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1725 // 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	1726 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	1727 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	1728 && 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	1729 ? item_compare : item_compare2);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1730
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1731 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	1732 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1733 // 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	1734 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	1735 = 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	1736 l->lv_len = 0;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1737 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	1738 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	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 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1742 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1743 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1744 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	1745
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	1746 // 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	1747 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	1748 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	1749 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	1750 \|\| 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	1751 ? item_compare2 : item_compare;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1752
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1753 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	1754 li = li->li_next)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1755 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1756 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	1757 == 0)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1758 ptrs[i++].item = li;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1759 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	1760 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1761 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	1762 break;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1763 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1764 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1765
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1766 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	1767 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1768 while (--i >= 0)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1769 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1770 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	1771 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	1772 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	1773 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	1774 else
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	1775 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	1776 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	1777 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	1778 l->lv_len--;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1779 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1780 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1781 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1782
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1783 vim_free(ptrs);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1784 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1785 theend:
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1786 sortinfo = old_sortinfo;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1787 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1788
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1789 /*
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1790 * "sort({list})" function
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1791 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1792 void
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1793 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	1794 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1795 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	1796 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1797
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1798 /*
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1799 * "uniq({list})" function
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1800 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1801 void
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1802 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	1803 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1804 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	1805 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big Bram Moolenaar <Bram@vim.org> parents: 17262 diff changeset	1806
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1807 /*
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1808 * Handle one item for map() and filter().
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1809 */
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1810 static int
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1811 filter_map_one(typval_T tv, typval_T expr, int map, int *remp)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1812 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1813 typval_T rettv;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1814 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	1815 int retval = FAIL;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1816
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1817 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	1818 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	1819 argv[1] = *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	1820 if (eval_expr_typval(expr, argv, 2, &rettv) == FAIL)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1821 goto theend;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1822 if (map)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1823 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1824 // map(): replace the list item value
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1825 clear_tv(tv);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1826 rettv.v_lock = 0;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1827 *tv = rettv;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1828 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1829 else
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1830 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1831 int error = FALSE;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1832
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1833 // filter(): when expr is zero remove the item
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1834 *remp = (tv_get_number_chk(&rettv, &error) == 0);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1835 clear_tv(&rettv);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1836 // 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	1837 // 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	1838 if (error)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1839 goto theend;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1840 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1841 retval = OK;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1842 theend:
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1843 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	1844 return retval;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1845 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1846
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1847 /*
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1848 * 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	1849 */
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1850 static void
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1851 filter_map(typval_T argvars, typval_T rettv, int map)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1852 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1853 typval_T *expr;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1854 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	1855 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	1856 dictitem_T *di;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1857 hashtab_T *ht;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1858 hashitem_T *hi;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1859 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	1860 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	1861 int rem;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1862 int todo;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1863 char_u ermsg = (char_u )(map ? "map()" : "filter()");
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1864 char_u arg_errmsg = (char_u )(map ? N_("map() argument")
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1865 : N_("filter() argument"));
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1866 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	1867 int idx = 0;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1868
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1869 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	1870 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1871 if ((b = argvars[0].vval.v_blob) == NULL)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1872 return;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1873 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1874 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	1875 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1876 if ((l = argvars[0].vval.v_list) == NULL
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1877 \|\| (!map && var_check_lock(l->lv_lock, arg_errmsg, TRUE)))
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1878 return;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1879 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1880 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	1881 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1882 if ((d = argvars[0].vval.v_dict) == NULL
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1883 \|\| (!map && var_check_lock(d->dv_lock, arg_errmsg, TRUE)))
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1884 return;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1885 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1886 else
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1887 {
20550 09143ab0fbbd patch 8.2.0829: filter() may give misleading error message Bram Moolenaar <Bram@vim.org> parents: 20397 diff changeset	1888 semsg(_(e_listdictblobarg), ermsg);
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1889 return;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1890 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1891
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1892 expr = &argvars[1];
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1893 // 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	1894 // 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	1895 // 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	1896 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	1897 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1898 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	1899 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	1900
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1901 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	1902 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	1903
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1904 // 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	1905 // 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	1906 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	1907 did_emsg = FALSE;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1908
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1909 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	1910 {
19233 04c164c971a3 patch 8.2.0175: crash when removing list element in map() Bram Moolenaar <Bram@vim.org> parents: 19229 diff changeset	1911 int prev_lock = d->dv_lock;
04c164c971a3 patch 8.2.0175: crash when removing list element in map() Bram Moolenaar <Bram@vim.org> parents: 19229 diff changeset	1912
04c164c971a3 patch 8.2.0175: crash when removing list element in map() Bram Moolenaar <Bram@vim.org> parents: 19229 diff changeset	1913 if (map && d->dv_lock == 0)
04c164c971a3 patch 8.2.0175: crash when removing list element in map() Bram Moolenaar <Bram@vim.org> parents: 19229 diff changeset	1914 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	1915 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	1916 hash_lock(ht);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1917 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	1918 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	1919 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1920 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	1921 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1922 int r;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1923
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1924 --todo;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1925 di = HI2DI(hi);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1926 if (map && (var_check_lock(di->di_tv.v_lock,
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1927 arg_errmsg, TRUE)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1928 \|\| 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	1929 arg_errmsg, TRUE)))
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1930 break;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1931 set_vim_var_string(VV_KEY, di->di_key, -1);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1932 r = filter_map_one(&di->di_tv, expr, map, &rem);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1933 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	1934 if (r == FAIL \|\| did_emsg)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1935 break;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1936 if (!map && rem)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1937 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1938 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	1939 \|\| 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	1940 break;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1941 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	1942 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1943 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1944 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1945 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	1946 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	1947 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1948 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	1949 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1950 int i;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1951 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	1952 varnumber_T val;
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1953
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1954 // 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	1955 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	1956
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1957 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	1958 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1959 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	1960 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	1961 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	1962 set_vim_var_nr(VV_KEY, idx);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1963 if (filter_map_one(&tv, expr, map, &rem) == FAIL \|\| did_emsg)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1964 break;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1965 if (tv.v_type != VAR_NUMBER)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1966 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1967 emsg(_(e_invalblob));
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1968 break;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1969 }
19123 09f28c17ac58 patch 8.2.0121: filter() and map() on blob don't work Bram Moolenaar <Bram@vim.org> parents: 18800 diff changeset	1970 if (map)
09f28c17ac58 patch 8.2.0121: filter() and map() on blob don't work Bram Moolenaar <Bram@vim.org> parents: 18800 diff changeset	1971 {
09f28c17ac58 patch 8.2.0121: filter() and map() on blob don't work Bram Moolenaar <Bram@vim.org> parents: 18800 diff changeset	1972 if (tv.vval.v_number != val)
09f28c17ac58 patch 8.2.0121: filter() and map() on blob don't work Bram Moolenaar <Bram@vim.org> parents: 18800 diff changeset	1973 blob_set(b, i, tv.vval.v_number);
09f28c17ac58 patch 8.2.0121: filter() and map() on blob don't work Bram Moolenaar <Bram@vim.org> parents: 18800 diff changeset	1974 }
09f28c17ac58 patch 8.2.0121: filter() and map() on blob don't work Bram Moolenaar <Bram@vim.org> parents: 18800 diff changeset	1975 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	1976 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1977 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	1978
19123 09f28c17ac58 patch 8.2.0121: filter() and map() on blob don't work Bram Moolenaar <Bram@vim.org> parents: 18800 diff changeset	1979 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	1980 (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	1981 --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	1982 --i;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1983 }
19123 09f28c17ac58 patch 8.2.0121: filter() and map() on blob don't work Bram Moolenaar <Bram@vim.org> parents: 18800 diff changeset	1984 ++idx;
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1985 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1986 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1987 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	1988 {
19233 04c164c971a3 patch 8.2.0175: crash when removing list element in map() Bram Moolenaar <Bram@vim.org> parents: 19229 diff changeset	1989 int prev_lock = l->lv_lock;
04c164c971a3 patch 8.2.0175: crash when removing list element in map() Bram Moolenaar <Bram@vim.org> parents: 19229 diff changeset	1990
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1991 // 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	1992 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	1993
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	1994 CHECK_LIST_MATERIALIZE(l);
19233 04c164c971a3 patch 8.2.0175: crash when removing list element in map() Bram Moolenaar <Bram@vim.org> parents: 19229 diff changeset	1995 if (map && l->lv_lock == 0)
04c164c971a3 patch 8.2.0175: crash when removing list element in map() Bram Moolenaar <Bram@vim.org> parents: 19229 diff changeset	1996 l->lv_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	1997 for (li = l->lv_first; li != NULL; li = nli)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1998 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	1999 if (map && var_check_lock(li->li_tv.v_lock, arg_errmsg, TRUE))
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2000 break;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2001 nli = li->li_next;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2002 set_vim_var_nr(VV_KEY, idx);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2003 if (filter_map_one(&li->li_tv, expr, map, &rem) == FAIL
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2004 \|\| did_emsg)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2005 break;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2006 if (!map && rem)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2007 listitem_remove(l, li);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2008 ++idx;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2009 }
19233 04c164c971a3 patch 8.2.0175: crash when removing list element in map() Bram Moolenaar <Bram@vim.org> parents: 19229 diff changeset	2010 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	2011 }
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 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	2014 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	2015
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2016 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	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 copy_tv(&argvars[0], rettv);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2020 }
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 /*
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2023 * "filter()" function
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 void
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2026 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	2027 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2028 filter_map(argvars, rettv, FALSE);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2029 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2030
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2031 /*
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2032 * "map()" function
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2033 */
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2034 void
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2035 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	2036 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2037 filter_map(argvars, rettv, TRUE);
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2038 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2039
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2040 /*
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2041 * "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	2042 */
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2043 void
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2044 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	2045 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2046 list_T *l;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2047 blob_T *b;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2048
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	2049 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	2050 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	2051 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2052 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	2053 && !var_check_lock(l->lv_lock,
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2054 (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	2055 && 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	2056 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	2057 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2058 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	2059 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2060 if ((b = argvars[0].vval.v_blob) != NULL
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2061 && !var_check_lock(b->bv_lock,
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2062 (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	2063 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2064 int error = FALSE;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2065 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	2066
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2067 if (!error)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2068 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2069 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	2070 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	2071 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2072 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2073 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2074 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2075 emsg(_(e_listblobreq));
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2076 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2077
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2078 /*
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2079 * "count()" function
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2080 */
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2081 void
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2082 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	2083 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2084 long n = 0;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2085 int ic = FALSE;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2086 int error = FALSE;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2087
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2088 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	2089 ic = (int)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	2090
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2091 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	2092 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2093 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	2094 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	2095 char_u *next;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2096
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2097 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	2098 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2099 if (ic)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2100 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2101 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	2102
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2103 while (*p != NUL)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2104 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2105 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	2106 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2107 ++n;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2108 p += len;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2109 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2110 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2111 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	2112 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2113 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2114 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2115 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	2116 != NULL)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2117 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2118 ++n;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2119 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	2120 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2121 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2122
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2123 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2124 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	2125 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2126 listitem_T *li;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2127 list_T *l;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2128 long idx;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2129
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2130 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	2131 {
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20158 diff changeset	2132 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	2133 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	2134 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	2135 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2136 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	2137 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2138 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	2139 if (!error)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2140 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2141 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	2142 if (li == NULL)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2143 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	2144 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2145 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2146 if (error)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2147 li = NULL;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2148 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2149
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2150 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	2151 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	2152 ++n;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2153 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2154 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2155 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	2156 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2157 int todo;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2158 dict_T *d;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2159 hashitem_T *hi;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2160
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2161 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	2162 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2163 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	2164 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2165 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	2166 emsg(_(e_invarg));
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2167 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2168
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2169 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	2170 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	2171 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2172 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	2173 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2174 --todo;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2175 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	2176 ++n;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2177 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2178 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2179 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2180 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2181 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2182 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	2183 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	2184 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2185
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2186 /*
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2187 * "extend(list, list [, idx])" function
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2188 * "extend(dict, dict [, action])" function
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2189 */
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2190 void
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2191 f_extend(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	2192 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2193 char_u arg_errmsg = (char_u )N_("extend() argument");
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2194
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2195 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	2196 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2197 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	2198 listitem_T *item;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2199 long before;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2200 int error = FALSE;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2201
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2202 l1 = argvars[0].vval.v_list;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2203 l2 = argvars[1].vval.v_list;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2204 if (l1 != NULL && !var_check_lock(l1->lv_lock, arg_errmsg, TRUE)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2205 && l2 != NULL)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2206 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2207 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	2208 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2209 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	2210 if (error)
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	2211 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	2212
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2213 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	2214 item = NULL;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2215 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2216 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2217 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	2218 if (item == NULL)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2219 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2220 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	2221 return;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2222 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2223 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2224 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2225 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2226 item = NULL;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2227 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	2228
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2229 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	2230 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2231 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2232 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	2233 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2234 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	2235 char_u *action;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2236 int i;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2237
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2238 d1 = argvars[0].vval.v_dict;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2239 d2 = argvars[1].vval.v_dict;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2240 if (d1 != NULL && !var_check_lock(d1->dv_lock, arg_errmsg, TRUE)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2241 && d2 != NULL)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2242 {
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	2243 // 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	2244 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	2245 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2246 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	2247
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2248 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	2249 if (action == NULL)
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	2250 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	2251 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	2252 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	2253 break;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2254 if (i == 3)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2255 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2256 semsg(_(e_invarg2), action);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2257 return;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2258 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2259 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2260 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2261 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	2262
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2263 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	2264
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2265 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	2266 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2267 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2268 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2269 semsg(_(e_listdictarg), "extend()");
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2270 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2271
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2272 /*
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2273 * "insert()" function
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2274 */
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2275 void
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2276 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	2277 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2278 long before = 0;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2279 listitem_T *item;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2280 list_T *l;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2281 int error = FALSE;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2282
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2283 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	2284 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2285 int val, len;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2286 char_u *p;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2287
20158 94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	2288 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	2289 return;
94f05de75e9f patch 8.2.0634: crash with null partial and blob Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	2290
17970 684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2291 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	2292 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	2293 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2294 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	2295 if (error)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2296 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	2297 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	2298 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2299 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	2300 return;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2301 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2302 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2303 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	2304 if (error)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2305 return;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2306 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	2307 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2308 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	2309 return;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2310 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2311
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2312 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	2313 return;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2314 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	2315 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	2316 *(p + before) = val;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2317 ++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	2318
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2319 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	2320 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2321 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	2322 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	2323 else 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	2324 && !var_check_lock(l->lv_lock,
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2325 (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	2326 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2327 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	2328 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	2329 if (error)
18800 f41b55f9357c patch 8.1.2388: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 17970 diff changeset	2330 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	2331
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2332 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	2333 item = NULL;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2334 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2335 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2336 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	2337 if (item == NULL)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2338 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2339 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	2340 l = NULL;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2341 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2342 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2343 if (l != NULL)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2344 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2345 list_insert_tv(l, &argvars[1], item);
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2346 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	2347 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2348 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2349 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2350
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2351 /*
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2352 * "remove()" function
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2353 */
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2354 void
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2355 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	2356 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2357 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	2358
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2359 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	2360 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	2361 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	2362 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	2363 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	2364 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	2365 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2366 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	2367 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2368
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2369 /*
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2370 * "reverse({list})" function
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2371 */
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2372 void
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2373 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	2374 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2375 list_T *l;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2376 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	2377
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2378 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	2379 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2380 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	2381 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	2382
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2383 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	2384 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2385 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	2386
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2387 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	2388 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	2389 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2390 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	2391 return;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2392 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2393
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2394 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	2395 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	2396 else 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	2397 && !var_check_lock(l->lv_lock,
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2398 (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	2399 {
19203 09f01421a356 patch 8.2.0160: range test fails Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	2400 if (l->lv_first == &range_list_item)
09f01421a356 patch 8.2.0160: range test fails Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	2401 {
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	2402 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	2403 + (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	2404 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	2405 - (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	2406 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	2407 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	2408 rettv_list_set(rettv, l);
09f01421a356 patch 8.2.0160: range test fails Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	2409 return;
09f01421a356 patch 8.2.0160: range test fails Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	2410 }
19229 d776967d0f0d patch 8.2.0173: build fails with old compiler Bram Moolenaar <Bram@vim.org> parents: 19203 diff changeset	2411 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	2412 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	2413 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	2414 while (li != NULL)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2415 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2416 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	2417 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	2418 li = ni;
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 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	2421 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	2422 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2423 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17964 diff changeset	2424
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2425 /*
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2426 * "reduce(list, { accumlator, element -> value } [, initial])" function
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2427 */
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2428 void
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2429 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	2430 {
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2431 typval_T initial;
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2432 char_u *func_name;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2433 partial_T *partial = NULL;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2434 funcexe_T funcexe;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2435 typval_T argv[3];
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2436
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2437 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	2438 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2439 emsg(_(e_listblobreq));
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2440 return;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2441 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2442
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2443 if (argvars[1].v_type == VAR_FUNC)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2444 func_name = argvars[1].vval.v_string;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2445 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	2446 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2447 partial = argvars[1].vval.v_partial;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2448 func_name = partial_name(partial);
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2449 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2450 else
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2451 func_name = tv_get_string(&argvars[1]);
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2452 if (*func_name == NUL)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2453 return; // type error or empty name
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2454
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2455 vim_memset(&funcexe, 0, sizeof(funcexe));
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2456 funcexe.evaluate = TRUE;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2457 funcexe.partial = partial;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2458
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2459 if (argvars[0].v_type == VAR_LIST)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2460 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2461 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	2462 listitem_T *li = NULL;
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2463 int r;
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2464
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2465 CHECK_LIST_MATERIALIZE(l);
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2466 if (argvars[2].v_type == VAR_UNKNOWN)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2467 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2468 if (l == NULL \|\| l->lv_first == NULL)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2469 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2470 semsg(_(e_reduceempty), "List");
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2471 return;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2472 }
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2473 initial = l->lv_first->li_tv;
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2474 li = l->lv_first->li_next;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2475 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2476 else
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2477 {
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2478 initial = argvars[2];
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2479 if (l != NULL)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2480 li = l->lv_first;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2481 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2482
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2483 copy_tv(&initial, rettv);
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2484 for ( ; li != NULL; li = li->li_next)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2485 {
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2486 argv[0] = *rettv;
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2487 argv[1] = li->li_tv;
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2488 rettv->v_type = VAR_UNKNOWN;
a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2489 r = call_func(func_name, -1, rettv, 2, argv, &funcexe);
a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2490 clear_tv(&argv[0]);
a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2491 if (r == FAIL)
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2492 return;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2493 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2494 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2495 else
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2496 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2497 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	2498 int i;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2499
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2500 if (argvars[2].v_type == VAR_UNKNOWN)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2501 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2502 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	2503 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2504 semsg(_(e_reduceempty), "Blob");
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2505 return;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2506 }
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2507 initial.v_type = VAR_NUMBER;
a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2508 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	2509 i = 1;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2510 }
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2511 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	2512 {
a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2513 emsg(_(e_number_exp));
a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2514 return;
a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2515 }
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2516 else
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2517 {
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2518 initial = argvars[2];
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2519 i = 0;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2520 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2521
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2522 copy_tv(&initial, rettv);
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2523 if (b != NULL)
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2524 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2525 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	2526 {
20657 a1e6d9353736 patch 8.2.0882: leaking memory when using reduce() Bram Moolenaar <Bram@vim.org> parents: 20649 diff changeset	2527 argv[0] = *rettv;
20649 1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2528 argv[1].v_type = VAR_NUMBER;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2529 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	2530 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	2531 return;
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2532 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2533 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2534 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2535 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function Bram Moolenaar <Bram@vim.org> parents: 20550 diff changeset	2536
17964 6d4d3bce365d patch 8.1.1978: the eval.c file is too big Bram Moolenaar <Bram@vim.org> parents: 17789 diff changeset	2537 #endif // defined(FEAT_EVAL)

Mercurial > vim

annotate src/list.c @ 20992:7ee565134d4a v8.2.1047