vim-55/src/eval.c

6  * Do ":help credits" in Vim to see a list of people who contributed.
39 #define DO_NOT_FREE_CNT 99999	/* refcount for dict or list that should not
64  * For an index in a list:
67  *	"tv"	    points to the (first) list item value
68  *	"li"	    points to the (first) list item
69  *	"range", "n1", "n2" and "empty2" indicate what items are used.
88     listitem_T	*ll_li;		/* The list item or NULL. */
89     list_T	*ll_list;	/* The list or NULL. */
90     int		ll_range;	/* TRUE when a [i:j] range was used */
91     long	ll_n1;		/* First index for list */
92     long	ll_n2;		/* Second index for list range */
101 static char *e_listidx = N_("E684: list index out of range: %ld");
204 #define FC_RANGE    2		/* function accepts range */
215 /* list heads for garbage collection */
216 static dict_T		*first_dict = NULL;	/* list of all dicts */
217 static list_T		*first_list = NULL;	/* list of all lists */
249     list_T	l_varlist;	/* list for a:000 */
267     int		fi_varcount;	/* nr of variables in the list */
269     list_T	*fi_list;	/* list being used */
980 /* pointer to list of previously used funccal, still around because some
1058     /* Parse the variable name (can be a dict or list entry). */
1468  * Evaluate an expression to a list with suggestions.
1479     list_T	*list = NULL;
1494 	    list = rettv.vval.v_list;
1501     return list;
1505  * "list" is supposed to contain two items: a word and a number.  Return the
1511 get_spellword(list, pp)
1512     list_T	*list;
1517     li = list->lv_first;
1817  * ":let"			list all variable values
1818  * ":let var1 var2"		list variable values
1823  * ":let [var1, var2] = expr"	unpack list.
1848 	 * ":let" without "=": list variables
1901  * Handles both "var" with any type and "[var, var; var]" with a list type.
1925 	 * ":let var = expr" or ":for var in list"
1933      * ":let [v1, v2] = list" or ":for [v1, v2] in listlist"
1965 	    /* Put the rest of the list (may be empty) in the var after ';'.
1966 	     * Create a new list for this. */
1999  * Skip over assignable variable "var" or list of variables "[var, var]".
2035 		    EMSG(_("Double ; in list of variables"));
2068  * If "empty" is TRUE also list NULL strings as empty strings.
2254 					  EMSG2(_("E738: Can't list variables for %s"), name);
2290  * Set one item of ":let var = expr" or ":let [v1, v2] = list" to its value.
2778 	     * index of a range.
2867 	 * Assign the List values to the list items.
2933 	 * Assign the value to the variable or list item.
3052  * Add a watcher to a list.
3064  * Remove a watcher from a list.
3087  * Just before removing an item from a list: advance watchers to the next
3153 		 * list being used in "tv". */
3167  * Use the first item in a ":for" list.  Advance to the next.
3168  * Assign the values to the variable (list).  "arg" points to the first one.
3169  * Return TRUE when a valid item was found, FALSE when at end of list or
3373      * When the function takes a range, this is discovered after the first
3379 	lnum = eap->line2;	/* do it once, also with an invalid range */
3553 	/* Delete a range of List items. */
3656 	/* (un)lock a range of List items. */
3830  * Function given to ExpandGeneric() to obtain the list of user defined
4568 	    /* For "list + ...", an illegal use of the first operand as
4570 	     * operand: if this is also a list, all is ok.
4571 	     * For "something . ...", "something - ..." or "non-list + ...",
4642 			/* This can only happen for "list + non-list".  For
4643 			 * "non-list + ..." or "something - ...", we returned
5191     int		range = FALSE;
5242 	    range = TRUE;
5268 	    if (range)
5283 	if (range)
5300 		if (range)
5303 		     * are out of range the result is empty. */
5340 		    /* For a range we allow invalid values and return an empty
5341 		     * list.  A list index out of range is an error. */
5342 		    if (!range)
5350 		if (range)
5388 		if (range)
5785  * Allocate an empty header for a list.
5796 	/* Prepend the list to the list of lists for garbage collection. */
5807  * Allocate an empty list for a return value.
5826  * Unreference a list: decrement the reference count and free it when it
5838  * Free a list, including all items it points to.
5848     /* Remove the list from the list of lists for garbage collection. */
5869  * Allocate a list item.
5878  * Free a list item.  Also clears the value.  Does not notify watchers.
5889  * Remove a list item from a List and free it.  Also clears the value.
5901  * Get the number of items in a list.
6048  * Locate item with index "n" in list "l" and return it.
6050  * Returns NULL when "n" is out of range.
6067     /* Check for index out of range. */
6076 	    /* closest to the start of the list */
6082 	    /* closest to the end of the list */
6097 	    /* closest to the start of the list */
6103 	    /* closest to the end of the list */
6130  * Get list item "l[idx]" as a number.
6151  * Get list item "l[idx - 1]" as a string.  Returns NULL for failure.
6170  * Locate "item" list "l" and return its index.
6171  * Returns -1 when "item" is not in the list.
6192  * Append item "item" to the end of list "l".
6201 	/* empty list */
6217  * Append typval_T "tv" to the end of list "l".
6235  * Add a dictionary to a list.  Used by getqflist().
6239 list_append_dict(list, dict)
6240     list_T	*list;
6250     list_append(list, li);
6256  * Make a copy of "str" and append it as an item to list "l".
6282  * Append "n" to list "l".
6303  * Insert typval_T "tv" in list "l" before "item".
6319 	/* Append new item at end of list. */
6357      * the list, avoid a hang when we extend a list with itself. */
6365  * Concatenate lists "l1" and "l2" into a new list, stored in "tv".
6379     /* make a copy of the first list. */
6386     /* append all items from the second list */
6391  * Make a copy of list "orig".  Shallow if "deep" is FALSE.
6392  * The refcount of the new list is set to 1.
6415 	     * refer back to this list. */
6449  * Remove items "item" to "item2" from list "l".
6481  * Return an allocated string with the string representation of a list.
6506  * Join list "l" into a string in "*gap", using separator "sep".
6598     /* Don't free variables in the previous_funccal list unless they are only
6679      * Go through the list of dicts and free items without the copyID.
6685 	     * recurse into Lists and Dictionaries, they will be in the list
6686 	     * of dicts or list of lists. */
6697      * Go through the list of lists and free items without the copyID.
6698      * But don't free a list that has a watcher (used in a for loop), these
6706 	     * into Lists and Dictionaries, they will be in the list of dicts
6707 	     * or list of lists. */
6711 	    /* restart, next list may also have been freed */
6741  * Mark all lists and dicts referenced through list "l" with "copyID".
6781 		/* Didn't see this list yet. */
6801 	/* Add the list to the list of dicts for garbage collection. */
6861     /* Remove the dict from the list of dicts for garbage collection. */
7078  * Add a list  entry to dictionary "d".
7082 dict_add_list(d, key, list)
7085     list_T	*list;
7094     item->di_tv.vval.v_list = list;
7832     {"range",		1, 3, f_range},
7941  * Function given to ExpandGeneric() to obtain the list of internal
7973  * Function given to ExpandGeneric() to obtain the list of internal or
8098     linenr_T	firstline;	/* first line of range */
8099     linenr_T	lastline;	/* last line of range */
8100     int		*doesrange;	/* return: function handled range */
8165     linenr_T	firstline;	/* first line of range */
8166     linenr_T	lastline;	/* last line of range */
8167     int		*doesrange;	/* return: function handled range */
8487  * "add(list, item)" function
8509  * "append(lnum, string/list)" function
8540 		break;			/* end of list */
8542 		tv = &li->li_tv;	/* append item from list */
9032 	 * v_lock to VAR_FIXED in the copy without changing the original list.
9891  * "extend(list, list [, idx])" function
10302 	/* map(): replace the list item value */
10740  * Get line or list of lines from buffer "buf" into "rettv".
10741  * Return a range (from start to end) of lines in rettv from the specified
12949  * Turn a dict into a list:
12950  * "what" == 0: list of keys
12951  * "what" == 1: list of values
12952  * "what" == 2: list of items
13434 	/* return empty list when there are no matches */
13542 		/* return list with matched string and submatches */
14129  * "range()" function
14188     int		tolist;	    /* first byte in buf[] still to be put in list */
14227 		/* Only when in binary mode add an empty list item when the
14233 		 * list. */
14740 		/* Remove range of items, return list with values. */
15041  * "reverse({list})" function
15754 	    /* list argument, get next string */
15872 	/* To some extent make sure that we are dealing with a list from
16312      * in the copy without changing the original list items. */
16333  * "sort({list})" function
16359 	    return;	/* short list sorts pretty quickly */
17585  * "test(list)" function: Just checking the walls...
17907 	list_T *list;
17917 	list = list_alloc();
17918 	if (list != NULL)
17920 	    u_eval_tree(curbuf->b_u_oldhead, list);
17921 	    dict_add_list(dict, "entries", list);
18378  * Convert list in "arg" into a position and optional file number.
19394  * Find variable "name" in the list of variables.
19593  * Clean up a list of internal variables.
19924  * Does not make a copy of a list or dict but copies the reference!
19984  * reference to an already copied list/dict can be used.
20331      * ":function" without argument: list functions.
20354      * ":function /pat": list functions matching pattern.
20433      * ":function func" with only function name: list function.
20569     /* find extra arguments "range", "dict" and "abort" */
20573 	if (STRNCMP(p, "range", 5) == 0)
20907 	/* insert the new function in the function list */
21488     /* Find the name in the list of previously loaded package names.  Skip
21540  * Function given to ExpandGeneric() to obtain the list of user defined
21661  * Free a function and remove it from the list of functions.
21741     linenr_T	firstline;	/* first line of range */
21742     linenr_T	lastline;	/* last line of range */
21814      * Set a:000 to a list with room for the "..." arguments.
22049     /* If the a:000 list and the l: and a: dicts are not referenced we can
22065 	 * Link "fc" in the list for garbage collection later. */