Mercurial > vim

annotate src/list.c @ 26676:b856b797c5d1 v8.2.3867

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
patch 8.2.3867: implementation of some list functions too complicated Commit: https://github.com/vim/vim/commit/d92813a59877c707e4b64bea6d786aad152acb45 Author: Yegappan Lakshmanan <yegappan@yahoo.com> Date: Tue Dec 21 13:19:42 2021 +0000 patch 8.2.3867: implementation of some list functions too complicated Problem: Implementation of some list functions too complicated. Solution: Refactor do_sort_uniq(), f_count() and extend() (Yegappan Lakshmanan, closes #9378)
author Bram Moolenaar <Bram@vim.org>
date Tue, 21 Dec 2021 14:30:03 +0100
parents 7c055fdd6200
children 2126feddeda6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
10042
4aead6a9b7a9 commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47
Christian Brabandt <cb@256bit.org>
parents: 9626
diff changeset
1 /* vi:set ts=8 sts=4 sw=4 noet:
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
2 *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
3 * VIM - Vi IMproved by Bram Moolenaar
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
4 *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
5 * Do ":help uganda" in Vim to read copying and usage conditions.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6 * Do ":help credits" in Vim to see a list of people who contributed.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
7 * See README.txt for an overview of the Vim source code.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
8 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
9
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
10 /*
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
11 * list.c: List support and container (List, Dict, Blob) functions.
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
12 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
13
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
14 #include "vim.h"
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
15
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
16 #if defined(FEAT_EVAL) || defined(PROTO)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
17
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
18 static char *e_listblobarg = N_("E899: Argument of %s must be a List or Blob");
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
19
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
20 // List heads for garbage collection.
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
21 static list_T *first_list = NULL; // list of all lists
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
22
19934
3ff714d765ba patch 8.2.0523: loops are repeated
Bram Moolenaar <Bram@vim.org>
parents: 19916
diff changeset
23 #define FOR_ALL_WATCHERS(l, lw) \
3ff714d765ba patch 8.2.0523: loops are repeated
Bram Moolenaar <Bram@vim.org>
parents: 19916
diff changeset
24 for ((lw) = (l)->lv_watch; (lw) != NULL; (lw) = (lw)->lw_next)
3ff714d765ba patch 8.2.0523: loops are repeated
Bram Moolenaar <Bram@vim.org>
parents: 19916
diff changeset
25
19916
dcec86d796bc patch 8.2.0514: several global functions are used in only one file
Bram Moolenaar <Bram@vim.org>
parents: 19888
diff changeset
26 static void list_free_item(list_T *l, listitem_T *item);
dcec86d796bc patch 8.2.0514: several global functions are used in only one file
Bram Moolenaar <Bram@vim.org>
parents: 19888
diff changeset
27
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
28 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
29 * Add a watcher to a list.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
30 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
31 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
32 list_add_watch(list_T *l, listwatch_T *lw)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
33 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
34 lw->lw_next = l->lv_watch;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
35 l->lv_watch = lw;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
36 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
37
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
38 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
39 * Remove a watcher from a list.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
40 * No warning when it isn't found...
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
41 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
42 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
43 list_rem_watch(list_T *l, listwatch_T *lwrem)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
44 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
45 listwatch_T *lw, **lwp;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
46
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
47 lwp = &l->lv_watch;
19934
3ff714d765ba patch 8.2.0523: loops are repeated
Bram Moolenaar <Bram@vim.org>
parents: 19916
diff changeset
48 FOR_ALL_WATCHERS(l, lw)
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
49 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
50 if (lw == lwrem)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
51 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
52 *lwp = lw->lw_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
53 break;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
54 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
55 lwp = &lw->lw_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
56 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
57 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
58
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
59 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
60 * Just before removing an item from a list: advance watchers to the next
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
61 * item.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
62 */
17789
0f7ae8010787 patch 8.1.1891: functions used in one file are global
Bram Moolenaar <Bram@vim.org>
parents: 17606
diff changeset
63 static void
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
64 list_fix_watch(list_T *l, listitem_T *item)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
65 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
66 listwatch_T *lw;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
67
19934
3ff714d765ba patch 8.2.0523: loops are repeated
Bram Moolenaar <Bram@vim.org>
parents: 19916
diff changeset
68 FOR_ALL_WATCHERS(l, lw)
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
69 if (lw->lw_item == item)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
70 lw->lw_item = item->li_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
71 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
72
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
73 static void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
74 list_init(list_T *l)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
75 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
76 // Prepend the list to the list of lists for garbage collection.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
77 if (first_list != NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
78 first_list->lv_used_prev = l;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
79 l->lv_used_prev = NULL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
80 l->lv_used_next = first_list;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
81 first_list = l;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
82 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
83
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
84 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
85 * Allocate an empty header for a list.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
86 * Caller should take care of the reference count.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
87 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
88 list_T *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
89 list_alloc(void)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
90 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
91 list_T *l;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
92
16825
ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents: 16782
diff changeset
93 l = ALLOC_CLEAR_ONE(list_T);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
94 if (l != NULL)
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
95 list_init(l);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
96 return l;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
97 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
98
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
99 /*
15016
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents: 14391
diff changeset
100 * list_alloc() with an ID for alloc_fail().
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents: 14391
diff changeset
101 */
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents: 14391
diff changeset
102 list_T *
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents: 14391
diff changeset
103 list_alloc_id(alloc_id_T id UNUSED)
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents: 14391
diff changeset
104 {
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents: 14391
diff changeset
105 #ifdef FEAT_EVAL
16782
fc58fee685e2 patch 8.1.1393: unnecessary type casts
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
106 if (alloc_fail_id == id && alloc_does_fail(sizeof(list_T)))
15016
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents: 14391
diff changeset
107 return NULL;
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents: 14391
diff changeset
108 #endif
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents: 14391
diff changeset
109 return (list_alloc());
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents: 14391
diff changeset
110 }
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents: 14391
diff changeset
111
c338c91086b9 patch 8.1.0519: cannot save and restore the tag stack
Bram Moolenaar <Bram@vim.org>
parents: 14391
diff changeset
112 /*
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
113 * Allocate space for a list, plus "count" items.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
114 * Next list_set_item() must be called for each item.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
115 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
116 list_T *
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
117 list_alloc_with_items(int count)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
118 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
119 list_T *l;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
120
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
121 l = (list_T *)alloc_clear(sizeof(list_T) + count * sizeof(listitem_T));
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
122 if (l != NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
123 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
124 list_init(l);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
125
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
126 if (count > 0)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
127 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
128 listitem_T *li = (listitem_T *)(l + 1);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
129 int i;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
130
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
131 l->lv_len = count;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
132 l->lv_with_items = count;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
133 l->lv_first = li;
19229
d776967d0f0d patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents: 19203
diff changeset
134 l->lv_u.mat.lv_last = li + count - 1;
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
135 for (i = 0; i < count; ++i)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
136 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
137 if (i == 0)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
138 li->li_prev = NULL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
139 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
140 li->li_prev = li - 1;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
141 if (i == count - 1)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
142 li->li_next = NULL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
143 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
144 li->li_next = li + 1;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
145 ++li;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
146 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
147 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
148 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
149 return l;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
150 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
151
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
152 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
153 * Set item "idx" for a list previously allocated with list_alloc_with_items().
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
154 * The contents of "tv" is moved into the list item.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
155 * Each item must be set exactly once.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
156 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
157 void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
158 list_set_item(list_T *l, int idx, typval_T *tv)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
159 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
160 listitem_T *li = (listitem_T *)(l + 1) + idx;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
161
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
162 li->li_tv = *tv;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
163 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
164
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
165 /*
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
166 * Allocate an empty list for a return value, with reference count set.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
167 * Returns OK or FAIL.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
168 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
169 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
170 rettv_list_alloc(typval_T *rettv)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
171 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
172 list_T *l = list_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
173
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
174 if (l == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
175 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
176
11418
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value
Christian Brabandt <cb@256bit.org>
parents: 10549
diff changeset
177 rettv->v_lock = 0;
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value
Christian Brabandt <cb@256bit.org>
parents: 10549
diff changeset
178 rettv_list_set(rettv, l);
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value
Christian Brabandt <cb@256bit.org>
parents: 10549
diff changeset
179 return OK;
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value
Christian Brabandt <cb@256bit.org>
parents: 10549
diff changeset
180 }
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value
Christian Brabandt <cb@256bit.org>
parents: 10549
diff changeset
181
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value
Christian Brabandt <cb@256bit.org>
parents: 10549
diff changeset
182 /*
15209
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated
Bram Moolenaar <Bram@vim.org>
parents: 15016
diff changeset
183 * Same as rettv_list_alloc() but uses an allocation id for testing.
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated
Bram Moolenaar <Bram@vim.org>
parents: 15016
diff changeset
184 */
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated
Bram Moolenaar <Bram@vim.org>
parents: 15016
diff changeset
185 int
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated
Bram Moolenaar <Bram@vim.org>
parents: 15016
diff changeset
186 rettv_list_alloc_id(typval_T *rettv, alloc_id_T id UNUSED)
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated
Bram Moolenaar <Bram@vim.org>
parents: 15016
diff changeset
187 {
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated
Bram Moolenaar <Bram@vim.org>
parents: 15016
diff changeset
188 #ifdef FEAT_EVAL
16782
fc58fee685e2 patch 8.1.1393: unnecessary type casts
Bram Moolenaar <Bram@vim.org>
parents: 15470
diff changeset
189 if (alloc_fail_id == id && alloc_does_fail(sizeof(list_T)))
15209
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated
Bram Moolenaar <Bram@vim.org>
parents: 15016
diff changeset
190 return FAIL;
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated
Bram Moolenaar <Bram@vim.org>
parents: 15016
diff changeset
191 #endif
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated
Bram Moolenaar <Bram@vim.org>
parents: 15016
diff changeset
192 return rettv_list_alloc(rettv);
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated
Bram Moolenaar <Bram@vim.org>
parents: 15016
diff changeset
193 }
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated
Bram Moolenaar <Bram@vim.org>
parents: 15016
diff changeset
194
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated
Bram Moolenaar <Bram@vim.org>
parents: 15016
diff changeset
195
3a99b2e6d136 patch 8.1.0614: placing signs can be complicated
Bram Moolenaar <Bram@vim.org>
parents: 15016
diff changeset
196 /*
17262
041156ce1d22 patch 8.1.1630: various small problems
Bram Moolenaar <Bram@vim.org>
parents: 16825
diff changeset
197 * Set a list as the return value. Increments the reference count.
11418
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value
Christian Brabandt <cb@256bit.org>
parents: 10549
diff changeset
198 */
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value
Christian Brabandt <cb@256bit.org>
parents: 10549
diff changeset
199 void
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value
Christian Brabandt <cb@256bit.org>
parents: 10549
diff changeset
200 rettv_list_set(typval_T *rettv, list_T *l)
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value
Christian Brabandt <cb@256bit.org>
parents: 10549
diff changeset
201 {
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
202 rettv->v_type = VAR_LIST;
11418
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value
Christian Brabandt <cb@256bit.org>
parents: 10549
diff changeset
203 rettv->vval.v_list = l;
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value
Christian Brabandt <cb@256bit.org>
parents: 10549
diff changeset
204 if (l != NULL)
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value
Christian Brabandt <cb@256bit.org>
parents: 10549
diff changeset
205 ++l->lv_refcount;
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
206 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
207
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
208 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
209 * Unreference a list: decrement the reference count and free it when it
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
210 * becomes zero.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
211 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
212 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
213 list_unref(list_T *l)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
214 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
215 if (l != NULL && --l->lv_refcount <= 0)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
216 list_free(l);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
217 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
218
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
219 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
220 * Free a list, including all non-container items it points to.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
221 * Ignores the reference count.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
222 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
223 static void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
224 list_free_contents(list_T *l)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
225 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
226 listitem_T *item;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
227
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
228 if (l->lv_first != &range_list_item)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
229 for (item = l->lv_first; item != NULL; item = l->lv_first)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
230 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
231 // Remove the item before deleting it.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
232 l->lv_first = item->li_next;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
233 clear_tv(&item->li_tv);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
234 list_free_item(l, item);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
235 }
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
236 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
237
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
238 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
239 * Go through the list of lists and free items without the copyID.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
240 * But don't free a list that has a watcher (used in a for loop), these
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
241 * are not referenced anywhere.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
242 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
243 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
244 list_free_nonref(int copyID)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
245 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
246 list_T *ll;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
247 int did_free = FALSE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
248
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
249 for (ll = first_list; ll != NULL; ll = ll->lv_used_next)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
250 if ((ll->lv_copyID & COPYID_MASK) != (copyID & COPYID_MASK)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
251 && ll->lv_watch == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
252 {
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
253 // Free the List and ordinary items it contains, but don't recurse
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
254 // into Lists and Dictionaries, they will be in the list of dicts
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
255 // or list of lists.
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
256 list_free_contents(ll);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
257 did_free = TRUE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
258 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
259 return did_free;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
260 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
261
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
262 static void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
263 list_free_list(list_T *l)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
264 {
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
265 // Remove the list from the list of lists for garbage collection.
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
266 if (l->lv_used_prev == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
267 first_list = l->lv_used_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
268 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
269 l->lv_used_prev->lv_used_next = l->lv_used_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
270 if (l->lv_used_next != NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
271 l->lv_used_next->lv_used_prev = l->lv_used_prev;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
272
23458
d2b1269c2c68 patch 8.2.2272: Vim9: extend() can violate the type of a variable
Bram Moolenaar <Bram@vim.org>
parents: 23229
diff changeset
273 free_type(l->lv_type);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
274 vim_free(l);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
275 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
276
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
277 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
278 list_free_items(int copyID)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
279 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
280 list_T *ll, *ll_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
281
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
282 for (ll = first_list; ll != NULL; ll = ll_next)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
283 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
284 ll_next = ll->lv_used_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
285 if ((ll->lv_copyID & COPYID_MASK) != (copyID & COPYID_MASK)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
286 && ll->lv_watch == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
287 {
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
288 // Free the List and ordinary items it contains, but don't recurse
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
289 // into Lists and Dictionaries, they will be in the list of dicts
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
290 // or list of lists.
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
291 list_free_list(ll);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
292 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
293 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
294 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
295
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
296 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
297 list_free(list_T *l)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
298 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
299 if (!in_free_unref_items)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
300 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
301 list_free_contents(l);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
302 list_free_list(l);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
303 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
304 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
305
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
306 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
307 * Allocate a list item.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
308 * It is not initialized, don't forget to set v_lock.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
309 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
310 listitem_T *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
311 listitem_alloc(void)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
312 {
16825
ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents: 16782
diff changeset
313 return ALLOC_ONE(listitem_T);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
314 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
315
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
316 /*
26638
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
317 * Make a typval_T of the first character of "input" and store it in "output".
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
318 * Return OK or FAIL.
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
319 */
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
320 static int
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
321 tv_get_first_char(char_u *input, typval_T *output)
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
322 {
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
323 char_u buf[MB_MAXBYTES + 1];
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
324 int len;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
325
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
326 if (input == NULL || output == NULL)
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
327 return FAIL;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
328
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
329 len = has_mbyte ? mb_ptr2len(input) : 1;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
330 STRNCPY(buf, input, len);
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
331 buf[len] = NUL;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
332 output->v_type = VAR_STRING;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
333 output->vval.v_string = vim_strsave(buf);
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
334
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
335 return output->vval.v_string == NULL ? FAIL : OK;
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
336 }
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
337
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
338 /*
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
339 * Free a list item, unless it was allocated together with the list itself.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
340 * Does not clear the value. Does not notify watchers.
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
341 */
19916
dcec86d796bc patch 8.2.0514: several global functions are used in only one file
Bram Moolenaar <Bram@vim.org>
parents: 19888
diff changeset
342 static void
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
343 list_free_item(list_T *l, listitem_T *item)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
344 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
345 if (l->lv_with_items == 0 || item < (listitem_T *)l
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
346 || item >= (listitem_T *)(l + 1) + l->lv_with_items)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
347 vim_free(item);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
348 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
349
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
350 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
351 * Free a list item, unless it was allocated together with the list itself.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
352 * Also clears the value. Does not notify watchers.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
353 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
354 void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
355 listitem_free(list_T *l, listitem_T *item)
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
356 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
357 clear_tv(&item->li_tv);
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
358 list_free_item(l, item);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
359 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
360
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
361 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
362 * Remove a list item from a List and free it. Also clears the value.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
363 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
364 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
365 listitem_remove(list_T *l, listitem_T *item)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
366 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
367 vimlist_remove(l, item, item);
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
368 listitem_free(l, item);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
369 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
370
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
371 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
372 * Get the number of items in a list.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
373 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
374 long
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
375 list_len(list_T *l)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
376 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
377 if (l == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
378 return 0L;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
379 return l->lv_len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
380 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
381
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
382 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
383 * Return TRUE when two lists have exactly the same values.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
384 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
385 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
386 list_equal(
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
387 list_T *l1,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
388 list_T *l2,
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
389 int ic, // ignore case for strings
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
390 int recursive) // TRUE when used recursively
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
391 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
392 listitem_T *item1, *item2;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
393
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
394 if (l1 == l2)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
395 return TRUE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
396 if (list_len(l1) != list_len(l2))
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
397 return FALSE;
19966
c0eb073378e7 patch 8.2.0539: comparing two NULL list fails
Bram Moolenaar <Bram@vim.org>
parents: 19934
diff changeset
398 if (list_len(l1) == 0)
c0eb073378e7 patch 8.2.0539: comparing two NULL list fails
Bram Moolenaar <Bram@vim.org>
parents: 19934
diff changeset
399 // empty and NULL list are considered equal
c0eb073378e7 patch 8.2.0539: comparing two NULL list fails
Bram Moolenaar <Bram@vim.org>
parents: 19934
diff changeset
400 return TRUE;
c0eb073378e7 patch 8.2.0539: comparing two NULL list fails
Bram Moolenaar <Bram@vim.org>
parents: 19934
diff changeset
401 if (l1 == NULL || l2 == NULL)
c0eb073378e7 patch 8.2.0539: comparing two NULL list fails
Bram Moolenaar <Bram@vim.org>
parents: 19934
diff changeset
402 return FALSE;
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
403
20392
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved
Bram Moolenaar <Bram@vim.org>
parents: 20158
diff changeset
404 CHECK_LIST_MATERIALIZE(l1);
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved
Bram Moolenaar <Bram@vim.org>
parents: 20158
diff changeset
405 CHECK_LIST_MATERIALIZE(l2);
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
406
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
407 for (item1 = l1->lv_first, item2 = l2->lv_first;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
408 item1 != NULL && item2 != NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
409 item1 = item1->li_next, item2 = item2->li_next)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
410 if (!tv_equal(&item1->li_tv, &item2->li_tv, ic, recursive))
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
411 return FALSE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
412 return item1 == NULL && item2 == NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
413 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
414
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
415 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
416 * Locate item with index "n" in list "l" and return it.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
417 * A negative index is counted from the end; -1 is the last item.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
418 * Returns NULL when "n" is out of range.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
419 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
420 listitem_T *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
421 list_find(list_T *l, long n)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
422 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
423 listitem_T *item;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
424 long idx;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
425
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
426 if (l == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
427 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
428
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
429 // Negative index is relative to the end.
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
430 if (n < 0)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
431 n = l->lv_len + n;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
432
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
433 // Check for index out of range.
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
434 if (n < 0 || n >= l->lv_len)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
435 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
436
20392
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved
Bram Moolenaar <Bram@vim.org>
parents: 20158
diff changeset
437 CHECK_LIST_MATERIALIZE(l);
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
438
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
439 // When there is a cached index may start search from there.
19229
d776967d0f0d patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents: 19203
diff changeset
440 if (l->lv_u.mat.lv_idx_item != NULL)
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
441 {
19229
d776967d0f0d patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents: 19203
diff changeset
442 if (n < l->lv_u.mat.lv_idx / 2)
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
443 {
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
444 // closest to the start of the list
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
445 item = l->lv_first;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
446 idx = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
447 }
19229
d776967d0f0d patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents: 19203
diff changeset
448 else if (n > (l->lv_u.mat.lv_idx + l->lv_len) / 2)
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
449 {
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
450 // closest to the end of the list
19229
d776967d0f0d patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents: 19203
diff changeset
451 item = l->lv_u.mat.lv_last;
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
452 idx = l->lv_len - 1;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
453 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
454 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
455 {
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
456 // closest to the cached index
19229
d776967d0f0d patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents: 19203
diff changeset
457 item = l->lv_u.mat.lv_idx_item;
d776967d0f0d patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents: 19203
diff changeset
458 idx = l->lv_u.mat.lv_idx;
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
459 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
460 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
461 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
462 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
463 if (n < l->lv_len / 2)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
464 {
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
465 // closest to the start of the list
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
466 item = l->lv_first;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
467 idx = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
468 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
469 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
470 {
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
471 // closest to the end of the list
19229
d776967d0f0d patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents: 19203
diff changeset
472 item = l->lv_u.mat.lv_last;
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
473 idx = l->lv_len - 1;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
474 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
475 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
476
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
477 while (n > idx)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
478 {
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
479 // search forward
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
480 item = item->li_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
481 ++idx;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
482 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
483 while (n < idx)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
484 {
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
485 // search backward
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
486 item = item->li_prev;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
487 --idx;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
488 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
489
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
490 // cache the used index
19229
d776967d0f0d patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents: 19203
diff changeset
491 l->lv_u.mat.lv_idx = idx;
d776967d0f0d patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents: 19203
diff changeset
492 l->lv_u.mat.lv_idx_item = item;
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
493
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
494 return item;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
495 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
496
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
497 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
498 * Get list item "l[idx]" as a number.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
499 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
500 long
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
501 list_find_nr(
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
502 list_T *l,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
503 long idx,
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
504 int *errorp) // set to TRUE when something wrong
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
505 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
506 listitem_T *li;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
507
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
508 if (l != NULL && l->lv_first == &range_list_item)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
509 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
510 long n = idx;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
511
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
512 // not materialized range() list: compute the value.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
513 // Negative index is relative to the end.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
514 if (n < 0)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
515 n = l->lv_len + n;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
516
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
517 // Check for index out of range.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
518 if (n < 0 || n >= l->lv_len)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
519 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
520 if (errorp != NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
521 *errorp = TRUE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
522 return -1L;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
523 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
524
19229
d776967d0f0d patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents: 19203
diff changeset
525 return l->lv_u.nonmat.lv_start + n * l->lv_u.nonmat.lv_stride;
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
526 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
527
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
528 li = list_find(l, idx);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
529 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
530 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
531 if (errorp != NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
532 *errorp = TRUE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
533 return -1L;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
534 }
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15209
diff changeset
535 return (long)tv_get_number_chk(&li->li_tv, errorp);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
536 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
537
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
538 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
539 * Get list item "l[idx - 1]" as a string. Returns NULL for failure.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
540 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
541 char_u *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
542 list_find_str(list_T *l, long idx)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
543 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
544 listitem_T *li;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
545
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
546 li = list_find(l, idx - 1);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
547 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
548 {
15470
55ccc2d353bd patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents: 15211
diff changeset
549 semsg(_(e_listidx), idx);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
550 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
551 }
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15209
diff changeset
552 return tv_get_string(&li->li_tv);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
553 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
554
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
555 /*
23982
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
556 * Like list_find() but when a negative index is used that is not found use
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
557 * zero and set "idx" to zero. Used for first index of a range.
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
558 */
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
559 listitem_T *
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
560 list_find_index(list_T *l, long *idx)
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
561 {
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
562 listitem_T *li = list_find(l, *idx);
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
563
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
564 if (li == NULL)
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
565 {
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
566 if (*idx < 0)
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
567 {
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
568 *idx = 0;
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
569 li = list_find(l, *idx);
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
570 }
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
571 }
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
572 return li;
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
573 }
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
574
9fcd71d0db89 patch 8.2.2533: Vim9: cannot use a range with :unlet
Bram Moolenaar <Bram@vim.org>
parents: 23917
diff changeset
575 /*
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
576 * Locate "item" list "l" and return its index.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
577 * Returns -1 when "item" is not in the list.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
578 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
579 long
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
580 list_idx_of_item(list_T *l, listitem_T *item)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
581 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
582 long idx = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
583 listitem_T *li;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
584
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
585 if (l == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
586 return -1;
20392
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved
Bram Moolenaar <Bram@vim.org>
parents: 20158
diff changeset
587 CHECK_LIST_MATERIALIZE(l);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
588 idx = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
589 for (li = l->lv_first; li != NULL && li != item; li = li->li_next)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
590 ++idx;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
591 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
592 return -1;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
593 return idx;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
594 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
595
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
596 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
597 * Append item "item" to the end of list "l".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
598 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
599 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
600 list_append(list_T *l, listitem_T *item)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
601 {
20392
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved
Bram Moolenaar <Bram@vim.org>
parents: 20158
diff changeset
602 CHECK_LIST_MATERIALIZE(l);
19229
d776967d0f0d patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents: 19203
diff changeset
603 if (l->lv_u.mat.lv_last == NULL)
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
604 {
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
605 // empty list
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
606 l->lv_first = item;
19229
d776967d0f0d patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents: 19203
diff changeset
607 l->lv_u.mat.lv_last = item;
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
608 item->li_prev = NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
609 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
610 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
611 {
19229
d776967d0f0d patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents: 19203
diff changeset
612 l->lv_u.mat.lv_last->li_next = item;
d776967d0f0d patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents: 19203
diff changeset
613 item->li_prev = l->lv_u.mat.lv_last;
d776967d0f0d patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents: 19203
diff changeset
614 l->lv_u.mat.lv_last = item;
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
615 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
616 ++l->lv_len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
617 item->li_next = NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
618 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
619
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
620 /*
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
621 * Append typval_T "tv" to the end of list "l". "tv" is copied.
25182
14448e7acdb2 patch 8.2.3127: Vim9: no error when adding number to list of string
Bram Moolenaar <Bram@vim.org>
parents: 25064
diff changeset
622 * Return FAIL when out of memory or the type is wrong.
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
623 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
624 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
625 list_append_tv(list_T *l, typval_T *tv)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
626 {
25194
6c75baaa54ee patch 8.2.3133: Vim9: memory leak when add() fails
Bram Moolenaar <Bram@vim.org>
parents: 25182
diff changeset
627 listitem_T *li;
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
628
25182
14448e7acdb2 patch 8.2.3127: Vim9: no error when adding number to list of string
Bram Moolenaar <Bram@vim.org>
parents: 25064
diff changeset
629 if (l->lv_type != NULL && l->lv_type->tt_member != NULL
25326
cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given
Bram Moolenaar <Bram@vim.org>
parents: 25306
diff changeset
630 && check_typval_arg_type(l->lv_type->tt_member, tv,
cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given
Bram Moolenaar <Bram@vim.org>
parents: 25306
diff changeset
631 NULL, 0) == FAIL)
25182
14448e7acdb2 patch 8.2.3127: Vim9: no error when adding number to list of string
Bram Moolenaar <Bram@vim.org>
parents: 25064
diff changeset
632 return FAIL;
25194
6c75baaa54ee patch 8.2.3133: Vim9: memory leak when add() fails
Bram Moolenaar <Bram@vim.org>
parents: 25182
diff changeset
633 li = listitem_alloc();
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
634 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
635 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
636 copy_tv(tv, &li->li_tv);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
637 list_append(l, li);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
638 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
639 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
640
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
641 /*
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
642 * As list_append_tv() but move the value instead of copying it.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
643 * Return FAIL when out of memory.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
644 */
25567
0082503ff2ff patch 8.2.3320: some local functions are not static
Bram Moolenaar <Bram@vim.org>
parents: 25495
diff changeset
645 static int
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
646 list_append_tv_move(list_T *l, typval_T *tv)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
647 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
648 listitem_T *li = listitem_alloc();
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
649
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
650 if (li == NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
651 return FAIL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
652 li->li_tv = *tv;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
653 list_append(l, li);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
654 return OK;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
655 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
656
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
657 /*
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
658 * Add a dictionary to a list. Used by getqflist().
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
659 * Return FAIL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
660 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
661 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
662 list_append_dict(list_T *list, dict_T *dict)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
663 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
664 listitem_T *li = listitem_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
665
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
666 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
667 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
668 li->li_tv.v_type = VAR_DICT;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
669 li->li_tv.v_lock = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
670 li->li_tv.vval.v_dict = dict;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
671 list_append(list, li);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
672 ++dict->dv_refcount;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
673 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
674 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
675
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
676 /*
13246
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps
Christian Brabandt <cb@256bit.org>
parents: 11973
diff changeset
677 * Append list2 to list1.
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps
Christian Brabandt <cb@256bit.org>
parents: 11973
diff changeset
678 * Return FAIL when out of memory.
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps
Christian Brabandt <cb@256bit.org>
parents: 11973
diff changeset
679 */
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps
Christian Brabandt <cb@256bit.org>
parents: 11973
diff changeset
680 int
14391
46f14852a919 patch 8.1.0210: still a few K&R function declarations
Christian Brabandt <cb@256bit.org>
parents: 13246
diff changeset
681 list_append_list(list_T *list1, list_T *list2)
13246
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps
Christian Brabandt <cb@256bit.org>
parents: 11973
diff changeset
682 {
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps
Christian Brabandt <cb@256bit.org>
parents: 11973
diff changeset
683 listitem_T *li = listitem_alloc();
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps
Christian Brabandt <cb@256bit.org>
parents: 11973
diff changeset
684
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps
Christian Brabandt <cb@256bit.org>
parents: 11973
diff changeset
685 if (li == NULL)
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps
Christian Brabandt <cb@256bit.org>
parents: 11973
diff changeset
686 return FAIL;
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps
Christian Brabandt <cb@256bit.org>
parents: 11973
diff changeset
687 li->li_tv.v_type = VAR_LIST;
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps
Christian Brabandt <cb@256bit.org>
parents: 11973
diff changeset
688 li->li_tv.v_lock = 0;
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps
Christian Brabandt <cb@256bit.org>
parents: 11973
diff changeset
689 li->li_tv.vval.v_list = list2;
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps
Christian Brabandt <cb@256bit.org>
parents: 11973
diff changeset
690 list_append(list1, li);
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps
Christian Brabandt <cb@256bit.org>
parents: 11973
diff changeset
691 ++list2->lv_refcount;
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps
Christian Brabandt <cb@256bit.org>
parents: 11973
diff changeset
692 return OK;
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps
Christian Brabandt <cb@256bit.org>
parents: 11973
diff changeset
693 }
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps
Christian Brabandt <cb@256bit.org>
parents: 11973
diff changeset
694
dd3b2ecf91f6 patch 8.0.1497: getting the jump list requires parsing the output of :jumps
Christian Brabandt <cb@256bit.org>
parents: 11973
diff changeset
695 /*
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
696 * Make a copy of "str" and append it as an item to list "l".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
697 * When "len" >= 0 use "str[len]".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
698 * Returns FAIL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
699 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
700 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
701 list_append_string(list_T *l, char_u *str, int len)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
702 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
703 listitem_T *li = listitem_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
704
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
705 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
706 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
707 list_append(l, li);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
708 li->li_tv.v_type = VAR_STRING;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
709 li->li_tv.v_lock = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
710 if (str == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
711 li->li_tv.vval.v_string = NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
712 else if ((li->li_tv.vval.v_string = (len >= 0 ? vim_strnsave(str, len)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
713 : vim_strsave(str))) == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
714 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
715 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
716 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
717
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
718 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
719 * Append "n" to list "l".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
720 * Returns FAIL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
721 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
722 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
723 list_append_number(list_T *l, varnumber_T n)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
724 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
725 listitem_T *li;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
726
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
727 li = listitem_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
728 if (li == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
729 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
730 li->li_tv.v_type = VAR_NUMBER;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
731 li->li_tv.v_lock = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
732 li->li_tv.vval.v_number = n;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
733 list_append(l, li);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
734 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
735 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
736
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
737 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
738 * Insert typval_T "tv" in list "l" before "item".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
739 * If "item" is NULL append at the end.
23458
d2b1269c2c68 patch 8.2.2272: Vim9: extend() can violate the type of a variable
Bram Moolenaar <Bram@vim.org>
parents: 23229
diff changeset
740 * Return FAIL when out of memory or the type is wrong.
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
741 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
742 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
743 list_insert_tv(list_T *l, typval_T *tv, listitem_T *item)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
744 {
23458
d2b1269c2c68 patch 8.2.2272: Vim9: extend() can violate the type of a variable
Bram Moolenaar <Bram@vim.org>
parents: 23229
diff changeset
745 listitem_T *ni;
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
746
23458
d2b1269c2c68 patch 8.2.2272: Vim9: extend() can violate the type of a variable
Bram Moolenaar <Bram@vim.org>
parents: 23229
diff changeset
747 if (l->lv_type != NULL && l->lv_type->tt_member != NULL
25326
cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given
Bram Moolenaar <Bram@vim.org>
parents: 25306
diff changeset
748 && check_typval_arg_type(l->lv_type->tt_member, tv,
cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given
Bram Moolenaar <Bram@vim.org>
parents: 25306
diff changeset
749 NULL, 0) == FAIL)
23458
d2b1269c2c68 patch 8.2.2272: Vim9: extend() can violate the type of a variable
Bram Moolenaar <Bram@vim.org>
parents: 23229
diff changeset
750 return FAIL;
d2b1269c2c68 patch 8.2.2272: Vim9: extend() can violate the type of a variable
Bram Moolenaar <Bram@vim.org>
parents: 23229
diff changeset
751 ni = listitem_alloc();
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
752 if (ni == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
753 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
754 copy_tv(tv, &ni->li_tv);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
755 list_insert(l, ni, item);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
756 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
757 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
758
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
759 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
760 list_insert(list_T *l, listitem_T *ni, listitem_T *item)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
761 {
20392
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved
Bram Moolenaar <Bram@vim.org>
parents: 20158
diff changeset
762 CHECK_LIST_MATERIALIZE(l);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
763 if (item == NULL)
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
764 // Append new item at end of list.
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
765 list_append(l, ni);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
766 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
767 {
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
768 // Insert new item before existing item.
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
769 ni->li_prev = item->li_prev;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
770 ni->li_next = item;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
771 if (item->li_prev == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
772 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
773 l->lv_first = ni;
19229
d776967d0f0d patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents: 19203
diff changeset
774 ++l->lv_u.mat.lv_idx;
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
775 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
776 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
777 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
778 item->li_prev->li_next = ni;
19229
d776967d0f0d patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents: 19203
diff changeset
779 l->lv_u.mat.lv_idx_item = NULL;
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
780 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
781 item->li_prev = ni;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
782 ++l->lv_len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
783 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
784 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
785
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
786 /*
25591
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
787 * Get the list item in "l" with index "n1". "n1" is adjusted if needed.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
788 * In Vim9, it is at the end of the list, add an item.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
789 * Return NULL if there is no such item.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
790 */
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
791 listitem_T *
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
792 check_range_index_one(list_T *l, long *n1, int quiet)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
793 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
794 listitem_T *li = list_find_index(l, n1);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
795
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
796 if (li == NULL)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
797 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
798 // Vim9: Allow for adding an item at the end.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
799 if (in_vim9script() && *n1 == l->lv_len && l->lv_lock == 0)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
800 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
801 list_append_number(l, 0);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
802 li = list_find_index(l, n1);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
803 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
804 if (li == NULL)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
805 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
806 if (!quiet)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
807 semsg(_(e_listidx), *n1);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
808 return NULL;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
809 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
810 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
811 return li;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
812 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
813
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
814 /*
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
815 * Check that "n2" can be used as the second index in a range of list "l".
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
816 * If "n1" or "n2" is negative it is changed to the positive index.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
817 * "li1" is the item for item "n1".
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
818 * Return OK or FAIL.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
819 */
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
820 int
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
821 check_range_index_two(
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
822 list_T *l,
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
823 long *n1,
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
824 listitem_T *li1,
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
825 long *n2,
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
826 int quiet)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
827 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
828 if (*n2 < 0)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
829 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
830 listitem_T *ni = list_find(l, *n2);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
831
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
832 if (ni == NULL)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
833 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
834 if (!quiet)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
835 semsg(_(e_listidx), *n2);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
836 return FAIL;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
837 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
838 *n2 = list_idx_of_item(l, ni);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
839 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
840
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
841 // Check that n2 isn't before n1.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
842 if (*n1 < 0)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
843 *n1 = list_idx_of_item(l, li1);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
844 if (*n2 < *n1)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
845 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
846 if (!quiet)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
847 semsg(_(e_listidx), *n2);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
848 return FAIL;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
849 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
850 return OK;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
851 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
852
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
853 /*
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
854 * Assign values from list "src" into a range of "dest".
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
855 * "idx1_arg" is the index of the first item in "dest" to be replaced.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
856 * "idx2" is the index of last item to be replaced, but when "empty_idx2" is
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
857 * TRUE then replace all items after "idx1".
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
858 * "op" is the operator, normally "=" but can be "+=" and the like.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
859 * "varname" is used for error messages.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
860 * Returns OK or FAIL.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
861 */
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
862 int
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
863 list_assign_range(
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
864 list_T *dest,
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
865 list_T *src,
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
866 long idx1_arg,
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
867 long idx2,
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
868 int empty_idx2,
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
869 char_u *op,
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
870 char_u *varname)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
871 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
872 listitem_T *src_li;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
873 listitem_T *dest_li;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
874 long idx1 = idx1_arg;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
875 listitem_T *first_li = list_find_index(dest, &idx1);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
876 long idx;
25603
525ef4d1d412 patch 8.2.3338: Vim9: no type check when assigning a list range
Bram Moolenaar <Bram@vim.org>
parents: 25599
diff changeset
877 type_T *member_type = NULL;
25591
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
878
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
879 /*
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
880 * Check whether any of the list items is locked before making any changes.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
881 */
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
882 idx = idx1;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
883 dest_li = first_li;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
884 for (src_li = src->lv_first; src_li != NULL && dest_li != NULL; )
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
885 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
886 if (value_check_lock(dest_li->li_tv.v_lock, varname, FALSE))
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
887 return FAIL;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
888 src_li = src_li->li_next;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
889 if (src_li == NULL || (!empty_idx2 && idx2 == idx))
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
890 break;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
891 dest_li = dest_li->li_next;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
892 ++idx;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
893 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
894
25603
525ef4d1d412 patch 8.2.3338: Vim9: no type check when assigning a list range
Bram Moolenaar <Bram@vim.org>
parents: 25599
diff changeset
895 if (in_vim9script() && dest->lv_type != NULL
525ef4d1d412 patch 8.2.3338: Vim9: no type check when assigning a list range
Bram Moolenaar <Bram@vim.org>
parents: 25599
diff changeset
896 && dest->lv_type->tt_member != NULL)
525ef4d1d412 patch 8.2.3338: Vim9: no type check when assigning a list range
Bram Moolenaar <Bram@vim.org>
parents: 25599
diff changeset
897 member_type = dest->lv_type->tt_member;
525ef4d1d412 patch 8.2.3338: Vim9: no type check when assigning a list range
Bram Moolenaar <Bram@vim.org>
parents: 25599
diff changeset
898
25591
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
899 /*
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
900 * Assign the List values to the list items.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
901 */
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
902 idx = idx1;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
903 dest_li = first_li;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
904 for (src_li = src->lv_first; src_li != NULL; )
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
905 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
906 if (op != NULL && *op != '=')
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
907 tv_op(&dest_li->li_tv, &src_li->li_tv, op);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
908 else
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
909 {
25603
525ef4d1d412 patch 8.2.3338: Vim9: no type check when assigning a list range
Bram Moolenaar <Bram@vim.org>
parents: 25599
diff changeset
910 if (member_type != NULL
525ef4d1d412 patch 8.2.3338: Vim9: no type check when assigning a list range
Bram Moolenaar <Bram@vim.org>
parents: 25599
diff changeset
911 && check_typval_arg_type(member_type, &src_li->li_tv,
525ef4d1d412 patch 8.2.3338: Vim9: no type check when assigning a list range
Bram Moolenaar <Bram@vim.org>
parents: 25599
diff changeset
912 NULL, 0) == FAIL)
525ef4d1d412 patch 8.2.3338: Vim9: no type check when assigning a list range
Bram Moolenaar <Bram@vim.org>
parents: 25599
diff changeset
913 return FAIL;
25591
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
914 clear_tv(&dest_li->li_tv);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
915 copy_tv(&src_li->li_tv, &dest_li->li_tv);
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
916 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
917 src_li = src_li->li_next;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
918 if (src_li == NULL || (!empty_idx2 && idx2 == idx))
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
919 break;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
920 if (dest_li->li_next == NULL)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
921 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
922 // Need to add an empty item.
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
923 if (list_append_number(dest, 0) == FAIL)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
924 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
925 src_li = NULL;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
926 break;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
927 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
928 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
929 dest_li = dest_li->li_next;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
930 ++idx;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
931 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
932 if (src_li != NULL)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
933 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
934 emsg(_(e_list_value_has_more_items_than_targets));
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
935 return FAIL;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
936 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
937 if (empty_idx2
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
938 ? (dest_li != NULL && dest_li->li_next != NULL)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
939 : idx != idx2)
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
940 {
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
941 emsg(_(e_list_value_does_not_have_enough_items));
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
942 return FAIL;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
943 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
944 return OK;
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
945 }
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
946
ea69398b40d1 patch 8.2.3332: Vim9: cannot assign to range in list
Bram Moolenaar <Bram@vim.org>
parents: 25567
diff changeset
947 /*
20766
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
948 * Flatten "list" to depth "maxdepth".
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
949 * It does nothing if "maxdepth" is 0.
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
950 * Returns FAIL when out of memory.
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
951 */
23816
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
952 static void
20766
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
953 list_flatten(list_T *list, long maxdepth)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
954 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
955 listitem_T *item;
20770
b366a0fe8296 patch 8.2.0937: asan failure in the flatten() test
Bram Moolenaar <Bram@vim.org>
parents: 20766
diff changeset
956 listitem_T *tofree;
20766
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
957 int n;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
958
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
959 if (maxdepth == 0)
23816
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
960 return;
20766
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
961 CHECK_LIST_MATERIALIZE(list);
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
962
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
963 n = 0;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
964 item = list->lv_first;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
965 while (item != NULL)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
966 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
967 fast_breakcheck();
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
968 if (got_int)
23816
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
969 return;
20766
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
970
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
971 if (item->li_tv.v_type == VAR_LIST)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
972 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
973 listitem_T *next = item->li_next;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
974
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
975 vimlist_remove(list, item, item);
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
976 if (list_extend(list, item->li_tv.vval.v_list, next) == FAIL)
25784
8dfcee931c6c patch 8.2.3427: double free when list is copied
Bram Moolenaar <Bram@vim.org>
parents: 25774
diff changeset
977 {
8dfcee931c6c patch 8.2.3427: double free when list is copied
Bram Moolenaar <Bram@vim.org>
parents: 25774
diff changeset
978 list_free_item(list, item);
23816
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
979 return;
25784
8dfcee931c6c patch 8.2.3427: double free when list is copied
Bram Moolenaar <Bram@vim.org>
parents: 25774
diff changeset
980 }
20770
b366a0fe8296 patch 8.2.0937: asan failure in the flatten() test
Bram Moolenaar <Bram@vim.org>
parents: 20766
diff changeset
981 clear_tv(&item->li_tv);
b366a0fe8296 patch 8.2.0937: asan failure in the flatten() test
Bram Moolenaar <Bram@vim.org>
parents: 20766
diff changeset
982 tofree = item;
20766
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
983
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
984 if (item->li_prev == NULL)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
985 item = list->lv_first;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
986 else
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
987 item = item->li_prev->li_next;
20770
b366a0fe8296 patch 8.2.0937: asan failure in the flatten() test
Bram Moolenaar <Bram@vim.org>
parents: 20766
diff changeset
988 list_free_item(list, tofree);
20766
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
989
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
990 if (++n >= maxdepth)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
991 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
992 n = 0;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
993 item = next;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
994 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
995 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
996 else
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
997 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
998 n = 0;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
999 item = item->li_next;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1000 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1001 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1002 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1003
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1004 /*
23816
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1005 * "flatten()" and "flattennew()" functions
20766
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1006 */
23816
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1007 static void
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1008 flatten_common(typval_T *argvars, typval_T *rettv, int make_copy)
20766
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1009 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1010 list_T *l;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1011 long maxdepth;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1012 int error = FALSE;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1013
25302
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25290
diff changeset
1014 if (in_vim9script()
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25290
diff changeset
1015 && (check_for_list_arg(argvars, 0) == FAIL
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25290
diff changeset
1016 || check_for_opt_number_arg(argvars, 1) == FAIL))
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25290
diff changeset
1017 return;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25290
diff changeset
1018
20766
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1019 if (argvars[0].v_type != VAR_LIST)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1020 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1021 semsg(_(e_listarg), "flatten()");
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1022 return;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1023 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1024
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1025 if (argvars[1].v_type == VAR_UNKNOWN)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1026 maxdepth = 999999;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1027 else
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1028 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1029 maxdepth = (long)tv_get_number_chk(&argvars[1], &error);
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1030 if (error)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1031 return;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1032 if (maxdepth < 0)
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1033 {
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1034 emsg(_("E900: maxdepth must be non-negative number"));
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1035 return;
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1036 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1037 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1038
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1039 l = argvars[0].vval.v_list;
23816
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1040 rettv->v_type = VAR_LIST;
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1041 rettv->vval.v_list = l;
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1042 if (l == NULL)
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1043 return;
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1044
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1045 if (make_copy)
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1046 {
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1047 l = list_copy(l, TRUE, get_copyID());
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1048 rettv->vval.v_list = l;
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1049 if (l == NULL)
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1050 return;
25784
8dfcee931c6c patch 8.2.3427: double free when list is copied
Bram Moolenaar <Bram@vim.org>
parents: 25774
diff changeset
1051 // The type will change.
8dfcee931c6c patch 8.2.3427: double free when list is copied
Bram Moolenaar <Bram@vim.org>
parents: 25774
diff changeset
1052 free_type(l->lv_type);
8dfcee931c6c patch 8.2.3427: double free when list is copied
Bram Moolenaar <Bram@vim.org>
parents: 25774
diff changeset
1053 l->lv_type = NULL;
23816
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1054 }
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1055 else
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1056 {
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1057 if (value_check_lock(l->lv_lock,
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1058 (char_u *)N_("flatten() argument"), TRUE))
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1059 return;
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1060 ++l->lv_refcount;
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1061 }
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1062
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1063 list_flatten(l, maxdepth);
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1064 }
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1065
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1066 /*
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1067 * "flatten(list[, {maxdepth}])" function
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1068 */
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1069 void
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1070 f_flatten(typval_T *argvars, typval_T *rettv)
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1071 {
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1072 if (in_vim9script())
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1073 emsg(_(e_cannot_use_flatten_in_vim9_script));
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1074 else
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1075 flatten_common(argvars, rettv, FALSE);
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1076 }
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1077
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1078 /*
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1079 * "flattennew(list[, {maxdepth}])" function
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1080 */
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1081 void
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1082 f_flattennew(typval_T *argvars, typval_T *rettv)
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1083 {
525c9e218c69 patch 8.2.2449: Vim9: flatten() always changes the list type
Bram Moolenaar <Bram@vim.org>
parents: 23800
diff changeset
1084 flatten_common(argvars, rettv, TRUE);
20766
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1085 }
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1086
821925509d8c patch 8.2.0935: flattening a list with existing code is slow
Bram Moolenaar <Bram@vim.org>
parents: 20657
diff changeset
1087 /*
22545
47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work
Bram Moolenaar <Bram@vim.org>
parents: 22303
diff changeset
1088 * Extend "l1" with "l2". "l1" must not be NULL.
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1089 * If "bef" is NULL append at the end, otherwise insert before this item.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1090 * Returns FAIL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1091 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1092 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1093 list_extend(list_T *l1, list_T *l2, listitem_T *bef)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1094 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1095 listitem_T *item;
22545
47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work
Bram Moolenaar <Bram@vim.org>
parents: 22303
diff changeset
1096 int todo;
24396
d406858354a6 patch 8.2.2738: extending a list with itself can give wrong result
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
1097 listitem_T *bef_prev;
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1098
22545
47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work
Bram Moolenaar <Bram@vim.org>
parents: 22303
diff changeset
1099 // NULL list is equivalent to an empty list: nothing to do.
47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work
Bram Moolenaar <Bram@vim.org>
parents: 22303
diff changeset
1100 if (l2 == NULL || l2->lv_len == 0)
47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work
Bram Moolenaar <Bram@vim.org>
parents: 22303
diff changeset
1101 return OK;
47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work
Bram Moolenaar <Bram@vim.org>
parents: 22303
diff changeset
1102
47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work
Bram Moolenaar <Bram@vim.org>
parents: 22303
diff changeset
1103 todo = l2->lv_len;
20392
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved
Bram Moolenaar <Bram@vim.org>
parents: 20158
diff changeset
1104 CHECK_LIST_MATERIALIZE(l1);
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved
Bram Moolenaar <Bram@vim.org>
parents: 20158
diff changeset
1105 CHECK_LIST_MATERIALIZE(l2);
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
1106
24396
d406858354a6 patch 8.2.2738: extending a list with itself can give wrong result
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
1107 // When exending a list with itself, at some point we run into the item
d406858354a6 patch 8.2.2738: extending a list with itself can give wrong result
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
1108 // that was before "bef" and need to skip over the already inserted items
d406858354a6 patch 8.2.2738: extending a list with itself can give wrong result
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
1109 // to "bef".
d406858354a6 patch 8.2.2738: extending a list with itself can give wrong result
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
1110 bef_prev = bef == NULL ? NULL : bef->li_prev;
d406858354a6 patch 8.2.2738: extending a list with itself can give wrong result
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
1111
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1112 // We also quit the loop when we have inserted the original item count of
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1113 // the list, avoid a hang when we extend a list with itself.
24396
d406858354a6 patch 8.2.2738: extending a list with itself can give wrong result
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
1114 for (item = l2->lv_first; item != NULL && --todo >= 0;
d406858354a6 patch 8.2.2738: extending a list with itself can give wrong result
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
1115 item = item == bef_prev ? bef : item->li_next)
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1116 if (list_insert_tv(l1, &item->li_tv, bef) == FAIL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1117 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1118 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1119 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1120
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1121 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1122 * Concatenate lists "l1" and "l2" into a new list, stored in "tv".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1123 * Return FAIL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1124 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1125 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1126 list_concat(list_T *l1, list_T *l2, typval_T *tv)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1127 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1128 list_T *l;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1129
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1130 // make a copy of the first list.
22545
47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work
Bram Moolenaar <Bram@vim.org>
parents: 22303
diff changeset
1131 if (l1 == NULL)
47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work
Bram Moolenaar <Bram@vim.org>
parents: 22303
diff changeset
1132 l = list_alloc();
47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work
Bram Moolenaar <Bram@vim.org>
parents: 22303
diff changeset
1133 else
47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work
Bram Moolenaar <Bram@vim.org>
parents: 22303
diff changeset
1134 l = list_copy(l1, FALSE, 0);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1135 if (l == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1136 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1137 tv->v_type = VAR_LIST;
22961
6426acc72539 patch 8.2.2027: Coverity warnts for uninitialized field
Bram Moolenaar <Bram@vim.org>
parents: 22866
diff changeset
1138 tv->v_lock = 0;
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1139 tv->vval.v_list = l;
22545
47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work
Bram Moolenaar <Bram@vim.org>
parents: 22303
diff changeset
1140 if (l1 == NULL)
47596deedfb5 patch 8.2.1821: Vim9: concatenating to a NULL list doesn't work
Bram Moolenaar <Bram@vim.org>
parents: 22303
diff changeset
1141 ++l->lv_refcount;
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1142
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1143 // append all items from the second list
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1144 return list_extend(l, l2, NULL);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1145 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1146
20871
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var]
Bram Moolenaar <Bram@vim.org>
parents: 20770
diff changeset
1147 list_T *
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var]
Bram Moolenaar <Bram@vim.org>
parents: 20770
diff changeset
1148 list_slice(list_T *ol, long n1, long n2)
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var]
Bram Moolenaar <Bram@vim.org>
parents: 20770
diff changeset
1149 {
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var]
Bram Moolenaar <Bram@vim.org>
parents: 20770
diff changeset
1150 listitem_T *item;
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var]
Bram Moolenaar <Bram@vim.org>
parents: 20770
diff changeset
1151 list_T *l = list_alloc();
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var]
Bram Moolenaar <Bram@vim.org>
parents: 20770
diff changeset
1152
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var]
Bram Moolenaar <Bram@vim.org>
parents: 20770
diff changeset
1153 if (l == NULL)
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var]
Bram Moolenaar <Bram@vim.org>
parents: 20770
diff changeset
1154 return NULL;
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var]
Bram Moolenaar <Bram@vim.org>
parents: 20770
diff changeset
1155 for (item = list_find(ol, n1); n1 <= n2; ++n1)
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var]
Bram Moolenaar <Bram@vim.org>
parents: 20770
diff changeset
1156 {
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var]
Bram Moolenaar <Bram@vim.org>
parents: 20770
diff changeset
1157 if (list_append_tv(l, &item->li_tv) == FAIL)
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var]
Bram Moolenaar <Bram@vim.org>
parents: 20770
diff changeset
1158 {
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var]
Bram Moolenaar <Bram@vim.org>
parents: 20770
diff changeset
1159 list_free(l);
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var]
Bram Moolenaar <Bram@vim.org>
parents: 20770
diff changeset
1160 return NULL;
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var]
Bram Moolenaar <Bram@vim.org>
parents: 20770
diff changeset
1161 }
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var]
Bram Moolenaar <Bram@vim.org>
parents: 20770
diff changeset
1162 item = item->li_next;
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var]
Bram Moolenaar <Bram@vim.org>
parents: 20770
diff changeset
1163 }
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var]
Bram Moolenaar <Bram@vim.org>
parents: 20770
diff changeset
1164 return l;
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var]
Bram Moolenaar <Bram@vim.org>
parents: 20770
diff changeset
1165 }
65d9189d4dca patch 8.2.0987: Vim9: cannot assign to [var; var]
Bram Moolenaar <Bram@vim.org>
parents: 20770
diff changeset
1166
21828
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1167 int
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1168 list_slice_or_index(
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1169 list_T *list,
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1170 int range,
23604
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23588
diff changeset
1171 varnumber_T n1_arg,
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23588
diff changeset
1172 varnumber_T n2_arg,
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23588
diff changeset
1173 int exclusive,
21828
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1174 typval_T *rettv,
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1175 int verbose)
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1176 {
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1177 long len = list_len(list);
23604
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23588
diff changeset
1178 varnumber_T n1 = n1_arg;
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23588
diff changeset
1179 varnumber_T n2 = n2_arg;
21828
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1180 typval_T var1;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1181
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1182 if (n1 < 0)
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1183 n1 = len + n1;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1184 if (n1 < 0 || n1 >= len)
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1185 {
25599
b85e44974a08 patch 8.2.3336: behavior of negative index in list change changed
Bram Moolenaar <Bram@vim.org>
parents: 25597
diff changeset
1186 // For a range we allow invalid values and for legacy script return an
b85e44974a08 patch 8.2.3336: behavior of negative index in list change changed
Bram Moolenaar <Bram@vim.org>
parents: 25597
diff changeset
1187 // empty list, for Vim9 script start at the first item.
b85e44974a08 patch 8.2.3336: behavior of negative index in list change changed
Bram Moolenaar <Bram@vim.org>
parents: 25597
diff changeset
1188 // A list index out of range is an error.
21828
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1189 if (!range)
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1190 {
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1191 if (verbose)
23650
83a69ada0274 patch 8.2.2367: test failures on some less often used systems
Bram Moolenaar <Bram@vim.org>
parents: 23646
diff changeset
1192 semsg(_(e_listidx), (long)n1_arg);
21828
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1193 return FAIL;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1194 }
25599
b85e44974a08 patch 8.2.3336: behavior of negative index in list change changed
Bram Moolenaar <Bram@vim.org>
parents: 25597
diff changeset
1195 if (in_vim9script())
b85e44974a08 patch 8.2.3336: behavior of negative index in list change changed
Bram Moolenaar <Bram@vim.org>
parents: 25597
diff changeset
1196 n1 = n1 < 0 ? 0 : len;
b85e44974a08 patch 8.2.3336: behavior of negative index in list change changed
Bram Moolenaar <Bram@vim.org>
parents: 25597
diff changeset
1197 else
b85e44974a08 patch 8.2.3336: behavior of negative index in list change changed
Bram Moolenaar <Bram@vim.org>
parents: 25597
diff changeset
1198 n1 = len;
21828
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1199 }
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1200 if (range)
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1201 {
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1202 list_T *l;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1203
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1204 if (n2 < 0)
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1205 n2 = len + n2;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1206 else if (n2 >= len)
23604
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23588
diff changeset
1207 n2 = len - (exclusive ? 0 : 1);
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23588
diff changeset
1208 if (exclusive)
1816ea68c022 patch 8.2.2344: using inclusive index for slice is not always desired
Bram Moolenaar <Bram@vim.org>
parents: 23588
diff changeset
1209 --n2;
21828
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1210 if (n2 < 0 || n2 + 1 < n1)
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1211 n2 = -1;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1212 l = list_slice(list, n1, n2);
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1213 if (l == NULL)
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1214 return FAIL;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1215 clear_tv(rettv);
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1216 rettv_list_set(rettv, l);
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1217 }
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1218 else
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1219 {
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1220 // copy the item to "var1" to avoid that freeing the list makes it
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1221 // invalid.
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1222 copy_tv(&list_find(list, n1)->li_tv, &var1);
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1223 clear_tv(rettv);
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1224 *rettv = var1;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1225 }
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1226 return OK;
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1227 }
af5db9b6d210 patch 8.2.1463: Vim9: list slice not supported yet
Bram Moolenaar <Bram@vim.org>
parents: 21789
diff changeset
1228
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1229 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1230 * Make a copy of list "orig". Shallow if "deep" is FALSE.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1231 * The refcount of the new list is set to 1.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1232 * See item_copy() for "copyID".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1233 * Returns NULL when out of memory.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1234 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1235 list_T *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1236 list_copy(list_T *orig, int deep, int copyID)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1237 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1238 list_T *copy;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1239 listitem_T *item;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1240 listitem_T *ni;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1241
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1242 if (orig == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1243 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1244
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1245 copy = list_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1246 if (copy != NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1247 {
25784
8dfcee931c6c patch 8.2.3427: double free when list is copied
Bram Moolenaar <Bram@vim.org>
parents: 25774
diff changeset
1248 copy->lv_type = alloc_type(orig->lv_type);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1249 if (copyID != 0)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1250 {
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1251 // Do this before adding the items, because one of the items may
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1252 // refer back to this list.
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1253 orig->lv_copyID = copyID;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1254 orig->lv_copylist = copy;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1255 }
20392
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved
Bram Moolenaar <Bram@vim.org>
parents: 20158
diff changeset
1256 CHECK_LIST_MATERIALIZE(orig);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1257 for (item = orig->lv_first; item != NULL && !got_int;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1258 item = item->li_next)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1259 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1260 ni = listitem_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1261 if (ni == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1262 break;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1263 if (deep)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1264 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1265 if (item_copy(&item->li_tv, &ni->li_tv, deep, copyID) == FAIL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1266 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1267 vim_free(ni);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1268 break;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1269 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1270 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1271 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1272 copy_tv(&item->li_tv, &ni->li_tv);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1273 list_append(copy, ni);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1274 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1275 ++copy->lv_refcount;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1276 if (item != NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1277 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1278 list_unref(copy);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1279 copy = NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1280 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1281 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1282
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1283 return copy;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1284 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1285
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1286 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1287 * Remove items "item" to "item2" from list "l".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1288 * Does not free the listitem or the value!
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1289 * This used to be called list_remove, but that conflicts with a Sun header
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1290 * file.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1291 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1292 void
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1293 vimlist_remove(list_T *l, listitem_T *item, listitem_T *item2)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1294 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1295 listitem_T *ip;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1296
20392
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved
Bram Moolenaar <Bram@vim.org>
parents: 20158
diff changeset
1297 CHECK_LIST_MATERIALIZE(l);
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
1298
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1299 // notify watchers
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1300 for (ip = item; ip != NULL; ip = ip->li_next)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1301 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1302 --l->lv_len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1303 list_fix_watch(l, ip);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1304 if (ip == item2)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1305 break;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1306 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1307
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1308 if (item2->li_next == NULL)
19229
d776967d0f0d patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents: 19203
diff changeset
1309 l->lv_u.mat.lv_last = item->li_prev;
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1310 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1311 item2->li_next->li_prev = item->li_prev;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1312 if (item->li_prev == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1313 l->lv_first = item2->li_next;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1314 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1315 item->li_prev->li_next = item2->li_next;
19229
d776967d0f0d patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents: 19203
diff changeset
1316 l->lv_u.mat.lv_idx_item = NULL;
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1317 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1318
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1319 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1320 * Return an allocated string with the string representation of a list.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1321 * May return NULL.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1322 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1323 char_u *
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1324 list2string(typval_T *tv, int copyID, int restore_copyID)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1325 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1326 garray_T ga;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1327
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1328 if (tv->vval.v_list == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1329 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1330 ga_init2(&ga, (int)sizeof(char), 80);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1331 ga_append(&ga, '[');
20392
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved
Bram Moolenaar <Bram@vim.org>
parents: 20158
diff changeset
1332 CHECK_LIST_MATERIALIZE(tv->vval.v_list);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1333 if (list_join(&ga, tv->vval.v_list, (char_u *)", ",
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1334 FALSE, restore_copyID, copyID) == FAIL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1335 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1336 vim_free(ga.ga_data);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1337 return NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1338 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1339 ga_append(&ga, ']');
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1340 ga_append(&ga, NUL);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1341 return (char_u *)ga.ga_data;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1342 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1343
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1344 typedef struct join_S {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1345 char_u *s;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1346 char_u *tofree;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1347 } join_T;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1348
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1349 static int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1350 list_join_inner(
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1351 garray_T *gap, // to store the result in
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1352 list_T *l,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1353 char_u *sep,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1354 int echo_style,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1355 int restore_copyID,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1356 int copyID,
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1357 garray_T *join_gap) // to keep each list item string
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1358 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1359 int i;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1360 join_T *p;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1361 int len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1362 int sumlen = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1363 int first = TRUE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1364 char_u *tofree;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1365 char_u numbuf[NUMBUFLEN];
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1366 listitem_T *item;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1367 char_u *s;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1368
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1369 // Stringify each item in the list.
20392
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved
Bram Moolenaar <Bram@vim.org>
parents: 20158
diff changeset
1370 CHECK_LIST_MATERIALIZE(l);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1371 for (item = l->lv_first; item != NULL && !got_int; item = item->li_next)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1372 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1373 s = echo_string_core(&item->li_tv, &tofree, numbuf, copyID,
11973
aec3df2af27c patch 8.0.0867: job and channel in a dict value not quoted
Christian Brabandt <cb@256bit.org>
parents: 11418
diff changeset
1374 echo_style, restore_copyID, !echo_style);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1375 if (s == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1376 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1377
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1378 len = (int)STRLEN(s);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1379 sumlen += len;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1380
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1381 (void)ga_grow(join_gap, 1);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1382 p = ((join_T *)join_gap->ga_data) + (join_gap->ga_len++);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1383 if (tofree != NULL || s != numbuf)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1384 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1385 p->s = s;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1386 p->tofree = tofree;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1387 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1388 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1389 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1390 p->s = vim_strnsave(s, len);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1391 p->tofree = p->s;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1392 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1393
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1394 line_breakcheck();
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1395 if (did_echo_string_emsg) // recursion error, bail out
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1396 break;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1397 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1398
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1399 // Allocate result buffer with its total size, avoid re-allocation and
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1400 // multiple copy operations. Add 2 for a tailing ']' and NUL.
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1401 if (join_gap->ga_len >= 2)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1402 sumlen += (int)STRLEN(sep) * (join_gap->ga_len - 1);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1403 if (ga_grow(gap, sumlen + 2) == FAIL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1404 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1405
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1406 for (i = 0; i < join_gap->ga_len && !got_int; ++i)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1407 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1408 if (first)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1409 first = FALSE;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1410 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1411 ga_concat(gap, sep);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1412 p = ((join_T *)join_gap->ga_data) + i;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1413
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1414 if (p->s != NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1415 ga_concat(gap, p->s);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1416 line_breakcheck();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1417 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1418
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1419 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1420 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1421
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1422 /*
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1423 * Join list "l" into a string in "*gap", using separator "sep".
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1424 * When "echo_style" is TRUE use String as echoed, otherwise as inside a List.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1425 * Return FAIL or OK.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1426 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1427 int
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1428 list_join(
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1429 garray_T *gap,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1430 list_T *l,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1431 char_u *sep,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1432 int echo_style,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1433 int restore_copyID,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1434 int copyID)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1435 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1436 garray_T join_ga;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1437 int retval;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1438 join_T *p;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1439 int i;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1440
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1441 if (l->lv_len < 1)
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1442 return OK; // nothing to do
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1443 ga_init2(&join_ga, (int)sizeof(join_T), l->lv_len);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1444 retval = list_join_inner(gap, l, sep, echo_style, restore_copyID,
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1445 copyID, &join_ga);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1446
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1447 // Dispose each item in join_ga.
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1448 if (join_ga.ga_data != NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1449 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1450 p = (join_T *)join_ga.ga_data;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1451 for (i = 0; i < join_ga.ga_len; ++i)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1452 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1453 vim_free(p->tofree);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1454 ++p;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1455 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1456 ga_clear(&join_ga);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1457 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1458
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1459 return retval;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1460 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1461
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1462 /*
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1463 * "join()" function
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1464 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1465 void
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1466 f_join(typval_T *argvars, typval_T *rettv)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1467 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1468 garray_T ga;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1469 char_u *sep;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1470
25302
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25290
diff changeset
1471 if (in_vim9script()
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25290
diff changeset
1472 && (check_for_list_arg(argvars, 0) == FAIL
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25290
diff changeset
1473 || check_for_opt_string_arg(argvars, 1) == FAIL))
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25290
diff changeset
1474 return;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25290
diff changeset
1475
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1476 if (argvars[0].v_type != VAR_LIST)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1477 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1478 emsg(_(e_listreq));
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1479 return;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1480 }
25597
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
1481 rettv->v_type = VAR_STRING;
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1482 if (argvars[0].vval.v_list == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1483 return;
25597
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
1484
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1485 if (argvars[1].v_type == VAR_UNKNOWN)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1486 sep = (char_u *)" ";
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1487 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1488 sep = tv_get_string_chk(&argvars[1]);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1489
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1490 if (sep != NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1491 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1492 ga_init2(&ga, (int)sizeof(char), 80);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1493 list_join(&ga, argvars[0].vval.v_list, sep, TRUE, FALSE, 0);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1494 ga_append(&ga, NUL);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1495 rettv->vval.v_string = (char_u *)ga.ga_data;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1496 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1497 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1498 rettv->vval.v_string = NULL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1499 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1500
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1501 /*
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1502 * Allocate a variable for a List and fill it from "*arg".
21028
7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list
Bram Moolenaar <Bram@vim.org>
parents: 21000
diff changeset
1503 * "*arg" points to the "[".
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1504 * Return OK or FAIL.
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1505 */
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1506 int
21120
4d844a65183d patch 8.2.1111: inconsistent naming of get_list_tv() and eval_dict()
Bram Moolenaar <Bram@vim.org>
parents: 21118
diff changeset
1507 eval_list(char_u **arg, typval_T *rettv, evalarg_T *evalarg, int do_error)
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1508 {
21028
7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list
Bram Moolenaar <Bram@vim.org>
parents: 21000
diff changeset
1509 int evaluate = evalarg == NULL ? FALSE
7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list
Bram Moolenaar <Bram@vim.org>
parents: 21000
diff changeset
1510 : evalarg->eval_flags & EVAL_EVALUATE;
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1511 list_T *l = NULL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1512 typval_T tv;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1513 listitem_T *item;
21279
8d1d11afd8c8 patch 8.2.1190: Vim9: checking for Vim9 syntax is spread out
Bram Moolenaar <Bram@vim.org>
parents: 21148
diff changeset
1514 int vim9script = in_vim9script();
21028
7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list
Bram Moolenaar <Bram@vim.org>
parents: 21000
diff changeset
1515 int had_comma;
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1516
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1517 if (evaluate)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1518 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1519 l = list_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1520 if (l == NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1521 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1522 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1523
21148
667192c5938b patch 8.2.1125: Vim9: double quote can be a string or a comment
Bram Moolenaar <Bram@vim.org>
parents: 21120
diff changeset
1524 *arg = skipwhite_and_linebreak(*arg + 1, evalarg);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1525 while (**arg != ']' && **arg != NUL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1526 {
21028
7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list
Bram Moolenaar <Bram@vim.org>
parents: 21000
diff changeset
1527 if (eval1(arg, &tv, evalarg) == FAIL) // recursive!
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1528 goto failret;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1529 if (evaluate)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1530 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1531 item = listitem_alloc();
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1532 if (item != NULL)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1533 {
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1534 item->li_tv = tv;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1535 item->li_tv.v_lock = 0;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1536 list_append(l, item);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1537 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1538 else
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1539 clear_tv(&tv);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1540 }
21556
963913d80284 patch 8.2.1328: no space allowed before comma in list
Bram Moolenaar <Bram@vim.org>
parents: 21552
diff changeset
1541 // Legacy Vim script allowed a space before the comma.
963913d80284 patch 8.2.1328: no space allowed before comma in list
Bram Moolenaar <Bram@vim.org>
parents: 21552
diff changeset
1542 if (!vim9script)
963913d80284 patch 8.2.1328: no space allowed before comma in list
Bram Moolenaar <Bram@vim.org>
parents: 21552
diff changeset
1543 *arg = skipwhite(*arg);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1544
21036
f58ee30d863f patch 8.2.1069: Vim9: fail to check for white space in list
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
1545 // the comma must come after the value
21028
7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list
Bram Moolenaar <Bram@vim.org>
parents: 21000
diff changeset
1546 had_comma = **arg == ',';
7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list
Bram Moolenaar <Bram@vim.org>
parents: 21000
diff changeset
1547 if (had_comma)
21036
f58ee30d863f patch 8.2.1069: Vim9: fail to check for white space in list
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
1548 {
22866
52e64d340a98 patch 8.2.1980: Vim9: some tests are not done at the script level
Bram Moolenaar <Bram@vim.org>
parents: 22848
diff changeset
1549 if (vim9script && !IS_WHITE_OR_NUL((*arg)[1]) && (*arg)[1] != ']')
21036
f58ee30d863f patch 8.2.1069: Vim9: fail to check for white space in list
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
1550 {
23877
85cf06ddb2a8 patch 8.2.2480: Vim9: some errors for white space do not show context
Bram Moolenaar <Bram@vim.org>
parents: 23816
diff changeset
1551 semsg(_(e_white_space_required_after_str_str), ",", *arg);
21036
f58ee30d863f patch 8.2.1069: Vim9: fail to check for white space in list
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
1552 goto failret;
f58ee30d863f patch 8.2.1069: Vim9: fail to check for white space in list
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
1553 }
21028
7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list
Bram Moolenaar <Bram@vim.org>
parents: 21000
diff changeset
1554 *arg = skipwhite(*arg + 1);
21036
f58ee30d863f patch 8.2.1069: Vim9: fail to check for white space in list
Bram Moolenaar <Bram@vim.org>
parents: 21028
diff changeset
1555 }
21028
7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list
Bram Moolenaar <Bram@vim.org>
parents: 21000
diff changeset
1556
21118
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments
Bram Moolenaar <Bram@vim.org>
parents: 21064
diff changeset
1557 // The "]" can be on the next line. But a double quoted string may
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments
Bram Moolenaar <Bram@vim.org>
parents: 21064
diff changeset
1558 // follow, not a comment.
21148
667192c5938b patch 8.2.1125: Vim9: double quote can be a string or a comment
Bram Moolenaar <Bram@vim.org>
parents: 21120
diff changeset
1559 *arg = skipwhite_and_linebreak(*arg, evalarg);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1560 if (**arg == ']')
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1561 break;
21028
7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list
Bram Moolenaar <Bram@vim.org>
parents: 21000
diff changeset
1562
7acceb76669f patch 8.2.1065: Vim9: no line break allowed inside a list
Bram Moolenaar <Bram@vim.org>
parents: 21000
diff changeset
1563 if (!had_comma)
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1564 {
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
1565 if (do_error)
21761
5a2373c25a86 patch 8.2.1430: Vim9: error for missing comma instead of extra white space
Bram Moolenaar <Bram@vim.org>
parents: 21556
diff changeset
1566 {
5a2373c25a86 patch 8.2.1430: Vim9: error for missing comma instead of extra white space
Bram Moolenaar <Bram@vim.org>
parents: 21556
diff changeset
1567 if (**arg == ',')
23888
d95403445b6b patch 8.2.2486: Vim9: some errors for white space do not show context
Bram Moolenaar <Bram@vim.org>
parents: 23877
diff changeset
1568 semsg(_(e_no_white_space_allowed_before_str_str),
d95403445b6b patch 8.2.2486: Vim9: some errors for white space do not show context
Bram Moolenaar <Bram@vim.org>
parents: 23877
diff changeset
1569 ",", *arg);
21761
5a2373c25a86 patch 8.2.1430: Vim9: error for missing comma instead of extra white space
Bram Moolenaar <Bram@vim.org>
parents: 21556
diff changeset
1570 else
5a2373c25a86 patch 8.2.1430: Vim9: error for missing comma instead of extra white space
Bram Moolenaar <Bram@vim.org>
parents: 21556
diff changeset
1571 semsg(_("E696: Missing comma in List: %s"), *arg);
5a2373c25a86 patch 8.2.1430: Vim9: error for missing comma instead of extra white space
Bram Moolenaar <Bram@vim.org>
parents: 21556
diff changeset
1572 }
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1573 goto failret;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1574 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1575 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1576
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1577 if (**arg != ']')
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1578 {
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
1579 if (do_error)
19826
293a22b677a8 patch 8.2.0469: Vim9: no error for missing ] after list
Bram Moolenaar <Bram@vim.org>
parents: 19233
diff changeset
1580 semsg(_(e_list_end), *arg);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1581 failret:
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1582 if (evaluate)
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1583 list_free(l);
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1584 return FAIL;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1585 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1586
21552
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list
Bram Moolenaar <Bram@vim.org>
parents: 21279
diff changeset
1587 *arg += 1;
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1588 if (evaluate)
11418
162bcd0debd7 patch 8.0.0593: duplication of code for adding a list or dict return value
Christian Brabandt <cb@256bit.org>
parents: 10549
diff changeset
1589 rettv_list_set(rettv, l);
9560
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1590
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1591 return OK;
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1592 }
1e68dfd7931b commit https://github.com/vim/vim/commit/da861d631d7e22654faee2789286c685ad548911
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
1593
9571
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1594 /*
10549
055b1633aed7 patch 8.0.0164: outdated and misplaced comments
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
1595 * Write "list" of strings to file "fd".
9571
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1596 */
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1597 int
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1598 write_list(FILE *fd, list_T *list, int binary)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1599 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1600 listitem_T *li;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1601 int c;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1602 int ret = OK;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1603 char_u *s;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1604
20392
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved
Bram Moolenaar <Bram@vim.org>
parents: 20158
diff changeset
1605 CHECK_LIST_MATERIALIZE(list);
19888
435726a03481 patch 8.2.0500: using the same loop in many places
Bram Moolenaar <Bram@vim.org>
parents: 19826
diff changeset
1606 FOR_ALL_LIST_ITEMS(list, li)
9571
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1607 {
15211
de63593896b3 patch 8.1.0615: get_tv function names are not consistent
Bram Moolenaar <Bram@vim.org>
parents: 15209
diff changeset
1608 for (s = tv_get_string(&li->li_tv); *s != NUL; ++s)
9571
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1609 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1610 if (*s == '\n')
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1611 c = putc(NUL, fd);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1612 else
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1613 c = putc(*s, fd);
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1614 if (c == EOF)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1615 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1616 ret = FAIL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1617 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1618 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1619 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1620 if (!binary || li->li_next != NULL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1621 if (putc('\n', fd) == EOF)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1622 {
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1623 ret = FAIL;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1624 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1625 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1626 if (ret == FAIL)
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1627 {
26439
b18f3b0f317c patch 8.2.3750: error messages are everywhere
Bram Moolenaar <Bram@vim.org>
parents: 25828
diff changeset
1628 emsg(_(e_error_while_writing));
9571
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1629 break;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1630 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1631 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1632 return ret;
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1633 }
5eaa708ab50d commit https://github.com/vim/vim/commit/73dad1e64cb42842d8259cb1a255a6fa59822f76
Christian Brabandt <cb@256bit.org>
parents: 9560
diff changeset
1634
9626
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1635 /*
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1636 * Initialize a static list with 10 items.
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1637 */
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1638 void
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1639 init_static_list(staticList10_T *sl)
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1640 {
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1641 list_T *l = &sl->sl_list;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1642 int i;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1643
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1644 memset(sl, 0, sizeof(staticList10_T));
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1645 l->lv_first = &sl->sl_items[0];
19229
d776967d0f0d patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents: 19203
diff changeset
1646 l->lv_u.mat.lv_last = &sl->sl_items[9];
9626
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1647 l->lv_refcount = DO_NOT_FREE_CNT;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1648 l->lv_lock = VAR_FIXED;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1649 sl->sl_list.lv_len = 10;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1650
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1651 for (i = 0; i < 10; ++i)
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1652 {
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1653 listitem_T *li = &sl->sl_items[i];
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1654
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1655 if (i == 0)
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1656 li->li_prev = NULL;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1657 else
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1658 li->li_prev = li - 1;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1659 if (i == 9)
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1660 li->li_next = NULL;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1661 else
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1662 li->li_next = li + 1;
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1663 }
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1664 }
172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311
Christian Brabandt <cb@256bit.org>
parents: 9571
diff changeset
1665
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1666 /*
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1667 * "list2str()" function
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1668 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1669 void
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1670 f_list2str(typval_T *argvars, typval_T *rettv)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1671 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1672 list_T *l;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1673 listitem_T *li;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1674 garray_T ga;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1675 int utf8 = FALSE;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1676
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1677 rettv->v_type = VAR_STRING;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1678 rettv->vval.v_string = NULL;
25302
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25290
diff changeset
1679
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25290
diff changeset
1680 if (in_vim9script()
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25290
diff changeset
1681 && (check_for_list_arg(argvars, 0) == FAIL
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25290
diff changeset
1682 || check_for_opt_bool_arg(argvars, 1) == FAIL))
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25290
diff changeset
1683 return;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25290
diff changeset
1684
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1685 if (argvars[0].v_type != VAR_LIST)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1686 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1687 emsg(_(e_invarg));
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1688 return;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1689 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1690
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1691 l = argvars[0].vval.v_list;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1692 if (l == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1693 return; // empty list results in empty string
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1694
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1695 if (argvars[1].v_type != VAR_UNKNOWN)
22121
b50610a6aee0 patch 8.2.1610: Vim9: cannot pass "true" to list2str() and str2list()
Bram Moolenaar <Bram@vim.org>
parents: 22043
diff changeset
1696 utf8 = (int)tv_get_bool_chk(&argvars[1], NULL);
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1697
20392
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved
Bram Moolenaar <Bram@vim.org>
parents: 20158
diff changeset
1698 CHECK_LIST_MATERIALIZE(l);
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1699 ga_init2(&ga, 1, 80);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1700 if (has_mbyte || utf8)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1701 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1702 char_u buf[MB_MAXBYTES + 1];
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1703 int (*char2bytes)(int, char_u *);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1704
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1705 if (utf8 || enc_utf8)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1706 char2bytes = utf_char2bytes;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1707 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1708 char2bytes = mb_char2bytes;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1709
19888
435726a03481 patch 8.2.0500: using the same loop in many places
Bram Moolenaar <Bram@vim.org>
parents: 19826
diff changeset
1710 FOR_ALL_LIST_ITEMS(l, li)
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1711 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1712 buf[(*char2bytes)(tv_get_number(&li->li_tv), buf)] = NUL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1713 ga_concat(&ga, buf);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1714 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1715 ga_append(&ga, NUL);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1716 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1717 else if (ga_grow(&ga, list_len(l) + 1) == OK)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1718 {
19888
435726a03481 patch 8.2.0500: using the same loop in many places
Bram Moolenaar <Bram@vim.org>
parents: 19826
diff changeset
1719 FOR_ALL_LIST_ITEMS(l, li)
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1720 ga_append(&ga, tv_get_number(&li->li_tv));
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1721 ga_append(&ga, NUL);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1722 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1723
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1724 rettv->v_type = VAR_STRING;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1725 rettv->vval.v_string = ga.ga_data;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1726 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1727
19916
dcec86d796bc patch 8.2.0514: several global functions are used in only one file
Bram Moolenaar <Bram@vim.org>
parents: 19888
diff changeset
1728 static void
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1729 list_remove(typval_T *argvars, typval_T *rettv, char_u *arg_errmsg)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1730 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1731 list_T *l;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1732 listitem_T *item, *item2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1733 listitem_T *li;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1734 int error = FALSE;
23650
83a69ada0274 patch 8.2.2367: test failures on some less often used systems
Bram Moolenaar <Bram@vim.org>
parents: 23646
diff changeset
1735 long idx;
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1736
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1737 if ((l = argvars[0].vval.v_list) == NULL
22298
07e48ee8c3bb patch 8.2.1698: cannot lock a variable in legacy Vim script like in Vim9
Bram Moolenaar <Bram@vim.org>
parents: 22121
diff changeset
1738 || value_check_lock(l->lv_lock, arg_errmsg, TRUE))
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1739 return;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1740
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1741 idx = (long)tv_get_number_chk(&argvars[1], &error);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1742 if (error)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1743 ; // type error: do nothing, errmsg already given
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1744 else if ((item = list_find(l, idx)) == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1745 semsg(_(e_listidx), idx);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1746 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1747 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1748 if (argvars[2].v_type == VAR_UNKNOWN)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1749 {
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1750 // Remove one item, return its value.
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1751 vimlist_remove(l, item, item);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1752 *rettv = item->li_tv;
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19123
diff changeset
1753 list_free_item(l, item);
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1754 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1755 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1756 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1757 // Remove range of items, return list with values.
23650
83a69ada0274 patch 8.2.2367: test failures on some less often used systems
Bram Moolenaar <Bram@vim.org>
parents: 23646
diff changeset
1758 long end = (long)tv_get_number_chk(&argvars[2], &error);
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1759
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1760 if (error)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1761 ; // type error: do nothing
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1762 else if ((item2 = list_find(l, end)) == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1763 semsg(_(e_listidx), end);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1764 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1765 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1766 int cnt = 0;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1767
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1768 for (li = item; li != NULL; li = li->li_next)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1769 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1770 ++cnt;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1771 if (li == item2)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1772 break;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1773 }
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1774 if (li == NULL) // didn't find "item2" after "item"
25064
8f2262c72178 patch 8.2.3069: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents: 24484
diff changeset
1775 emsg(_(e_invalid_range));
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1776 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1777 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1778 vimlist_remove(l, item, item2);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1779 if (rettv_list_alloc(rettv) == OK)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1780 {
25290
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1781 list_T *rl = rettv->vval.v_list;
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1782
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1783 if (l->lv_with_items > 0)
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1784 {
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1785 // need to copy the list items and move the value
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1786 while (item != NULL)
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1787 {
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1788 li = listitem_alloc();
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1789 if (li == NULL)
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1790 return;
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1791 li->li_tv = item->li_tv;
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1792 init_tv(&item->li_tv);
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1793 list_append(rl, li);
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1794 if (item == item2)
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1795 break;
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1796 item = item->li_next;
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1797 }
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1798 }
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1799 else
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1800 {
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1801 rl->lv_first = item;
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1802 rl->lv_u.mat.lv_last = item2;
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1803 item->li_prev = NULL;
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1804 item2->li_next = NULL;
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1805 rl->lv_len = cnt;
8b7ea875afed patch 8.2.3182: Vim9: crash when using removing items from a constant list
Bram Moolenaar <Bram@vim.org>
parents: 25194
diff changeset
1806 }
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1807 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1808 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1809 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1810 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1811 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1812 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1813
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1814 static int item_compare(const void *s1, const void *s2);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1815 static int item_compare2(const void *s1, const void *s2);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1816
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1817 // struct used in the array that's given to qsort()
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1818 typedef struct
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1819 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1820 listitem_T *item;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1821 int idx;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1822 } sortItem_T;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1823
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1824 // struct storing information about current sort
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1825 typedef struct
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1826 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1827 int item_compare_ic;
22770
3e4981de5636 patch 8.2.1933: cannot sort using locale ordering
Bram Moolenaar <Bram@vim.org>
parents: 22608
diff changeset
1828 int item_compare_lc;
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1829 int item_compare_numeric;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1830 int item_compare_numbers;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1831 #ifdef FEAT_FLOAT
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1832 int item_compare_float;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1833 #endif
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1834 char_u *item_compare_func;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1835 partial_T *item_compare_partial;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1836 dict_T *item_compare_selfdict;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1837 int item_compare_func_err;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1838 int item_compare_keep_zero;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1839 } sortinfo_T;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1840 static sortinfo_T *sortinfo = NULL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1841 #define ITEM_COMPARE_FAIL 999
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1842
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1843 /*
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1844 * Compare functions for f_sort() and f_uniq() below.
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1845 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1846 static int
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1847 item_compare(const void *s1, const void *s2)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1848 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1849 sortItem_T *si1, *si2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1850 typval_T *tv1, *tv2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1851 char_u *p1, *p2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1852 char_u *tofree1 = NULL, *tofree2 = NULL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1853 int res;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1854 char_u numbuf1[NUMBUFLEN];
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1855 char_u numbuf2[NUMBUFLEN];
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1856
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1857 si1 = (sortItem_T *)s1;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1858 si2 = (sortItem_T *)s2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1859 tv1 = &si1->item->li_tv;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1860 tv2 = &si2->item->li_tv;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1861
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1862 if (sortinfo->item_compare_numbers)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1863 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1864 varnumber_T v1 = tv_get_number(tv1);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1865 varnumber_T v2 = tv_get_number(tv2);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1866
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1867 return v1 == v2 ? 0 : v1 > v2 ? 1 : -1;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1868 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1869
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1870 #ifdef FEAT_FLOAT
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1871 if (sortinfo->item_compare_float)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1872 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1873 float_T v1 = tv_get_float(tv1);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1874 float_T v2 = tv_get_float(tv2);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1875
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1876 return v1 == v2 ? 0 : v1 > v2 ? 1 : -1;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1877 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1878 #endif
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1879
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1880 // tv2string() puts quotes around a string and allocates memory. Don't do
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1881 // that for string variables. Use a single quote when comparing with a
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1882 // non-string to do what the docs promise.
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1883 if (tv1->v_type == VAR_STRING)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1884 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1885 if (tv2->v_type != VAR_STRING || sortinfo->item_compare_numeric)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1886 p1 = (char_u *)"'";
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1887 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1888 p1 = tv1->vval.v_string;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1889 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1890 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1891 p1 = tv2string(tv1, &tofree1, numbuf1, 0);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1892 if (tv2->v_type == VAR_STRING)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1893 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1894 if (tv1->v_type != VAR_STRING || sortinfo->item_compare_numeric)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1895 p2 = (char_u *)"'";
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1896 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1897 p2 = tv2->vval.v_string;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1898 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1899 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1900 p2 = tv2string(tv2, &tofree2, numbuf2, 0);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1901 if (p1 == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1902 p1 = (char_u *)"";
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1903 if (p2 == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1904 p2 = (char_u *)"";
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1905 if (!sortinfo->item_compare_numeric)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1906 {
22770
3e4981de5636 patch 8.2.1933: cannot sort using locale ordering
Bram Moolenaar <Bram@vim.org>
parents: 22608
diff changeset
1907 if (sortinfo->item_compare_lc)
3e4981de5636 patch 8.2.1933: cannot sort using locale ordering
Bram Moolenaar <Bram@vim.org>
parents: 22608
diff changeset
1908 res = strcoll((char *)p1, (char *)p2);
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1909 else
22770
3e4981de5636 patch 8.2.1933: cannot sort using locale ordering
Bram Moolenaar <Bram@vim.org>
parents: 22608
diff changeset
1910 res = sortinfo->item_compare_ic ? STRICMP(p1, p2): STRCMP(p1, p2);
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1911 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1912 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1913 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1914 double n1, n2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1915 n1 = strtod((char *)p1, (char **)&p1);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1916 n2 = strtod((char *)p2, (char **)&p2);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1917 res = n1 == n2 ? 0 : n1 > n2 ? 1 : -1;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1918 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1919
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1920 // When the result would be zero, compare the item indexes. Makes the
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1921 // sort stable.
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1922 if (res == 0 && !sortinfo->item_compare_keep_zero)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1923 res = si1->idx > si2->idx ? 1 : -1;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1924
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1925 vim_free(tofree1);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1926 vim_free(tofree2);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1927 return res;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1928 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1929
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1930 static int
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1931 item_compare2(const void *s1, const void *s2)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1932 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1933 sortItem_T *si1, *si2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1934 int res;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1935 typval_T rettv;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1936 typval_T argv[3];
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1937 char_u *func_name;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1938 partial_T *partial = sortinfo->item_compare_partial;
17606
ff097edaae89 patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents: 17530
diff changeset
1939 funcexe_T funcexe;
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1940
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1941 // shortcut after failure in previous call; compare all items equal
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1942 if (sortinfo->item_compare_func_err)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1943 return 0;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1944
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1945 si1 = (sortItem_T *)s1;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1946 si2 = (sortItem_T *)s2;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1947
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1948 if (partial == NULL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1949 func_name = sortinfo->item_compare_func;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1950 else
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1951 func_name = partial_name(partial);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1952
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1953 // Copy the values. This is needed to be able to set v_lock to VAR_FIXED
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1954 // in the copy without changing the original list items.
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1955 copy_tv(&si1->item->li_tv, &argv[0]);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1956 copy_tv(&si2->item->li_tv, &argv[1]);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1957
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1958 rettv.v_type = VAR_UNKNOWN; // clear_tv() uses this
20007
aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose
Bram Moolenaar <Bram@vim.org>
parents: 19966
diff changeset
1959 CLEAR_FIELD(funcexe);
26534
28745eec1dda patch 8.2.3796: the funcexe_T struct members are not named consistently
Bram Moolenaar <Bram@vim.org>
parents: 26439
diff changeset
1960 funcexe.fe_evaluate = TRUE;
28745eec1dda patch 8.2.3796: the funcexe_T struct members are not named consistently
Bram Moolenaar <Bram@vim.org>
parents: 26439
diff changeset
1961 funcexe.fe_partial = partial;
28745eec1dda patch 8.2.3796: the funcexe_T struct members are not named consistently
Bram Moolenaar <Bram@vim.org>
parents: 26439
diff changeset
1962 funcexe.fe_selfdict = sortinfo->item_compare_selfdict;
17606
ff097edaae89 patch 8.1.1800: function call functions have too many arguments
Bram Moolenaar <Bram@vim.org>
parents: 17530
diff changeset
1963 res = call_func(func_name, -1, &rettv, 2, argv, &funcexe);
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1964 clear_tv(&argv[0]);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1965 clear_tv(&argv[1]);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1966
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1967 if (res == FAIL)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1968 res = ITEM_COMPARE_FAIL;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1969 else
25828
14954a7e7c6d patch 8.2.3449: sort fails if the sort compare function returns 999
Bram Moolenaar <Bram@vim.org>
parents: 25784
diff changeset
1970 {
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1971 res = (int)tv_get_number_chk(&rettv, &sortinfo->item_compare_func_err);
25828
14954a7e7c6d patch 8.2.3449: sort fails if the sort compare function returns 999
Bram Moolenaar <Bram@vim.org>
parents: 25784
diff changeset
1972 if (res > 0)
14954a7e7c6d patch 8.2.3449: sort fails if the sort compare function returns 999
Bram Moolenaar <Bram@vim.org>
parents: 25784
diff changeset
1973 res = 1;
14954a7e7c6d patch 8.2.3449: sort fails if the sort compare function returns 999
Bram Moolenaar <Bram@vim.org>
parents: 25784
diff changeset
1974 else if (res < 0)
14954a7e7c6d patch 8.2.3449: sort fails if the sort compare function returns 999
Bram Moolenaar <Bram@vim.org>
parents: 25784
diff changeset
1975 res = -1;
14954a7e7c6d patch 8.2.3449: sort fails if the sort compare function returns 999
Bram Moolenaar <Bram@vim.org>
parents: 25784
diff changeset
1976 }
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1977 if (sortinfo->item_compare_func_err)
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1978 res = ITEM_COMPARE_FAIL; // return value has wrong type
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1979 clear_tv(&rettv);
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1980
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1981 // When the result would be zero, compare the pointers themselves. Makes
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
1982 // the sort stable.
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1983 if (res == 0 && !sortinfo->item_compare_keep_zero)
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1984 res = si1->idx > si2->idx ? 1 : -1;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1985
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1986 return res;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1987 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1988
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
1989 /*
26676
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
1990 * sort() List "l"
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
1991 */
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
1992 static void
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
1993 do_sort(list_T *l, sortinfo_T *info)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
1994 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
1995 long len;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
1996 sortItem_T *ptrs;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
1997 long i = 0;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
1998 listitem_T *li;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
1999
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2000 len = list_len(l);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2001
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2002 // Make an array with each entry pointing to an item in the List.
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2003 ptrs = ALLOC_MULT(sortItem_T, len);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2004 if (ptrs == NULL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2005 return;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2006
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2007 // sort(): ptrs will be the list to sort
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2008 FOR_ALL_LIST_ITEMS(l, li)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2009 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2010 ptrs[i].item = li;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2011 ptrs[i].idx = i;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2012 ++i;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2013 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2014
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2015 info->item_compare_func_err = FALSE;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2016 info->item_compare_keep_zero = FALSE;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2017 // test the compare function
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2018 if ((info->item_compare_func != NULL
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2019 || info->item_compare_partial != NULL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2020 && item_compare2((void *)&ptrs[0], (void *)&ptrs[1])
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2021 == ITEM_COMPARE_FAIL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2022 emsg(_("E702: Sort compare function failed"));
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2023 else
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2024 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2025 // Sort the array with item pointers.
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2026 qsort((void *)ptrs, (size_t)len, sizeof(sortItem_T),
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2027 info->item_compare_func == NULL
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2028 && info->item_compare_partial == NULL
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2029 ? item_compare : item_compare2);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2030
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2031 if (!info->item_compare_func_err)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2032 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2033 // Clear the List and append the items in sorted order.
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2034 l->lv_first = l->lv_u.mat.lv_last
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2035 = l->lv_u.mat.lv_idx_item = NULL;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2036 l->lv_len = 0;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2037 for (i = 0; i < len; ++i)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2038 list_append(l, ptrs[i].item);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2039 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2040 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2041
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2042 vim_free(ptrs);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2043 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2044
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2045 /*
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2046 * uniq() List "l"
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2047 */
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2048 static void
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2049 do_uniq(list_T *l, sortinfo_T *info)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2050 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2051 long len;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2052 sortItem_T *ptrs;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2053 long i = 0;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2054 listitem_T *li;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2055 int (*item_compare_func_ptr)(const void *, const void *);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2056
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2057 len = list_len(l);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2058
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2059 // Make an array with each entry pointing to an item in the List.
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2060 ptrs = ALLOC_MULT(sortItem_T, len);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2061 if (ptrs == NULL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2062 return;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2063
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2064 // f_uniq(): ptrs will be a stack of items to remove
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2065 info->item_compare_func_err = FALSE;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2066 info->item_compare_keep_zero = TRUE;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2067 item_compare_func_ptr = info->item_compare_func != NULL
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2068 || info->item_compare_partial != NULL
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2069 ? item_compare2 : item_compare;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2070
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2071 for (li = l->lv_first; li != NULL && li->li_next != NULL;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2072 li = li->li_next)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2073 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2074 if (item_compare_func_ptr((void *)&li, (void *)&li->li_next)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2075 == 0)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2076 ptrs[i++].item = li;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2077 if (info->item_compare_func_err)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2078 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2079 emsg(_("E882: Uniq compare function failed"));
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2080 break;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2081 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2082 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2083
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2084 if (!info->item_compare_func_err)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2085 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2086 while (--i >= 0)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2087 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2088 li = ptrs[i].item->li_next;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2089 ptrs[i].item->li_next = li->li_next;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2090 if (li->li_next != NULL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2091 li->li_next->li_prev = ptrs[i].item;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2092 else
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2093 l->lv_u.mat.lv_last = ptrs[i].item;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2094 list_fix_watch(l, li);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2095 listitem_free(l, li);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2096 l->lv_len--;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2097 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2098 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2099
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2100 vim_free(ptrs);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2101 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2102
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2103 /*
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2104 * Parse the optional arguments to sort() and uniq() and return the values in
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2105 * 'info'.
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2106 */
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2107 static int
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2108 parse_sort_uniq_args(typval_T *argvars, sortinfo_T *info)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2109 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2110 info->item_compare_ic = FALSE;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2111 info->item_compare_lc = FALSE;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2112 info->item_compare_numeric = FALSE;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2113 info->item_compare_numbers = FALSE;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2114 #ifdef FEAT_FLOAT
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2115 info->item_compare_float = FALSE;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2116 #endif
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2117 info->item_compare_func = NULL;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2118 info->item_compare_partial = NULL;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2119 info->item_compare_selfdict = NULL;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2120
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2121 if (argvars[1].v_type == VAR_UNKNOWN)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2122 return OK;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2123
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2124 // optional second argument: {func}
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2125 if (argvars[1].v_type == VAR_FUNC)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2126 info->item_compare_func = argvars[1].vval.v_string;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2127 else if (argvars[1].v_type == VAR_PARTIAL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2128 info->item_compare_partial = argvars[1].vval.v_partial;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2129 else
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2130 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2131 int error = FALSE;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2132 int nr = 0;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2133
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2134 if (argvars[1].v_type == VAR_NUMBER)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2135 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2136 nr = tv_get_number_chk(&argvars[1], &error);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2137 if (error)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2138 return FAIL;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2139 if (nr == 1)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2140 info->item_compare_ic = TRUE;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2141 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2142 if (nr != 1)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2143 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2144 if (argvars[1].v_type != VAR_NUMBER)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2145 info->item_compare_func = tv_get_string(&argvars[1]);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2146 else if (nr != 0)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2147 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2148 emsg(_(e_invarg));
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2149 return FAIL;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2150 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2151 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2152 if (info->item_compare_func != NULL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2153 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2154 if (*info->item_compare_func == NUL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2155 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2156 // empty string means default sort
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2157 info->item_compare_func = NULL;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2158 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2159 else if (STRCMP(info->item_compare_func, "n") == 0)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2160 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2161 info->item_compare_func = NULL;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2162 info->item_compare_numeric = TRUE;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2163 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2164 else if (STRCMP(info->item_compare_func, "N") == 0)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2165 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2166 info->item_compare_func = NULL;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2167 info->item_compare_numbers = TRUE;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2168 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2169 #ifdef FEAT_FLOAT
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2170 else if (STRCMP(info->item_compare_func, "f") == 0)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2171 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2172 info->item_compare_func = NULL;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2173 info->item_compare_float = TRUE;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2174 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2175 #endif
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2176 else if (STRCMP(info->item_compare_func, "i") == 0)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2177 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2178 info->item_compare_func = NULL;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2179 info->item_compare_ic = TRUE;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2180 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2181 else if (STRCMP(info->item_compare_func, "l") == 0)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2182 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2183 info->item_compare_func = NULL;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2184 info->item_compare_lc = TRUE;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2185 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2186 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2187 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2188
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2189 if (argvars[2].v_type != VAR_UNKNOWN)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2190 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2191 // optional third argument: {dict}
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2192 if (argvars[2].v_type != VAR_DICT)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2193 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2194 emsg(_(e_dictreq));
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2195 return FAIL;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2196 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2197 info->item_compare_selfdict = argvars[2].vval.v_dict;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2198 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2199
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2200 return OK;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2201 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2202
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2203 /*
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2204 * "sort()" or "uniq()" function
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2205 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2206 static void
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2207 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
2208 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2209 list_T *l;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2210 sortinfo_T *old_sortinfo;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2211 sortinfo_T info;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2212 long len;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2213
25338
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
2214 if (in_vim9script()
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
2215 && (check_for_list_arg(argvars, 0) == FAIL
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
2216 || (argvars[1].v_type != VAR_UNKNOWN
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
2217 && check_for_opt_dict_arg(argvars, 2) == FAIL)))
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
2218 return;
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
2219
26676
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2220 if (argvars[0].v_type != VAR_LIST)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2221 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2222 semsg(_(e_listarg), sort ? "sort()" : "uniq()");
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2223 return;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2224 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2225
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
2226 // 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
2227 // 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
2228 old_sortinfo = sortinfo;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2229 sortinfo = &info;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2230
26676
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2231 l = argvars[0].vval.v_list;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2232 if (l != NULL && value_check_lock(l->lv_lock,
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2233 (char_u *)(sort ? N_("sort() argument") : N_("uniq() argument")),
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2234 TRUE))
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2235 goto theend;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2236 rettv_list_set(rettv, l);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2237 if (l == NULL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2238 goto theend;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2239 CHECK_LIST_MATERIALIZE(l);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2240
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2241 len = list_len(l);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2242 if (len <= 1)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2243 goto theend; // short list sorts pretty quickly
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2244
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2245 if (parse_sort_uniq_args(argvars, &info) == FAIL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2246 goto theend;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2247
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2248 if (sort)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2249 do_sort(l, &info);
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2250 else
26676
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2251 do_uniq(l, &info);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2252
17530
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2253 theend:
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2254 sortinfo = old_sortinfo;
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2255 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2256
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2257 /*
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2258 * "sort({list})" function
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2259 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2260 void
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2261 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
2262 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2263 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
2264 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2265
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2266 /*
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2267 * "uniq({list})" function
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2268 */
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2269 void
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2270 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
2271 {
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2272 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
2273 }
ef23ec1eee54 patch 8.1.1763: evalfunc.c is still too big
Bram Moolenaar <Bram@vim.org>
parents: 17262
diff changeset
2274
22844
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2275 typedef enum {
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2276 FILTERMAP_FILTER,
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2277 FILTERMAP_MAP,
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2278 FILTERMAP_MAPNEW
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2279 } filtermap_T;
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2280
17964
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2281 /*
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2282 * Handle one item for map() and filter().
22844
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2283 * Sets v:val to "tv". Caller must set v:key.
17964
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2284 */
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2285 static int
22844
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2286 filter_map_one(
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2287 typval_T *tv, // original value
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2288 typval_T *expr, // callback
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2289 filtermap_T filtermap,
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2290 typval_T *newtv, // for map() and mapnew(): new value
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2291 int *remp) // for filter(): remove flag
17964
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2292 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2293 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
2294 int retval = FAIL;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2295
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2296 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
2297 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
2298 argv[1] = *get_vim_var_tv(VV_VAL);
22844
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2299 if (eval_expr_typval(expr, argv, 2, newtv) == FAIL)
17964
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2300 goto theend;
22844
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2301 if (filtermap == FILTERMAP_FILTER)
17964
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2302 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2303 int error = FALSE;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2304
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2305 // filter(): when expr is zero remove the item
21831
d8422de73113 patch 8.2.1465: Vim9: subscript not handled properly
Bram Moolenaar <Bram@vim.org>
parents: 21828
diff changeset
2306 if (in_vim9script())
22844
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2307 *remp = !tv2bool(newtv);
21831
d8422de73113 patch 8.2.1465: Vim9: subscript not handled properly
Bram Moolenaar <Bram@vim.org>
parents: 21828
diff changeset
2308 else
22844
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2309 *remp = (tv_get_number_chk(newtv, &error) == 0);
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2310 clear_tv(newtv);
17964
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2311 // 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
2312 // 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
2313 if (error)
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2314 goto theend;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2315 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2316 retval = OK;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2317 theend:
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2318 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
2319 return retval;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2320 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2321
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2322 /*
26640
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2323 * Implementation of map() and filter() for a Dict.
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2324 */
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2325 static void
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2326 filter_map_dict(
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2327 dict_T *d,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2328 filtermap_T filtermap,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2329 type_T *argtype,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2330 char *func_name,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2331 char_u *arg_errmsg,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2332 typval_T *expr,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2333 typval_T *rettv)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2334 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2335 int prev_lock;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2336 dict_T *d_ret = NULL;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2337 hashtab_T *ht;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2338 hashitem_T *hi;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2339 dictitem_T *di;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2340 int todo;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2341 int rem;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2342
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2343 if (filtermap == FILTERMAP_MAPNEW)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2344 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2345 rettv->v_type = VAR_DICT;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2346 rettv->vval.v_dict = NULL;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2347 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2348 if (d == NULL
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2349 || (filtermap == FILTERMAP_FILTER
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2350 && value_check_lock(d->dv_lock, arg_errmsg, TRUE)))
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2351 return;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2352
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2353 prev_lock = d->dv_lock;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2354
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2355 if (filtermap == FILTERMAP_MAPNEW)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2356 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2357 if (rettv_dict_alloc(rettv) == FAIL)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2358 return;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2359 d_ret = rettv->vval.v_dict;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2360 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2361
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2362 if (filtermap != FILTERMAP_FILTER && d->dv_lock == 0)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2363 d->dv_lock = VAR_LOCKED;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2364 ht = &d->dv_hashtab;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2365 hash_lock(ht);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2366 todo = (int)ht->ht_used;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2367 for (hi = ht->ht_array; todo > 0; ++hi)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2368 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2369 if (!HASHITEM_EMPTY(hi))
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2370 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2371 int r;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2372 typval_T newtv;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2373
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2374 --todo;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2375 di = HI2DI(hi);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2376 if (filtermap == FILTERMAP_MAP
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2377 && (value_check_lock(di->di_tv.v_lock,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2378 arg_errmsg, TRUE)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2379 || var_check_ro(di->di_flags,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2380 arg_errmsg, TRUE)))
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2381 break;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2382 set_vim_var_string(VV_KEY, di->di_key, -1);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2383 newtv.v_type = VAR_UNKNOWN;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2384 r = filter_map_one(&di->di_tv, expr, filtermap,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2385 &newtv, &rem);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2386 clear_tv(get_vim_var_tv(VV_KEY));
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2387 if (r == FAIL || did_emsg)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2388 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2389 clear_tv(&newtv);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2390 break;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2391 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2392 if (filtermap == FILTERMAP_MAP)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2393 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2394 if (argtype != NULL && check_typval_arg_type(
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2395 argtype->tt_member, &newtv,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2396 func_name, 0) == FAIL)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2397 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2398 clear_tv(&newtv);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2399 break;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2400 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2401 // map(): replace the dict item value
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2402 clear_tv(&di->di_tv);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2403 newtv.v_lock = 0;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2404 di->di_tv = newtv;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2405 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2406 else if (filtermap == FILTERMAP_MAPNEW)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2407 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2408 // mapnew(): add the item value to the new dict
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2409 r = dict_add_tv(d_ret, (char *)di->di_key, &newtv);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2410 clear_tv(&newtv);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2411 if (r == FAIL)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2412 break;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2413 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2414 else if (filtermap == FILTERMAP_FILTER && rem)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2415 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2416 // filter(false): remove the item from the dict
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2417 if (var_check_fixed(di->di_flags, arg_errmsg, TRUE)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2418 || var_check_ro(di->di_flags, arg_errmsg, TRUE))
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2419 break;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2420 dictitem_remove(d, di);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2421 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2422 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2423 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2424 hash_unlock(ht);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2425 d->dv_lock = prev_lock;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2426 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2427
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2428 /*
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2429 * Implementation of map() and filter() for a Blob.
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2430 */
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2431 static void
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2432 filter_map_blob(
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2433 blob_T *blob_arg,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2434 filtermap_T filtermap,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2435 typval_T *expr,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2436 typval_T *rettv)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2437 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2438 blob_T *b;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2439 int i;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2440 typval_T tv;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2441 varnumber_T val;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2442 blob_T *b_ret;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2443 int idx = 0;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2444 int rem;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2445
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2446 if (filtermap == FILTERMAP_MAPNEW)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2447 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2448 rettv->v_type = VAR_BLOB;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2449 rettv->vval.v_blob = NULL;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2450 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2451 if ((b = blob_arg) == NULL)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2452 return;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2453
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2454 b_ret = b;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2455 if (filtermap == FILTERMAP_MAPNEW)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2456 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2457 if (blob_copy(b, rettv) == FAIL)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2458 return;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2459 b_ret = rettv->vval.v_blob;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2460 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2461
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2462 // set_vim_var_nr() doesn't set the type
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2463 set_vim_var_type(VV_KEY, VAR_NUMBER);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2464
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2465 for (i = 0; i < b->bv_ga.ga_len; i++)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2466 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2467 typval_T newtv;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2468
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2469 tv.v_type = VAR_NUMBER;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2470 val = blob_get(b, i);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2471 tv.vval.v_number = val;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2472 set_vim_var_nr(VV_KEY, idx);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2473 if (filter_map_one(&tv, expr, filtermap, &newtv, &rem) == FAIL
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2474 || did_emsg)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2475 break;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2476 if (newtv.v_type != VAR_NUMBER && newtv.v_type != VAR_BOOL)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2477 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2478 clear_tv(&newtv);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2479 emsg(_(e_invalblob));
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2480 break;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2481 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2482 if (filtermap != FILTERMAP_FILTER)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2483 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2484 if (newtv.vval.v_number != val)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2485 blob_set(b_ret, i, newtv.vval.v_number);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2486 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2487 else if (rem)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2488 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2489 char_u *p = (char_u *)blob_arg->bv_ga.ga_data;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2490
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2491 mch_memmove(p + i, p + i + 1,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2492 (size_t)b->bv_ga.ga_len - i - 1);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2493 --b->bv_ga.ga_len;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2494 --i;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2495 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2496 ++idx;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2497 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2498 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2499
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2500 /*
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2501 * Implementation of map() and filter() for a String.
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2502 */
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2503 static void
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2504 filter_map_string(
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2505 char_u *str,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2506 filtermap_T filtermap,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2507 typval_T *expr,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2508 typval_T *rettv)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2509 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2510 char_u *p;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2511 typval_T tv;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2512 garray_T ga;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2513 int len = 0;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2514 int idx = 0;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2515 int rem;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2516
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2517 rettv->v_type = VAR_STRING;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2518 rettv->vval.v_string = NULL;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2519
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2520 // set_vim_var_nr() doesn't set the type
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2521 set_vim_var_type(VV_KEY, VAR_NUMBER);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2522
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2523 ga_init2(&ga, (int)sizeof(char), 80);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2524 for (p = str; *p != NUL; p += len)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2525 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2526 typval_T newtv;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2527
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2528 if (tv_get_first_char(p, &tv) == FAIL)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2529 break;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2530 len = (int)STRLEN(tv.vval.v_string);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2531
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2532 set_vim_var_nr(VV_KEY, idx);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2533 if (filter_map_one(&tv, expr, filtermap, &newtv, &rem) == FAIL
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2534 || did_emsg)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2535 break;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2536 if (did_emsg)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2537 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2538 clear_tv(&newtv);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2539 clear_tv(&tv);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2540 break;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2541 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2542 else if (filtermap != FILTERMAP_FILTER)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2543 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2544 if (newtv.v_type != VAR_STRING)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2545 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2546 clear_tv(&newtv);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2547 clear_tv(&tv);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2548 emsg(_(e_stringreq));
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2549 break;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2550 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2551 else
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2552 ga_concat(&ga, newtv.vval.v_string);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2553 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2554 else if (!rem)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2555 ga_concat(&ga, tv.vval.v_string);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2556
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2557 clear_tv(&newtv);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2558 clear_tv(&tv);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2559
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2560 ++idx;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2561 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2562 ga_append(&ga, NUL);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2563 rettv->vval.v_string = ga.ga_data;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2564 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2565
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2566 /*
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2567 * Implementation of map() and filter() for a List.
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2568 */
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2569 static void
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2570 filter_map_list(
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2571 list_T *l,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2572 filtermap_T filtermap,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2573 type_T *argtype,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2574 char *func_name,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2575 char_u *arg_errmsg,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2576 typval_T *expr,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2577 typval_T *rettv)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2578 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2579 int prev_lock;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2580 list_T *l_ret = NULL;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2581 int idx = 0;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2582 int rem;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2583 listitem_T *li, *nli;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2584
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2585 if (filtermap == FILTERMAP_MAPNEW)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2586 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2587 rettv->v_type = VAR_LIST;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2588 rettv->vval.v_list = NULL;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2589 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2590 if (l == NULL
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2591 || (filtermap == FILTERMAP_FILTER
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2592 && value_check_lock(l->lv_lock, arg_errmsg, TRUE)))
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2593 return;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2594
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2595 prev_lock = l->lv_lock;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2596
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2597 if (filtermap == FILTERMAP_MAPNEW)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2598 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2599 if (rettv_list_alloc(rettv) == FAIL)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2600 return;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2601 l_ret = rettv->vval.v_list;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2602 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2603 // set_vim_var_nr() doesn't set the type
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2604 set_vim_var_type(VV_KEY, VAR_NUMBER);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2605
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2606 if (filtermap != FILTERMAP_FILTER && l->lv_lock == 0)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2607 l->lv_lock = VAR_LOCKED;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2608
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2609 if (l->lv_first == &range_list_item)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2610 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2611 varnumber_T val = l->lv_u.nonmat.lv_start;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2612 int len = l->lv_len;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2613 int stride = l->lv_u.nonmat.lv_stride;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2614
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2615 // List from range(): loop over the numbers
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2616 if (filtermap != FILTERMAP_MAPNEW)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2617 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2618 l->lv_first = NULL;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2619 l->lv_u.mat.lv_last = NULL;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2620 l->lv_len = 0;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2621 l->lv_u.mat.lv_idx_item = NULL;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2622 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2623
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2624 for (idx = 0; idx < len; ++idx)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2625 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2626 typval_T tv;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2627 typval_T newtv;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2628
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2629 tv.v_type = VAR_NUMBER;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2630 tv.v_lock = 0;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2631 tv.vval.v_number = val;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2632 set_vim_var_nr(VV_KEY, idx);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2633 if (filter_map_one(&tv, expr, filtermap, &newtv, &rem)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2634 == FAIL)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2635 break;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2636 if (did_emsg)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2637 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2638 clear_tv(&newtv);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2639 break;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2640 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2641 if (filtermap != FILTERMAP_FILTER)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2642 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2643 if (filtermap == FILTERMAP_MAP && argtype != NULL
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2644 && check_typval_arg_type(
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2645 argtype->tt_member, &newtv,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2646 func_name, 0) == FAIL)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2647 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2648 clear_tv(&newtv);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2649 break;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2650 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2651 // map(), mapnew(): always append the new value to the
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2652 // list
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2653 if (list_append_tv_move(filtermap == FILTERMAP_MAP
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2654 ? l : l_ret, &newtv) == FAIL)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2655 break;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2656 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2657 else if (!rem)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2658 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2659 // filter(): append the list item value when not rem
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2660 if (list_append_tv_move(l, &tv) == FAIL)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2661 break;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2662 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2663
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2664 val += stride;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2665 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2666 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2667 else
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2668 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2669 // Materialized list: loop over the items
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2670 for (li = l->lv_first; li != NULL; li = nli)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2671 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2672 typval_T newtv;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2673
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2674 if (filtermap == FILTERMAP_MAP && value_check_lock(
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2675 li->li_tv.v_lock, arg_errmsg, TRUE))
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2676 break;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2677 nli = li->li_next;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2678 set_vim_var_nr(VV_KEY, idx);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2679 if (filter_map_one(&li->li_tv, expr, filtermap,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2680 &newtv, &rem) == FAIL)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2681 break;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2682 if (did_emsg)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2683 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2684 clear_tv(&newtv);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2685 break;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2686 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2687 if (filtermap == FILTERMAP_MAP)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2688 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2689 if (argtype != NULL && check_typval_arg_type(
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2690 argtype->tt_member, &newtv, func_name, 0) == FAIL)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2691 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2692 clear_tv(&newtv);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2693 break;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2694 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2695 // map(): replace the list item value
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2696 clear_tv(&li->li_tv);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2697 newtv.v_lock = 0;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2698 li->li_tv = newtv;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2699 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2700 else if (filtermap == FILTERMAP_MAPNEW)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2701 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2702 // mapnew(): append the list item value
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2703 if (list_append_tv_move(l_ret, &newtv) == FAIL)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2704 break;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2705 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2706 else if (filtermap == FILTERMAP_FILTER && rem)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2707 listitem_remove(l, li);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2708 ++idx;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2709 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2710 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2711
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2712 l->lv_lock = prev_lock;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2713 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2714
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2715 /*
17964
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2716 * 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
2717 */
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2718 static void
22844
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2719 filter_map(typval_T *argvars, typval_T *rettv, filtermap_T filtermap)
17964
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2720 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2721 typval_T *expr;
25326
cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given
Bram Moolenaar <Bram@vim.org>
parents: 25306
diff changeset
2722 char *func_name = filtermap == FILTERMAP_MAP ? "map()"
22844
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2723 : filtermap == FILTERMAP_MAPNEW ? "mapnew()"
25326
cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given
Bram Moolenaar <Bram@vim.org>
parents: 25306
diff changeset
2724 : "filter()";
22844
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2725 char_u *arg_errmsg = (char_u *)(filtermap == FILTERMAP_MAP
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2726 ? N_("map() argument")
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2727 : filtermap == FILTERMAP_MAPNEW
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2728 ? N_("mapnew() argument")
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2729 : N_("filter() argument"));
17964
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2730 int save_did_emsg;
23646
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
2731 type_T *type = NULL;
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
2732 garray_T type_list;
17964
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2733
22844
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2734 // map() and filter() return the first argument, also on failure.
26585
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9
Bram Moolenaar <Bram@vim.org>
parents: 26578
diff changeset
2735 if (filtermap != FILTERMAP_MAPNEW && argvars[0].v_type != VAR_STRING)
22844
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2736 copy_tv(&argvars[0], rettv);
25338
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
2737
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
2738 if (in_vim9script()
26585
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9
Bram Moolenaar <Bram@vim.org>
parents: 26578
diff changeset
2739 && (check_for_list_or_dict_or_blob_or_string_arg(argvars, 0)
0d2a709e2ff0 patch 8.2.3822: leaking memory in map() and filter(), no string in Vim9
Bram Moolenaar <Bram@vim.org>
parents: 26578
diff changeset
2740 == FAIL))
25338
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
2741 return;
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
2742
23646
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
2743 if (filtermap == FILTERMAP_MAP && in_vim9script())
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
2744 {
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
2745 // Check that map() does not change the type of the dict.
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
2746 ga_init2(&type_list, sizeof(type_T *), 10);
24438
5c6ccab68d1e patch 8.2.2759: Vim9: for loop infers type of loop variable
Bram Moolenaar <Bram@vim.org>
parents: 24396
diff changeset
2747 type = typval2type(argvars, get_copyID(), &type_list, TRUE);
23646
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
2748 }
22608
f140b9036aa5 patch 8.2.1852: map() returing zero for NULL list is unexpected
Bram Moolenaar <Bram@vim.org>
parents: 22545
diff changeset
2749
26640
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2750 if (argvars[0].v_type != VAR_BLOB
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2751 && argvars[0].v_type != VAR_LIST
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2752 && argvars[0].v_type != VAR_DICT
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2753 && argvars[0].v_type != VAR_STRING)
17964
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2754 {
26578
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string
Bram Moolenaar <Bram@vim.org>
parents: 26534
diff changeset
2755 semsg(_(e_argument_of_str_must_be_list_string_dictionary_or_blob),
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string
Bram Moolenaar <Bram@vim.org>
parents: 26534
diff changeset
2756 func_name);
23646
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
2757 goto theend;
17964
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2758 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2759
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2760 expr = &argvars[1];
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2761 // 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
2762 // 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
2763 // 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
2764 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
2765 {
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2766 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
2767 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
2768
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2769 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
2770 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
2771
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2772 // 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
2773 // 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
2774 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
2775 did_emsg = FALSE;
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2776
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2777 if (argvars[0].v_type == VAR_DICT)
26640
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2778 filter_map_dict(argvars[0].vval.v_dict, filtermap, type, func_name,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2779 arg_errmsg, expr, rettv);
17964
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2780 else if (argvars[0].v_type == VAR_BLOB)
26640
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2781 filter_map_blob(argvars[0].vval.v_blob, filtermap, expr, rettv);
26578
06693d1afc48 patch 8.2.3818: cannot filter or map characters in a string
Bram Moolenaar <Bram@vim.org>
parents: 26534
diff changeset
2782 else if (argvars[0].v_type == VAR_STRING)
26640
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2783 filter_map_string(tv_get_string(&argvars[0]), filtermap, expr,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2784 rettv);
17964
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2785 else // argvars[0].v_type == VAR_LIST
26640
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2786 filter_map_list(argvars[0].vval.v_list, filtermap, type, func_name,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
2787 arg_errmsg, expr, rettv);
17964
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2788
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2789 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
2790 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
2791
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2792 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
2793 }
23646
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
2794
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
2795 theend:
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
2796 if (type != NULL)
5d77a7587927 patch 8.2.2365: Vim9: no check for map() changing item type at script level
Bram Moolenaar <Bram@vim.org>
parents: 23604
diff changeset
2797 clear_type_list(&type_list);
17964
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2798 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2799
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2800 /*
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2801 * "filter()" function
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2802 */
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2803 void
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2804 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
2805 {
22844
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2806 filter_map(argvars, rettv, FILTERMAP_FILTER);
17964
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2807 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2808
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2809 /*
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2810 * "map()" function
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2811 */
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2812 void
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2813 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
2814 {
22844
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2815 filter_map(argvars, rettv, FILTERMAP_MAP);
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2816 }
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2817
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2818 /*
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2819 * "mapnew()" function
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2820 */
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2821 void
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2822 f_mapnew(typval_T *argvars, typval_T *rettv)
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2823 {
36fc73078bce patch 8.2.1969: Vim9: map() may change the list or dict item type
Bram Moolenaar <Bram@vim.org>
parents: 22802
diff changeset
2824 filter_map(argvars, rettv, FILTERMAP_MAPNEW);
17964
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2825 }
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
2826
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2827 /*
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2828 * "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
2829 */
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2830 void
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2831 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
2832 {
18800
f41b55f9357c patch 8.1.2388: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 17970
diff changeset
2833 rettv->vval.v_number = 1; // Default: Failed
25338
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
2834
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
2835 if (in_vim9script()
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
2836 && (check_for_list_or_blob_arg(argvars, 0) == FAIL
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
2837 || (argvars[0].v_type == VAR_BLOB
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
2838 && check_for_number_arg(argvars, 1) == FAIL)))
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
2839 return;
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
2840
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2841 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
2842 {
24482
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob
Bram Moolenaar <Bram@vim.org>
parents: 24438
diff changeset
2843 list_T *l = argvars[0].vval.v_list;
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob
Bram Moolenaar <Bram@vim.org>
parents: 24438
diff changeset
2844
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob
Bram Moolenaar <Bram@vim.org>
parents: 24438
diff changeset
2845 if (l == NULL)
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob
Bram Moolenaar <Bram@vim.org>
parents: 24438
diff changeset
2846 {
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob
Bram Moolenaar <Bram@vim.org>
parents: 24438
diff changeset
2847 if (in_vim9script())
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob
Bram Moolenaar <Bram@vim.org>
parents: 24438
diff changeset
2848 emsg(_(e_cannot_add_to_null_list));
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob
Bram Moolenaar <Bram@vim.org>
parents: 24438
diff changeset
2849 }
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob
Bram Moolenaar <Bram@vim.org>
parents: 24438
diff changeset
2850 else if (!value_check_lock(l->lv_lock,
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob
Bram Moolenaar <Bram@vim.org>
parents: 24438
diff changeset
2851 (char_u *)N_("add() argument"), TRUE)
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2852 && list_append_tv(l, &argvars[1]) == OK)
24482
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob
Bram Moolenaar <Bram@vim.org>
parents: 24438
diff changeset
2853 {
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2854 copy_tv(&argvars[0], rettv);
24482
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob
Bram Moolenaar <Bram@vim.org>
parents: 24438
diff changeset
2855 }
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2856 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2857 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
2858 {
24482
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob
Bram Moolenaar <Bram@vim.org>
parents: 24438
diff changeset
2859 blob_T *b = argvars[0].vval.v_blob;
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob
Bram Moolenaar <Bram@vim.org>
parents: 24438
diff changeset
2860
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob
Bram Moolenaar <Bram@vim.org>
parents: 24438
diff changeset
2861 if (b == NULL)
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob
Bram Moolenaar <Bram@vim.org>
parents: 24438
diff changeset
2862 {
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob
Bram Moolenaar <Bram@vim.org>
parents: 24438
diff changeset
2863 if (in_vim9script())
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob
Bram Moolenaar <Bram@vim.org>
parents: 24438
diff changeset
2864 emsg(_(e_cannot_add_to_null_blob));
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob
Bram Moolenaar <Bram@vim.org>
parents: 24438
diff changeset
2865 }
3d5a66e478f8 patch 8.2.2781: add() silently skips when adding to null list or blob
Bram Moolenaar <Bram@vim.org>
parents: 24438
diff changeset
2866 else if (!value_check_lock(b->bv_lock,
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2867 (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
2868 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2869 int error = FALSE;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2870 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
2871
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2872 if (!error)
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2873 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2874 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
2875 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
2876 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2877 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2878 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2879 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2880 emsg(_(e_listblobreq));
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2881 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2882
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2883 /*
26676
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2884 * Count the number of times "needle" occurs in string "haystack". Case is
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2885 * ignored if "ic" is TRUE.
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2886 */
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2887 static long
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2888 count_string(char_u *haystack, char_u *needle, int ic)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2889 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2890 long n = 0;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2891 char_u *p = haystack;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2892 char_u *next;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2893
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2894 if (p == NULL || needle == NULL || *needle == NUL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2895 return 0;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2896
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2897 if (ic)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2898 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2899 size_t len = STRLEN(needle);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2900
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2901 while (*p != NUL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2902 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2903 if (MB_STRNICMP(p, needle, len) == 0)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2904 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2905 ++n;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2906 p += len;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2907 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2908 else
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2909 MB_PTR_ADV(p);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2910 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2911 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2912 else
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2913 while ((next = (char_u *)strstr((char *)p, (char *)needle)) != NULL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2914 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2915 ++n;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2916 p = next + STRLEN(needle);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2917 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2918
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2919 return n;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2920 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2921
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2922 /*
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2923 * Count the number of times item "needle" occurs in List "l" starting at index
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2924 * "idx". Case is ignored if "ic" is TRUE.
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2925 */
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2926 static long
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2927 count_list(list_T *l, typval_T *needle, long idx, int ic)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2928 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2929 long n = 0;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2930 listitem_T *li;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2931
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2932 if (l == NULL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2933 return 0;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2934
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2935 CHECK_LIST_MATERIALIZE(l);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2936
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2937 if (list_len(l) == 0)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2938 return 0;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2939
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2940 li = list_find(l, idx);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2941 if (li == NULL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2942 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2943 semsg(_(e_listidx), idx);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2944 return 0;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2945 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2946
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2947 for ( ; li != NULL; li = li->li_next)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2948 if (tv_equal(&li->li_tv, needle, ic, FALSE))
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2949 ++n;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2950
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2951 return n;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2952 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2953
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2954 /*
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2955 * Count the number of times item "needle" occurs in Dict "d". Case is ignored
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2956 * if "ic" is TRUE.
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2957 */
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2958 static long
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2959 count_dict(dict_T *d, typval_T *needle, int ic)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2960 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2961 int todo;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2962 hashitem_T *hi;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2963 long n = 0;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2964
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2965 if (d == NULL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2966 return 0;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2967
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2968 todo = (int)d->dv_hashtab.ht_used;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2969 for (hi = d->dv_hashtab.ht_array; todo > 0; ++hi)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2970 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2971 if (!HASHITEM_EMPTY(hi))
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2972 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2973 --todo;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2974 if (tv_equal(&HI2DI(hi)->di_tv, needle, ic, FALSE))
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2975 ++n;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2976 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2977 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2978
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2979 return n;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2980 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2981
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
2982 /*
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2983 * "count()" function
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2984 */
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2985 void
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2986 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
2987 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2988 long n = 0;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2989 int ic = FALSE;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2990 int error = FALSE;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2991
25302
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25290
diff changeset
2992 if (in_vim9script()
25384
e8e2c4d33b9b patch 8.2.3229: Vim9: runtime and compile time type checks are not the same
Bram Moolenaar <Bram@vim.org>
parents: 25338
diff changeset
2993 && (check_for_string_or_list_or_dict_arg(argvars, 0) == FAIL
25302
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25290
diff changeset
2994 || check_for_opt_bool_arg(argvars, 2) == FAIL
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25290
diff changeset
2995 || (argvars[2].v_type != VAR_UNKNOWN
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25290
diff changeset
2996 && check_for_opt_number_arg(argvars, 3) == FAIL)))
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25290
diff changeset
2997 return;
4d3c68196d05 patch 8.2.3188: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25290
diff changeset
2998
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
2999 if (argvars[2].v_type != VAR_UNKNOWN)
22043
4bc644f4dd2d patch 8.2.1571: Vim9: count() third argument cannot be "true"
Bram Moolenaar <Bram@vim.org>
parents: 21909
diff changeset
3000 ic = (int)tv_get_bool_chk(&argvars[2], &error);
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3001
26676
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3002 if (!error && argvars[0].v_type == VAR_STRING)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3003 n = count_string(argvars[0].vval.v_string,
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3004 tv_get_string_chk(&argvars[1]), ic);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3005 else if (!error && argvars[0].v_type == VAR_LIST)
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3006 {
26676
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3007 long idx = 0;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3008
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3009 if (argvars[2].v_type != VAR_UNKNOWN
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3010 && argvars[3].v_type != VAR_UNKNOWN)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3011 idx = (long)tv_get_number_chk(&argvars[3], &error);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3012 if (!error)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3013 n = count_list(argvars[0].vval.v_list, &argvars[1], idx, ic);
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3014 }
26676
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3015 else if (!error && argvars[0].v_type == VAR_DICT)
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3016 {
26676
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3017 if (argvars[2].v_type != VAR_UNKNOWN
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3018 && argvars[3].v_type != VAR_UNKNOWN)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3019 emsg(_(e_invarg));
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3020 else
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3021 n = count_dict(argvars[0].vval.v_dict, &argvars[1], ic);
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3022 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3023 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3024 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
3025 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
3026 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3027
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3028 /*
26676
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3029 * extend() a List. Append List argvars[1] to List argvars[0] before index
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3030 * argvars[3] and return the resulting list in "rettv". "is_new" is TRUE for
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3031 * extendnew().
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3032 */
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3033 static void
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3034 extend_list(
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3035 typval_T *argvars,
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3036 type_T *type,
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3037 char *func_name,
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3038 char_u *arg_errmsg,
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3039 int is_new,
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3040 typval_T *rettv)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3041 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3042 list_T *l1, *l2;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3043 listitem_T *item;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3044 long before;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3045 int error = FALSE;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3046
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3047 l1 = argvars[0].vval.v_list;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3048 if (l1 == NULL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3049 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3050 emsg(_(e_cannot_extend_null_list));
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3051 return;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3052 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3053 l2 = argvars[1].vval.v_list;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3054 if ((is_new || !value_check_lock(l1->lv_lock, arg_errmsg, TRUE))
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3055 && l2 != NULL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3056 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3057 if (is_new)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3058 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3059 l1 = list_copy(l1, FALSE, get_copyID());
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3060 if (l1 == NULL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3061 return;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3062 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3063
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3064 if (argvars[2].v_type != VAR_UNKNOWN)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3065 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3066 before = (long)tv_get_number_chk(&argvars[2], &error);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3067 if (error)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3068 return; // type error; errmsg already given
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3069
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3070 if (before == l1->lv_len)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3071 item = NULL;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3072 else
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3073 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3074 item = list_find(l1, before);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3075 if (item == NULL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3076 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3077 semsg(_(e_listidx), before);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3078 return;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3079 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3080 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3081 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3082 else
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3083 item = NULL;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3084 if (type != NULL && check_typval_arg_type(
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3085 type, &argvars[1], func_name, 2) == FAIL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3086 return;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3087 list_extend(l1, l2, item);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3088
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3089 if (is_new)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3090 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3091 rettv->v_type = VAR_LIST;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3092 rettv->vval.v_list = l1;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3093 rettv->v_lock = FALSE;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3094 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3095 else
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3096 copy_tv(&argvars[0], rettv);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3097 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3098 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3099
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3100 /*
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3101 * extend() a Dict. Append Dict argvars[1] to Dict argvars[0] and return the
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3102 * resulting Dict in "rettv". "is_new" is TRUE for extendnew().
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3103 */
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3104 static void
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3105 extend_dict(
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3106 typval_T *argvars,
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3107 type_T *type,
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3108 char *func_name,
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3109 char_u *arg_errmsg,
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3110 int is_new,
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3111 typval_T *rettv)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3112 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3113 dict_T *d1, *d2;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3114 char_u *action;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3115 int i;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3116
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3117 d1 = argvars[0].vval.v_dict;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3118 if (d1 == NULL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3119 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3120 emsg(_(e_cannot_extend_null_dict));
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3121 return;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3122 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3123 d2 = argvars[1].vval.v_dict;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3124 if ((is_new || !value_check_lock(d1->dv_lock, arg_errmsg, TRUE))
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3125 && d2 != NULL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3126 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3127 if (is_new)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3128 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3129 d1 = dict_copy(d1, FALSE, get_copyID());
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3130 if (d1 == NULL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3131 return;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3132 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3133
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3134 // Check the third argument.
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3135 if (argvars[2].v_type != VAR_UNKNOWN)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3136 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3137 static char *(av[]) = {"keep", "force", "error"};
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3138
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3139 action = tv_get_string_chk(&argvars[2]);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3140 if (action == NULL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3141 return;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3142 for (i = 0; i < 3; ++i)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3143 if (STRCMP(action, av[i]) == 0)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3144 break;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3145 if (i == 3)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3146 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3147 semsg(_(e_invarg2), action);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3148 return;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3149 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3150 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3151 else
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3152 action = (char_u *)"force";
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3153
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3154 if (type != NULL && check_typval_arg_type(type, &argvars[1],
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3155 func_name, 2) == FAIL)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3156 return;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3157 dict_extend(d1, d2, action, func_name);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3158
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3159 if (is_new)
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3160 {
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3161 rettv->v_type = VAR_DICT;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3162 rettv->vval.v_dict = d1;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3163 rettv->v_lock = FALSE;
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3164 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3165 else
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3166 copy_tv(&argvars[0], rettv);
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3167 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3168 }
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3169
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3170 /*
23588
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3171 * "extend()" or "extendnew()" function. "is_new" is TRUE for extendnew().
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3172 */
23588
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3173 static void
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3174 extend(typval_T *argvars, typval_T *rettv, char_u *arg_errmsg, int is_new)
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3175 {
23800
57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch
Bram Moolenaar <Bram@vim.org>
parents: 23650
diff changeset
3176 type_T *type = NULL;
57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch
Bram Moolenaar <Bram@vim.org>
parents: 23650
diff changeset
3177 garray_T type_list;
25326
cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given
Bram Moolenaar <Bram@vim.org>
parents: 25306
diff changeset
3178 char *func_name = is_new ? "extendnew()" : "extend()";
23800
57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch
Bram Moolenaar <Bram@vim.org>
parents: 23650
diff changeset
3179
57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch
Bram Moolenaar <Bram@vim.org>
parents: 23650
diff changeset
3180 if (!is_new && in_vim9script())
57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch
Bram Moolenaar <Bram@vim.org>
parents: 23650
diff changeset
3181 {
57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch
Bram Moolenaar <Bram@vim.org>
parents: 23650
diff changeset
3182 // Check that map() does not change the type of the dict.
57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch
Bram Moolenaar <Bram@vim.org>
parents: 23650
diff changeset
3183 ga_init2(&type_list, sizeof(type_T *), 10);
24438
5c6ccab68d1e patch 8.2.2759: Vim9: for loop infers type of loop variable
Bram Moolenaar <Bram@vim.org>
parents: 24396
diff changeset
3184 type = typval2type(argvars, get_copyID(), &type_list, TRUE);
23800
57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch
Bram Moolenaar <Bram@vim.org>
parents: 23650
diff changeset
3185 }
57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch
Bram Moolenaar <Bram@vim.org>
parents: 23650
diff changeset
3186
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3187 if (argvars[0].v_type == VAR_LIST && argvars[1].v_type == VAR_LIST)
26676
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3188 extend_list(argvars, type, func_name, arg_errmsg, is_new, rettv);
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3189 else if (argvars[0].v_type == VAR_DICT && argvars[1].v_type == VAR_DICT)
26676
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3190 extend_dict(argvars, type, func_name, arg_errmsg, is_new, rettv);
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3191 else
25326
cfbf40f749b0 patch 8.2.3200: Vim9: hard to guess where a type error is given
Bram Moolenaar <Bram@vim.org>
parents: 25306
diff changeset
3192 semsg(_(e_listdictarg), func_name);
23800
57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch
Bram Moolenaar <Bram@vim.org>
parents: 23650
diff changeset
3193
57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch
Bram Moolenaar <Bram@vim.org>
parents: 23650
diff changeset
3194 if (type != NULL)
57f0e3fd7c05 patch 8.2.2441: Vim9: extend() does not give an error for a type mismatch
Bram Moolenaar <Bram@vim.org>
parents: 23650
diff changeset
3195 clear_type_list(&type_list);
23588
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3196 }
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3197
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3198 /*
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3199 * "extend(list, list [, idx])" function
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3200 * "extend(dict, dict [, action])" function
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3201 */
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3202 void
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3203 f_extend(typval_T *argvars, typval_T *rettv)
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3204 {
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3205 char_u *errmsg = (char_u *)N_("extend() argument");
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3206
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3207 extend(argvars, rettv, errmsg, FALSE);
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3208 }
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3209
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3210 /*
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3211 * "extendnew(list, list [, idx])" function
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3212 * "extendnew(dict, dict [, action])" function
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3213 */
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3214 void
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3215 f_extendnew(typval_T *argvars, typval_T *rettv)
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3216 {
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3217 char_u *errmsg = (char_u *)N_("extendnew() argument");
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3218
510088f8c66f patch 8.2.2336: Vim9: not possible to extend dictionary with different type
Bram Moolenaar <Bram@vim.org>
parents: 23565
diff changeset
3219 extend(argvars, rettv, errmsg, TRUE);
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3220 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3221
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3222 /*
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3223 * "insert()" function
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3224 */
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3225 void
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3226 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
3227 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3228 long before = 0;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3229 listitem_T *item;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3230 int error = FALSE;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3231
25338
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
3232 if (in_vim9script()
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
3233 && (check_for_list_or_blob_arg(argvars, 0) == FAIL
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
3234 || (argvars[0].v_type == VAR_BLOB
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
3235 && check_for_number_arg(argvars, 1) == FAIL)
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
3236 || check_for_opt_number_arg(argvars, 2) == FAIL))
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
3237 return;
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
3238
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3239 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
3240 {
25495
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3241 blob_T *b = argvars[0].vval.v_blob;
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3242
25495
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3243 if (b == NULL)
24484
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3244 {
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3245 if (in_vim9script())
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3246 emsg(_(e_cannot_add_to_null_blob));
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3247 }
25495
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3248 else if (!value_check_lock(b->bv_lock,
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3249 (char_u *)N_("insert() argument"), TRUE))
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3250 {
25495
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3251 int val, len;
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3252 char_u *p;
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3253
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3254 len = blob_len(b);
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3255 if (argvars[2].v_type != VAR_UNKNOWN)
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3256 {
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3257 before = (long)tv_get_number_chk(&argvars[2], &error);
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3258 if (error)
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3259 return; // type error; errmsg already given
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3260 if (before < 0 || before > len)
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3261 {
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3262 semsg(_(e_invarg2), tv_get_string(&argvars[2]));
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3263 return;
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3264 }
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3265 }
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3266 val = tv_get_number_chk(&argvars[1], &error);
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3267 if (error)
25495
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3268 return;
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3269 if (val < 0 || val > 255)
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3270 {
25495
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3271 semsg(_(e_invarg2), tv_get_string(&argvars[1]));
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3272 return;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3273 }
25495
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3274
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3275 if (ga_grow(&b->bv_ga, 1) == FAIL)
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3276 return;
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3277 p = (char_u *)b->bv_ga.ga_data;
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3278 mch_memmove(p + before + 1, p + before, (size_t)len - before);
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3279 *(p + before) = val;
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3280 ++b->bv_ga.ga_len;
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3281
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3282 copy_tv(&argvars[0], rettv);
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3283 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3284 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3285 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
3286 semsg(_(e_listblobarg), "insert()");
24484
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3287 else
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3288 {
24484
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3289 list_T *l = argvars[0].vval.v_list;
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3290
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3291 if (l == NULL)
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3292 {
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3293 if (in_vim9script())
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3294 emsg(_(e_cannot_add_to_null_list));
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3295 }
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3296 else if (!value_check_lock(l->lv_lock,
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3297 (char_u *)N_("insert() argument"), TRUE))
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3298 {
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3299 if (argvars[2].v_type != VAR_UNKNOWN)
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3300 before = (long)tv_get_number_chk(&argvars[2], &error);
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3301 if (error)
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3302 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
3303
24484
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3304 if (before == l->lv_len)
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3305 item = NULL;
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3306 else
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3307 {
24484
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3308 item = list_find(l, before);
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3309 if (item == NULL)
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3310 {
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3311 semsg(_(e_listidx), before);
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3312 l = NULL;
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3313 }
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3314 }
24484
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3315 if (l != NULL)
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3316 {
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3317 (void)list_insert_tv(l, &argvars[1], item);
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3318 copy_tv(&argvars[0], rettv);
bc1a533148d7 patch 8.2.2782: Vim9: blob operations not fully tested
Bram Moolenaar <Bram@vim.org>
parents: 24482
diff changeset
3319 }
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3320 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3321 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3322 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3323
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3324 /*
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3325 * "remove()" function
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3326 */
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3327 void
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3328 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
3329 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3330 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
3331
25338
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
3332 if (in_vim9script()
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
3333 && (check_for_list_or_dict_or_blob_arg(argvars, 0) == FAIL
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
3334 || ((argvars[0].v_type == VAR_LIST
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
3335 || argvars[0].v_type == VAR_BLOB)
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
3336 && (check_for_number_arg(argvars, 1) == FAIL
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
3337 || check_for_opt_number_arg(argvars, 2) == FAIL))
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
3338 || (argvars[0].v_type == VAR_DICT
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
3339 && check_for_string_or_number_arg(argvars, 1) == FAIL)))
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
3340 return;
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
3341
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3342 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
3343 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
3344 else if (argvars[0].v_type == VAR_BLOB)
25495
7144d2ffc86b patch 8.2.3284: no error for insert() or remove() changing a locked blob
Bram Moolenaar <Bram@vim.org>
parents: 25384
diff changeset
3345 blob_remove(argvars, rettv, arg_errmsg);
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3346 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
3347 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
3348 else
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3349 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
3350 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3351
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3352 /*
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3353 * "reverse({list})" function
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3354 */
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3355 void
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3356 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
3357 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3358 list_T *l;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3359 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
3360
25338
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
3361 if (in_vim9script() && check_for_list_or_blob_arg(argvars, 0) == FAIL)
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
3362 return;
e2be9f3c5907 patch 8.2.3206: Vim9: argument types are not checked at compile time
Bram Moolenaar <Bram@vim.org>
parents: 25326
diff changeset
3363
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3364 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
3365 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3366 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
3367 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
3368
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3369 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
3370 {
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3371 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
3372
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3373 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
3374 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
3375 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3376 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
3377 return;
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3378 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3379
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3380 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
3381 semsg(_(e_listblobarg), "reverse()");
25597
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
3382 else
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
3383 {
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
3384 l = argvars[0].vval.v_list;
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
3385 rettv_list_set(rettv, l);
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
3386 if (l != NULL
22298
07e48ee8c3bb patch 8.2.1698: cannot lock a variable in legacy Vim script like in Vim9
Bram Moolenaar <Bram@vim.org>
parents: 22121
diff changeset
3387 && !value_check_lock(l->lv_lock,
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3388 (char_u *)N_("reverse() argument"), TRUE))
19203
09f01421a356 patch 8.2.0160: range test fails
Bram Moolenaar <Bram@vim.org>
parents: 19181
diff changeset
3389 {
25597
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
3390 if (l->lv_first == &range_list_item)
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
3391 {
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
3392 varnumber_T new_start = l->lv_u.nonmat.lv_start
19229
d776967d0f0d patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents: 19203
diff changeset
3393 + (l->lv_len - 1) * l->lv_u.nonmat.lv_stride;
25597
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
3394 l->lv_u.nonmat.lv_end = new_start
19229
d776967d0f0d patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents: 19203
diff changeset
3395 - (l->lv_u.nonmat.lv_end - l->lv_u.nonmat.lv_start);
25597
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
3396 l->lv_u.nonmat.lv_start = new_start;
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
3397 l->lv_u.nonmat.lv_stride = -l->lv_u.nonmat.lv_stride;
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
3398 return;
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
3399 }
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
3400 li = l->lv_u.mat.lv_last;
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
3401 l->lv_first = l->lv_u.mat.lv_last = NULL;
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
3402 l->lv_len = 0;
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
3403 while (li != NULL)
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
3404 {
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
3405 ni = li->li_prev;
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
3406 list_append(l, li);
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
3407 li = ni;
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
3408 }
0fdacd8f0cf3 patch 8.2.3335: Vim9: not enough tests run with Vim9
Bram Moolenaar <Bram@vim.org>
parents: 25591
diff changeset
3409 l->lv_u.mat.lv_idx = l->lv_len - l->lv_u.mat.lv_idx - 1;
19203
09f01421a356 patch 8.2.0160: range test fails
Bram Moolenaar <Bram@vim.org>
parents: 19181
diff changeset
3410 }
17970
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3411 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3412 }
684a15da9929 patch 8.1.1981: the evalfunc.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17964
diff changeset
3413
20649
1fa0ace0ba65 patch 8.2.0878: no reduce() function
Bram Moolenaar <Bram@vim.org>
parents: 20550
diff changeset
3414 /*
26676
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3415 * reduce() List argvars[0] using the function 'funcname' with arguments in
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3416 * 'funcexe' starting with the initial value argvars[2] and return the result
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3417 * in 'rettv'.
26640
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3418 */
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3419 static void
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3420 reduce_list(
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3421 typval_T *argvars,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3422 char_u *func_name,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3423 funcexe_T *funcexe,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3424 typval_T *rettv)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3425 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3426 list_T *l = argvars[0].vval.v_list;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3427 listitem_T *li = NULL;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3428 typval_T initial;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3429 typval_T argv[3];
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3430 int r;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3431 int called_emsg_start = called_emsg;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3432 int prev_locked;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3433
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3434 if (l != NULL)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3435 CHECK_LIST_MATERIALIZE(l);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3436 if (argvars[2].v_type == VAR_UNKNOWN)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3437 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3438 if (l == NULL || l->lv_first == NULL)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3439 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3440 semsg(_(e_reduceempty), "List");
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3441 return;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3442 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3443 initial = l->lv_first->li_tv;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3444 li = l->lv_first->li_next;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3445 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3446 else
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3447 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3448 initial = argvars[2];
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3449 if (l != NULL)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3450 li = l->lv_first;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3451 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3452 copy_tv(&initial, rettv);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3453
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3454 if (l == NULL)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3455 return;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3456
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3457 prev_locked = l->lv_lock;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3458
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3459 l->lv_lock = VAR_FIXED; // disallow the list changing here
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3460 for ( ; li != NULL; li = li->li_next)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3461 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3462 argv[0] = *rettv;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3463 argv[1] = li->li_tv;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3464 rettv->v_type = VAR_UNKNOWN;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3465 r = call_func(func_name, -1, rettv, 2, argv, funcexe);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3466 clear_tv(&argv[0]);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3467 if (r == FAIL || called_emsg != called_emsg_start)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3468 break;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3469 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3470 l->lv_lock = prev_locked;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3471 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3472
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3473 /*
26676
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3474 * reduce() String argvars[0] using the function 'funcname' with arguments in
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3475 * 'funcexe' starting with the initial value argvars[2] and return the result
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3476 * in 'rettv'.
26640
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3477 */
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3478 static void
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3479 reduce_string(
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3480 typval_T *argvars,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3481 char_u *func_name,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3482 funcexe_T *funcexe,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3483 typval_T *rettv)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3484 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3485 char_u *p = tv_get_string(&argvars[0]);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3486 int len;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3487 typval_T argv[3];
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3488 int r;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3489 int called_emsg_start = called_emsg;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3490
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3491 if (argvars[2].v_type == VAR_UNKNOWN)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3492 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3493 if (*p == NUL)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3494 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3495 semsg(_(e_reduceempty), "String");
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3496 return;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3497 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3498 if (tv_get_first_char(p, rettv) == FAIL)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3499 return;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3500 p += STRLEN(rettv->vval.v_string);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3501 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3502 else if (argvars[2].v_type != VAR_STRING)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3503 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3504 semsg(_(e_string_expected_for_argument_nr), 3);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3505 return;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3506 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3507 else
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3508 copy_tv(&argvars[2], rettv);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3509
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3510 for ( ; *p != NUL; p += len)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3511 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3512 argv[0] = *rettv;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3513 if (tv_get_first_char(p, &argv[1]) == FAIL)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3514 break;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3515 len = (int)STRLEN(argv[1].vval.v_string);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3516 r = call_func(func_name, -1, rettv, 2, argv, funcexe);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3517 clear_tv(&argv[0]);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3518 clear_tv(&argv[1]);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3519 if (r == FAIL || called_emsg != called_emsg_start)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3520 return;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3521 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3522 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3523
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3524 /*
26676
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3525 * reduce() Blob argvars[0] using the function 'funcname' with arguments in
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3526 * 'funcexe' starting with the initial value argvars[2] and return the result
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3527 * in 'rettv'.
26640
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3528 */
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3529 static void
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3530 reduce_blob(
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3531 typval_T *argvars,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3532 char_u *func_name,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3533 funcexe_T *funcexe,
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3534 typval_T *rettv)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3535 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3536 blob_T *b = argvars[0].vval.v_blob;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3537 int called_emsg_start = called_emsg;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3538 int r;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3539 typval_T initial;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3540 typval_T argv[3];
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3541 int i;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3542
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3543 if (argvars[2].v_type == VAR_UNKNOWN)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3544 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3545 if (b == NULL || b->bv_ga.ga_len == 0)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3546 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3547 semsg(_(e_reduceempty), "Blob");
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3548 return;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3549 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3550 initial.v_type = VAR_NUMBER;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3551 initial.vval.v_number = blob_get(b, 0);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3552 i = 1;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3553 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3554 else if (argvars[2].v_type != VAR_NUMBER)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3555 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3556 emsg(_(e_number_expected));
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3557 return;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3558 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3559 else
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3560 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3561 initial = argvars[2];
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3562 i = 0;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3563 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3564
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3565 copy_tv(&initial, rettv);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3566 if (b == NULL)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3567 return;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3568
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3569 for ( ; i < b->bv_ga.ga_len; i++)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3570 {
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3571 argv[0] = *rettv;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3572 argv[1].v_type = VAR_NUMBER;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3573 argv[1].vval.v_number = blob_get(b, i);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3574 r = call_func(func_name, -1, rettv, 2, argv, funcexe);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3575 clear_tv(&argv[0]);
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3576 if (r == FAIL || called_emsg != called_emsg_start)
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3577 return;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3578 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3579 }
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3580
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3581 /*
23229
b545334ae654 patch 8.2.2160: various typos
Bram Moolenaar <Bram@vim.org>
parents: 23058
diff changeset
3582 * "reduce(list, { accumulator, element -> value } [, initial])" function
26676
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3583 * "reduce(blob, { accumulator, element -> value } [, initial])"
b856b797c5d1 patch 8.2.3867: implementation of some list functions too complicated
Bram Moolenaar <Bram@vim.org>
parents: 26640
diff changeset
3584 * "reduce(string, { accumulator, element -> value } [, initial])"
20649
1fa0ace0ba65 patch 8.2.0878: no reduce() function
Bram Moolenaar <Bram@vim.org>
parents: 20550
diff changeset
3585 */
1fa0ace0ba65 patch 8.2.0878: no reduce() function
Bram Moolenaar <Bram@vim.org>
parents: 20550
diff changeset
3586 void
1fa0ace0ba65 patch 8.2.0878: no reduce() function
Bram Moolenaar <Bram@vim.org>
parents: 20550
diff changeset
3587 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
3588 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function
Bram Moolenaar <Bram@vim.org>
parents: 20550
diff changeset
3589 char_u *func_name;
1fa0ace0ba65 patch 8.2.0878: no reduce() function
Bram Moolenaar <Bram@vim.org>
parents: 20550
diff changeset
3590 partial_T *partial = NULL;
1fa0ace0ba65 patch 8.2.0878: no reduce() function
Bram Moolenaar <Bram@vim.org>
parents: 20550
diff changeset
3591 funcexe_T funcexe;
26638
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
3592
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
3593 if (in_vim9script()
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
3594 && check_for_string_or_list_or_blob_arg(argvars, 0) == FAIL)
20649
1fa0ace0ba65 patch 8.2.0878: no reduce() function
Bram Moolenaar <Bram@vim.org>
parents: 20550
diff changeset
3595 return;
26638
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
3596
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
3597 if (argvars[0].v_type != VAR_STRING
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
3598 && argvars[0].v_type != VAR_LIST
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
3599 && argvars[0].v_type != VAR_BLOB)
26640
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3600 {
26638
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
3601 semsg(_(e_string_list_or_blob_required), "reduce()");
26640
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3602 return;
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3603 }
20649
1fa0ace0ba65 patch 8.2.0878: no reduce() function
Bram Moolenaar <Bram@vim.org>
parents: 20550
diff changeset
3604
1fa0ace0ba65 patch 8.2.0878: no reduce() function
Bram Moolenaar <Bram@vim.org>
parents: 20550
diff changeset
3605 if (argvars[1].v_type == VAR_FUNC)
1fa0ace0ba65 patch 8.2.0878: no reduce() function
Bram Moolenaar <Bram@vim.org>
parents: 20550
diff changeset
3606 func_name = argvars[1].vval.v_string;
1fa0ace0ba65 patch 8.2.0878: no reduce() function
Bram Moolenaar <Bram@vim.org>
parents: 20550
diff changeset
3607 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
3608 {
1fa0ace0ba65 patch 8.2.0878: no reduce() function
Bram Moolenaar <Bram@vim.org>
parents: 20550
diff changeset
3609 partial = argvars[1].vval.v_partial;
1fa0ace0ba65 patch 8.2.0878: no reduce() function
Bram Moolenaar <Bram@vim.org>
parents: 20550
diff changeset
3610 func_name = partial_name(partial);
1fa0ace0ba65 patch 8.2.0878: no reduce() function
Bram Moolenaar <Bram@vim.org>
parents: 20550
diff changeset
3611 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function
Bram Moolenaar <Bram@vim.org>
parents: 20550
diff changeset
3612 else
1fa0ace0ba65 patch 8.2.0878: no reduce() function
Bram Moolenaar <Bram@vim.org>
parents: 20550
diff changeset
3613 func_name = tv_get_string(&argvars[1]);
22794
42bb78d46354 patch 8.2.1945: crash when passing NULL function to reduce()
Bram Moolenaar <Bram@vim.org>
parents: 22770
diff changeset
3614 if (func_name == NULL || *func_name == NUL)
42bb78d46354 patch 8.2.1945: crash when passing NULL function to reduce()
Bram Moolenaar <Bram@vim.org>
parents: 22770
diff changeset
3615 {
42bb78d46354 patch 8.2.1945: crash when passing NULL function to reduce()
Bram Moolenaar <Bram@vim.org>
parents: 22770
diff changeset
3616 emsg(_(e_missing_function_argument));
42bb78d46354 patch 8.2.1945: crash when passing NULL function to reduce()
Bram Moolenaar <Bram@vim.org>
parents: 22770
diff changeset
3617 return;
42bb78d46354 patch 8.2.1945: crash when passing NULL function to reduce()
Bram Moolenaar <Bram@vim.org>
parents: 22770
diff changeset
3618 }
20649
1fa0ace0ba65 patch 8.2.0878: no reduce() function
Bram Moolenaar <Bram@vim.org>
parents: 20550
diff changeset
3619
26534
28745eec1dda patch 8.2.3796: the funcexe_T struct members are not named consistently
Bram Moolenaar <Bram@vim.org>
parents: 26439
diff changeset
3620 CLEAR_FIELD(funcexe);
28745eec1dda patch 8.2.3796: the funcexe_T struct members are not named consistently
Bram Moolenaar <Bram@vim.org>
parents: 26439
diff changeset
3621 funcexe.fe_evaluate = TRUE;
28745eec1dda patch 8.2.3796: the funcexe_T struct members are not named consistently
Bram Moolenaar <Bram@vim.org>
parents: 26439
diff changeset
3622 funcexe.fe_partial = partial;
20649
1fa0ace0ba65 patch 8.2.0878: no reduce() function
Bram Moolenaar <Bram@vim.org>
parents: 20550
diff changeset
3623
1fa0ace0ba65 patch 8.2.0878: no reduce() function
Bram Moolenaar <Bram@vim.org>
parents: 20550
diff changeset
3624 if (argvars[0].v_type == VAR_LIST)
26640
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3625 reduce_list(argvars, func_name, &funcexe, rettv);
26638
6fd15d82e898 patch 8.2.3848: cannot use reduce() for a string
Bram Moolenaar <Bram@vim.org>
parents: 26585
diff changeset
3626 else if (argvars[0].v_type == VAR_STRING)
26640
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3627 reduce_string(argvars, func_name, &funcexe, rettv);
20649
1fa0ace0ba65 patch 8.2.0878: no reduce() function
Bram Moolenaar <Bram@vim.org>
parents: 20550
diff changeset
3628 else
26640
7c055fdd6200 patch 8.2.3849: functions implementing reduce and map are too long
Bram Moolenaar <Bram@vim.org>
parents: 26638
diff changeset
3629 reduce_blob(argvars, func_name, &funcexe, rettv);
20649
1fa0ace0ba65 patch 8.2.0878: no reduce() function
Bram Moolenaar <Bram@vim.org>
parents: 20550
diff changeset
3630 }
1fa0ace0ba65 patch 8.2.0878: no reduce() function
Bram Moolenaar <Bram@vim.org>
parents: 20550
diff changeset
3631
17964
6d4d3bce365d patch 8.1.1978: the eval.c file is too big
Bram Moolenaar <Bram@vim.org>
parents: 17789
diff changeset
3632 #endif // defined(FEAT_EVAL)