vim: src/userfunc.c annotate

annotate src/userfunc.c @ 21598:7b5b9558500a v8.2.1349

patch 8.2.1349: Vim9: can define a function with the name of an import Commit: https://github.com/vim/vim/commit/eef2102e20d24f5fbd1c9f53c7a35df61585c5ab Author: Bram Moolenaar <Bram@vim.org> Date: Sat Aug 1 22:16:43 2020 +0200 patch 8.2.1349: Vim9: can define a function with the name of an import Problem: Vim9: can define a function with the name of an import. Solution: Disallow using an existing name. (closes https://github.com/vim/vim/issues/6585)

author	Bram Moolenaar <Bram@vim.org>
date	Sat, 01 Aug 2020 22:30:04 +0200
parents	5470c36ed7e6
children	a640bc762196

rev	line source
10042 4aead6a9b7a9 commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47 Christian Brabandt <cb@256bit.org> parents: 9951 diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2 *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4 *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	6 * Do ":help credits" in Vim to see a list of people who contributed.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	7 * See README.txt for an overview of the Vim source code.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	8 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	9
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	10 /*
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 18104 diff changeset	11 * userfunc.c: User defined function support
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	12 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	13
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	14 #include "vim.h"
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	15
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	16 #if defined(FEAT_EVAL) \|\| defined(PROTO)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	17 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	18 * All user-defined functions are found in this hashtable.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	19 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	20 static hashtab_T func_hashtab;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	21
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	22 // Used by get_func_tv()
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	23 static garray_T funcargs = GA_EMPTY;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	24
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	25 // pointer to funccal for currently active function
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	26 static funccall_T *current_funccal = NULL;
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	27
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	28 // Pointer to list of previously used funccal, still around because some
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	29 // item in it is still being used.
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	30 static funccall_T *previous_funccal = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	31
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	32 static char *e_funcexts = N_("E122: Function %s already exists, add ! to replace it");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	33 static char *e_funcdict = N_("E717: Dictionary entry already exists");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	34 static char *e_funcref = N_("E718: Funcref required");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	35 static char *e_nofunc = N_("E130: Unknown function: %s");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	36
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	37 static void funccal_unref(funccall_T fc, ufunc_T fp, int force);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	38
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	39 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	40 func_init()
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	41 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	42 hash_init(&func_hashtab);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	43 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	44
9597 3ca0fd9709b1 commit https://github.com/vim/vim/commit/4f0383bc3fe5af0229fb66b53fe94329af783eff Christian Brabandt <cb@256bit.org> parents: 9593 diff changeset	45 /*
17381 8f44c630c366 patch 8.1.1689: profiling code is spread out Bram Moolenaar <Bram@vim.org> parents: 17370 diff changeset	46 * Return the function hash table
8f44c630c366 patch 8.1.1689: profiling code is spread out Bram Moolenaar <Bram@vim.org> parents: 17370 diff changeset	47 */
8f44c630c366 patch 8.1.1689: profiling code is spread out Bram Moolenaar <Bram@vim.org> parents: 17370 diff changeset	48 hashtab_T *
8f44c630c366 patch 8.1.1689: profiling code is spread out Bram Moolenaar <Bram@vim.org> parents: 17370 diff changeset	49 func_tbl_get(void)
8f44c630c366 patch 8.1.1689: profiling code is spread out Bram Moolenaar <Bram@vim.org> parents: 17370 diff changeset	50 {
8f44c630c366 patch 8.1.1689: profiling code is spread out Bram Moolenaar <Bram@vim.org> parents: 17370 diff changeset	51 return &func_hashtab;
8f44c630c366 patch 8.1.1689: profiling code is spread out Bram Moolenaar <Bram@vim.org> parents: 17370 diff changeset	52 }
8f44c630c366 patch 8.1.1689: profiling code is spread out Bram Moolenaar <Bram@vim.org> parents: 17370 diff changeset	53
8f44c630c366 patch 8.1.1689: profiling code is spread out Bram Moolenaar <Bram@vim.org> parents: 17370 diff changeset	54 /*
20029 8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	55 * Get one function argument.
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	56 * If "argtypes" is not NULL also get the type: "arg: type".
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	57 * Return a pointer to after the type.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	58 * When something is wrong return "arg".
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	59 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	60 static char_u *
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	61 one_function_arg(char_u arg, garray_T newargs, garray_T *argtypes, int skip)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	62 {
20029 8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	63 char_u *p = arg;
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	64 char_u *arg_copy = NULL;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	65
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	66 while (ASCII_ISALNUM(p) \|\| p == '_')
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	67 ++p;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	68 if (arg == p \|\| isdigit(*arg)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	69 \|\| (p - arg == 9 && STRNCMP(arg, "firstline", 9) == 0)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	70 \|\| (p - arg == 8 && STRNCMP(arg, "lastline", 8) == 0))
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	71 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	72 if (!skip)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	73 semsg(_("E125: Illegal argument: %s"), arg);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	74 return arg;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	75 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	76 if (newargs != NULL && ga_grow(newargs, 1) == FAIL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	77 return arg;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	78 if (newargs != NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	79 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	80 int c;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	81 int i;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	82
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	83 c = *p;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	84 *p = NUL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	85 arg_copy = vim_strsave(arg);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	86 if (arg_copy == NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	87 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	88 *p = c;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	89 return arg;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	90 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	91
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	92 // Check for duplicate argument name.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	93 for (i = 0; i < newargs->ga_len; ++i)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	94 if (STRCMP(((char_u **)(newargs->ga_data))[i], arg_copy) == 0)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	95 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	96 semsg(_("E853: Duplicate argument name: %s"), arg_copy);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	97 vim_free(arg_copy);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	98 return arg;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	99 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	100 ((char_u **)(newargs->ga_data))[newargs->ga_len] = arg_copy;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	101 newargs->ga_len++;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	102
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	103 *p = c;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	104 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	105
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	106 // get any type from "arg: type"
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	107 if (argtypes != NULL && ga_grow(argtypes, 1) == OK)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	108 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	109 char_u *type = NULL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	110
20029 8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	111 if (VIM_ISWHITE(p) && skipwhite(p) == ':')
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	112 {
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	113 semsg(_("E1059: No white space allowed before colon: %s"),
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	114 arg_copy == NULL ? arg : arg_copy);
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	115 p = skipwhite(p);
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	116 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	117 if (*p == ':')
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	118 {
20142 fe8d0a4344df patch 8.2.0626: Vim9: wrong syntax of function in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 20138 diff changeset	119 ++p;
fe8d0a4344df patch 8.2.0626: Vim9: wrong syntax of function in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 20138 diff changeset	120 if (!VIM_ISWHITE(*p))
fe8d0a4344df patch 8.2.0626: Vim9: wrong syntax of function in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 20138 diff changeset	121 {
fe8d0a4344df patch 8.2.0626: Vim9: wrong syntax of function in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 20138 diff changeset	122 semsg(_(e_white_after), ":");
fe8d0a4344df patch 8.2.0626: Vim9: wrong syntax of function in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 20138 diff changeset	123 return arg;
fe8d0a4344df patch 8.2.0626: Vim9: wrong syntax of function in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 20138 diff changeset	124 }
fe8d0a4344df patch 8.2.0626: Vim9: wrong syntax of function in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 20138 diff changeset	125 type = skipwhite(p);
21500 574517d682cf patch 8.2.1300: Vim9: optional argument type not parsed properly Bram Moolenaar <Bram@vim.org> parents: 21479 diff changeset	126 p = skip_type(type, TRUE);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	127 type = vim_strnsave(type, p - type);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	128 }
20029 8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	129 else if (*skipwhite(p) != '=')
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	130 {
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	131 semsg(_("E1077: Missing argument type for %s"),
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	132 arg_copy == NULL ? arg : arg_copy);
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	133 return arg;
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	134 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	135 ((char_u **)argtypes->ga_data)[argtypes->ga_len++] = type;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	136 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	137
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	138 return p;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	139 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	140
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	141 /*
9597 3ca0fd9709b1 commit https://github.com/vim/vim/commit/4f0383bc3fe5af0229fb66b53fe94329af783eff Christian Brabandt <cb@256bit.org> parents: 9593 diff changeset	142 * Get function arguments.
3ca0fd9709b1 commit https://github.com/vim/vim/commit/4f0383bc3fe5af0229fb66b53fe94329af783eff Christian Brabandt <cb@256bit.org> parents: 9593 diff changeset	143 */
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	144 int
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	145 get_function_args(
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	146 char_u **argp,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	147 char_u endchar,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	148 garray_T *newargs,
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	149 garray_T *argtypes, // NULL unless using :def
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	150 int *varargs,
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	151 garray_T *default_args,
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	152 int skip,
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	153 exarg_T *eap,
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	154 char_u **line_to_free)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	155 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	156 int mustend = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	157 char_u arg = argp;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	158 char_u *p = arg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	159 int c;
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	160 int any_default = FALSE;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	161 char_u *expr;
20023 c85d4e173cc9 patch 8.2.0567: Vim9: cannot put comments halfway expressions Bram Moolenaar <Bram@vim.org> parents: 20015 diff changeset	162 char_u *whitep = arg;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	163
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	164 if (newargs != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	165 ga_init2(newargs, (int)sizeof(char_u *), 3);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	166 if (argtypes != NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	167 ga_init2(argtypes, (int)sizeof(char_u *), 3);
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	168 if (default_args != NULL)
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	169 ga_init2(default_args, (int)sizeof(char_u *), 3);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	170
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	171 if (varargs != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	172 *varargs = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	173
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	174 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	175 * Isolate the arguments: "arg1, arg2, ...)"
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	176 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	177 while (*p != endchar)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	178 {
20023 c85d4e173cc9 patch 8.2.0567: Vim9: cannot put comments halfway expressions Bram Moolenaar <Bram@vim.org> parents: 20015 diff changeset	179 while (eap != NULL && eap->getline != NULL
c85d4e173cc9 patch 8.2.0567: Vim9: cannot put comments halfway expressions Bram Moolenaar <Bram@vim.org> parents: 20015 diff changeset	180 && (p == NUL \|\| (VIM_ISWHITE(whitep) && *p == '#')))
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	181 {
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	182 char_u *theline;
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	183
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	184 // End of the line, get the next one.
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	185 theline = eap->getline(':', eap->cookie, 0, TRUE);
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	186 if (theline == NULL)
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	187 break;
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	188 vim_free(*line_to_free);
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	189 *line_to_free = theline;
20023 c85d4e173cc9 patch 8.2.0567: Vim9: cannot put comments halfway expressions Bram Moolenaar <Bram@vim.org> parents: 20015 diff changeset	190 whitep = (char_u *)" ";
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	191 p = skipwhite(theline);
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	192 }
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	193
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	194 if (mustend && *p != endchar)
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	195 {
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	196 if (!skip)
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	197 semsg(_(e_invarg2), *argp);
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	198 break;
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	199 }
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	200 if (*p == endchar)
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	201 break;
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	202
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	203 if (p[0] == '.' && p[1] == '.' && p[2] == '.')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	204 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	205 if (varargs != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	206 *varargs = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	207 p += 3;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	208 mustend = TRUE;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	209
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	210 if (argtypes != NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	211 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	212 // ...name: list<type>
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	213 if (!ASCII_ISALPHA(*p))
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	214 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	215 emsg(_("E1055: Missing name after ..."));
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	216 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	217 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	218
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	219 arg = p;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	220 p = one_function_arg(p, newargs, argtypes, skip);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	221 if (p == arg)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	222 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	223 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	224 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	225 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	226 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	227 arg = p;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	228 p = one_function_arg(p, newargs, argtypes, skip);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	229 if (p == arg)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	230 break;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	231
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	232 if (*skipwhite(p) == '=' && default_args != NULL)
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	233 {
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	234 typval_T rettv;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	235
19328 e99e6d794597 patch 8.2.0222: Vim9: optional function arguments don't work yet Bram Moolenaar <Bram@vim.org> parents: 19297 diff changeset	236 // find the end of the expression (doesn't evaluate it)
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	237 any_default = TRUE;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	238 p = skipwhite(p) + 1;
20023 c85d4e173cc9 patch 8.2.0567: Vim9: cannot put comments halfway expressions Bram Moolenaar <Bram@vim.org> parents: 20015 diff changeset	239 whitep = p;
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	240 p = skipwhite(p);
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	241 expr = p;
20992 7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function Bram Moolenaar <Bram@vim.org> parents: 20945 diff changeset	242 if (eval1(&p, &rettv, NULL) != FAIL)
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	243 {
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	244 if (ga_grow(default_args, 1) == FAIL)
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	245 goto err_ret;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	246
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	247 // trim trailing whitespace
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	248 while (p > expr && VIM_ISWHITE(p[-1]))
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	249 p--;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	250 c = *p;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	251 *p = NUL;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	252 expr = vim_strsave(expr);
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	253 if (expr == NULL)
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	254 {
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	255 *p = c;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	256 goto err_ret;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	257 }
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	258 ((char_u **)(default_args->ga_data))
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	259 [default_args->ga_len] = expr;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	260 default_args->ga_len++;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	261 *p = c;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	262 }
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	263 else
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	264 mustend = TRUE;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	265 }
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	266 else if (any_default)
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	267 {
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	268 emsg(_("E989: Non-default argument follows default argument"));
21263 71bd2f9adb61 patch 8.2.1182: Vim9: no check for whitespace after comma in lambda Bram Moolenaar <Bram@vim.org> parents: 21222 diff changeset	269 goto err_ret;
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	270 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	271 if (*p == ',')
21263 71bd2f9adb61 patch 8.2.1182: Vim9: no check for whitespace after comma in lambda Bram Moolenaar <Bram@vim.org> parents: 21222 diff changeset	272 {
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	273 ++p;
21263 71bd2f9adb61 patch 8.2.1182: Vim9: no check for whitespace after comma in lambda Bram Moolenaar <Bram@vim.org> parents: 21222 diff changeset	274 // Don't give this error when skipping, it makes the "->" not
71bd2f9adb61 patch 8.2.1182: Vim9: no check for whitespace after comma in lambda Bram Moolenaar <Bram@vim.org> parents: 21222 diff changeset	275 // found in "{k,v -> x}" and give a confusing error.
71bd2f9adb61 patch 8.2.1182: Vim9: no check for whitespace after comma in lambda Bram Moolenaar <Bram@vim.org> parents: 21222 diff changeset	276 if (!skip && in_vim9script()
71bd2f9adb61 patch 8.2.1182: Vim9: no check for whitespace after comma in lambda Bram Moolenaar <Bram@vim.org> parents: 21222 diff changeset	277 && !IS_WHITE_OR_NUL(p) && p != endchar)
71bd2f9adb61 patch 8.2.1182: Vim9: no check for whitespace after comma in lambda Bram Moolenaar <Bram@vim.org> parents: 21222 diff changeset	278 {
71bd2f9adb61 patch 8.2.1182: Vim9: no check for whitespace after comma in lambda Bram Moolenaar <Bram@vim.org> parents: 21222 diff changeset	279 semsg(_(e_white_after), ",");
71bd2f9adb61 patch 8.2.1182: Vim9: no check for whitespace after comma in lambda Bram Moolenaar <Bram@vim.org> parents: 21222 diff changeset	280 goto err_ret;
71bd2f9adb61 patch 8.2.1182: Vim9: no check for whitespace after comma in lambda Bram Moolenaar <Bram@vim.org> parents: 21222 diff changeset	281 }
71bd2f9adb61 patch 8.2.1182: Vim9: no check for whitespace after comma in lambda Bram Moolenaar <Bram@vim.org> parents: 21222 diff changeset	282 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	283 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	284 mustend = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	285 }
20023 c85d4e173cc9 patch 8.2.0567: Vim9: cannot put comments halfway expressions Bram Moolenaar <Bram@vim.org> parents: 20015 diff changeset	286 whitep = p;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	287 p = skipwhite(p);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	288 }
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	289
9597 3ca0fd9709b1 commit https://github.com/vim/vim/commit/4f0383bc3fe5af0229fb66b53fe94329af783eff Christian Brabandt <cb@256bit.org> parents: 9593 diff changeset	290 if (*p != endchar)
3ca0fd9709b1 commit https://github.com/vim/vim/commit/4f0383bc3fe5af0229fb66b53fe94329af783eff Christian Brabandt <cb@256bit.org> parents: 9593 diff changeset	291 goto err_ret;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	292 ++p; // skip "endchar"
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	293
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	294 *argp = p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	295 return OK;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	296
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	297 err_ret:
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	298 if (newargs != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	299 ga_clear_strings(newargs);
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	300 if (default_args != NULL)
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	301 ga_clear_strings(default_args);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	302 return FAIL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	303 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	304
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	305 /*
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	306 * Register function "fp" as using "current_funccal" as its scope.
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	307 */
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	308 static int
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	309 register_closure(ufunc_T *fp)
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	310 {
9733 59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	311 if (fp->uf_scoped == current_funccal)
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	312 // no change
9733 59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	313 return OK;
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	314 funccal_unref(fp->uf_scoped, fp, FALSE);
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	315 fp->uf_scoped = current_funccal;
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	316 current_funccal->fc_refcount++;
9733 59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	317
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	318 if (ga_grow(&current_funccal->fc_funcs, 1) == FAIL)
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	319 return FAIL;
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	320 ((ufunc_T **)current_funccal->fc_funcs.ga_data)
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	321 [current_funccal->fc_funcs.ga_len++] = fp;
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	322 return OK;
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	323 }
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	324
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	325 static void
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	326 set_ufunc_name(ufunc_T fp, char_u name)
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	327 {
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	328 STRCPY(fp->uf_name, name);
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	329
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	330 if (name[0] == K_SPECIAL)
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	331 {
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	332 fp->uf_name_exp = alloc(STRLEN(name) + 3);
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	333 if (fp->uf_name_exp != NULL)
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	334 {
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	335 STRCPY(fp->uf_name_exp, "<SNR>");
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	336 STRCAT(fp->uf_name_exp, fp->uf_name + 3);
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	337 }
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	338 }
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	339 }
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	340
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	341 /*
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	342 * Get a name for a lambda. Returned in static memory.
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	343 */
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	344 char_u *
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	345 get_lambda_name(void)
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	346 {
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	347 static char_u name[30];
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	348 static int lambda_no = 0;
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	349
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	350 sprintf((char*)name, "<lambda>%d", ++lambda_no);
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	351 return name;
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	352 }
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	353
21006 ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	354 #if defined(FEAT_LUA) \|\| defined(PROTO)
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	355 /*
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	356 * Registers a native C callback which can be called from Vim script.
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	357 * Returns the name of the Vim script function.
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	358 */
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	359 char_u *
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	360 register_cfunc(cfunc_T cb, cfunc_free_T cb_free, void *state)
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	361 {
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	362 char_u *name = get_lambda_name();
21066 48cfc37fe4fc patch 8.2.1084: Lua: registering function has useless code Bram Moolenaar <Bram@vim.org> parents: 21058 diff changeset	363 ufunc_T *fp;
21006 ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	364
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	365 fp = alloc_clear(offsetof(ufunc_T, uf_name) + STRLEN(name) + 1);
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	366 if (fp == NULL)
21066 48cfc37fe4fc patch 8.2.1084: Lua: registering function has useless code Bram Moolenaar <Bram@vim.org> parents: 21058 diff changeset	367 return NULL;
21006 ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	368
21558 1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	369 fp->uf_def_status = UF_NOT_COMPILED;
21006 ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	370 fp->uf_refcount = 1;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	371 fp->uf_varargs = TRUE;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	372 fp->uf_flags = FC_CFUNC;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	373 fp->uf_calls = 0;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	374 fp->uf_script_ctx = current_sctx;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	375 fp->uf_cb = cb;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	376 fp->uf_cb_free = cb_free;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	377 fp->uf_cb_state = state;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	378
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	379 set_ufunc_name(fp, name);
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	380 hash_add(&func_hashtab, UF2HIKEY(fp));
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	381
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	382 return name;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	383 }
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	384 #endif
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	385
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	386 /*
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	387 * Parse a lambda expression and get a Funcref from "*arg".
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	388 * Return OK or FAIL. Returns NOTDONE for dict or {expr}.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	389 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	390 int
21040 d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	391 get_lambda_tv(char_u *arg, typval_T rettv, evalarg_T *evalarg)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	392 {
21040 d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	393 int evaluate = evalarg != NULL
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	394 && (evalarg->eval_flags & EVAL_EVALUATE);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	395 garray_T newargs;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	396 garray_T newlines;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	397 garray_T *pnewargs;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	398 ufunc_T *fp = NULL;
15820 bd75c9df2a14 patch 8.1.0917: double free when running out of memory Bram Moolenaar <Bram@vim.org> parents: 15780 diff changeset	399 partial_T *pt = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	400 int varargs;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	401 int ret;
21220 ad13736a1783 patch 8.2.1161: Vim9: using freed memory Bram Moolenaar <Bram@vim.org> parents: 21218 diff changeset	402 char_u *s;
ad13736a1783 patch 8.2.1161: Vim9: using freed memory Bram Moolenaar <Bram@vim.org> parents: 21218 diff changeset	403 char_u start, end;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	404 int *old_eval_lavars = eval_lavars_used;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	405 int eval_lavars = FALSE;
21040 d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	406 char_u *tofree = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	407
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	408 ga_init(&newargs);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	409 ga_init(&newlines);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	410
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	411 // First, check if this is a lambda expression. "->" must exist.
21220 ad13736a1783 patch 8.2.1161: Vim9: using freed memory Bram Moolenaar <Bram@vim.org> parents: 21218 diff changeset	412 s = skipwhite(*arg + 1);
ad13736a1783 patch 8.2.1161: Vim9: using freed memory Bram Moolenaar <Bram@vim.org> parents: 21218 diff changeset	413 ret = get_function_args(&s, '-', NULL, NULL, NULL, NULL, TRUE,
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	414 NULL, NULL);
21220 ad13736a1783 patch 8.2.1161: Vim9: using freed memory Bram Moolenaar <Bram@vim.org> parents: 21218 diff changeset	415 if (ret == FAIL \|\| *s != '>')
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	416 return NOTDONE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	417
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	418 // Parse the arguments again.
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	419 if (evaluate)
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	420 pnewargs = &newargs;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	421 else
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	422 pnewargs = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	423 arg = skipwhite(arg + 1);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	424 // TODO: argument types
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	425 ret = get_function_args(arg, '-', pnewargs, NULL, &varargs, NULL, FALSE,
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	426 NULL, NULL);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	427 if (ret == FAIL \|\| **arg != '>')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	428 goto errret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	429
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	430 // Set up a flag for checking local variables and arguments.
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	431 if (evaluate)
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	432 eval_lavars_used = &eval_lavars;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	433
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	434 // Get the start and the end of the expression.
21046 0ca7e04d39e3 patch 8.2.1074: Vim9: no line break allowed after some operators Bram Moolenaar <Bram@vim.org> parents: 21040 diff changeset	435 arg = skipwhite_and_linebreak(arg + 1, evalarg);
21220 ad13736a1783 patch 8.2.1161: Vim9: using freed memory Bram Moolenaar <Bram@vim.org> parents: 21218 diff changeset	436 start = *arg;
ad13736a1783 patch 8.2.1161: Vim9: using freed memory Bram Moolenaar <Bram@vim.org> parents: 21218 diff changeset	437 ret = skip_expr_concatenate(arg, &start, &end, evalarg);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	438 if (ret == FAIL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	439 goto errret;
21040 d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	440 if (evalarg != NULL)
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	441 {
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	442 // avoid that the expression gets freed when another line break follows
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	443 tofree = evalarg->eval_tofree;
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	444 evalarg->eval_tofree = NULL;
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	445 }
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	446
21046 0ca7e04d39e3 patch 8.2.1074: Vim9: no line break allowed after some operators Bram Moolenaar <Bram@vim.org> parents: 21040 diff changeset	447 arg = skipwhite_and_linebreak(arg, evalarg);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	448 if (**arg != '}')
19826 293a22b677a8 patch 8.2.0469: Vim9: no error for missing ] after list Bram Moolenaar <Bram@vim.org> parents: 19685 diff changeset	449 {
293a22b677a8 patch 8.2.0469: Vim9: no error for missing ] after list Bram Moolenaar <Bram@vim.org> parents: 19685 diff changeset	450 semsg(_("E451: Expected }: %s"), *arg);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	451 goto errret;
19826 293a22b677a8 patch 8.2.0469: Vim9: no error for missing ] after list Bram Moolenaar <Bram@vim.org> parents: 19685 diff changeset	452 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	453 ++*arg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	454
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	455 if (evaluate)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	456 {
21040 d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	457 int len;
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	458 int flags = 0;
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	459 char_u *p;
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	460 char_u *name = get_lambda_name();
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	461
17659 121bdff812b4 patch 8.1.1827: allocating more memory than needed for extended structs Bram Moolenaar <Bram@vim.org> parents: 17646 diff changeset	462 fp = alloc_clear(offsetof(ufunc_T, uf_name) + STRLEN(name) + 1);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	463 if (fp == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	464 goto errret;
20943 1693ca876049 patch 8.2.1023: Vim9: redefining a function uses a new index every time Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	465 fp->uf_def_status = UF_NOT_COMPILED;
16825 ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u " causes a lot of type casts Bram Moolenaar <Bram@vim.org>* parents: 16768 diff changeset	466 pt = ALLOC_CLEAR_ONE(partial_T);
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	467 if (pt == NULL)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	468 goto errret;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	469
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	470 ga_init2(&newlines, (int)sizeof(char_u *), 1);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	471 if (ga_grow(&newlines, 1) == FAIL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	472 goto errret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	473
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	474 // Add "return " before the expression.
21220 ad13736a1783 patch 8.2.1161: Vim9: using freed memory Bram Moolenaar <Bram@vim.org> parents: 21218 diff changeset	475 len = 7 + (int)(end - start) + 1;
16825 ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u " causes a lot of type casts Bram Moolenaar <Bram@vim.org>* parents: 16768 diff changeset	476 p = alloc(len);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	477 if (p == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	478 goto errret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	479 ((char_u **)(newlines.ga_data))[newlines.ga_len++] = p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	480 STRCPY(p, "return ");
21220 ad13736a1783 patch 8.2.1161: Vim9: using freed memory Bram Moolenaar <Bram@vim.org> parents: 21218 diff changeset	481 vim_strncpy(p + 7, start, end - start);
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	482 if (strstr((char *)p + 7, "a:") == NULL)
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	483 // No a: variables are used for sure.
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	484 flags \|= FC_NOARGS;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	485
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	486 fp->uf_refcount = 1;
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	487 set_ufunc_name(fp, name);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	488 hash_add(&func_hashtab, UF2HIKEY(fp));
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	489 fp->uf_args = newargs;
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	490 ga_init(&fp->uf_def_args);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	491 fp->uf_lines = newlines;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	492 if (current_funccal != NULL && eval_lavars)
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	493 {
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	494 flags \|= FC_CLOSURE;
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	495 if (register_closure(fp) == FAIL)
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	496 goto errret;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	497 }
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	498 else
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	499 fp->uf_scoped = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	500
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	501 #ifdef FEAT_PROFILE
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	502 if (prof_def_func())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	503 func_do_profile(fp);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	504 #endif
14323 9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	505 if (sandbox)
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	506 flags \|= FC_SANDBOX;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	507 // can be called with more args than uf_args.ga_len
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	508 fp->uf_varargs = TRUE;
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	509 fp->uf_flags = flags;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	510 fp->uf_calls = 0;
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14430 diff changeset	511 fp->uf_script_ctx = current_sctx;
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	512 fp->uf_script_ctx.sc_lnum += SOURCING_LNUM - newlines.ga_len;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	513
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	514 pt->pt_func = fp;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	515 pt->pt_refcount = 1;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	516 rettv->vval.v_partial = pt;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	517 rettv->v_type = VAR_PARTIAL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	518 }
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	519
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	520 eval_lavars_used = old_eval_lavars;
21222 a4d00a2dadd6 patch 8.2.1162: crash when using a lambda Bram Moolenaar <Bram@vim.org> parents: 21220 diff changeset	521 if (evalarg != NULL && evalarg->eval_tofree == NULL)
21220 ad13736a1783 patch 8.2.1161: Vim9: using freed memory Bram Moolenaar <Bram@vim.org> parents: 21218 diff changeset	522 evalarg->eval_tofree = tofree;
ad13736a1783 patch 8.2.1161: Vim9: using freed memory Bram Moolenaar <Bram@vim.org> parents: 21218 diff changeset	523 else
ad13736a1783 patch 8.2.1161: Vim9: using freed memory Bram Moolenaar <Bram@vim.org> parents: 21218 diff changeset	524 vim_free(tofree);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	525 return OK;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	526
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	527 errret:
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	528 ga_clear_strings(&newargs);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	529 ga_clear_strings(&newlines);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	530 vim_free(fp);
15820 bd75c9df2a14 patch 8.1.0917: double free when running out of memory Bram Moolenaar <Bram@vim.org> parents: 15780 diff changeset	531 vim_free(pt);
21222 a4d00a2dadd6 patch 8.2.1162: crash when using a lambda Bram Moolenaar <Bram@vim.org> parents: 21220 diff changeset	532 if (evalarg != NULL && evalarg->eval_tofree == NULL)
21220 ad13736a1783 patch 8.2.1161: Vim9: using freed memory Bram Moolenaar <Bram@vim.org> parents: 21218 diff changeset	533 evalarg->eval_tofree = tofree;
ad13736a1783 patch 8.2.1161: Vim9: using freed memory Bram Moolenaar <Bram@vim.org> parents: 21218 diff changeset	534 else
ad13736a1783 patch 8.2.1161: Vim9: using freed memory Bram Moolenaar <Bram@vim.org> parents: 21218 diff changeset	535 vim_free(tofree);
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	536 eval_lavars_used = old_eval_lavars;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	537 return FAIL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	538 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	539
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	540 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	541 * Check if "name" is a variable of type VAR_FUNC. If so, return the function
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	542 * name it contains, otherwise return "name".
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	543 * If "partialp" is not NULL, and "name" is of type VAR_PARTIAL also set
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	544 * "partialp".
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	545 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	546 char_u *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	547 deref_func_name(char_u name, int lenp, partial_T **partialp, int no_autoload)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	548 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	549 dictitem_T *v;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	550 int cc;
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	551 char_u *s;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	552
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	553 if (partialp != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	554 *partialp = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	555
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	556 cc = name[*lenp];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	557 name[*lenp] = NUL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	558 v = find_var(name, NULL, no_autoload);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	559 name[*lenp] = cc;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	560 if (v != NULL && v->di_tv.v_type == VAR_FUNC)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	561 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	562 if (v->di_tv.vval.v_string == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	563 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	564 *lenp = 0;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	565 return (char_u *)""; // just in case
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	566 }
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	567 s = v->di_tv.vval.v_string;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	568 *lenp = (int)STRLEN(s);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	569 return s;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	570 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	571
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	572 if (v != NULL && v->di_tv.v_type == VAR_PARTIAL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	573 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	574 partial_T *pt = v->di_tv.vval.v_partial;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	575
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	576 if (pt == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	577 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	578 *lenp = 0;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	579 return (char_u *)""; // just in case
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	580 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	581 if (partialp != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	582 *partialp = pt;
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	583 s = partial_name(pt);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	584 *lenp = (int)STRLEN(s);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	585 return s;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	586 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	587
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	588 return name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	589 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	590
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	591 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	592 * Give an error message with a function name. Handle <SNR> things.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	593 * "ermsg" is to be passed without translation, use N_() instead of _().
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	594 */
18576 e9675870c480 patch 8.1.2282: crash when passing many arguments through a partial Bram Moolenaar <Bram@vim.org> parents: 18572 diff changeset	595 void
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	596 emsg_funcname(char ermsg, char_u name)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	597 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	598 char_u *p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	599
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	600 if (*name == K_SPECIAL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	601 p = concat_str((char_u *)"<SNR>", name + 3);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	602 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	603 p = name;
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	604 semsg(_(ermsg), p);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	605 if (p != name)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	606 vim_free(p);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	607 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	608
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	609 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	610 * Allocate a variable for the result of a function.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	611 * Return OK or FAIL.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	612 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	613 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	614 get_func_tv(
16634 a1ba0bd74e7d patch 8.1.1319: computing function length name in many places Bram Moolenaar <Bram@vim.org> parents: 16615 diff changeset	615 char_u *name, // name of the function
a1ba0bd74e7d patch 8.1.1319: computing function length name in many places Bram Moolenaar <Bram@vim.org> parents: 16615 diff changeset	616 int len, // length of "name" or -1 to use strlen()
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	617 typval_T *rettv,
16634 a1ba0bd74e7d patch 8.1.1319: computing function length name in many places Bram Moolenaar <Bram@vim.org> parents: 16615 diff changeset	618 char_u **arg, // argument, pointing to the '('
21118 b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21066 diff changeset	619 evalarg_T *evalarg, // for line continuation
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	620 funcexe_T *funcexe) // various values
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	621 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	622 char_u *argp;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	623 int ret = OK;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	624 typval_T argvars[MAX_FUNC_ARGS + 1]; // vars for arguments
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	625 int argcount = 0; // number of arguments found
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	626
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	627 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	628 * Get the arguments.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	629 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	630 argp = *arg;
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	631 while (argcount < MAX_FUNC_ARGS - (funcexe->partial == NULL ? 0
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	632 : funcexe->partial->pt_argc))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	633 {
21118 b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21066 diff changeset	634 // skip the '(' or ',' and possibly line breaks
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21066 diff changeset	635 argp = skipwhite_and_linebreak(argp + 1, evalarg);
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21066 diff changeset	636
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	637 if (argp == ')' \|\| argp == ',' \|\| *argp == NUL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	638 break;
21118 b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21066 diff changeset	639 if (eval1(&argp, &argvars[argcount], evalarg) == FAIL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	640 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	641 ret = FAIL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	642 break;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	643 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	644 ++argcount;
21552 cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list Bram Moolenaar <Bram@vim.org> parents: 21528 diff changeset	645 // The comma should come right after the argument, but this wasn't
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list Bram Moolenaar <Bram@vim.org> parents: 21528 diff changeset	646 // checked previously, thus only enforce it in Vim9 script.
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list Bram Moolenaar <Bram@vim.org> parents: 21528 diff changeset	647 if (!in_vim9script())
cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list Bram Moolenaar <Bram@vim.org> parents: 21528 diff changeset	648 argp = skipwhite(argp);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	649 if (*argp != ',')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	650 break;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	651 }
21118 b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21066 diff changeset	652 argp = skipwhite_and_linebreak(argp, evalarg);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	653 if (*argp == ')')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	654 ++argp;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	655 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	656 ret = FAIL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	657
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	658 if (ret == OK)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	659 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	660 int i = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	661
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	662 if (get_vim_var_nr(VV_TESTING))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	663 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	664 // Prepare for calling test_garbagecollect_now(), need to know
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	665 // what variables are used on the call stack.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	666 if (funcargs.ga_itemsize == 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	667 ga_init2(&funcargs, (int)sizeof(typval_T *), 50);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	668 for (i = 0; i < argcount; ++i)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	669 if (ga_grow(&funcargs, 1) == OK)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	670 ((typval_T **)funcargs.ga_data)[funcargs.ga_len++] =
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	671 &argvars[i];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	672 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	673
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	674 ret = call_func(name, len, rettv, argcount, argvars, funcexe);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	675
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	676 funcargs.ga_len -= i;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	677 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	678 else if (!aborting())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	679 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	680 if (argcount == MAX_FUNC_ARGS)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	681 emsg_funcname(N_("E740: Too many arguments for function %s"), name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	682 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	683 emsg_funcname(N_("E116: Invalid arguments for function %s"), name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	684 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	685
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	686 while (--argcount >= 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	687 clear_tv(&argvars[argcount]);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	688
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	689 *arg = skipwhite(argp);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	690 return ret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	691 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	692
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	693 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	694 * Return TRUE if "p" starts with "<SID>" or "s:".
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	695 * Only works if eval_fname_script() returned non-zero for "p"!
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	696 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	697 static int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	698 eval_fname_sid(char_u *p)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	699 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	700 return (*p == 's' \|\| TOUPPER_ASC(p[2]) == 'I');
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	701 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	702
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	703 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	704 * In a script change <SID>name() and s:name() to K_SNR 123_name().
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	705 * Change <SNR>123_name() to K_SNR 123_name().
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	706 * Use "fname_buf[FLEN_FIXED + 1]" when it fits, otherwise allocate memory
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	707 * (slow).
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	708 */
19330 9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: 19328 diff changeset	709 char_u *
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	710 fname_trans_sid(char_u name, char_u fname_buf, char_u *tofree, int error)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	711 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	712 int llen;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	713 char_u *fname;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	714 int i;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	715
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	716 llen = eval_fname_script(name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	717 if (llen > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	718 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	719 fname_buf[0] = K_SPECIAL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	720 fname_buf[1] = KS_EXTRA;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	721 fname_buf[2] = (int)KE_SNR;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	722 i = 3;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	723 if (eval_fname_sid(name)) // "<SID>" or "s:"
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	724 {
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14430 diff changeset	725 if (current_sctx.sc_sid <= 0)
19013 dd9ab0674eec patch 8.2.0067: ERROR_UNKNOWN clashes on some systems Bram Moolenaar <Bram@vim.org> parents: 18991 diff changeset	726 *error = FCERR_SCRIPT;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	727 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	728 {
16378 3d6b282e2d6e patch 8.1.1194: typos and small problems in source files Bram Moolenaar <Bram@vim.org> parents: 16003 diff changeset	729 sprintf((char *)fname_buf + 3, "%ld_",
3d6b282e2d6e patch 8.1.1194: typos and small problems in source files Bram Moolenaar <Bram@vim.org> parents: 16003 diff changeset	730 (long)current_sctx.sc_sid);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	731 i = (int)STRLEN(fname_buf);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	732 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	733 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	734 if (i + STRLEN(name + llen) < FLEN_FIXED)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	735 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	736 STRCPY(fname_buf + i, name + llen);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	737 fname = fname_buf;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	738 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	739 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	740 {
16764 ef00b6bc186b patch 8.1.1384: using "int" for alloc() often results in compiler warnings Bram Moolenaar <Bram@vim.org> parents: 16708 diff changeset	741 fname = alloc(i + STRLEN(name + llen) + 1);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	742 if (fname == NULL)
19013 dd9ab0674eec patch 8.2.0067: ERROR_UNKNOWN clashes on some systems Bram Moolenaar <Bram@vim.org> parents: 18991 diff changeset	743 *error = FCERR_OTHER;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	744 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	745 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	746 *tofree = fname;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	747 mch_memmove(fname, fname_buf, (size_t)i);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	748 STRCPY(fname + i, name + llen);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	749 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	750 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	751 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	752 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	753 fname = name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	754 return fname;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	755 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	756
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	757 /*
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	758 * Find a function "name" in script "sid".
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	759 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	760 static ufunc_T *
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	761 find_func_with_sid(char_u *name, int sid)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	762 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	763 hashitem_T *hi;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	764 char_u buffer[200];
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	765
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	766 buffer[0] = K_SPECIAL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	767 buffer[1] = KS_EXTRA;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	768 buffer[2] = (int)KE_SNR;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	769 vim_snprintf((char *)buffer + 3, sizeof(buffer) - 3, "%ld_%s",
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	770 (long)sid, name);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	771 hi = hash_find(&func_hashtab, buffer);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	772 if (!HASHITEM_EMPTY(hi))
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	773 return HI2UF(hi);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	774
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	775 return NULL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	776 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	777
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	778 /*
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	779 * Find a function by name, return pointer to it in ufuncs.
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	780 * When "is_global" is true don't find script-local or imported functions.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	781 * Return NULL for unknown function.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	782 */
21564 30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	783 ufunc_T *
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	784 find_func_even_dead(char_u name, int is_global, cctx_T cctx)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	785 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	786 hashitem_T *hi;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	787 ufunc_T *func;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	788 imported_T *imported;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	789
20816 9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	790 if (!is_global)
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	791 {
21586 5470c36ed7e6 patch 8.2.1343: Vim9: cannot find global function when using g: Bram Moolenaar <Bram@vim.org> parents: 21566 diff changeset	792 int vim9script = in_vim9script();
5470c36ed7e6 patch 8.2.1343: Vim9: cannot find global function when using g: Bram Moolenaar <Bram@vim.org> parents: 21566 diff changeset	793 char_u *after_script = NULL;
5470c36ed7e6 patch 8.2.1343: Vim9: cannot find global function when using g: Bram Moolenaar <Bram@vim.org> parents: 21566 diff changeset	794
5470c36ed7e6 patch 8.2.1343: Vim9: cannot find global function when using g: Bram Moolenaar <Bram@vim.org> parents: 21566 diff changeset	795 if (vim9script)
20816 9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	796 {
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	797 // Find script-local function before global one.
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	798 func = find_func_with_sid(name, current_sctx.sc_sid);
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	799 if (func != NULL)
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	800 return func;
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	801 }
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	802
21586 5470c36ed7e6 patch 8.2.1343: Vim9: cannot find global function when using g: Bram Moolenaar <Bram@vim.org> parents: 21566 diff changeset	803 if (!vim9script
20816 9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	804 && name[0] == K_SPECIAL
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	805 && name[1] == KS_EXTRA
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	806 && name[2] == KE_SNR)
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	807 {
20816 9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	808 long sid;
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	809
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	810 // Caller changes s: to <SNR>99_name.
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	811
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	812 after_script = name + 3;
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	813 sid = getdigits(&after_script);
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	814 if (sid == current_sctx.sc_sid && *after_script == '_')
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	815 ++after_script;
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	816 else
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	817 after_script = NULL;
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	818 }
21586 5470c36ed7e6 patch 8.2.1343: Vim9: cannot find global function when using g: Bram Moolenaar <Bram@vim.org> parents: 21566 diff changeset	819 if (vim9script \|\| after_script != NULL)
20816 9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	820 {
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	821 // Find imported function before global one.
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	822 imported = find_imported(
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	823 after_script == NULL ? name : after_script, 0, cctx);
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	824 if (imported != NULL && imported->imp_funcname != NULL)
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	825 {
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	826 hi = hash_find(&func_hashtab, imported->imp_funcname);
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	827 if (!HASHITEM_EMPTY(hi))
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	828 return HI2UF(hi);
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	829 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	830 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	831 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	832
20079 336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	833 hi = hash_find(&func_hashtab,
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	834 STRNCMP(name, "g:", 2) == 0 ? name + 2 : name);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	835 if (!HASHITEM_EMPTY(hi))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	836 return HI2UF(hi);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	837
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	838 return NULL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	839 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	840
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	841 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	842 * Find a function by name, return pointer to it in ufuncs.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	843 * "cctx" is passed in a :def function to find imported functions.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	844 * Return NULL for unknown or dead function.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	845 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	846 ufunc_T *
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	847 find_func(char_u name, int is_global, cctx_T cctx)
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	848 {
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	849 ufunc_T *fp = find_func_even_dead(name, is_global, cctx);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	850
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	851 if (fp != NULL && (fp->uf_flags & FC_DEAD) == 0)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	852 return fp;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	853 return NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	854 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	855
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	856 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	857 * Copy the function name of "fp" to buffer "buf".
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	858 * "buf" must be able to hold the function name plus three bytes.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	859 * Takes care of script-local function names.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	860 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	861 static void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	862 cat_func_name(char_u buf, ufunc_T fp)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	863 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	864 if (fp->uf_name[0] == K_SPECIAL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	865 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	866 STRCPY(buf, "<SNR>");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	867 STRCAT(buf, fp->uf_name + 3);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	868 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	869 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	870 STRCPY(buf, fp->uf_name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	871 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	872
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	873 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	874 * Add a number variable "name" to dict "dp" with value "nr".
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	875 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	876 static void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	877 add_nr_var(
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	878 dict_T *dp,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	879 dictitem_T *v,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	880 char *name,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	881 varnumber_T nr)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	882 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	883 STRCPY(v->di_key, name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	884 v->di_flags = DI_FLAGS_RO \| DI_FLAGS_FIX;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	885 hash_add(&dp->dv_hashtab, DI2HIKEY(v));
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	886 v->di_tv.v_type = VAR_NUMBER;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	887 v->di_tv.v_lock = VAR_FIXED;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	888 v->di_tv.vval.v_number = nr;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	889 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	890
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	891 /*
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	892 * Free "fc".
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	893 */
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	894 static void
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	895 free_funccal(funccall_T *fc)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	896 {
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	897 int i;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	898
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	899 for (i = 0; i < fc->fc_funcs.ga_len; ++i)
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	900 {
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	901 ufunc_T fp = ((ufunc_T *)(fc->fc_funcs.ga_data))[i];
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	902
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	903 // When garbage collecting a funccall_T may be freed before the
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	904 // function that references it, clear its uf_scoped field.
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	905 // The function may have been redefined and point to another
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	906 // funccall_T, don't clear it then.
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	907 if (fp != NULL && fp->uf_scoped == fc)
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	908 fp->uf_scoped = NULL;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	909 }
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	910 ga_clear(&fc->fc_funcs);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	911
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	912 func_ptr_unref(fc->func);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	913 vim_free(fc);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	914 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	915
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	916 /*
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	917 * Free "fc" and what it contains.
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	918 * Can be called only when "fc" is kept beyond the period of it called,
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	919 * i.e. after cleanup_function_call(fc).
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	920 */
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	921 static void
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	922 free_funccal_contents(funccall_T *fc)
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	923 {
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	924 listitem_T *li;
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	925
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	926 // Free all l: variables.
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	927 vars_clear(&fc->l_vars.dv_hashtab);
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	928
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	929 // Free all a: variables.
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	930 vars_clear(&fc->l_avars.dv_hashtab);
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	931
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	932 // Free the a:000 variables.
19888 435726a03481 patch 8.2.0500: using the same loop in many places Bram Moolenaar <Bram@vim.org> parents: 19886 diff changeset	933 FOR_ALL_LIST_ITEMS(&fc->l_varlist, li)
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	934 clear_tv(&li->li_tv);
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	935
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	936 free_funccal(fc);
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	937 }
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	938
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	939 /*
11299 4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	940 * Handle the last part of returning from a function: free the local hashtable.
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	941 * Unless it is still in use by a closure.
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	942 */
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	943 static void
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	944 cleanup_function_call(funccall_T *fc)
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	945 {
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	946 int may_free_fc = fc->fc_refcount <= 0;
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	947 int free_fc = TRUE;
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	948
11299 4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	949 current_funccal = fc->caller;
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	950
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	951 // Free all l: variables if not referred.
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	952 if (may_free_fc && fc->l_vars.dv_refcount == DO_NOT_FREE_CNT)
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	953 vars_clear(&fc->l_vars.dv_hashtab);
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	954 else
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	955 free_fc = FALSE;
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	956
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	957 // If the a:000 list and the l: and a: dicts are not referenced and
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	958 // there is no closure using it, we can free the funccall_T and what's
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	959 // in it.
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	960 if (may_free_fc && fc->l_avars.dv_refcount == DO_NOT_FREE_CNT)
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	961 vars_clear_ext(&fc->l_avars.dv_hashtab, FALSE);
11299 4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	962 else
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	963 {
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	964 int todo;
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	965 hashitem_T *hi;
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	966 dictitem_T *di;
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	967
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	968 free_fc = FALSE;
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	969
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	970 // Make a copy of the a: variables, since we didn't do that above.
11299 4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	971 todo = (int)fc->l_avars.dv_hashtab.ht_used;
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	972 for (hi = fc->l_avars.dv_hashtab.ht_array; todo > 0; ++hi)
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	973 {
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	974 if (!HASHITEM_EMPTY(hi))
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	975 {
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	976 --todo;
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	977 di = HI2DI(hi);
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	978 copy_tv(&di->di_tv, &di->di_tv);
11299 4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	979 }
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	980 }
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	981 }
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	982
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	983 if (may_free_fc && fc->l_varlist.lv_refcount == DO_NOT_FREE_CNT)
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	984 fc->l_varlist.lv_first = NULL;
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	985 else
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	986 {
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	987 listitem_T *li;
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	988
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	989 free_fc = FALSE;
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	990
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	991 // Make a copy of the a:000 items, since we didn't do that above.
19888 435726a03481 patch 8.2.0500: using the same loop in many places Bram Moolenaar <Bram@vim.org> parents: 19886 diff changeset	992 FOR_ALL_LIST_ITEMS(&fc->l_varlist, li)
11299 4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	993 copy_tv(&li->li_tv, &li->li_tv);
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	994 }
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	995
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	996 if (free_fc)
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	997 free_funccal(fc);
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	998 else
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	999 {
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1000 static int made_copy = 0;
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1001
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1002 // "fc" is still in use. This can happen when returning "a:000",
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1003 // assigning "l:" to a global variable or defining a closure.
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1004 // Link "fc" in the list for garbage collection later.
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1005 fc->caller = previous_funccal;
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1006 previous_funccal = fc;
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1007
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1008 if (want_garbage_collect)
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1009 // If garbage collector is ready, clear count.
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1010 made_copy = 0;
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1011 else if (++made_copy >= (int)((4096 * 1024) / sizeof(*fc)))
15585 6ca8f0350723 patch 8.1.0800: may use a lot of memory when a function refers itself Bram Moolenaar <Bram@vim.org> parents: 15555 diff changeset	1012 {
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1013 // We have made a lot of copies, worth 4 Mbyte. This can happen
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1014 // when repetitively calling a function that creates a reference to
15721 e84eb23f4670 patch 8.1.0868: crash if triggering garbage collector after a function call Bram Moolenaar <Bram@vim.org> parents: 15636 diff changeset	1015 // itself somehow. Call the garbage collector soon to avoid using
15585 6ca8f0350723 patch 8.1.0800: may use a lot of memory when a function refers itself Bram Moolenaar <Bram@vim.org> parents: 15555 diff changeset	1016 // too much memory.
6ca8f0350723 patch 8.1.0800: may use a lot of memory when a function refers itself Bram Moolenaar <Bram@vim.org> parents: 15555 diff changeset	1017 made_copy = 0;
15721 e84eb23f4670 patch 8.1.0868: crash if triggering garbage collector after a function call Bram Moolenaar <Bram@vim.org> parents: 15636 diff changeset	1018 want_garbage_collect = TRUE;
15585 6ca8f0350723 patch 8.1.0800: may use a lot of memory when a function refers itself Bram Moolenaar <Bram@vim.org> parents: 15555 diff changeset	1019 }
11299 4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1020 }
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1021 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1022 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1023 * Unreference "fc": decrement the reference count and free it when it
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1024 * becomes zero. "fp" is detached from "fc".
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1025 * When "force" is TRUE we are exiting.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1026 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1027 static void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1028 funccal_unref(funccall_T fc, ufunc_T fp, int force)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1029 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1030 funccall_T **pfc;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1031 int i;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1032
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1033 if (fc == NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1034 return;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1035
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1036 if (--fc->fc_refcount <= 0 && (force \|\| (
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1037 fc->l_varlist.lv_refcount == DO_NOT_FREE_CNT
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1038 && fc->l_vars.dv_refcount == DO_NOT_FREE_CNT
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1039 && fc->l_avars.dv_refcount == DO_NOT_FREE_CNT)))
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1040 for (pfc = &previous_funccal; pfc != NULL; pfc = &(pfc)->caller)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1041 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1042 if (fc == *pfc)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1043 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1044 *pfc = fc->caller;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1045 free_funccal_contents(fc);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1046 return;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1047 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1048 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1049 for (i = 0; i < fc->fc_funcs.ga_len; ++i)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1050 if (((ufunc_T **)(fc->fc_funcs.ga_data))[i] == fp)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1051 ((ufunc_T **)(fc->fc_funcs.ga_data))[i] = NULL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1052 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1053
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1054 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1055 * Remove the function from the function hashtable. If the function was
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1056 * deleted while it still has references this was already done.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1057 * Return TRUE if the entry was deleted, FALSE if it wasn't found.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1058 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1059 static int
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1060 func_remove(ufunc_T *fp)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1061 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1062 hashitem_T *hi;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1063
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1064 // Return if it was already virtually deleted.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1065 if (fp->uf_flags & FC_DEAD)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1066 return FALSE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1067
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1068 hi = hash_find(&func_hashtab, UF2HIKEY(fp));
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1069 if (!HASHITEM_EMPTY(hi))
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1070 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1071 // When there is a def-function index do not actually remove the
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1072 // function, so we can find the index when defining the function again.
21558 1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1073 // Do remove it when it's a copy.
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1074 if (fp->uf_def_status == UF_COMPILED && (fp->uf_flags & FC_COPY) == 0)
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1075 fp->uf_flags \|= FC_DEAD;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1076 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1077 hash_remove(&func_hashtab, hi);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1078 return TRUE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1079 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1080 return FALSE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1081 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1082
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1083 static void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1084 func_clear_items(ufunc_T *fp)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1085 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1086 ga_clear_strings(&(fp->uf_args));
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1087 ga_clear_strings(&(fp->uf_def_args));
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1088 ga_clear_strings(&(fp->uf_lines));
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1089 VIM_CLEAR(fp->uf_name_exp);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1090 VIM_CLEAR(fp->uf_arg_types);
19685 d64f403289db patch 8.2.0399: various memory leaks Bram Moolenaar <Bram@vim.org> parents: 19579 diff changeset	1091 VIM_CLEAR(fp->uf_def_arg_idx);
d64f403289db patch 8.2.0399: various memory leaks Bram Moolenaar <Bram@vim.org> parents: 19579 diff changeset	1092 VIM_CLEAR(fp->uf_va_name);
21218 1f4d0375f947 patch 8.2.1160: Vim9: memory leak in allocated types Bram Moolenaar <Bram@vim.org> parents: 21118 diff changeset	1093 clear_type_list(&fp->uf_type_list);
21006 ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	1094
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	1095 #ifdef FEAT_LUA
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	1096 if (fp->uf_cb_free != NULL)
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	1097 {
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	1098 fp->uf_cb_free(fp->uf_cb_state);
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	1099 fp->uf_cb_free = NULL;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	1100 }
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	1101
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	1102 fp->uf_cb_state = NULL;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	1103 fp->uf_cb = NULL;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	1104 #endif
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1105 #ifdef FEAT_PROFILE
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1106 VIM_CLEAR(fp->uf_tml_count);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1107 VIM_CLEAR(fp->uf_tml_total);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1108 VIM_CLEAR(fp->uf_tml_self);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1109 #endif
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1110 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1111
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1112 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1113 * Free all things that a function contains. Does not free the function
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1114 * itself, use func_free() for that.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1115 * When "force" is TRUE we are exiting.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1116 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1117 static void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1118 func_clear(ufunc_T *fp, int force)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1119 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1120 if (fp->uf_cleared)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1121 return;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1122 fp->uf_cleared = TRUE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1123
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1124 // clear this function
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1125 func_clear_items(fp);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1126 funccal_unref(fp->uf_scoped, fp, force);
21558 1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1127 if ((fp->uf_flags & FC_COPY) == 0)
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1128 clear_def_function(fp);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1129 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1130
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1131 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1132 * Free a function and remove it from the list of functions. Does not free
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1133 * what a function contains, call func_clear() first.
20257 683c2da4982b patch 8.2.0684: Vim9: memory leak when using lambda Bram Moolenaar <Bram@vim.org> parents: 20255 diff changeset	1134 * When "force" is TRUE we are exiting.
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1135 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1136 static void
20257 683c2da4982b patch 8.2.0684: Vim9: memory leak when using lambda Bram Moolenaar <Bram@vim.org> parents: 20255 diff changeset	1137 func_free(ufunc_T *fp, int force)
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1138 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1139 // Only remove it when not done already, otherwise we would remove a newer
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1140 // version of the function with the same name.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1141 if ((fp->uf_flags & (FC_DELETED \| FC_REMOVED)) == 0)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1142 func_remove(fp);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1143
20257 683c2da4982b patch 8.2.0684: Vim9: memory leak when using lambda Bram Moolenaar <Bram@vim.org> parents: 20255 diff changeset	1144 if ((fp->uf_flags & FC_DEAD) == 0 \|\| force)
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1145 vim_free(fp);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1146 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1147
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1148 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1149 * Free all things that a function contains and free the function itself.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1150 * When "force" is TRUE we are exiting.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1151 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1152 static void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1153 func_clear_free(ufunc_T *fp, int force)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1154 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1155 func_clear(fp, force);
21558 1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1156 if (force \|\| fp->uf_dfunc_idx == 0 \|\| (fp->uf_flags & FC_COPY))
20943 1693ca876049 patch 8.2.1023: Vim9: redefining a function uses a new index every time Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1157 func_free(fp, force);
21479 90d859a402cc patch 8.2.1290: Vim9: cannot replace a global function Bram Moolenaar <Bram@vim.org> parents: 21461 diff changeset	1158 else
90d859a402cc patch 8.2.1290: Vim9: cannot replace a global function Bram Moolenaar <Bram@vim.org> parents: 21461 diff changeset	1159 fp->uf_flags \|= FC_DEAD;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1160 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1161
21558 1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1162 /*
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1163 * Copy already defined function "lambda" to a new function with name "global".
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1164 * This is for when a compiled function defines a global function.
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1165 */
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1166 void
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1167 copy_func(char_u lambda, char_u global)
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1168 {
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1169 ufunc_T *ufunc = find_func_even_dead(lambda, TRUE, NULL);
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1170 ufunc_T *fp;
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1171
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1172 if (ufunc == NULL)
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1173 semsg(_("E1102: lambda function not found: %s"), lambda);
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1174 else
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1175 {
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1176 // TODO: handle ! to overwrite
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1177 fp = find_func(global, TRUE, NULL);
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1178 if (fp != NULL)
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1179 {
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1180 semsg(_(e_funcexts), global);
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1181 return;
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1182 }
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1183
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1184 fp = alloc_clear(offsetof(ufunc_T, uf_name) + STRLEN(global) + 1);
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1185 if (fp == NULL)
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1186 return;
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1187
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1188 fp->uf_varargs = ufunc->uf_varargs;
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1189 fp->uf_flags = (ufunc->uf_flags & ~FC_VIM9) \| FC_COPY;
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1190 fp->uf_def_status = ufunc->uf_def_status;
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1191 fp->uf_dfunc_idx = ufunc->uf_dfunc_idx;
21566 1e3e5058041c patch 8.2.1333: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21564 diff changeset	1192 if (ga_copy_strings(&ufunc->uf_args, &fp->uf_args) == FAIL
1e3e5058041c patch 8.2.1333: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21564 diff changeset	1193 \|\| ga_copy_strings(&ufunc->uf_def_args, &fp->uf_def_args)
21558 1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1194 == FAIL
21566 1e3e5058041c patch 8.2.1333: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21564 diff changeset	1195 \|\| ga_copy_strings(&ufunc->uf_lines, &fp->uf_lines) == FAIL)
21558 1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1196 goto failed;
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1197
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1198 fp->uf_name_exp = ufunc->uf_name_exp == NULL ? NULL
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1199 : vim_strsave(ufunc->uf_name_exp);
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1200 if (ufunc->uf_arg_types != NULL)
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1201 {
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1202 fp->uf_arg_types = ALLOC_MULT(type_T *, fp->uf_args.ga_len);
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1203 if (fp->uf_arg_types == NULL)
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1204 goto failed;
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1205 mch_memmove(fp->uf_arg_types, ufunc->uf_arg_types,
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1206 sizeof(type_T ) fp->uf_args.ga_len);
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1207 }
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1208 if (ufunc->uf_def_arg_idx != NULL)
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1209 {
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1210 fp->uf_def_arg_idx = ALLOC_MULT(int, fp->uf_def_args.ga_len + 1);
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1211 if (fp->uf_def_arg_idx == NULL)
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1212 goto failed;
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1213 mch_memmove(fp->uf_def_arg_idx, ufunc->uf_def_arg_idx,
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1214 sizeof(int) * fp->uf_def_args.ga_len + 1);
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1215 }
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1216 if (ufunc->uf_va_name != NULL)
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1217 {
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1218 fp->uf_va_name = vim_strsave(ufunc->uf_va_name);
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1219 if (fp->uf_va_name == NULL)
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1220 goto failed;
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1221 }
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1222
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1223 fp->uf_refcount = 1;
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1224 STRCPY(fp->uf_name, global);
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1225 hash_add(&func_hashtab, UF2HIKEY(fp));
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1226 }
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1227 return;
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1228
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1229 failed:
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1230 func_clear_free(fp, TRUE);
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1231 }
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1232
11299 4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1233
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1234 /*
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1235 * Call a user function.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1236 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1237 static void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1238 call_user_func(
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1239 ufunc_T *fp, // pointer to function
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1240 int argcount, // nr of args
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1241 typval_T *argvars, // arguments
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1242 typval_T *rettv, // return value
20433 5950284a517f patch 8.2.0771: Vim9: cannot call a compiled closure from not compiled code Bram Moolenaar <Bram@vim.org> parents: 20397 diff changeset	1243 funcexe_T *funcexe, // context
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1244 dict_T *selfdict) // Dictionary for "self"
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1245 {
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14430 diff changeset	1246 sctx_T save_current_sctx;
14323 9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1247 int using_sandbox = FALSE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1248 funccall_T *fc;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1249 int save_did_emsg;
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1250 int default_arg_err = FALSE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1251 static int depth = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1252 dictitem_T *v;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1253 int fixvar_idx = 0; // index in fixvar[]
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1254 int i;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1255 int ai;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1256 int islambda = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1257 char_u numbuf[NUMBUFLEN];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1258 char_u *name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1259 #ifdef FEAT_PROFILE
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1260 proftime_T wait_start;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1261 proftime_T call_start;
14226 706b57cd1b00 patch 8.1.0130: ":profdel func" does not work if func was called already Christian Brabandt <cb@256bit.org> parents: 14002 diff changeset	1262 int started_profiling = FALSE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1263 #endif
19075 af1eca322b9e patch 8.2.0098: exe stack length can be wrong without being detected Bram Moolenaar <Bram@vim.org> parents: 19035 diff changeset	1264 ESTACK_CHECK_DECLARATION
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1265
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1266 // If depth of calling is getting too high, don't execute the function
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1267 if (depth >= p_mfd)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1268 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	1269 emsg(_("E132: Function call depth is higher than 'maxfuncdepth'"));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1270 rettv->v_type = VAR_NUMBER;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1271 rettv->vval.v_number = -1;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1272 return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1273 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1274 ++depth;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1275
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1276 line_breakcheck(); // check for CTRL-C hit
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1277
16825 ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u " causes a lot of type casts Bram Moolenaar <Bram@vim.org>* parents: 16768 diff changeset	1278 fc = ALLOC_CLEAR_ONE(funccall_T);
15585 6ca8f0350723 patch 8.1.0800: may use a lot of memory when a function refers itself Bram Moolenaar <Bram@vim.org> parents: 15555 diff changeset	1279 if (fc == NULL)
6ca8f0350723 patch 8.1.0800: may use a lot of memory when a function refers itself Bram Moolenaar <Bram@vim.org> parents: 15555 diff changeset	1280 return;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1281 fc->caller = current_funccal;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1282 current_funccal = fc;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1283 fc->func = fp;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1284 fc->rettv = rettv;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1285 fc->level = ex_nesting_level;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1286 // Check if this function has a breakpoint.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1287 fc->breakpoint = dbg_find_breakpoint(FALSE, fp->uf_name, (linenr_T)0);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1288 fc->dbg_tick = debug_tick;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1289 // Set up fields for closure.
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	1290 ga_init2(&fc->fc_funcs, sizeof(ufunc_T *), 1);
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	1291 func_ptr_ref(fp);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1292
20943 1693ca876049 patch 8.2.1023: Vim9: redefining a function uses a new index every time Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1293 if (fp->uf_def_status != UF_NOT_COMPILED)
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1294 {
20538 9f921ba86d05 patch 8.2.0823: Vim9: script reload test is disabled Bram Moolenaar <Bram@vim.org> parents: 20532 diff changeset	1295 estack_push_ufunc(fp, 1);
19281 9fcdeaa18bd1 patch 8.2.0199: Vim9 script commands not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19253 diff changeset	1296 save_current_sctx = current_sctx;
9fcdeaa18bd1 patch 8.2.0199: Vim9 script commands not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19253 diff changeset	1297 current_sctx = fp->uf_script_ctx;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1298
20538 9f921ba86d05 patch 8.2.0823: Vim9: script reload test is disabled Bram Moolenaar <Bram@vim.org> parents: 20532 diff changeset	1299 // Execute the function, possibly compiling it first.
20433 5950284a517f patch 8.2.0771: Vim9: cannot call a compiled closure from not compiled code Bram Moolenaar <Bram@vim.org> parents: 20397 diff changeset	1300 call_def_function(fp, argcount, argvars, funcexe->partial, rettv);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1301 --depth;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1302 current_funccal = fc->caller;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1303
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1304 estack_pop();
19281 9fcdeaa18bd1 patch 8.2.0199: Vim9 script commands not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19253 diff changeset	1305 current_sctx = save_current_sctx;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1306 free_funccal(fc);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1307 return;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1308 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1309
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1310 if (STRNCMP(fp->uf_name, "<lambda>", 8) == 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1311 islambda = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1312
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1313 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1314 * Note about using fc->fixvar[]: This is an array of FIXVAR_CNT variables
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1315 * with names up to VAR_SHORT_LEN long. This avoids having to alloc/free
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1316 * each argument variable and saves a lot of time.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1317 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1318 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1319 * Init l: variables.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1320 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1321 init_var_dict(&fc->l_vars, &fc->l_vars_var, VAR_DEF_SCOPE);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1322 if (selfdict != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1323 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1324 // Set l:self to "selfdict". Use "name" to avoid a warning from
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1325 // some compiler that checks the destination size.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1326 v = &fc->fixvar[fixvar_idx++].var;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1327 name = v->di_key;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1328 STRCPY(name, "self");
15762 dff66c4670b1 patch 8.1.0888: the a: dict is not immutable as documented Bram Moolenaar <Bram@vim.org> parents: 15721 diff changeset	1329 v->di_flags = DI_FLAGS_RO \| DI_FLAGS_FIX;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1330 hash_add(&fc->l_vars.dv_hashtab, DI2HIKEY(v));
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1331 v->di_tv.v_type = VAR_DICT;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1332 v->di_tv.v_lock = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1333 v->di_tv.vval.v_dict = selfdict;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1334 ++selfdict->dv_refcount;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1335 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1336
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1337 /*
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1338 * Init a: variables, unless none found (in lambda).
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1339 * Set a:0 to "argcount" less number of named arguments, if >= 0.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1340 * Set a:000 to a list with room for the "..." arguments.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1341 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1342 init_var_dict(&fc->l_avars, &fc->l_avars_var, VAR_SCOPE);
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1343 if ((fp->uf_flags & FC_NOARGS) == 0)
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1344 add_nr_var(&fc->l_avars, &fc->fixvar[fixvar_idx++].var, "0",
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1345 (varnumber_T)(argcount >= fp->uf_args.ga_len
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1346 ? argcount - fp->uf_args.ga_len : 0));
15762 dff66c4670b1 patch 8.1.0888: the a: dict is not immutable as documented Bram Moolenaar <Bram@vim.org> parents: 15721 diff changeset	1347 fc->l_avars.dv_lock = VAR_FIXED;
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1348 if ((fp->uf_flags & FC_NOARGS) == 0)
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1349 {
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1350 // Use "name" to avoid a warning from some compiler that checks the
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1351 // destination size.
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1352 v = &fc->fixvar[fixvar_idx++].var;
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1353 name = v->di_key;
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1354 STRCPY(name, "000");
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1355 v->di_flags = DI_FLAGS_RO \| DI_FLAGS_FIX;
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1356 hash_add(&fc->l_avars.dv_hashtab, DI2HIKEY(v));
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1357 v->di_tv.v_type = VAR_LIST;
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1358 v->di_tv.v_lock = VAR_FIXED;
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1359 v->di_tv.vval.v_list = &fc->l_varlist;
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1360 }
20007 aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose Bram Moolenaar <Bram@vim.org> parents: 19946 diff changeset	1361 CLEAR_FIELD(fc->l_varlist);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1362 fc->l_varlist.lv_refcount = DO_NOT_FREE_CNT;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1363 fc->l_varlist.lv_lock = VAR_FIXED;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1364
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1365 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1366 * Set a:firstline to "firstline" and a:lastline to "lastline".
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1367 * Set a:name to named arguments.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1368 * Set a:N to the "..." arguments.
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1369 * Skipped when no a: variables used (in lambda).
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1370 */
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1371 if ((fp->uf_flags & FC_NOARGS) == 0)
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1372 {
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1373 add_nr_var(&fc->l_avars, &fc->fixvar[fixvar_idx++].var, "firstline",
20433 5950284a517f patch 8.2.0771: Vim9: cannot call a compiled closure from not compiled code Bram Moolenaar <Bram@vim.org> parents: 20397 diff changeset	1374 (varnumber_T)funcexe->firstline);
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1375 add_nr_var(&fc->l_avars, &fc->fixvar[fixvar_idx++].var, "lastline",
20433 5950284a517f patch 8.2.0771: Vim9: cannot call a compiled closure from not compiled code Bram Moolenaar <Bram@vim.org> parents: 20397 diff changeset	1376 (varnumber_T)funcexe->lastline);
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1377 }
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1378 for (i = 0; i < argcount \|\| i < fp->uf_args.ga_len; ++i)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1379 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1380 int addlocal = FALSE;
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1381 typval_T def_rettv;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1382 int isdefault = FALSE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1383
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1384 ai = i - fp->uf_args.ga_len;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1385 if (ai < 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1386 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1387 // named argument a:name
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1388 name = FUNCARG(fp, i);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1389 if (islambda)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1390 addlocal = TRUE;
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1391
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1392 // evaluate named argument default expression
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1393 isdefault = ai + fp->uf_def_args.ga_len >= 0
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1394 && (i >= argcount \|\| (argvars[i].v_type == VAR_SPECIAL
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1395 && argvars[i].vval.v_number == VVAL_NONE));
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1396 if (isdefault)
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1397 {
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1398 char_u *default_expr = NULL;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1399 def_rettv.v_type = VAR_NUMBER;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1400 def_rettv.vval.v_number = -1;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1401
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1402 default_expr = ((char_u **)(fp->uf_def_args.ga_data))
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1403 [ai + fp->uf_def_args.ga_len];
20992 7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function Bram Moolenaar <Bram@vim.org> parents: 20945 diff changeset	1404 if (eval1(&default_expr, &def_rettv, &EVALARG_EVALUATE) == FAIL)
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1405 {
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1406 default_arg_err = 1;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1407 break;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1408 }
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1409 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1410 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1411 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1412 {
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1413 if ((fp->uf_flags & FC_NOARGS) != 0)
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1414 // Bail out if no a: arguments used (in lambda).
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1415 break;
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1416
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1417 // "..." argument a:1, a:2, etc.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1418 sprintf((char *)numbuf, "%d", ai + 1);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1419 name = numbuf;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1420 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1421 if (fixvar_idx < FIXVAR_CNT && STRLEN(name) <= VAR_SHORT_LEN)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1422 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1423 v = &fc->fixvar[fixvar_idx++].var;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1424 v->di_flags = DI_FLAGS_RO \| DI_FLAGS_FIX;
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1425 STRCPY(v->di_key, name);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1426 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1427 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1428 {
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1429 v = dictitem_alloc(name);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1430 if (v == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1431 break;
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1432 v->di_flags \|= DI_FLAGS_RO \| DI_FLAGS_FIX;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1433 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1434
17127 d244a9be99db patch 8.1.1563: crash when using closures Bram Moolenaar <Bram@vim.org> parents: 16969 diff changeset	1435 // Note: the values are copied directly to avoid alloc/free.
d244a9be99db patch 8.1.1563: crash when using closures Bram Moolenaar <Bram@vim.org> parents: 16969 diff changeset	1436 // "argvars" must have VAR_FIXED for v_lock.
d244a9be99db patch 8.1.1563: crash when using closures Bram Moolenaar <Bram@vim.org> parents: 16969 diff changeset	1437 v->di_tv = isdefault ? def_rettv : argvars[i];
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1438 v->di_tv.v_lock = VAR_FIXED;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1439
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1440 if (addlocal)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1441 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1442 // Named arguments should be accessed without the "a:" prefix in
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1443 // lambda expressions. Add to the l: dict.
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	1444 copy_tv(&v->di_tv, &v->di_tv);
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	1445 hash_add(&fc->l_vars.dv_hashtab, DI2HIKEY(v));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1446 }
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	1447 else
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	1448 hash_add(&fc->l_avars.dv_hashtab, DI2HIKEY(v));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1449
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1450 if (ai >= 0 && ai < MAX_FUNC_ARGS)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1451 {
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1452 listitem_T *li = &fc->l_listitems[ai];
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1453
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1454 li->li_tv = argvars[i];
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1455 li->li_tv.v_lock = VAR_FIXED;
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1456 list_append(&fc->l_varlist, li);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1457 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1458 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1459
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1460 // Don't redraw while executing the function.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1461 ++RedrawingDisabled;
14323 9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1462
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1463 if (fp->uf_flags & FC_SANDBOX)
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1464 {
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1465 using_sandbox = TRUE;
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1466 ++sandbox;
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1467 }
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1468
20538 9f921ba86d05 patch 8.2.0823: Vim9: script reload test is disabled Bram Moolenaar <Bram@vim.org> parents: 20532 diff changeset	1469 estack_push_ufunc(fp, 1);
19075 af1eca322b9e patch 8.2.0098: exe stack length can be wrong without being detected Bram Moolenaar <Bram@vim.org> parents: 19035 diff changeset	1470 ESTACK_CHECK_SETUP
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1471 if (p_verbose >= 12)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1472 {
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1473 ++no_wait_return;
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1474 verbose_enter_scroll();
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1475
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1476 smsg(_("calling %s"), SOURCING_NAME);
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1477 if (p_verbose >= 14)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1478 {
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1479 char_u buf[MSG_BUF_LEN];
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1480 char_u numbuf2[NUMBUFLEN];
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1481 char_u *tofree;
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1482 char_u *s;
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1483
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1484 msg_puts("(");
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1485 for (i = 0; i < argcount; ++i)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1486 {
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1487 if (i > 0)
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1488 msg_puts(", ");
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1489 if (argvars[i].v_type == VAR_NUMBER)
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1490 msg_outnum((long)argvars[i].vval.v_number);
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1491 else
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1492 {
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1493 // Do not want errors such as E724 here.
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1494 ++emsg_off;
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1495 s = tv2string(&argvars[i], &tofree, numbuf2, 0);
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1496 --emsg_off;
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1497 if (s != NULL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1498 {
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1499 if (vim_strsize(s) > MSG_BUF_CLEN)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1500 {
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1501 trunc_string(s, buf, MSG_BUF_CLEN, MSG_BUF_LEN);
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1502 s = buf;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1503 }
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1504 msg_puts((char *)s);
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1505 vim_free(tofree);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1506 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1507 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1508 }
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1509 msg_puts(")");
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1510 }
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1511 msg_puts("\n"); // don't overwrite this either
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1512
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1513 verbose_leave_scroll();
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1514 --no_wait_return;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1515 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1516 #ifdef FEAT_PROFILE
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1517 if (do_profiling == PROF_YES)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1518 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1519 if (!fp->uf_profiling && has_profiling(FALSE, fp->uf_name, NULL))
14226 706b57cd1b00 patch 8.1.0130: ":profdel func" does not work if func was called already Christian Brabandt <cb@256bit.org> parents: 14002 diff changeset	1520 {
706b57cd1b00 patch 8.1.0130: ":profdel func" does not work if func was called already Christian Brabandt <cb@256bit.org> parents: 14002 diff changeset	1521 started_profiling = TRUE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1522 func_do_profile(fp);
14226 706b57cd1b00 patch 8.1.0130: ":profdel func" does not work if func was called already Christian Brabandt <cb@256bit.org> parents: 14002 diff changeset	1523 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1524 if (fp->uf_profiling
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1525 \|\| (fc->caller != NULL && fc->caller->func->uf_profiling))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1526 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1527 ++fp->uf_tm_count;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1528 profile_start(&call_start);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1529 profile_zero(&fp->uf_tm_children);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1530 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1531 script_prof_save(&wait_start);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1532 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1533 #endif
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1534
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14430 diff changeset	1535 save_current_sctx = current_sctx;
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14430 diff changeset	1536 current_sctx = fp->uf_script_ctx;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1537 save_did_emsg = did_emsg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1538 did_emsg = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1539
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1540 if (default_arg_err && (fp->uf_flags & FC_ABORT))
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1541 did_emsg = TRUE;
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1542 else if (islambda)
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1543 {
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1544 char_u p = (char_u **)fp->uf_lines.ga_data + 7;
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1545
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1546 // A Lambda always has the command "return {expr}". It is much faster
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1547 // to evaluate {expr} directly.
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1548 ++ex_nesting_level;
20992 7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function Bram Moolenaar <Bram@vim.org> parents: 20945 diff changeset	1549 (void)eval1(&p, rettv, &EVALARG_EVALUATE);
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1550 --ex_nesting_level;
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1551 }
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1552 else
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1553 // call do_cmdline() to execute the lines
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1554 do_cmdline(NULL, get_func_line, (void *)fc,
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1555 DOCMD_NOWAIT\|DOCMD_VERBOSE\|DOCMD_REPEAT);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1556
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1557 --RedrawingDisabled;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1558
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1559 // when the function was aborted because of an error, return -1
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1560 if ((did_emsg && (fp->uf_flags & FC_ABORT)) \|\| rettv->v_type == VAR_UNKNOWN)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1561 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1562 clear_tv(rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1563 rettv->v_type = VAR_NUMBER;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1564 rettv->vval.v_number = -1;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1565 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1566
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1567 #ifdef FEAT_PROFILE
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1568 if (do_profiling == PROF_YES && (fp->uf_profiling
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1569 \|\| (fc->caller != NULL && fc->caller->func->uf_profiling)))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1570 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1571 profile_end(&call_start);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1572 profile_sub_wait(&wait_start, &call_start);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1573 profile_add(&fp->uf_tm_total, &call_start);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1574 profile_self(&fp->uf_tm_self, &call_start, &fp->uf_tm_children);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1575 if (fc->caller != NULL && fc->caller->func->uf_profiling)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1576 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1577 profile_add(&fc->caller->func->uf_tm_children, &call_start);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1578 profile_add(&fc->caller->func->uf_tml_children, &call_start);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1579 }
14226 706b57cd1b00 patch 8.1.0130: ":profdel func" does not work if func was called already Christian Brabandt <cb@256bit.org> parents: 14002 diff changeset	1580 if (started_profiling)
706b57cd1b00 patch 8.1.0130: ":profdel func" does not work if func was called already Christian Brabandt <cb@256bit.org> parents: 14002 diff changeset	1581 // make a ":profdel func" stop profiling the function
706b57cd1b00 patch 8.1.0130: ":profdel func" does not work if func was called already Christian Brabandt <cb@256bit.org> parents: 14002 diff changeset	1582 fp->uf_profiling = FALSE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1583 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1584 #endif
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1585
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1586 // when being verbose, mention the return value
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1587 if (p_verbose >= 12)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1588 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1589 ++no_wait_return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1590 verbose_enter_scroll();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1591
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1592 if (aborting())
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1593 smsg(_("%s aborted"), SOURCING_NAME);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1594 else if (fc->rettv->v_type == VAR_NUMBER)
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1595 smsg(_("%s returning #%ld"), SOURCING_NAME,
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1596 (long)fc->rettv->vval.v_number);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1597 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1598 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1599 char_u buf[MSG_BUF_LEN];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1600 char_u numbuf2[NUMBUFLEN];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1601 char_u *tofree;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1602 char_u *s;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1603
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1604 // The value may be very long. Skip the middle part, so that we
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1605 // have some idea how it starts and ends. smsg() would always
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1606 // truncate it at the end. Don't want errors such as E724 here.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1607 ++emsg_off;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1608 s = tv2string(fc->rettv, &tofree, numbuf2, 0);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1609 --emsg_off;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1610 if (s != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1611 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1612 if (vim_strsize(s) > MSG_BUF_CLEN)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1613 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1614 trunc_string(s, buf, MSG_BUF_CLEN, MSG_BUF_LEN);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1615 s = buf;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1616 }
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1617 smsg(_("%s returning %s"), SOURCING_NAME, s);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1618 vim_free(tofree);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1619 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1620 }
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1621 msg_puts("\n"); // don't overwrite this either
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1622
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1623 verbose_leave_scroll();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1624 --no_wait_return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1625 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1626
19075 af1eca322b9e patch 8.2.0098: exe stack length can be wrong without being detected Bram Moolenaar <Bram@vim.org> parents: 19035 diff changeset	1627 ESTACK_CHECK_NOW
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1628 estack_pop();
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14430 diff changeset	1629 current_sctx = save_current_sctx;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1630 #ifdef FEAT_PROFILE
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1631 if (do_profiling == PROF_YES)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1632 script_prof_restore(&wait_start);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1633 #endif
14323 9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1634 if (using_sandbox)
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1635 --sandbox;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1636
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1637 if (p_verbose >= 12 && SOURCING_NAME != NULL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1638 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1639 ++no_wait_return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1640 verbose_enter_scroll();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1641
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1642 smsg(_("continuing in %s"), SOURCING_NAME);
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1643 msg_puts("\n"); // don't overwrite this either
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1644
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1645 verbose_leave_scroll();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1646 --no_wait_return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1647 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1648
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1649 did_emsg \|= save_did_emsg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1650 --depth;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1651
11299 4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1652 cleanup_function_call(fc);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1653 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1654
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1655 /*
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1656 * Call a user function after checking the arguments.
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	1657 */
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1658 int
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1659 call_user_func_check(
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1660 ufunc_T *fp,
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1661 int argcount,
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1662 typval_T *argvars,
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1663 typval_T *rettv,
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1664 funcexe_T *funcexe,
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1665 dict_T *selfdict)
14430 2fba714294b9 patch 8.1.0229: crash when dumping profiling data Christian Brabandt <cb@256bit.org> parents: 14323 diff changeset	1666 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1667 int error;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1668 int regular_args = fp->uf_args.ga_len;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1669
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1670 if (fp->uf_flags & FC_RANGE && funcexe->doesrange != NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1671 *funcexe->doesrange = TRUE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1672 if (argcount < regular_args - fp->uf_def_args.ga_len)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1673 error = FCERR_TOOFEW;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1674 else if (!has_varargs(fp) && argcount > regular_args)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1675 error = FCERR_TOOMANY;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1676 else if ((fp->uf_flags & FC_DICT) && selfdict == NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1677 error = FCERR_DICT;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1678 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1679 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1680 int did_save_redo = FALSE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1681 save_redo_T save_redo;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1682
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1683 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1684 * Call the user function.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1685 * Save and restore search patterns, script variables and
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1686 * redo buffer.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1687 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1688 save_search_patterns();
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1689 if (!ins_compl_active())
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1690 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1691 saveRedobuff(&save_redo);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1692 did_save_redo = TRUE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1693 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1694 ++fp->uf_calls;
20433 5950284a517f patch 8.2.0771: Vim9: cannot call a compiled closure from not compiled code Bram Moolenaar <Bram@vim.org> parents: 20397 diff changeset	1695 call_user_func(fp, argcount, argvars, rettv, funcexe,
5950284a517f patch 8.2.0771: Vim9: cannot call a compiled closure from not compiled code Bram Moolenaar <Bram@vim.org> parents: 20397 diff changeset	1696 (fp->uf_flags & FC_DICT) ? selfdict : NULL);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1697 if (--fp->uf_calls <= 0 && fp->uf_refcount <= 0)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1698 // Function was unreferenced while being used, free it now.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1699 func_clear_free(fp, FALSE);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1700 if (did_save_redo)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1701 restoreRedobuff(&save_redo);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1702 restore_search_patterns();
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1703 error = FCERR_NONE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1704 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1705 return error;
10815 f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1706 }
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1707
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1708 /*
9844 9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1709 * There are two kinds of function names:
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1710 * 1. ordinary names, function defined with :function
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1711 * 2. numbered functions and lambdas
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1712 * For the first we only count the name stored in func_hashtab as a reference,
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1713 * using function() does not count as a reference, because the function is
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1714 * looked up by name.
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1715 */
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1716 static int
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1717 func_name_refcount(char_u *name)
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1718 {
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1719 return isdigit(name) \|\| name == '<';
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1720 }
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1721
14927 162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1722 static funccal_entry_T *funccal_stack = NULL;
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1723
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1724 /*
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1725 * Save the current function call pointer, and set it to NULL.
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1726 * Used when executing autocommands and for ":source".
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1727 */
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1728 void
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1729 save_funccal(funccal_entry_T *entry)
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1730 {
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1731 entry->top_funccal = current_funccal;
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1732 entry->next = funccal_stack;
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1733 funccal_stack = entry;
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1734 current_funccal = NULL;
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1735 }
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1736
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1737 void
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1738 restore_funccal(void)
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1739 {
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1740 if (funccal_stack == NULL)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	1741 iemsg("INTERNAL: restore_funccal()");
14927 162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1742 else
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1743 {
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1744 current_funccal = funccal_stack->top_funccal;
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1745 funccal_stack = funccal_stack->next;
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1746 }
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1747 }
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1748
17370 ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: 17251 diff changeset	1749 funccall_T *
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: 17251 diff changeset	1750 get_current_funccal(void)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: 17251 diff changeset	1751 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: 17251 diff changeset	1752 return current_funccal;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: 17251 diff changeset	1753 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: 17251 diff changeset	1754
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1755 /*
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1756 * Mark all functions of script "sid" as deleted.
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1757 */
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1758 void
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1759 delete_script_functions(int sid)
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1760 {
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1761 hashitem_T *hi;
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1762 ufunc_T *fp;
21564 30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	1763 long_u todo = 1;
20193 cf13b26be258 patch 8.2.0652: compiler warning for char conversion Bram Moolenaar <Bram@vim.org> parents: 20189 diff changeset	1764 char_u buf[30];
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1765 size_t len;
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1766
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1767 buf[0] = K_SPECIAL;
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1768 buf[1] = KS_EXTRA;
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1769 buf[2] = (int)KE_SNR;
20193 cf13b26be258 patch 8.2.0652: compiler warning for char conversion Bram Moolenaar <Bram@vim.org> parents: 20189 diff changeset	1770 sprintf((char *)buf + 3, "%d_", sid);
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1771 len = STRLEN(buf);
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1772
21564 30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	1773 while (todo > 0)
30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	1774 {
30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	1775 todo = func_hashtab.ht_used;
30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	1776 for (hi = func_hashtab.ht_array; todo > 0; ++hi)
30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	1777 if (!HASHITEM_EMPTY(hi))
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1778 {
21564 30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	1779 fp = HI2UF(hi);
30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	1780 if (STRNCMP(fp->uf_name, buf, len) == 0)
30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	1781 {
30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	1782 int changed = func_hashtab.ht_changed;
30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	1783
30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	1784 fp->uf_flags \|= FC_DEAD;
30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	1785 func_clear(fp, TRUE);
30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	1786 // When clearing a function another function can be cleared
30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	1787 // as a side effect. When that happens start over.
30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	1788 if (changed != func_hashtab.ht_changed)
30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	1789 break;
30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	1790 }
30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	1791 --todo;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1792 }
21564 30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	1793 }
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1794 }
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1795
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1796 #if defined(EXITFREE) \|\| defined(PROTO)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1797 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1798 free_all_functions(void)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1799 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1800 hashitem_T *hi;
9844 9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1801 ufunc_T *fp;
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1802 long_u skipped = 0;
10815 f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1803 long_u todo = 1;
21319 fb3dcd8ed14d patch 8.2.1210: using ht_used when looping through a hashtab is less reliable Bram Moolenaar <Bram@vim.org> parents: 21313 diff changeset	1804 int changed;
10815 f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1805
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1806 // Clean up the current_funccal chain and the funccal stack.
11299 4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1807 while (current_funccal != NULL)
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1808 {
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1809 clear_tv(current_funccal->rettv);
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1810 cleanup_function_call(current_funccal);
14927 162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1811 if (current_funccal == NULL && funccal_stack != NULL)
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1812 restore_funccal();
11299 4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1813 }
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1814
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1815 // First clear what the functions contain. Since this may lower the
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1816 // reference count of a function, it may also free a function and change
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1817 // the hash table. Restart if that happens.
10815 f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1818 while (todo > 0)
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1819 {
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1820 todo = func_hashtab.ht_used;
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1821 for (hi = func_hashtab.ht_array; todo > 0; ++hi)
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1822 if (!HASHITEM_EMPTY(hi))
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1823 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1824 // clear the def function index now
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1825 fp = HI2UF(hi);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1826 fp->uf_flags &= ~FC_DEAD;
20943 1693ca876049 patch 8.2.1023: Vim9: redefining a function uses a new index every time Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1827 fp->uf_def_status = UF_NOT_COMPILED;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1828
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1829 // Only free functions that are not refcounted, those are
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1830 // supposed to be freed when no longer referenced.
10815 f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1831 if (func_name_refcount(fp->uf_name))
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1832 ++skipped;
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1833 else
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1834 {
21319 fb3dcd8ed14d patch 8.2.1210: using ht_used when looping through a hashtab is less reliable Bram Moolenaar <Bram@vim.org> parents: 21313 diff changeset	1835 changed = func_hashtab.ht_changed;
10815 f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1836 func_clear(fp, TRUE);
21319 fb3dcd8ed14d patch 8.2.1210: using ht_used when looping through a hashtab is less reliable Bram Moolenaar <Bram@vim.org> parents: 21313 diff changeset	1837 if (changed != func_hashtab.ht_changed)
10815 f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1838 {
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1839 skipped = 0;
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1840 break;
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1841 }
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1842 }
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1843 --todo;
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1844 }
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1845 }
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1846
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1847 // Now actually free the functions. Need to start all over every time,
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1848 // because func_free() may change the hash table.
10815 f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1849 skipped = 0;
9844 9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1850 while (func_hashtab.ht_used > skipped)
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1851 {
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1852 todo = func_hashtab.ht_used;
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1853 for (hi = func_hashtab.ht_array; todo > 0; ++hi)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1854 if (!HASHITEM_EMPTY(hi))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1855 {
9844 9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1856 --todo;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1857 // Only free functions that are not refcounted, those are
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1858 // supposed to be freed when no longer referenced.
9844 9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1859 fp = HI2UF(hi);
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1860 if (func_name_refcount(fp->uf_name))
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1861 ++skipped;
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1862 else
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1863 {
20257 683c2da4982b patch 8.2.0684: Vim9: memory leak when using lambda Bram Moolenaar <Bram@vim.org> parents: 20255 diff changeset	1864 func_free(fp, FALSE);
9844 9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1865 skipped = 0;
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1866 break;
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1867 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1868 }
9844 9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1869 }
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1870 if (skipped == 0)
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1871 hash_clear(&func_hashtab);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1872
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1873 free_def_functions();
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1874 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1875 #endif
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1876
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1877 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1878 * Return TRUE if "name" looks like a builtin function name: starts with a
20079 336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	1879 * lower case letter and doesn't contain AUTOLOAD_CHAR or ':'.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1880 * "len" is the length of "name", or -1 for NUL terminated.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1881 */
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1882 int
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1883 builtin_function(char_u *name, int len)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1884 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1885 char_u *p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1886
20079 336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	1887 if (!ASCII_ISLOWER(name[0]) \|\| name[1] == ':')
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1888 return FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1889 p = vim_strchr(name, AUTOLOAD_CHAR);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1890 return p == NULL \|\| (len > 0 && p > name + len);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1891 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1892
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1893 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1894 func_call(
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1895 char_u *name,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1896 typval_T *args,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1897 partial_T *partial,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1898 dict_T *selfdict,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1899 typval_T *rettv)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1900 {
19201 e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 19183 diff changeset	1901 list_T *l = args->vval.v_list;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1902 listitem_T *item;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1903 typval_T argv[MAX_FUNC_ARGS + 1];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1904 int argc = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1905 int r = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1906
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20339 diff changeset	1907 CHECK_LIST_MATERIALIZE(l);
19934 3ff714d765ba patch 8.2.0523: loops are repeated Bram Moolenaar <Bram@vim.org> parents: 19912 diff changeset	1908 FOR_ALL_LIST_ITEMS(l, item)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1909 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1910 if (argc == MAX_FUNC_ARGS - (partial == NULL ? 0 : partial->pt_argc))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1911 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	1912 emsg(_("E699: Too many arguments"));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1913 break;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1914 }
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1915 // Make a copy of each argument. This is needed to be able to set
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1916 // v_lock to VAR_FIXED in the copy without changing the original list.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1917 copy_tv(&item->li_tv, &argv[argc++]);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1918 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1919
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1920 if (item == NULL)
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1921 {
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1922 funcexe_T funcexe;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1923
20007 aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose Bram Moolenaar <Bram@vim.org> parents: 19946 diff changeset	1924 CLEAR_FIELD(funcexe);
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1925 funcexe.firstline = curwin->w_cursor.lnum;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1926 funcexe.lastline = curwin->w_cursor.lnum;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1927 funcexe.evaluate = TRUE;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1928 funcexe.partial = partial;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1929 funcexe.selfdict = selfdict;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1930 r = call_func(name, -1, rettv, argc, argv, &funcexe);
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1931 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1932
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1933 // Free the arguments.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1934 while (argc > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1935 clear_tv(&argv[--argc]);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1936
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1937 return r;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1938 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1939
18104 e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1940 static int callback_depth = 0;
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1941
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1942 int
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1943 get_callback_depth(void)
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1944 {
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1945 return callback_depth;
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1946 }
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1947
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1948 /*
16872 a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	1949 * Invoke call_func() with a callback.
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	1950 */
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	1951 int
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	1952 call_callback(
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	1953 callback_T *callback,
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	1954 int len, // length of "name" or -1 to use strlen()
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	1955 typval_T *rettv, // return value goes here
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	1956 int argcount, // number of "argvars"
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1957 typval_T *argvars) // vars for arguments, must have "argcount"
16872 a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	1958 // PLUS ONE elements!
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	1959 {
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1960 funcexe_T funcexe;
18104 e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1961 int ret;
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1962
20007 aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose Bram Moolenaar <Bram@vim.org> parents: 19946 diff changeset	1963 CLEAR_FIELD(funcexe);
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1964 funcexe.evaluate = TRUE;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1965 funcexe.partial = callback->cb_partial;
18104 e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1966 ++callback_depth;
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1967 ret = call_func(callback->cb_name, len, rettv, argcount, argvars, &funcexe);
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1968 --callback_depth;
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1969 return ret;
16872 a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	1970 }
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	1971
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	1972 /*
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1973 * Give an error message for the result of a function.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1974 * Nothing if "error" is FCERR_NONE.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1975 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1976 void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1977 user_func_error(int error, char_u *name)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1978 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1979 switch (error)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1980 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1981 case FCERR_UNKNOWN:
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1982 emsg_funcname(e_unknownfunc, name);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1983 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1984 case FCERR_NOTMETHOD:
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1985 emsg_funcname(
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1986 N_("E276: Cannot use function as a method: %s"), name);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1987 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1988 case FCERR_DELETED:
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1989 emsg_funcname(N_(e_func_deleted), name);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1990 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1991 case FCERR_TOOMANY:
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1992 emsg_funcname((char *)e_toomanyarg, name);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1993 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1994 case FCERR_TOOFEW:
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1995 emsg_funcname((char *)e_toofewarg, name);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1996 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1997 case FCERR_SCRIPT:
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1998 emsg_funcname(
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1999 N_("E120: Using <SID> not in a script context: %s"), name);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2000 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2001 case FCERR_DICT:
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2002 emsg_funcname(
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2003 N_("E725: Calling dict function without Dictionary: %s"),
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2004 name);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2005 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2006 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2007 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2008
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2009 /*
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2010 * Call a function with its resolved parameters
9626 172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9612 diff changeset	2011 *
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2012 * Return FAIL when the function can't be called, OK otherwise.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2013 * Also returns OK when an error was encountered while executing the function.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2014 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2015 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2016 call_func(
16634 a1ba0bd74e7d patch 8.1.1319: computing function length name in many places Bram Moolenaar <Bram@vim.org> parents: 16615 diff changeset	2017 char_u *funcname, // name of the function
a1ba0bd74e7d patch 8.1.1319: computing function length name in many places Bram Moolenaar <Bram@vim.org> parents: 16615 diff changeset	2018 int len, // length of "name" or -1 to use strlen()
a1ba0bd74e7d patch 8.1.1319: computing function length name in many places Bram Moolenaar <Bram@vim.org> parents: 16615 diff changeset	2019 typval_T *rettv, // return value goes here
a1ba0bd74e7d patch 8.1.1319: computing function length name in many places Bram Moolenaar <Bram@vim.org> parents: 16615 diff changeset	2020 int argcount_in, // number of "argvars"
a1ba0bd74e7d patch 8.1.1319: computing function length name in many places Bram Moolenaar <Bram@vim.org> parents: 16615 diff changeset	2021 typval_T *argvars_in, // vars for arguments, must have "argcount"
a1ba0bd74e7d patch 8.1.1319: computing function length name in many places Bram Moolenaar <Bram@vim.org> parents: 16615 diff changeset	2022 // PLUS ONE elements!
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	2023 funcexe_T *funcexe) // more arguments
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2024 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2025 int ret = FAIL;
19013 dd9ab0674eec patch 8.2.0067: ERROR_UNKNOWN clashes on some systems Bram Moolenaar <Bram@vim.org> parents: 18991 diff changeset	2026 int error = FCERR_NONE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2027 int i;
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2028 ufunc_T *fp = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2029 char_u fname_buf[FLEN_FIXED + 1];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2030 char_u *tofree = NULL;
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2031 char_u *fname = NULL;
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2032 char_u *name = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2033 int argcount = argcount_in;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2034 typval_T *argvars = argvars_in;
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	2035 dict_T *selfdict = funcexe->selfdict;
17638 9ffec4eb8d33 patch 8.1.1816: cannot use a user defined function as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	2036 typval_T argv[MAX_FUNC_ARGS + 1]; // used when "partial" or
9ffec4eb8d33 patch 8.1.1816: cannot use a user defined function as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	2037 // "funcexe->basetv" is not NULL
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2038 int argv_clear = 0;
17646 e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work Bram Moolenaar <Bram@vim.org> parents: 17638 diff changeset	2039 int argv_base = 0;
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	2040 partial_T *partial = funcexe->partial;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2041
17883 6249953b0609 patch 8.1.1938: may crash when out of memory Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	2042 // Initialize rettv so that it is safe for caller to invoke clear_tv(rettv)
6249953b0609 patch 8.1.1938: may crash when out of memory Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	2043 // even when call_func() returns FAIL.
6249953b0609 patch 8.1.1938: may crash when out of memory Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	2044 rettv->v_type = VAR_UNKNOWN;
6249953b0609 patch 8.1.1938: may crash when out of memory Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	2045
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2046 if (partial != NULL)
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2047 fp = partial->pt_func;
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2048 if (fp == NULL)
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2049 {
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2050 // Make a copy of the name, if it comes from a funcref variable it
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2051 // could be changed or deleted in the called function.
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2052 name = len > 0 ? vim_strnsave(funcname, len) : vim_strsave(funcname);
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2053 if (name == NULL)
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2054 return ret;
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2055
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2056 fname = fname_trans_sid(name, fname_buf, &tofree, &error);
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2057 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2058
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	2059 if (funcexe->doesrange != NULL)
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	2060 *funcexe->doesrange = FALSE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2061
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2062 if (partial != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2063 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2064 // When the function has a partial with a dict and there is a dict
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2065 // argument, use the dict argument. That is backwards compatible.
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2066 // When the dict was bound explicitly use the one from the partial.
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	2067 if (partial->pt_dict != NULL && (selfdict == NULL \|\| !partial->pt_auto))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2068 selfdict = partial->pt_dict;
19013 dd9ab0674eec patch 8.2.0067: ERROR_UNKNOWN clashes on some systems Bram Moolenaar <Bram@vim.org> parents: 18991 diff changeset	2069 if (error == FCERR_NONE && partial->pt_argc > 0)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2070 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2071 for (argv_clear = 0; argv_clear < partial->pt_argc; ++argv_clear)
18576 e9675870c480 patch 8.1.2282: crash when passing many arguments through a partial Bram Moolenaar <Bram@vim.org> parents: 18572 diff changeset	2072 {
e9675870c480 patch 8.1.2282: crash when passing many arguments through a partial Bram Moolenaar <Bram@vim.org> parents: 18572 diff changeset	2073 if (argv_clear + argcount_in >= MAX_FUNC_ARGS)
e9675870c480 patch 8.1.2282: crash when passing many arguments through a partial Bram Moolenaar <Bram@vim.org> parents: 18572 diff changeset	2074 {
19013 dd9ab0674eec patch 8.2.0067: ERROR_UNKNOWN clashes on some systems Bram Moolenaar <Bram@vim.org> parents: 18991 diff changeset	2075 error = FCERR_TOOMANY;
18576 e9675870c480 patch 8.1.2282: crash when passing many arguments through a partial Bram Moolenaar <Bram@vim.org> parents: 18572 diff changeset	2076 goto theend;
e9675870c480 patch 8.1.2282: crash when passing many arguments through a partial Bram Moolenaar <Bram@vim.org> parents: 18572 diff changeset	2077 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2078 copy_tv(&partial->pt_argv[argv_clear], &argv[argv_clear]);
18576 e9675870c480 patch 8.1.2282: crash when passing many arguments through a partial Bram Moolenaar <Bram@vim.org> parents: 18572 diff changeset	2079 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2080 for (i = 0; i < argcount_in; ++i)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2081 argv[i + argv_clear] = argvars_in[i];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2082 argvars = argv;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2083 argcount = partial->pt_argc + argcount_in;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2084 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2085 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2086
19013 dd9ab0674eec patch 8.2.0067: ERROR_UNKNOWN clashes on some systems Bram Moolenaar <Bram@vim.org> parents: 18991 diff changeset	2087 if (error == FCERR_NONE && funcexe->evaluate)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2088 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2089 char_u *rfname = fname;
21586 5470c36ed7e6 patch 8.2.1343: Vim9: cannot find global function when using g: Bram Moolenaar <Bram@vim.org> parents: 21566 diff changeset	2090 int is_global = FALSE;
5470c36ed7e6 patch 8.2.1343: Vim9: cannot find global function when using g: Bram Moolenaar <Bram@vim.org> parents: 21566 diff changeset	2091
5470c36ed7e6 patch 8.2.1343: Vim9: cannot find global function when using g: Bram Moolenaar <Bram@vim.org> parents: 21566 diff changeset	2092 // Skip "g:" before a function name.
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2093 if (fp == NULL && fname[0] == 'g' && fname[1] == ':')
21586 5470c36ed7e6 patch 8.2.1343: Vim9: cannot find global function when using g: Bram Moolenaar <Bram@vim.org> parents: 21566 diff changeset	2094 {
5470c36ed7e6 patch 8.2.1343: Vim9: cannot find global function when using g: Bram Moolenaar <Bram@vim.org> parents: 21566 diff changeset	2095 is_global = TRUE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2096 rfname = fname + 2;
21586 5470c36ed7e6 patch 8.2.1343: Vim9: cannot find global function when using g: Bram Moolenaar <Bram@vim.org> parents: 21566 diff changeset	2097 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2098
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2099 rettv->v_type = VAR_NUMBER; // default rettv is number zero
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2100 rettv->vval.v_number = 0;
19013 dd9ab0674eec patch 8.2.0067: ERROR_UNKNOWN clashes on some systems Bram Moolenaar <Bram@vim.org> parents: 18991 diff changeset	2101 error = FCERR_UNKNOWN;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2102
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2103 if (fp != NULL \|\| !builtin_function(rfname, -1))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2104 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2105 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2106 * User defined function.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2107 */
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2108 if (fp == NULL)
21586 5470c36ed7e6 patch 8.2.1343: Vim9: cannot find global function when using g: Bram Moolenaar <Bram@vim.org> parents: 21566 diff changeset	2109 fp = find_func(rfname, is_global, NULL);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2110
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2111 // Trigger FuncUndefined event, may load the function.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2112 if (fp == NULL
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2113 && apply_autocmds(EVENT_FUNCUNDEFINED,
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2114 rfname, rfname, TRUE, NULL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2115 && !aborting())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2116 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2117 // executed an autocommand, search for the function again
21586 5470c36ed7e6 patch 8.2.1343: Vim9: cannot find global function when using g: Bram Moolenaar <Bram@vim.org> parents: 21566 diff changeset	2118 fp = find_func(rfname, is_global, NULL);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2119 }
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2120 // Try loading a package.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2121 if (fp == NULL && script_autoload(rfname, TRUE) && !aborting())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2122 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2123 // loaded a package, search for the function again
21586 5470c36ed7e6 patch 8.2.1343: Vim9: cannot find global function when using g: Bram Moolenaar <Bram@vim.org> parents: 21566 diff changeset	2124 fp = find_func(rfname, is_global, NULL);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2125 }
20079 336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2126 if (fp == NULL)
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2127 {
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2128 char_u *p = untrans_function_name(rfname);
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2129
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2130 // If using Vim9 script try not local to the script.
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2131 // TODO: should not do this if the name started with "s:".
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2132 if (p != NULL)
21586 5470c36ed7e6 patch 8.2.1343: Vim9: cannot find global function when using g: Bram Moolenaar <Bram@vim.org> parents: 21566 diff changeset	2133 fp = find_func(p, is_global, NULL);
20079 336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2134 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2135
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	2136 if (fp != NULL && (fp->uf_flags & FC_DELETED))
19013 dd9ab0674eec patch 8.2.0067: ERROR_UNKNOWN clashes on some systems Bram Moolenaar <Bram@vim.org> parents: 18991 diff changeset	2137 error = FCERR_DELETED;
21006 ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	2138 #ifdef FEAT_LUA
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	2139 else if (fp != NULL && (fp->uf_flags & FC_CFUNC))
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	2140 {
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	2141 cfunc_T cb = fp->uf_cb;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	2142
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	2143 error = (*cb)(argcount, argvars, rettv, fp->uf_cb_state);
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	2144 }
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	2145 #endif
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	2146 else if (fp != NULL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2147 {
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	2148 if (funcexe->argv_func != NULL)
18572 23fef64352a1 patch 8.1.2280: crash when passing partial to substitute() Bram Moolenaar <Bram@vim.org> parents: 18536 diff changeset	2149 // postponed filling in the arguments, do it now
23fef64352a1 patch 8.1.2280: crash when passing partial to substitute() Bram Moolenaar <Bram@vim.org> parents: 18536 diff changeset	2150 argcount = funcexe->argv_func(argcount, argvars, argv_clear,
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	2151 fp->uf_args.ga_len);
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	2152
17638 9ffec4eb8d33 patch 8.1.1816: cannot use a user defined function as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	2153 if (funcexe->basetv != NULL)
9ffec4eb8d33 patch 8.1.1816: cannot use a user defined function as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	2154 {
9ffec4eb8d33 patch 8.1.1816: cannot use a user defined function as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	2155 // Method call: base->Method()
9ffec4eb8d33 patch 8.1.1816: cannot use a user defined function as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	2156 mch_memmove(&argv[1], argvars, sizeof(typval_T) * argcount);
9ffec4eb8d33 patch 8.1.1816: cannot use a user defined function as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	2157 argv[0] = *funcexe->basetv;
9ffec4eb8d33 patch 8.1.1816: cannot use a user defined function as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	2158 argcount++;
17646 e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work Bram Moolenaar <Bram@vim.org> parents: 17638 diff changeset	2159 argvars = argv;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work Bram Moolenaar <Bram@vim.org> parents: 17638 diff changeset	2160 argv_base = 1;
17638 9ffec4eb8d33 patch 8.1.1816: cannot use a user defined function as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	2161 }
9ffec4eb8d33 patch 8.1.1816: cannot use a user defined function as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	2162
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2163 error = call_user_func_check(fp, argcount, argvars, rettv,
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2164 funcexe, selfdict);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2165 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2166 }
17612 e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17606 diff changeset	2167 else if (funcexe->basetv != NULL)
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17606 diff changeset	2168 {
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17606 diff changeset	2169 /*
17638 9ffec4eb8d33 patch 8.1.1816: cannot use a user defined function as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	2170 * expr->method(): Find the method name in the table, call its
9ffec4eb8d33 patch 8.1.1816: cannot use a user defined function as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	2171 * implementation with the base as one of the arguments.
17612 e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17606 diff changeset	2172 */
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17606 diff changeset	2173 error = call_internal_method(fname, argcount, argvars, rettv,
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17606 diff changeset	2174 funcexe->basetv);
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17606 diff changeset	2175 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2176 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2177 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2178 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2179 * Find the function name in the table, call its implementation.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2180 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2181 error = call_internal_func(fname, argcount, argvars, rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2182 }
21586 5470c36ed7e6 patch 8.2.1343: Vim9: cannot find global function when using g: Bram Moolenaar <Bram@vim.org> parents: 21566 diff changeset	2183
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2184 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2185 * The function call (or "FuncUndefined" autocommand sequence) might
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2186 * have been aborted by an error, an interrupt, or an explicitly thrown
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2187 * exception that has not been caught so far. This situation can be
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2188 * tested for by calling aborting(). For an error in an internal
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2189 * function or for the "E132" error in call_user_func(), however, the
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2190 * throw point at which the "force_abort" flag (temporarily reset by
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2191 * emsg()) is normally updated has not been reached yet. We need to
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2192 * update that flag first to make aborting() reliable.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2193 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2194 update_force_abort();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2195 }
19013 dd9ab0674eec patch 8.2.0067: ERROR_UNKNOWN clashes on some systems Bram Moolenaar <Bram@vim.org> parents: 18991 diff changeset	2196 if (error == FCERR_NONE)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2197 ret = OK;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2198
18576 e9675870c480 patch 8.1.2282: crash when passing many arguments through a partial Bram Moolenaar <Bram@vim.org> parents: 18572 diff changeset	2199 theend:
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2200 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2201 * Report an error unless the argument evaluation or function call has been
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2202 * cancelled due to an aborting error, an interrupt, or an exception.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2203 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2204 if (!aborting())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2205 {
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2206 user_func_error(error, (name != NULL) ? name : funcname);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2207 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2208
17646 e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work Bram Moolenaar <Bram@vim.org> parents: 17638 diff changeset	2209 // clear the copies made from the partial
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2210 while (argv_clear > 0)
17646 e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work Bram Moolenaar <Bram@vim.org> parents: 17638 diff changeset	2211 clear_tv(&argv[--argv_clear + argv_base]);
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work Bram Moolenaar <Bram@vim.org> parents: 17638 diff changeset	2212
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2213 vim_free(tofree);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2214 vim_free(name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2215
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2216 return ret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2217 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2218
21401 aa7675a4a0cd patch 8.2.1251: Vim9: warning for pointer usage, test failure undetected Bram Moolenaar <Bram@vim.org> parents: 21319 diff changeset	2219 char_u *
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2220 printable_func_name(ufunc_T *fp)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2221 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2222 return fp->uf_name_exp != NULL ? fp->uf_name_exp : fp->uf_name;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2223 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2224
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2225 /*
19579 aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2226 * List the head of the function: "function name(arg1, arg2)".
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2227 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2228 static void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2229 list_func_head(ufunc_T *fp, int indent)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2230 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2231 int j;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2232
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2233 msg_start();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2234 if (indent)
15543 dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	2235 msg_puts(" ");
20943 1693ca876049 patch 8.2.1023: Vim9: redefining a function uses a new index every time Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	2236 if (fp->uf_def_status != UF_NOT_COMPILED)
19579 aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2237 msg_puts("def ");
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2238 else
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2239 msg_puts("function ");
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2240 msg_puts((char *)printable_func_name(fp));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2241 msg_putchar('(');
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2242 for (j = 0; j < fp->uf_args.ga_len; ++j)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2243 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2244 if (j)
15543 dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	2245 msg_puts(", ");
dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	2246 msg_puts((char *)FUNCARG(fp, j));
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2247 if (fp->uf_arg_types != NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2248 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2249 char *tofree;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2250
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2251 msg_puts(": ");
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2252 msg_puts(type_name(fp->uf_arg_types[j], &tofree));
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2253 vim_free(tofree);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2254 }
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	2255 if (j >= fp->uf_args.ga_len - fp->uf_def_args.ga_len)
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	2256 {
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	2257 msg_puts(" = ");
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	2258 msg_puts(((char **)(fp->uf_def_args.ga_data))
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	2259 [j - fp->uf_args.ga_len + fp->uf_def_args.ga_len]);
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	2260 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2261 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2262 if (fp->uf_varargs)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2263 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2264 if (j)
15543 dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	2265 msg_puts(", ");
dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	2266 msg_puts("...");
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2267 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2268 if (fp->uf_va_name != NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2269 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2270 if (j)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2271 msg_puts(", ");
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2272 msg_puts("...");
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2273 msg_puts((char *)fp->uf_va_name);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2274 if (fp->uf_va_type)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2275 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2276 char *tofree;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2277
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2278 msg_puts(": ");
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2279 msg_puts(type_name(fp->uf_va_type, &tofree));
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2280 vim_free(tofree);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2281 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2282 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2283 msg_putchar(')');
19579 aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2284
20943 1693ca876049 patch 8.2.1023: Vim9: redefining a function uses a new index every time Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	2285 if (fp->uf_def_status != UF_NOT_COMPILED)
19579 aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2286 {
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2287 if (fp->uf_ret_type != &t_void)
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2288 {
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2289 char *tofree;
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2290
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2291 msg_puts(": ");
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2292 msg_puts(type_name(fp->uf_ret_type, &tofree));
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2293 vim_free(tofree);
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2294 }
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2295 }
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2296 else if (fp->uf_flags & FC_ABORT)
15543 dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	2297 msg_puts(" abort");
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2298 if (fp->uf_flags & FC_RANGE)
15543 dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	2299 msg_puts(" range");
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2300 if (fp->uf_flags & FC_DICT)
15543 dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	2301 msg_puts(" dict");
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	2302 if (fp->uf_flags & FC_CLOSURE)
15543 dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	2303 msg_puts(" closure");
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2304 msg_clr_eos();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2305 if (p_verbose > 0)
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14430 diff changeset	2306 last_set_msg(fp->uf_script_ctx);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2307 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2308
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2309 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2310 * Get a function name, translating "<SID>" and "<SNR>".
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2311 * Also handles a Funcref in a List or Dictionary.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2312 * Returns the function name in allocated memory, or NULL for failure.
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2313 * Set "*is_global" to TRUE when the function must be global, unless
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2314 * "is_global" is NULL.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2315 * flags:
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2316 * TFN_INT: internal function name OK
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2317 * TFN_QUIET: be quiet
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2318 * TFN_NO_AUTOLOAD: do not use script autoloading
9717 6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	2319 * TFN_NO_DEREF: do not dereference a Funcref
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2320 * Advances "pp" to just after the function name (if no error).
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2321 */
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	2322 char_u *
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2323 trans_function_name(
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2324 char_u **pp,
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2325 int *is_global,
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2326 int skip, // only find the end, don't evaluate
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2327 int flags,
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2328 funcdict_T *fdp, // return: info about dictionary used
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2329 partial_T **partial) // return: partial of a FuncRef
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2330 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2331 char_u *name = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2332 char_u *start;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2333 char_u *end;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2334 int lead;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2335 char_u sid_buf[20];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2336 int len;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2337 int extra = 0;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2338 lval_T lv;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2339 int vim9script;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2340
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2341 if (fdp != NULL)
20007 aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose Bram Moolenaar <Bram@vim.org> parents: 19946 diff changeset	2342 CLEAR_POINTER(fdp);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2343 start = *pp;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2344
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2345 // Check for hard coded <SNR>: already translated function ID (from a user
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2346 // command).
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2347 if ((pp)[0] == K_SPECIAL && (pp)[1] == KS_EXTRA
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2348 && (*pp)[2] == (int)KE_SNR)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2349 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2350 *pp += 3;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2351 len = get_id_len(pp) + 3;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2352 return vim_strnsave(start, len);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2353 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2354
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2355 // A name starting with "<SID>" or "<SNR>" is local to a script. But
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2356 // don't skip over "s:", get_lval() needs it for "s:dict.func".
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2357 lead = eval_fname_script(start);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2358 if (lead > 2)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2359 start += lead;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2360
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2361 // Note that TFN_ flags use the same values as GLV_ flags.
13002 f7b2ecaeb79c patch 8.0.1377: cannot call a dict function in autoloaded dict Christian Brabandt <cb@256bit.org> parents: 11569 diff changeset	2362 end = get_lval(start, NULL, &lv, FALSE, skip, flags \| GLV_READ_ONLY,
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2363 lead > 2 ? 0 : FNE_CHECK_START);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2364 if (end == start)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2365 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2366 if (!skip)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	2367 emsg(_("E129: Function name required"));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2368 goto theend;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2369 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2370 if (end == NULL \|\| (lv.ll_tv != NULL && (lead > 2 \|\| lv.ll_range)))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2371 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2372 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2373 * Report an invalid expression in braces, unless the expression
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2374 * evaluation has been cancelled due to an aborting error, an
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2375 * interrupt, or an exception.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2376 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2377 if (!aborting())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2378 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2379 if (end != NULL)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	2380 semsg(_(e_invarg2), start);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2381 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2382 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2383 *pp = find_name_end(start, NULL, NULL, FNE_INCL_BR);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2384 goto theend;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2385 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2386
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2387 if (lv.ll_tv != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2388 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2389 if (fdp != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2390 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2391 fdp->fd_dict = lv.ll_dict;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2392 fdp->fd_newkey = lv.ll_newkey;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2393 lv.ll_newkey = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2394 fdp->fd_di = lv.ll_di;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2395 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2396 if (lv.ll_tv->v_type == VAR_FUNC && lv.ll_tv->vval.v_string != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2397 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2398 name = vim_strsave(lv.ll_tv->vval.v_string);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2399 *pp = end;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2400 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2401 else if (lv.ll_tv->v_type == VAR_PARTIAL
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2402 && lv.ll_tv->vval.v_partial != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2403 {
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	2404 name = vim_strsave(partial_name(lv.ll_tv->vval.v_partial));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2405 *pp = end;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2406 if (partial != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2407 *partial = lv.ll_tv->vval.v_partial;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2408 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2409 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2410 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2411 if (!skip && !(flags & TFN_QUIET) && (fdp == NULL
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2412 \|\| lv.ll_dict == NULL \|\| fdp->fd_newkey == NULL))
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	2413 emsg(_(e_funcref));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2414 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2415 *pp = end;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2416 name = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2417 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2418 goto theend;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2419 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2420
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2421 if (lv.ll_name == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2422 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2423 // Error found, but continue after the function name.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2424 *pp = end;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2425 goto theend;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2426 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2427
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2428 // Check if the name is a Funcref. If so, use the value.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2429 if (lv.ll_exp_name != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2430 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2431 len = (int)STRLEN(lv.ll_exp_name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2432 name = deref_func_name(lv.ll_exp_name, &len, partial,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2433 flags & TFN_NO_AUTOLOAD);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2434 if (name == lv.ll_exp_name)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2435 name = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2436 }
9717 6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	2437 else if (!(flags & TFN_NO_DEREF))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2438 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2439 len = (int)(end - *pp);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2440 name = deref_func_name(*pp, &len, partial, flags & TFN_NO_AUTOLOAD);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2441 if (name == *pp)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2442 name = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2443 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2444 if (name != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2445 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2446 name = vim_strsave(name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2447 *pp = end;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2448 if (STRNCMP(name, "<SNR>", 5) == 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2449 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2450 // Change "<SNR>" to the byte sequence.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2451 name[0] = K_SPECIAL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2452 name[1] = KS_EXTRA;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2453 name[2] = (int)KE_SNR;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2454 mch_memmove(name + 3, name + 5, STRLEN(name + 5) + 1);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2455 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2456 goto theend;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2457 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2458
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2459 if (lv.ll_exp_name != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2460 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2461 len = (int)STRLEN(lv.ll_exp_name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2462 if (lead <= 2 && lv.ll_name == lv.ll_exp_name
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2463 && STRNCMP(lv.ll_name, "s:", 2) == 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2464 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2465 // When there was "s:" already or the name expanded to get a
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2466 // leading "s:" then remove it.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2467 lv.ll_name += 2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2468 len -= 2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2469 lead = 2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2470 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2471 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2472 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2473 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2474 // skip over "s:" and "g:"
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2475 if (lead == 2 \|\| (lv.ll_name[0] == 'g' && lv.ll_name[1] == ':'))
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2476 {
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2477 if (is_global != NULL && lv.ll_name[0] == 'g')
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2478 *is_global = TRUE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2479 lv.ll_name += 2;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2480 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2481 len = (int)(end - lv.ll_name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2482 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2483
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2484 // In Vim9 script a user function is script-local by default.
21279 8d1d11afd8c8 patch 8.2.1190: Vim9: checking for Vim9 syntax is spread out Bram Moolenaar <Bram@vim.org> parents: 21263 diff changeset	2485 vim9script = ASCII_ISUPPER(*start) && in_vim9script();
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2486
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2487 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2488 * Copy the function name to allocated memory.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2489 * Accept <SID>name() inside a script, translate into <SNR>123_name().
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2490 * Accept <SNR>123_name() outside a script.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2491 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2492 if (skip)
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2493 lead = 0; // do nothing
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2494 else if (lead > 0 \|\| vim9script)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2495 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2496 if (!vim9script)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2497 lead = 3;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2498 if (vim9script \|\| (lv.ll_exp_name != NULL
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2499 && eval_fname_sid(lv.ll_exp_name))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2500 \|\| eval_fname_sid(*pp))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2501 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2502 // It's script-local, "s:" or "<SID>"
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14430 diff changeset	2503 if (current_sctx.sc_sid <= 0)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2504 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	2505 emsg(_(e_usingsid));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2506 goto theend;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2507 }
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14430 diff changeset	2508 sprintf((char *)sid_buf, "%ld_", (long)current_sctx.sc_sid);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2509 if (vim9script)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2510 extra = 3 + (int)STRLEN(sid_buf);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2511 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2512 lead += (int)STRLEN(sid_buf);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2513 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2514 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2515 else if (!(flags & TFN_INT) && builtin_function(lv.ll_name, len))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2516 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	2517 semsg(_("E128: Function name must start with a capital or \"s:\": %s"),
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2518 start);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2519 goto theend;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2520 }
9717 6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	2521 if (!skip && !(flags & TFN_QUIET) && !(flags & TFN_NO_DEREF))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2522 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2523 char_u *cp = vim_strchr(lv.ll_name, ':');
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2524
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2525 if (cp != NULL && cp < end)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2526 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	2527 semsg(_("E884: Function name cannot contain a colon: %s"), start);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2528 goto theend;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2529 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2530 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2531
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2532 name = alloc(len + lead + extra + 1);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2533 if (name != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2534 {
19225 77cd94083850 patch 8.2.0171: Coverity warning for using uninitialized buffer Bram Moolenaar <Bram@vim.org> parents: 19201 diff changeset	2535 if (!skip && (lead > 0 \|\| vim9script))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2536 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2537 name[0] = K_SPECIAL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2538 name[1] = KS_EXTRA;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2539 name[2] = (int)KE_SNR;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2540 if (vim9script \|\| lead > 3) // If it's "<SID>"
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2541 STRCPY(name + 3, sid_buf);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2542 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2543 mch_memmove(name + lead + extra, lv.ll_name, (size_t)len);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2544 name[lead + extra + len] = NUL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2545 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2546 *pp = end;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2547
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2548 theend:
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2549 clear_lval(&lv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2550 return name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2551 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2552
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2553 /*
20079 336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2554 * Assuming "name" is the result of trans_function_name() and it was prefixed
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2555 * to use the script-local name, return the unmodified name (points into
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2556 * "name"). Otherwise return NULL.
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2557 * This can be used to first search for a script-local function and fall back
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2558 * to the global function if not found.
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2559 */
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2560 char_u *
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2561 untrans_function_name(char_u *name)
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2562 {
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2563 char_u *p;
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2564
21279 8d1d11afd8c8 patch 8.2.1190: Vim9: checking for Vim9 syntax is spread out Bram Moolenaar <Bram@vim.org> parents: 21263 diff changeset	2565 if (*name == K_SPECIAL && in_vim9script())
20079 336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2566 {
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2567 p = vim_strchr(name, '_');
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2568 if (p != NULL)
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2569 return p + 1;
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2570 }
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2571 return NULL;
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2572 }
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2573
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2574 /*
20709 a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2575 * List functions. When "regmatch" is NULL all of then.
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2576 * Otherwise functions matching "regmatch".
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2577 */
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2578 static void
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2579 list_functions(regmatch_T *regmatch)
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2580 {
21319 fb3dcd8ed14d patch 8.2.1210: using ht_used when looping through a hashtab is less reliable Bram Moolenaar <Bram@vim.org> parents: 21313 diff changeset	2581 int changed = func_hashtab.ht_changed;
fb3dcd8ed14d patch 8.2.1210: using ht_used when looping through a hashtab is less reliable Bram Moolenaar <Bram@vim.org> parents: 21313 diff changeset	2582 long_u todo = func_hashtab.ht_used;
20709 a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2583 hashitem_T *hi;
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2584
21319 fb3dcd8ed14d patch 8.2.1210: using ht_used when looping through a hashtab is less reliable Bram Moolenaar <Bram@vim.org> parents: 21313 diff changeset	2585 for (hi = func_hashtab.ht_array; todo > 0 && !got_int; ++hi)
20709 a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2586 {
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2587 if (!HASHITEM_EMPTY(hi))
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2588 {
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2589 ufunc_T *fp = HI2UF(hi);
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2590
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2591 --todo;
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2592 if ((fp->uf_flags & FC_DEAD) == 0
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2593 && (regmatch == NULL
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2594 ? !message_filtered(fp->uf_name)
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2595 && !func_name_refcount(fp->uf_name)
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2596 : !isdigit(*fp->uf_name)
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2597 && vim_regexec(regmatch, fp->uf_name, 0)))
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2598 {
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2599 list_func_head(fp, FALSE);
21319 fb3dcd8ed14d patch 8.2.1210: using ht_used when looping through a hashtab is less reliable Bram Moolenaar <Bram@vim.org> parents: 21313 diff changeset	2600 if (changed != func_hashtab.ht_changed)
20709 a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2601 {
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2602 emsg(_("E454: function list was modified"));
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2603 return;
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2604 }
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2605 }
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2606 }
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2607 }
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2608 }
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2609
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2610 /*
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2611 * ":function" also supporting nested ":def".
21558 1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	2612 * When "name_arg" is not NULL this is a nested function, using "name_arg" for
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	2613 * the function name.
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2614 * Returns a pointer to the function or NULL if no function defined.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2615 */
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2616 ufunc_T *
20528 489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	2617 def_function(exarg_T eap, char_u name_arg)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2618 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2619 char_u *theline;
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2620 char_u *line_to_free = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2621 int j;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2622 int c;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2623 int saved_did_emsg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2624 int saved_wait_return = need_wait_return;
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2625 char_u *name = name_arg;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2626 int is_global = FALSE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2627 char_u *p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2628 char_u *arg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2629 char_u *line_arg = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2630 garray_T newargs;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2631 garray_T argtypes;
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	2632 garray_T default_args;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2633 garray_T newlines;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2634 int varargs = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2635 int flags = 0;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2636 char_u *ret_type = NULL;
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2637 ufunc_T *fp = NULL;
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	2638 int overwrite = FALSE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2639 int indent;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2640 int nesting;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2641 #define MAX_FUNC_NESTING 50
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2642 char nesting_def[MAX_FUNC_NESTING];
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2643 dictitem_T *v;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2644 funcdict_T fudi;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2645 static int func_nr = 0; // number for nameless function
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2646 int paren;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2647 hashitem_T *hi;
17178 40c4cb095d53 patch 8.1.1588: in :let-heredoc line continuation is recognized Bram Moolenaar <Bram@vim.org> parents: 17168 diff changeset	2648 int do_concat = TRUE;
17251 984eef966002 patch 8.1.1625: script line numbers are not exactly right Bram Moolenaar <Bram@vim.org> parents: 17178 diff changeset	2649 linenr_T sourcing_lnum_off;
984eef966002 patch 8.1.1625: script line numbers are not exactly right Bram Moolenaar <Bram@vim.org> parents: 17178 diff changeset	2650 linenr_T sourcing_lnum_top;
17462 9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	2651 int is_heredoc = FALSE;
9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	2652 char_u *skip_until = NULL;
9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	2653 char_u *heredoc_trimmed = NULL;
21435 8ec9e2b54ce7 patch 8.2.1268: Vim9: no error for using double quote comment Bram Moolenaar <Bram@vim.org> parents: 21401 diff changeset	2654 int vim9script = in_vim9script();
21598 7b5b9558500a patch 8.2.1349: Vim9: can define a function with the name of an import Bram Moolenaar <Bram@vim.org> parents: 21586 diff changeset	2655 imported_T *import = NULL;
21435 8ec9e2b54ce7 patch 8.2.1268: Vim9: no error for using double quote comment Bram Moolenaar <Bram@vim.org> parents: 21401 diff changeset	2656
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2657 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2658 * ":function" without argument: list functions.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2659 */
20138 d0a9766167ab patch 8.2.0624: Vim9: no check for space before #comment Bram Moolenaar <Bram@vim.org> parents: 20081 diff changeset	2660 if (ends_excmd2(eap->cmd, eap->arg))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2661 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2662 if (!eap->skip)
20709 a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2663 list_functions(NULL);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2664 eap->nextcmd = check_nextcmd(eap->arg);
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2665 return NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2666 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2667
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2668 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2669 * ":function /pat": list functions matching pattern.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2670 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2671 if (*eap->arg == '/')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2672 {
19892 5feb426d2ea1 patch 8.2.0502: Vim9: some code is not tested Bram Moolenaar <Bram@vim.org> parents: 19888 diff changeset	2673 p = skip_regexp(eap->arg + 1, '/', TRUE);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2674 if (!eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2675 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2676 regmatch_T regmatch;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2677
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2678 c = *p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2679 *p = NUL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2680 regmatch.regprog = vim_regcomp(eap->arg + 1, RE_MAGIC);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2681 *p = c;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2682 if (regmatch.regprog != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2683 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2684 regmatch.rm_ic = p_ic;
20709 a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2685 list_functions(&regmatch);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2686 vim_regfree(regmatch.regprog);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2687 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2688 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2689 if (*p == '/')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2690 ++p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2691 eap->nextcmd = check_nextcmd(p);
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2692 return NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2693 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2694
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2695 ga_init(&newargs);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2696 ga_init(&argtypes);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2697 ga_init(&default_args);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2698
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2699 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2700 * Get the function name. There are these situations:
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2701 * func normal function name
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2702 * "name" == func, "fudi.fd_dict" == NULL
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2703 * dict.func new dictionary entry
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2704 * "name" == NULL, "fudi.fd_dict" set,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2705 * "fudi.fd_di" == NULL, "fudi.fd_newkey" == func
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2706 * dict.func existing dict entry with a Funcref
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2707 * "name" == func, "fudi.fd_dict" set,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2708 * "fudi.fd_di" set, "fudi.fd_newkey" == NULL
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2709 * dict.func existing dict entry that's not a Funcref
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2710 * "name" == NULL, "fudi.fd_dict" set,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2711 * "fudi.fd_di" set, "fudi.fd_newkey" == NULL
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2712 * s:func script-local function name
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2713 * g:func global function name, same as "func"
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2714 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2715 p = eap->arg;
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2716 if (name_arg != NULL)
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2717 {
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2718 // nested function, argument is (args).
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2719 paren = TRUE;
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2720 CLEAR_FIELD(fudi);
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2721 }
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2722 else
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2723 {
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2724 name = trans_function_name(&p, &is_global, eap->skip,
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2725 TFN_NO_AUTOLOAD, &fudi, NULL);
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2726 paren = (vim_strchr(p, '(') != NULL);
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2727 if (name == NULL && (fudi.fd_dict == NULL \|\| !paren) && !eap->skip)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2728 {
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2729 /*
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2730 * Return on an invalid expression in braces, unless the expression
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2731 * evaluation has been cancelled due to an aborting error, an
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2732 * interrupt, or an exception.
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2733 */
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2734 if (!aborting())
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2735 {
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2736 if (!eap->skip && fudi.fd_newkey != NULL)
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2737 semsg(_(e_dictkey), fudi.fd_newkey);
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2738 vim_free(fudi.fd_newkey);
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2739 return NULL;
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2740 }
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2741 else
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2742 eap->skip = TRUE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2743 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2744 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2745
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2746 // An error in a function call during evaluation of an expression in magic
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2747 // braces should not cause the function not to be defined.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2748 saved_did_emsg = did_emsg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2749 did_emsg = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2750
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2751 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2752 * ":function func" with only function name: list function.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2753 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2754 if (!paren)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2755 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2756 if (!ends_excmd(*skipwhite(p)))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2757 {
21461 4dfd00f481fb patch 8.2.1281: the "trailing characters" error can be hard to understand Bram Moolenaar <Bram@vim.org> parents: 21435 diff changeset	2758 semsg(_(e_trailing_arg), p);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2759 goto ret_free;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2760 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2761 eap->nextcmd = check_nextcmd(p);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2762 if (eap->nextcmd != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2763 *p = NUL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2764 if (!eap->skip && !got_int)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2765 {
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2766 fp = find_func(name, is_global, NULL);
20079 336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2767 if (fp == NULL && ASCII_ISUPPER(*eap->arg))
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2768 {
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2769 char_u *up = untrans_function_name(name);
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2770
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2771 // With Vim9 script the name was made script-local, if not
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2772 // found try again with the original name.
20081 75589416d02d patch 8.2.0596: crash in test49 Bram Moolenaar <Bram@vim.org> parents: 20079 diff changeset	2773 if (up != NULL)
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2774 fp = find_func(up, FALSE, NULL);
20079 336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2775 }
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2776
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2777 if (fp != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2778 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2779 list_func_head(fp, TRUE);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2780 for (j = 0; j < fp->uf_lines.ga_len && !got_int; ++j)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2781 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2782 if (FUNCLINE(fp, j) == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2783 continue;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2784 msg_putchar('\n');
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2785 msg_outnum((long)(j + 1));
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2786 if (j < 9)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2787 msg_putchar(' ');
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2788 if (j < 99)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2789 msg_putchar(' ');
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2790 msg_prt_line(FUNCLINE(fp, j), FALSE);
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2791 out_flush(); // show a line at a time
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2792 ui_breakcheck();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2793 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2794 if (!got_int)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2795 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2796 msg_putchar('\n');
20943 1693ca876049 patch 8.2.1023: Vim9: redefining a function uses a new index every time Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	2797 if (fp->uf_def_status != UF_NOT_COMPILED)
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2798 msg_puts(" enddef");
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2799 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2800 msg_puts(" endfunction");
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2801 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2802 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2803 else
20079 336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2804 emsg_funcname(N_("E123: Undefined function: %s"), eap->arg);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2805 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2806 goto ret_free;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2807 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2808
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2809 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2810 * ":function name(arg1, arg2)" Define function.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2811 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2812 p = skipwhite(p);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2813 if (*p != '(')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2814 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2815 if (!eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2816 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	2817 semsg(_("E124: Missing '(': %s"), eap->arg);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2818 goto ret_free;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2819 }
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2820 // attempt to continue by skipping some text
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2821 if (vim_strchr(p, '(') != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2822 p = vim_strchr(p, '(');
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2823 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2824 p = skipwhite(p + 1);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2825
21479 90d859a402cc patch 8.2.1290: Vim9: cannot replace a global function Bram Moolenaar <Bram@vim.org> parents: 21461 diff changeset	2826 // In Vim9 script only global functions can be redefined.
90d859a402cc patch 8.2.1290: Vim9: cannot replace a global function Bram Moolenaar <Bram@vim.org> parents: 21461 diff changeset	2827 if (vim9script && eap->forceit && !is_global)
90d859a402cc patch 8.2.1290: Vim9: cannot replace a global function Bram Moolenaar <Bram@vim.org> parents: 21461 diff changeset	2828 {
90d859a402cc patch 8.2.1290: Vim9: cannot replace a global function Bram Moolenaar <Bram@vim.org> parents: 21461 diff changeset	2829 emsg(_(e_nobang));
90d859a402cc patch 8.2.1290: Vim9: cannot replace a global function Bram Moolenaar <Bram@vim.org> parents: 21461 diff changeset	2830 goto ret_free;
90d859a402cc patch 8.2.1290: Vim9: cannot replace a global function Bram Moolenaar <Bram@vim.org> parents: 21461 diff changeset	2831 }
90d859a402cc patch 8.2.1290: Vim9: cannot replace a global function Bram Moolenaar <Bram@vim.org> parents: 21461 diff changeset	2832
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2833 ga_init2(&newlines, (int)sizeof(char_u *), 3);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2834
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2835 if (!eap->skip && name_arg == NULL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2836 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2837 // Check the name of the function. Unless it's a dictionary function
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2838 // (that we are overwriting).
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2839 if (name != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2840 arg = name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2841 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2842 arg = fudi.fd_newkey;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2843 if (arg != NULL && (fudi.fd_di == NULL
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2844 \|\| (fudi.fd_di->di_tv.v_type != VAR_FUNC
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2845 && fudi.fd_di->di_tv.v_type != VAR_PARTIAL)))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2846 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2847 if (*arg == K_SPECIAL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2848 j = 3;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2849 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2850 j = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2851 while (arg[j] != NUL && (j == 0 ? eval_isnamec1(arg[j])
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2852 : eval_isnamec(arg[j])))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2853 ++j;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2854 if (arg[j] != NUL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2855 emsg_funcname((char *)e_invarg2, arg);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2856 }
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2857 // Disallow using the g: dict.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2858 if (fudi.fd_dict != NULL && fudi.fd_dict->dv_scope == VAR_DEF_SCOPE)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	2859 emsg(_("E862: Cannot use g: here"));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2860 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2861
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	2862 // This may get more lines and make the pointers into the first line
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	2863 // invalid.
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2864 if (get_function_args(&p, ')', &newargs,
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2865 eap->cmdidx == CMD_def ? &argtypes : NULL,
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	2866 &varargs, &default_args, eap->skip,
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	2867 eap, &line_to_free) == FAIL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2868 goto errret_2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2869
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2870 if (eap->cmdidx == CMD_def)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2871 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2872 // find the return type: :def Func(): type
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2873 if (*p == ':')
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2874 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2875 ret_type = skipwhite(p + 1);
21500 574517d682cf patch 8.2.1300: Vim9: optional argument type not parsed properly Bram Moolenaar <Bram@vim.org> parents: 21479 diff changeset	2876 p = skip_type(ret_type, FALSE);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2877 if (p > ret_type)
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	2878 {
20830 9064044fd4f6 patch 8.2.0967: unnecessary type casts for vim_strnsave() Bram Moolenaar <Bram@vim.org> parents: 20816 diff changeset	2879 ret_type = vim_strnsave(ret_type, p - ret_type);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2880 p = skipwhite(p);
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	2881 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2882 else
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	2883 {
20144 c21a1d91f78d patch 8.2.0627: Vim9: error message does not work Bram Moolenaar <Bram@vim.org> parents: 20142 diff changeset	2884 semsg(_("E1056: expected a type: %s"), ret_type);
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	2885 ret_type = NULL;
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	2886 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2887 }
21435 8ec9e2b54ce7 patch 8.2.1268: Vim9: no error for using double quote comment Bram Moolenaar <Bram@vim.org> parents: 21401 diff changeset	2888 p = skipwhite(p);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2889 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2890 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2891 // find extra arguments "range", "dict", "abort" and "closure"
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2892 for (;;)
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	2893 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2894 p = skipwhite(p);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2895 if (STRNCMP(p, "range", 5) == 0)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2896 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2897 flags \|= FC_RANGE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2898 p += 5;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2899 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2900 else if (STRNCMP(p, "dict", 4) == 0)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2901 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2902 flags \|= FC_DICT;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2903 p += 4;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2904 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2905 else if (STRNCMP(p, "abort", 5) == 0)
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	2906 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2907 flags \|= FC_ABORT;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2908 p += 5;
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	2909 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2910 else if (STRNCMP(p, "closure", 7) == 0)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2911 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2912 flags \|= FC_CLOSURE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2913 p += 7;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2914 if (current_funccal == NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2915 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2916 emsg_funcname(N_("E932: Closure function should not be at top level: %s"),
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2917 name == NULL ? (char_u *)"" : name);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2918 goto erret;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2919 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2920 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2921 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2922 break;
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	2923 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2924
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2925 // When there is a line break use what follows for the function body.
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2926 // Makes 'exe "func Test()\n...\nendfunc"' work.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2927 if (*p == '\n')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2928 line_arg = p + 1;
21435 8ec9e2b54ce7 patch 8.2.1268: Vim9: no error for using double quote comment Bram Moolenaar <Bram@vim.org> parents: 21401 diff changeset	2929 else if (*p != NUL
21528 e0aa9b81f6a9 patch 8.2.1314: Vim9: rule for comment after :function is confusing Bram Moolenaar <Bram@vim.org> parents: 21500 diff changeset	2930 && !(*p == '"' && (!vim9script \|\| eap->cmdidx == CMD_function)
e0aa9b81f6a9 patch 8.2.1314: Vim9: rule for comment after :function is confusing Bram Moolenaar <Bram@vim.org> parents: 21500 diff changeset	2931 && eap->cmdidx != CMD_def)
21435 8ec9e2b54ce7 patch 8.2.1268: Vim9: no error for using double quote comment Bram Moolenaar <Bram@vim.org> parents: 21401 diff changeset	2932 && !(*p == '#' && (vim9script \|\| eap->cmdidx == CMD_def))
8ec9e2b54ce7 patch 8.2.1268: Vim9: no error for using double quote comment Bram Moolenaar <Bram@vim.org> parents: 21401 diff changeset	2933 && !eap->skip
8ec9e2b54ce7 patch 8.2.1268: Vim9: no error for using double quote comment Bram Moolenaar <Bram@vim.org> parents: 21401 diff changeset	2934 && !did_emsg)
21461 4dfd00f481fb patch 8.2.1281: the "trailing characters" error can be hard to understand Bram Moolenaar <Bram@vim.org> parents: 21435 diff changeset	2935 semsg(_(e_trailing_arg), p);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2936
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2937 /*
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2938 * Read the body of the function, until "}", ":endfunction" or ":enddef" is
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2939 * found.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2940 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2941 if (KeyTyped)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2942 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2943 // Check if the function already exists, don't let the user type the
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2944 // whole function before telling him it doesn't work! For a script we
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2945 // need to skip the body to be able to find what follows.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2946 if (!eap->skip && !eap->forceit)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2947 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2948 if (fudi.fd_dict != NULL && fudi.fd_newkey == NULL)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	2949 emsg(_(e_funcdict));
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2950 else if (name != NULL && find_func(name, is_global, NULL) != NULL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2951 emsg_funcname(e_funcexts, name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2952 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2953
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2954 if (!eap->skip && did_emsg)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2955 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2956
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2957 msg_putchar('\n'); // don't overwrite the function name
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2958 cmdline_row = msg_row;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2959 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2960
17251 984eef966002 patch 8.1.1625: script line numbers are not exactly right Bram Moolenaar <Bram@vim.org> parents: 17178 diff changeset	2961 // Save the starting line number.
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	2962 sourcing_lnum_top = SOURCING_LNUM;
17251 984eef966002 patch 8.1.1625: script line numbers are not exactly right Bram Moolenaar <Bram@vim.org> parents: 17178 diff changeset	2963
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2964 indent = 2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2965 nesting = 0;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2966 nesting_def[nesting] = (eap->cmdidx == CMD_def);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2967 for (;;)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2968 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2969 if (KeyTyped)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2970 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2971 msg_scroll = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2972 saved_wait_return = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2973 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2974 need_wait_return = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2975
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2976 if (line_arg != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2977 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2978 // Use eap->arg, split up in parts by line breaks.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2979 theline = line_arg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2980 p = vim_strchr(theline, '\n');
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2981 if (p == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2982 line_arg += STRLEN(line_arg);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2983 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2984 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2985 *p = NUL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2986 line_arg = p + 1;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2987 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2988 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2989 else
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2990 {
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2991 vim_free(line_to_free);
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2992 if (eap->getline == NULL)
17178 40c4cb095d53 patch 8.1.1588: in :let-heredoc line continuation is recognized Bram Moolenaar <Bram@vim.org> parents: 17168 diff changeset	2993 theline = getcmdline(':', 0L, indent, do_concat);
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2994 else
17178 40c4cb095d53 patch 8.1.1588: in :let-heredoc line continuation is recognized Bram Moolenaar <Bram@vim.org> parents: 17168 diff changeset	2995 theline = eap->getline(':', eap->cookie, indent, do_concat);
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2996 line_to_free = theline;
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2997 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2998 if (KeyTyped)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2999 lines_left = Rows - 1;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3000 if (theline == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3001 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3002 if (eap->cmdidx == CMD_def)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3003 emsg(_("E1057: Missing :enddef"));
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3004 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3005 emsg(_("E126: Missing :endfunction"));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3006 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3007 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3008
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	3009 // Detect line continuation: SOURCING_LNUM increased more than one.
17251 984eef966002 patch 8.1.1625: script line numbers are not exactly right Bram Moolenaar <Bram@vim.org> parents: 17178 diff changeset	3010 sourcing_lnum_off = get_sourced_lnum(eap->getline, eap->cookie);
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	3011 if (SOURCING_LNUM < sourcing_lnum_off)
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	3012 sourcing_lnum_off -= SOURCING_LNUM;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3013 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3014 sourcing_lnum_off = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3015
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3016 if (skip_until != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3017 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3018 // Don't check for ":endfunc"/":enddef" between
17462 9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	3019 // * ":append" and "."
9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	3020 // * ":python <<EOF" and "EOF"
9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	3021 // * ":let {var-name} =<< [trim] {marker}" and "{marker}"
9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	3022 if (heredoc_trimmed == NULL
9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	3023 \|\| (is_heredoc && skipwhite(theline) == theline)
9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	3024 \|\| STRNCMP(theline, heredoc_trimmed,
9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	3025 STRLEN(heredoc_trimmed)) == 0)
16708 98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3026 {
17462 9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	3027 if (heredoc_trimmed == NULL)
9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	3028 p = theline;
9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	3029 else if (is_heredoc)
9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	3030 p = skipwhite(theline) == theline
9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	3031 ? theline : theline + STRLEN(heredoc_trimmed);
9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	3032 else
9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	3033 p = theline + STRLEN(heredoc_trimmed);
16708 98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3034 if (STRCMP(p, skip_until) == 0)
98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3035 {
98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3036 VIM_CLEAR(skip_until);
17462 9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	3037 VIM_CLEAR(heredoc_trimmed);
17178 40c4cb095d53 patch 8.1.1588: in :let-heredoc line continuation is recognized Bram Moolenaar <Bram@vim.org> parents: 17168 diff changeset	3038 do_concat = TRUE;
17462 9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	3039 is_heredoc = FALSE;
16708 98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3040 }
98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3041 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3042 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3043 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3044 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3045 // skip ':' and blanks
11129 f4ea50924c6d patch 8.0.0452: some macros are in lower case Christian Brabandt <cb@256bit.org> parents: 10815 diff changeset	3046 for (p = theline; VIM_ISWHITE(p) \|\| p == ':'; ++p)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3047 ;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3048
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3049 // Check for "endfunction" or "enddef".
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3050 if (checkforcmd(&p, nesting_def[nesting]
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3051 ? "enddef" : "endfunction", 4) && nesting-- == 0)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3052 {
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3053 char_u *nextcmd = NULL;
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3054
11543 57c452316da1 patch 8.0.0654: no warning for text after :endfunction Christian Brabandt <cb@256bit.org> parents: 11325 diff changeset	3055 if (*p == '\|')
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3056 nextcmd = p + 1;
11543 57c452316da1 patch 8.0.0654: no warning for text after :endfunction Christian Brabandt <cb@256bit.org> parents: 11325 diff changeset	3057 else if (line_arg != NULL && *skipwhite(line_arg) != NUL)
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3058 nextcmd = line_arg;
11543 57c452316da1 patch 8.0.0654: no warning for text after :endfunction Christian Brabandt <cb@256bit.org> parents: 11325 diff changeset	3059 else if (p != NUL && p != '"' && p_verbose > 0)
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3060 give_warning2(eap->cmdidx == CMD_def
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3061 ? (char_u *)_("W1001: Text found after :enddef: %s")
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3062 : (char_u *)_("W22: Text found after :endfunction: %s"),
11561 7ad79766365a patch 8.0.0663: unexpected error message only when 'verbose' is set Christian Brabandt <cb@256bit.org> parents: 11545 diff changeset	3063 p, TRUE);
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3064 if (nextcmd != NULL)
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3065 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3066 // Another command follows. If the line came from "eap" we
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3067 // can simply point into it, otherwise we need to change
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3068 // "eap->cmdlinep".
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3069 eap->nextcmd = nextcmd;
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3070 if (line_to_free != NULL)
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3071 {
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3072 vim_free(*eap->cmdlinep);
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3073 *eap->cmdlinep = line_to_free;
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3074 line_to_free = NULL;
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3075 }
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3076 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3077 break;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3078 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3079
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3080 // Increase indent inside "if", "while", "for" and "try", decrease
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3081 // at "end".
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3082 if (indent > 2 && (*p == '}' \|\| STRNCMP(p, "end", 3) == 0))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3083 indent -= 2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3084 else if (STRNCMP(p, "if", 2) == 0
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3085 \|\| STRNCMP(p, "wh", 2) == 0
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3086 \|\| STRNCMP(p, "for", 3) == 0
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3087 \|\| STRNCMP(p, "try", 3) == 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3088 indent += 2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3089
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3090 // Check for defining a function inside this function.
19183 1168c53d1b49 patch 8.2.0150: cannot define python function when using :execute Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	3091 // Only recognize "def" inside "def", not inside "function",
1168c53d1b49 patch 8.2.0150: cannot define python function when using :execute Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	3092 // For backwards compatibility, see Test_function_python().
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3093 c = *p;
19183 1168c53d1b49 patch 8.2.0150: cannot define python function when using :execute Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	3094 if (checkforcmd(&p, "function", 2)
1168c53d1b49 patch 8.2.0150: cannot define python function when using :execute Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	3095 \|\| (eap->cmdidx == CMD_def && checkforcmd(&p, "def", 3)))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3096 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3097 if (*p == '!')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3098 p = skipwhite(p + 1);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3099 p += eval_fname_script(p);
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3100 vim_free(trans_function_name(&p, NULL, TRUE, 0, NULL, NULL));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3101 if (*skipwhite(p) == '(')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3102 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3103 if (nesting == MAX_FUNC_NESTING - 1)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3104 emsg(_("E1058: function nesting too deep"));
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3105 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3106 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3107 ++nesting;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3108 nesting_def[nesting] = (c == 'd');
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3109 indent += 2;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3110 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3111 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3112 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3113
19253 a8d2d3c8f0b3 patch 8.2.0185: Vim9 script: cannot use "if has()" to skip lines Bram Moolenaar <Bram@vim.org> parents: 19225 diff changeset	3114 // Check for ":append", ":change", ":insert". Not for :def.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3115 p = skip_range(p, NULL);
19253 a8d2d3c8f0b3 patch 8.2.0185: Vim9 script: cannot use "if has()" to skip lines Bram Moolenaar <Bram@vim.org> parents: 19225 diff changeset	3116 if (eap->cmdidx != CMD_def
a8d2d3c8f0b3 patch 8.2.0185: Vim9 script: cannot use "if has()" to skip lines Bram Moolenaar <Bram@vim.org> parents: 19225 diff changeset	3117 && ((p[0] == 'a' && (!ASCII_ISALPHA(p[1]) \|\| p[1] == 'p'))
10573 3f777388b6ad patch 8.0.0176: cannot use :change inside a function definition Christian Brabandt <cb@256bit.org> parents: 10359 diff changeset	3118 \|\| (p[0] == 'c'
3f777388b6ad patch 8.0.0176: cannot use :change inside a function definition Christian Brabandt <cb@256bit.org> parents: 10359 diff changeset	3119 && (!ASCII_ISALPHA(p[1]) \|\| (p[1] == 'h'
3f777388b6ad patch 8.0.0176: cannot use :change inside a function definition Christian Brabandt <cb@256bit.org> parents: 10359 diff changeset	3120 && (!ASCII_ISALPHA(p[2]) \|\| (p[2] == 'a'
3f777388b6ad patch 8.0.0176: cannot use :change inside a function definition Christian Brabandt <cb@256bit.org> parents: 10359 diff changeset	3121 && (STRNCMP(&p[3], "nge", 3) != 0
3f777388b6ad patch 8.0.0176: cannot use :change inside a function definition Christian Brabandt <cb@256bit.org> parents: 10359 diff changeset	3122 \|\| !ASCII_ISALPHA(p[6])))))))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3123 \|\| (p[0] == 'i'
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3124 && (!ASCII_ISALPHA(p[1]) \|\| (p[1] == 'n'
19253 a8d2d3c8f0b3 patch 8.2.0185: Vim9 script: cannot use "if has()" to skip lines Bram Moolenaar <Bram@vim.org> parents: 19225 diff changeset	3125 && (!ASCII_ISALPHA(p[2])
a8d2d3c8f0b3 patch 8.2.0185: Vim9 script: cannot use "if has()" to skip lines Bram Moolenaar <Bram@vim.org> parents: 19225 diff changeset	3126 \|\| (p[2] == 's'
a8d2d3c8f0b3 patch 8.2.0185: Vim9 script: cannot use "if has()" to skip lines Bram Moolenaar <Bram@vim.org> parents: 19225 diff changeset	3127 && (!ASCII_ISALPHA(p[3])
a8d2d3c8f0b3 patch 8.2.0185: Vim9 script: cannot use "if has()" to skip lines Bram Moolenaar <Bram@vim.org> parents: 19225 diff changeset	3128 \|\| p[3] == 'e'))))))))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3129 skip_until = vim_strsave((char_u *)".");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3130
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3131 // Check for ":python <<EOF", ":tcl <<EOF", etc.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3132 arg = skipwhite(skiptowhite(p));
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3133 if (arg[0] == '<' && arg[1] =='<'
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3134 && ((p[0] == 'p' && p[1] == 'y'
10722 7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10573 diff changeset	3135 && (!ASCII_ISALNUM(p[2]) \|\| p[2] == 't'
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10573 diff changeset	3136 \|\| ((p[2] == '3' \|\| p[2] == 'x')
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10573 diff changeset	3137 && !ASCII_ISALPHA(p[3]))))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3138 \|\| (p[0] == 'p' && p[1] == 'e'
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3139 && (!ASCII_ISALPHA(p[2]) \|\| p[2] == 'r'))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3140 \|\| (p[0] == 't' && p[1] == 'c'
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3141 && (!ASCII_ISALPHA(p[2]) \|\| p[2] == 'l'))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3142 \|\| (p[0] == 'l' && p[1] == 'u' && p[2] == 'a'
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3143 && !ASCII_ISALPHA(p[3]))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3144 \|\| (p[0] == 'r' && p[1] == 'u' && p[2] == 'b'
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3145 && (!ASCII_ISALPHA(p[3]) \|\| p[3] == 'y'))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3146 \|\| (p[0] == 'm' && p[1] == 'z'
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3147 && (!ASCII_ISALPHA(p[2]) \|\| p[2] == 's'))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3148 ))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3149 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3150 // ":python <<" continues until a dot, like ":append"
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3151 p = skipwhite(arg + 2);
20045 04ef2ccf2519 patch 8.2.0578: heredoc for interfaces does not support "trim" Bram Moolenaar <Bram@vim.org> parents: 20029 diff changeset	3152 if (STRNCMP(p, "trim", 4) == 0)
04ef2ccf2519 patch 8.2.0578: heredoc for interfaces does not support "trim" Bram Moolenaar <Bram@vim.org> parents: 20029 diff changeset	3153 {
04ef2ccf2519 patch 8.2.0578: heredoc for interfaces does not support "trim" Bram Moolenaar <Bram@vim.org> parents: 20029 diff changeset	3154 // Ignore leading white space.
04ef2ccf2519 patch 8.2.0578: heredoc for interfaces does not support "trim" Bram Moolenaar <Bram@vim.org> parents: 20029 diff changeset	3155 p = skipwhite(p + 4);
04ef2ccf2519 patch 8.2.0578: heredoc for interfaces does not support "trim" Bram Moolenaar <Bram@vim.org> parents: 20029 diff changeset	3156 heredoc_trimmed = vim_strnsave(theline,
20830 9064044fd4f6 patch 8.2.0967: unnecessary type casts for vim_strnsave() Bram Moolenaar <Bram@vim.org> parents: 20816 diff changeset	3157 skipwhite(theline) - theline);
20045 04ef2ccf2519 patch 8.2.0578: heredoc for interfaces does not support "trim" Bram Moolenaar <Bram@vim.org> parents: 20029 diff changeset	3158 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3159 if (*p == NUL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3160 skip_until = vim_strsave((char_u *)".");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3161 else
20830 9064044fd4f6 patch 8.2.0967: unnecessary type casts for vim_strnsave() Bram Moolenaar <Bram@vim.org> parents: 20816 diff changeset	3162 skip_until = vim_strnsave(p, skiptowhite(p) - p);
20045 04ef2ccf2519 patch 8.2.0578: heredoc for interfaces does not support "trim" Bram Moolenaar <Bram@vim.org> parents: 20029 diff changeset	3163 do_concat = FALSE;
04ef2ccf2519 patch 8.2.0578: heredoc for interfaces does not support "trim" Bram Moolenaar <Bram@vim.org> parents: 20029 diff changeset	3164 is_heredoc = TRUE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3165 }
16708 98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3166
98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3167 // Check for ":let v =<< [trim] EOF"
18536 c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3168 // and ":let [a, b] =<< [trim] EOF"
16708 98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3169 arg = skipwhite(skiptowhite(p));
18536 c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3170 if (*arg == '[')
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3171 arg = vim_strchr(arg, ']');
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3172 if (arg != NULL)
16708 98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3173 {
18536 c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3174 arg = skipwhite(skiptowhite(arg));
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3175 if ( arg[0] == '=' && arg[1] == '<' && arg[2] =='<'
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3176 && ((p[0] == 'l'
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3177 && p[1] == 'e'
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3178 && (!ASCII_ISALNUM(p[2])
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3179 \|\| (p[2] == 't' && !ASCII_ISALNUM(p[3]))))))
16708 98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3180 {
18536 c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3181 p = skipwhite(arg + 3);
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3182 if (STRNCMP(p, "trim", 4) == 0)
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3183 {
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3184 // Ignore leading white space.
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3185 p = skipwhite(p + 4);
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3186 heredoc_trimmed = vim_strnsave(theline,
20830 9064044fd4f6 patch 8.2.0967: unnecessary type casts for vim_strnsave() Bram Moolenaar <Bram@vim.org> parents: 20816 diff changeset	3187 skipwhite(theline) - theline);
18536 c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3188 }
20830 9064044fd4f6 patch 8.2.0967: unnecessary type casts for vim_strnsave() Bram Moolenaar <Bram@vim.org> parents: 20816 diff changeset	3189 skip_until = vim_strnsave(p, skiptowhite(p) - p);
18536 c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3190 do_concat = FALSE;
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3191 is_heredoc = TRUE;
16708 98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3192 }
98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3193 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3194 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3195
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3196 // Add the line to the function.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3197 if (ga_grow(&newlines, 1 + sourcing_lnum_off) == FAIL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3198 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3199
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3200 // Copy the line to newly allocated memory. get_one_sourceline()
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3201 // allocates 250 bytes per line, this saves 80% on average. The cost
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3202 // is an extra alloc/free.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3203 p = vim_strsave(theline);
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3204 if (p == NULL)
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3205 goto erret;
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3206 ((char_u **)(newlines.ga_data))[newlines.ga_len++] = p;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3207
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3208 // Add NULL lines for continuation lines, so that the line count is
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3209 // equal to the index in the growarray.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3210 while (sourcing_lnum_off-- > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3211 ((char_u **)(newlines.ga_data))[newlines.ga_len++] = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3212
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3213 // Check for end of eap->arg.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3214 if (line_arg != NULL && *line_arg == NUL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3215 line_arg = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3216 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3217
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3218 // Don't define the function when skipping commands or when an error was
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3219 // detected.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3220 if (eap->skip \|\| did_emsg)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3221 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3222
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3223 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3224 * If there are no errors, add the function
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3225 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3226 if (fudi.fd_dict == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3227 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3228 hashtab_T *ht;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3229
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3230 v = find_var(name, &ht, FALSE);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3231 if (v != NULL && v->di_tv.v_type == VAR_FUNC)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3232 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3233 emsg_funcname(N_("E707: Function name conflicts with variable: %s"),
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3234 name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3235 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3236 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3237
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3238 fp = find_func_even_dead(name, is_global, NULL);
21598 7b5b9558500a patch 8.2.1349: Vim9: can define a function with the name of an import Bram Moolenaar <Bram@vim.org> parents: 21586 diff changeset	3239 if (vim9script)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3240 {
21598 7b5b9558500a patch 8.2.1349: Vim9: can define a function with the name of an import Bram Moolenaar <Bram@vim.org> parents: 21586 diff changeset	3241 char_u *uname = untrans_function_name(name);
7b5b9558500a patch 8.2.1349: Vim9: can define a function with the name of an import Bram Moolenaar <Bram@vim.org> parents: 21586 diff changeset	3242
7b5b9558500a patch 8.2.1349: Vim9: can define a function with the name of an import Bram Moolenaar <Bram@vim.org> parents: 21586 diff changeset	3243 import = find_imported(uname == NULL ? name : uname, 0, NULL);
7b5b9558500a patch 8.2.1349: Vim9: can define a function with the name of an import Bram Moolenaar <Bram@vim.org> parents: 21586 diff changeset	3244 }
7b5b9558500a patch 8.2.1349: Vim9: can define a function with the name of an import Bram Moolenaar <Bram@vim.org> parents: 21586 diff changeset	3245
7b5b9558500a patch 8.2.1349: Vim9: can define a function with the name of an import Bram Moolenaar <Bram@vim.org> parents: 21586 diff changeset	3246 if (fp != NULL \|\| import != NULL)
7b5b9558500a patch 8.2.1349: Vim9: can define a function with the name of an import Bram Moolenaar <Bram@vim.org> parents: 21586 diff changeset	3247 {
7b5b9558500a patch 8.2.1349: Vim9: can define a function with the name of an import Bram Moolenaar <Bram@vim.org> parents: 21586 diff changeset	3248 int dead = fp != NULL && (fp->uf_flags & FC_DEAD);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3249
15008 67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	3250 // Function can be replaced with "function!" and when sourcing the
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	3251 // same script again, but only once.
21598 7b5b9558500a patch 8.2.1349: Vim9: can define a function with the name of an import Bram Moolenaar <Bram@vim.org> parents: 21586 diff changeset	3252 // A name that is used by an import can not be overruled.
7b5b9558500a patch 8.2.1349: Vim9: can define a function with the name of an import Bram Moolenaar <Bram@vim.org> parents: 21586 diff changeset	3253 if (import != NULL
7b5b9558500a patch 8.2.1349: Vim9: can define a function with the name of an import Bram Moolenaar <Bram@vim.org> parents: 21586 diff changeset	3254 \|\| (!dead && !eap->forceit
15008 67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	3255 && (fp->uf_script_ctx.sc_sid != current_sctx.sc_sid
21598 7b5b9558500a patch 8.2.1349: Vim9: can define a function with the name of an import Bram Moolenaar <Bram@vim.org> parents: 21586 diff changeset	3256 \|\| fp->uf_script_ctx.sc_seq == current_sctx.sc_seq)))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3257 {
21598 7b5b9558500a patch 8.2.1349: Vim9: can define a function with the name of an import Bram Moolenaar <Bram@vim.org> parents: 21586 diff changeset	3258 if (vim9script)
7b5b9558500a patch 8.2.1349: Vim9: can define a function with the name of an import Bram Moolenaar <Bram@vim.org> parents: 21586 diff changeset	3259 emsg_funcname(e_already_defined, name);
7b5b9558500a patch 8.2.1349: Vim9: can define a function with the name of an import Bram Moolenaar <Bram@vim.org> parents: 21586 diff changeset	3260 else
7b5b9558500a patch 8.2.1349: Vim9: can define a function with the name of an import Bram Moolenaar <Bram@vim.org> parents: 21586 diff changeset	3261 emsg_funcname(e_funcexts, name);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3262 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3263 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3264 if (fp->uf_calls > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3265 {
15008 67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	3266 emsg_funcname(
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	3267 N_("E127: Cannot redefine function %s: It is in use"),
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3268 name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3269 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3270 }
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3271 if (fp->uf_refcount > 1)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3272 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3273 // This function is referenced somewhere, don't redefine it but
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3274 // create a new one.
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3275 --fp->uf_refcount;
9733 59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	3276 fp->uf_flags \|= FC_REMOVED;
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3277 fp = NULL;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3278 overwrite = TRUE;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3279 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3280 else
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3281 {
19035 b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time Bram Moolenaar <Bram@vim.org> parents: 19013 diff changeset	3282 char_u *exp_name = fp->uf_name_exp;
b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time Bram Moolenaar <Bram@vim.org> parents: 19013 diff changeset	3283
b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time Bram Moolenaar <Bram@vim.org> parents: 19013 diff changeset	3284 // redefine existing function, keep the expanded name
13244 ac42c4b11dbc patch 8.0.1496: clearing a pointer takes two lines Christian Brabandt <cb@256bit.org> parents: 13096 diff changeset	3285 VIM_CLEAR(name);
19035 b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time Bram Moolenaar <Bram@vim.org> parents: 19013 diff changeset	3286 fp->uf_name_exp = NULL;
14430 2fba714294b9 patch 8.1.0229: crash when dumping profiling data Christian Brabandt <cb@256bit.org> parents: 14323 diff changeset	3287 func_clear_items(fp);
19035 b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time Bram Moolenaar <Bram@vim.org> parents: 19013 diff changeset	3288 fp->uf_name_exp = exp_name;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3289 fp->uf_flags &= ~FC_DEAD;
14430 2fba714294b9 patch 8.1.0229: crash when dumping profiling data Christian Brabandt <cb@256bit.org> parents: 14323 diff changeset	3290 #ifdef FEAT_PROFILE
2fba714294b9 patch 8.1.0229: crash when dumping profiling data Christian Brabandt <cb@256bit.org> parents: 14323 diff changeset	3291 fp->uf_profiling = FALSE;
2fba714294b9 patch 8.1.0229: crash when dumping profiling data Christian Brabandt <cb@256bit.org> parents: 14323 diff changeset	3292 fp->uf_prof_initialized = FALSE;
2fba714294b9 patch 8.1.0229: crash when dumping profiling data Christian Brabandt <cb@256bit.org> parents: 14323 diff changeset	3293 #endif
20943 1693ca876049 patch 8.2.1023: Vim9: redefining a function uses a new index every time Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	3294 clear_def_function(fp);
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3295 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3296 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3297 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3298 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3299 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3300 char numbuf[20];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3301
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3302 fp = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3303 if (fudi.fd_newkey == NULL && !eap->forceit)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3304 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	3305 emsg(_(e_funcdict));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3306 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3307 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3308 if (fudi.fd_di == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3309 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3310 // Can't add a function to a locked dictionary
15780 5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference Bram Moolenaar <Bram@vim.org> parents: 15762 diff changeset	3311 if (var_check_lock(fudi.fd_dict->dv_lock, eap->arg, FALSE))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3312 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3313 }
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3314 // Can't change an existing function if it is locked
15780 5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference Bram Moolenaar <Bram@vim.org> parents: 15762 diff changeset	3315 else if (var_check_lock(fudi.fd_di->di_tv.v_lock, eap->arg, FALSE))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3316 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3317
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3318 // Give the function a sequential number. Can only be used with a
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3319 // Funcref!
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3320 vim_free(name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3321 sprintf(numbuf, "%d", ++func_nr);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3322 name = vim_strsave((char_u *)numbuf);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3323 if (name == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3324 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3325 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3326
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3327 if (fp == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3328 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3329 if (fudi.fd_dict == NULL && vim_strchr(name, AUTOLOAD_CHAR) != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3330 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3331 int slen, plen;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3332 char_u *scriptname;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3333
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3334 // Check that the autoload name matches the script name.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3335 j = FAIL;
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	3336 if (SOURCING_NAME != NULL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3337 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3338 scriptname = autoload_name(name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3339 if (scriptname != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3340 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3341 p = vim_strchr(scriptname, '/');
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3342 plen = (int)STRLEN(p);
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	3343 slen = (int)STRLEN(SOURCING_NAME);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3344 if (slen > plen && fnamecmp(p,
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	3345 SOURCING_NAME + slen - plen) == 0)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3346 j = OK;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3347 vim_free(scriptname);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3348 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3349 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3350 if (j == FAIL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3351 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	3352 semsg(_("E746: Function name does not match script file name: %s"), name);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3353 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3354 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3355 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3356
17659 121bdff812b4 patch 8.1.1827: allocating more memory than needed for extended structs Bram Moolenaar <Bram@vim.org> parents: 17646 diff changeset	3357 fp = alloc_clear(offsetof(ufunc_T, uf_name) + STRLEN(name) + 1);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3358 if (fp == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3359 goto erret;
20943 1693ca876049 patch 8.2.1023: Vim9: redefining a function uses a new index every time Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	3360 fp->uf_def_status = eap->cmdidx == CMD_def ? UF_TO_BE_COMPILED
20528 489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3361 : UF_NOT_COMPILED;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3362
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3363 if (fudi.fd_dict != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3364 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3365 if (fudi.fd_di == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3366 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3367 // add new dict entry
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3368 fudi.fd_di = dictitem_alloc(fudi.fd_newkey);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3369 if (fudi.fd_di == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3370 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3371 vim_free(fp);
20542 dd3165956464 patch 8.2.0825: def_function() may return pointer that was freed Bram Moolenaar <Bram@vim.org> parents: 20538 diff changeset	3372 fp = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3373 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3374 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3375 if (dict_add(fudi.fd_dict, fudi.fd_di) == FAIL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3376 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3377 vim_free(fudi.fd_di);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3378 vim_free(fp);
20542 dd3165956464 patch 8.2.0825: def_function() may return pointer that was freed Bram Moolenaar <Bram@vim.org> parents: 20538 diff changeset	3379 fp = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3380 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3381 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3382 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3383 else
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3384 // overwrite existing dict entry
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3385 clear_tv(&fudi.fd_di->di_tv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3386 fudi.fd_di->di_tv.v_type = VAR_FUNC;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3387 fudi.fd_di->di_tv.vval.v_string = vim_strsave(name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3388
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3389 // behave like "dict" was used
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3390 flags \|= FC_DICT;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3391 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3392
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3393 // insert the new function in the function list
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	3394 set_ufunc_name(fp, name);
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3395 if (overwrite)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3396 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3397 hi = hash_find(&func_hashtab, name);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3398 hi->hi_key = UF2HIKEY(fp);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3399 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3400 else if (hash_add(&func_hashtab, UF2HIKEY(fp)) == FAIL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3401 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3402 vim_free(fp);
20542 dd3165956464 patch 8.2.0825: def_function() may return pointer that was freed Bram Moolenaar <Bram@vim.org> parents: 20538 diff changeset	3403 fp = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3404 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3405 }
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3406 fp->uf_refcount = 1;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3407 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3408 fp->uf_args = newargs;
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	3409 fp->uf_def_args = default_args;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3410 fp->uf_ret_type = &t_any;
19912 d4fa9db88d16 patch 8.2.0512: Vim9: no optional arguments in func type Bram Moolenaar <Bram@vim.org> parents: 19900 diff changeset	3411 fp->uf_func_type = &t_func_any;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3412
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3413 if (eap->cmdidx == CMD_def)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3414 {
19944 3055cd26e139 patch 8.2.0528: Vim9: function arguments insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19934 diff changeset	3415 int lnum_save = SOURCING_LNUM;
19297 84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3416
20943 1693ca876049 patch 8.2.1023: Vim9: redefining a function uses a new index every time Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	3417 fp->uf_def_status = UF_TO_BE_COMPILED;
20528 489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3418
19297 84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3419 // error messages are for the first function line
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3420 SOURCING_LNUM = sourcing_lnum_top;
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3421
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3422 // parse the argument types
19912 d4fa9db88d16 patch 8.2.0512: Vim9: no optional arguments in func type Bram Moolenaar <Bram@vim.org> parents: 19900 diff changeset	3423 ga_init2(&fp->uf_type_list, sizeof(type_T *), 10);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3424
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3425 if (argtypes.ga_len > 0)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3426 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3427 // When "varargs" is set the last name/type goes into uf_va_name
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3428 // and uf_va_type.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3429 int len = argtypes.ga_len - (varargs ? 1 : 0);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3430
19944 3055cd26e139 patch 8.2.0528: Vim9: function arguments insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19934 diff changeset	3431 if (len > 0)
3055cd26e139 patch 8.2.0528: Vim9: function arguments insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19934 diff changeset	3432 fp->uf_arg_types = ALLOC_CLEAR_MULT(type_T *, len);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3433 if (fp->uf_arg_types != NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3434 {
19297 84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3435 int i;
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3436 type_T *type;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3437
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3438 for (i = 0; i < len; ++ i)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3439 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3440 p = ((char_u **)argtypes.ga_data)[i];
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3441 if (p == NULL)
19946 8466e62a2481 patch 8.2.0529: Vim9: function argument with default not checked Bram Moolenaar <Bram@vim.org> parents: 19944 diff changeset	3442 // will get the type from the default value
8466e62a2481 patch 8.2.0529: Vim9: function argument with default not checked Bram Moolenaar <Bram@vim.org> parents: 19944 diff changeset	3443 type = &t_unknown;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3444 else
19297 84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3445 type = parse_type(&p, &fp->uf_type_list);
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3446 if (type == NULL)
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3447 {
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3448 SOURCING_LNUM = lnum_save;
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3449 goto errret_2;
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3450 }
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3451 fp->uf_arg_types[i] = type;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3452 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3453 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3454 if (varargs)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3455 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3456 // Move the last argument "...name: type" to uf_va_name and
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3457 // uf_va_type.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3458 fp->uf_va_name = ((char_u **)fp->uf_args.ga_data)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3459 [fp->uf_args.ga_len - 1];
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3460 --fp->uf_args.ga_len;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3461 p = ((char_u **)argtypes.ga_data)[len];
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3462 if (p == NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3463 // todo: get type from default value
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3464 fp->uf_va_type = &t_any;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3465 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3466 fp->uf_va_type = parse_type(&p, &fp->uf_type_list);
19297 84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3467 if (fp->uf_va_type == NULL)
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3468 {
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3469 SOURCING_LNUM = lnum_save;
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3470 goto errret_2;
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3471 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3472 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3473 varargs = FALSE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3474 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3475
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3476 // parse the return type, if any
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3477 if (ret_type == NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3478 fp->uf_ret_type = &t_void;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3479 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3480 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3481 p = ret_type;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3482 fp->uf_ret_type = parse_type(&p, &fp->uf_type_list);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3483 }
20339 7587d892c00c patch 8.2.0725: Vim9: cannot call a function declared later in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 20279 diff changeset	3484 SOURCING_LNUM = lnum_save;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3485 }
20528 489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3486 else
20943 1693ca876049 patch 8.2.1023: Vim9: redefining a function uses a new index every time Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	3487 fp->uf_def_status = UF_NOT_COMPILED;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3488
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3489 fp->uf_lines = newlines;
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	3490 if ((flags & FC_CLOSURE) != 0)
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	3491 {
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3492 if (register_closure(fp) == FAIL)
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	3493 goto erret;
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	3494 }
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	3495 else
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	3496 fp->uf_scoped = NULL;
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	3497
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3498 #ifdef FEAT_PROFILE
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3499 if (prof_def_func())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3500 func_do_profile(fp);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3501 #endif
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3502 fp->uf_varargs = varargs;
14323 9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	3503 if (sandbox)
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	3504 flags \|= FC_SANDBOX;
21435 8ec9e2b54ce7 patch 8.2.1268: Vim9: no error for using double quote comment Bram Moolenaar <Bram@vim.org> parents: 21401 diff changeset	3505 if (vim9script && !ASCII_ISUPPER(*fp->uf_name))
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3506 flags \|= FC_VIM9;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3507 fp->uf_flags = flags;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3508 fp->uf_calls = 0;
19443 6b1a59e71f85 patch 8.2.0279: Vim9: no test for deleted :def function Bram Moolenaar <Bram@vim.org> parents: 19421 diff changeset	3509 fp->uf_cleared = FALSE;
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14430 diff changeset	3510 fp->uf_script_ctx = current_sctx;
17251 984eef966002 patch 8.1.1625: script line numbers are not exactly right Bram Moolenaar <Bram@vim.org> parents: 17178 diff changeset	3511 fp->uf_script_ctx.sc_lnum += sourcing_lnum_top;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3512 if (is_export)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3513 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3514 fp->uf_flags \|= FC_EXPORT;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3515 // let ex_export() know the export worked.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3516 is_export = FALSE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3517 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3518
20532 cb4831fa7e25 patch 8.2.0820: Vim9: function type isn't set until compiled Bram Moolenaar <Bram@vim.org> parents: 20528 diff changeset	3519 if (eap->cmdidx == CMD_def)
cb4831fa7e25 patch 8.2.0820: Vim9: function type isn't set until compiled Bram Moolenaar <Bram@vim.org> parents: 20528 diff changeset	3520 set_function_type(fp);
20945 0653b9b72091 patch 8.2.1024: Vim9: no error for using "let g:var = val" Bram Moolenaar <Bram@vim.org> parents: 20943 diff changeset	3521 else if (fp->uf_script_ctx.sc_version == SCRIPT_VERSION_VIM9)
0653b9b72091 patch 8.2.1024: Vim9: no error for using "let g:var = val" Bram Moolenaar <Bram@vim.org> parents: 20943 diff changeset	3522 // :func does not use Vim9 script syntax, even in a Vim9 script file
0653b9b72091 patch 8.2.1024: Vim9: no error for using "let g:var = val" Bram Moolenaar <Bram@vim.org> parents: 20943 diff changeset	3523 fp->uf_script_ctx.sc_version = SCRIPT_VERSION_MAX;
20532 cb4831fa7e25 patch 8.2.0820: Vim9: function type isn't set until compiled Bram Moolenaar <Bram@vim.org> parents: 20528 diff changeset	3524
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3525 goto ret_free;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3526
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3527 erret:
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3528 ga_clear_strings(&newargs);
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	3529 ga_clear_strings(&default_args);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3530 errret_2:
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3531 ga_clear_strings(&newlines);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3532 ret_free:
19685 d64f403289db patch 8.2.0399: various memory leaks Bram Moolenaar <Bram@vim.org> parents: 19579 diff changeset	3533 ga_clear_strings(&argtypes);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3534 vim_free(skip_until);
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3535 vim_free(line_to_free);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3536 vim_free(fudi.fd_newkey);
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3537 if (name != name_arg)
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3538 vim_free(name);
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	3539 vim_free(ret_type);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3540 did_emsg \|= saved_did_emsg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3541 need_wait_return \|= saved_wait_return;
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3542
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3543 return fp;
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3544 }
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3545
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3546 /*
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3547 * ":function"
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3548 */
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3549 void
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3550 ex_function(exarg_T *eap)
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3551 {
20528 489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3552 (void)def_function(eap, NULL);
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3553 }
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3554
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3555 /*
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3556 * :defcompile - compile all :def functions in the current script.
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3557 */
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3558 void
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3559 ex_defcompile(exarg_T *eap UNUSED)
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3560 {
21313 e641f678bdb9 patch 8.2.1207: Vim9: crash in expr test when run in the GUI Bram Moolenaar <Bram@vim.org> parents: 21279 diff changeset	3561 long todo = (long)func_hashtab.ht_used;
e641f678bdb9 patch 8.2.1207: Vim9: crash in expr test when run in the GUI Bram Moolenaar <Bram@vim.org> parents: 21279 diff changeset	3562 int changed = func_hashtab.ht_changed;
20528 489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3563 hashitem_T *hi;
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3564 ufunc_T *ufunc;
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3565
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3566 for (hi = func_hashtab.ht_array; todo > 0 && !got_int; ++hi)
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3567 {
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3568 if (!HASHITEM_EMPTY(hi))
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3569 {
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3570 --todo;
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3571 ufunc = HI2UF(hi);
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3572 if (ufunc->uf_script_ctx.sc_sid == current_sctx.sc_sid
20943 1693ca876049 patch 8.2.1023: Vim9: redefining a function uses a new index every time Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	3573 && ufunc->uf_def_status == UF_TO_BE_COMPILED)
20544 e8132bec4b0f patch 8.2.0826: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20542 diff changeset	3574 {
20528 489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3575 compile_def_function(ufunc, FALSE, NULL);
20544 e8132bec4b0f patch 8.2.0826: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20542 diff changeset	3576
21313 e641f678bdb9 patch 8.2.1207: Vim9: crash in expr test when run in the GUI Bram Moolenaar <Bram@vim.org> parents: 21279 diff changeset	3577 if (func_hashtab.ht_changed != changed)
20544 e8132bec4b0f patch 8.2.0826: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20542 diff changeset	3578 {
21313 e641f678bdb9 patch 8.2.1207: Vim9: crash in expr test when run in the GUI Bram Moolenaar <Bram@vim.org> parents: 21279 diff changeset	3579 // a function has been added or removed, need to start over
e641f678bdb9 patch 8.2.1207: Vim9: crash in expr test when run in the GUI Bram Moolenaar <Bram@vim.org> parents: 21279 diff changeset	3580 todo = (long)func_hashtab.ht_used;
e641f678bdb9 patch 8.2.1207: Vim9: crash in expr test when run in the GUI Bram Moolenaar <Bram@vim.org> parents: 21279 diff changeset	3581 changed = func_hashtab.ht_changed;
20544 e8132bec4b0f patch 8.2.0826: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20542 diff changeset	3582 hi = func_hashtab.ht_array;
20546 1ea55bad1234 patch 8.2.0827: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20544 diff changeset	3583 --hi;
20544 e8132bec4b0f patch 8.2.0826: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20542 diff changeset	3584 }
e8132bec4b0f patch 8.2.0826: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20542 diff changeset	3585 }
20528 489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3586 }
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3587 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3588 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3589
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3590 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3591 * Return 5 if "p" starts with "<SID>" or "<SNR>" (ignoring case).
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3592 * Return 2 if "p" starts with "s:".
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3593 * Return 0 otherwise.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3594 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3595 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3596 eval_fname_script(char_u *p)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3597 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3598 // Use MB_STRICMP() because in Turkish comparing the "I" may not work with
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3599 // the standard library function.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3600 if (p[0] == '<' && (MB_STRNICMP(p + 1, "SID>", 4) == 0
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3601 \|\| MB_STRNICMP(p + 1, "SNR>", 4) == 0))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3602 return 5;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3603 if (p[0] == 's' && p[1] == ':')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3604 return 2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3605 return 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3606 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3607
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3608 int
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3609 translated_function_exists(char_u *name, int is_global)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3610 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3611 if (builtin_function(name, -1))
17612 e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17606 diff changeset	3612 return has_internal_func(name);
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3613 return find_func(name, is_global, NULL) != NULL;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3614 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3615
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3616 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3617 * Return TRUE when "ufunc" has old-style "..." varargs
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3618 * or named varargs "...name: type".
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3619 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3620 int
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3621 has_varargs(ufunc_T *ufunc)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3622 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3623 return ufunc->uf_varargs \|\| ufunc->uf_va_name != NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3624 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3625
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3626 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3627 * Return TRUE if a function "name" exists.
9717 6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	3628 * If "no_defef" is TRUE, do not dereference a Funcref.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3629 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3630 int
9717 6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	3631 function_exists(char_u *name, int no_deref)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3632 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3633 char_u *nm = name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3634 char_u *p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3635 int n = FALSE;
9717 6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	3636 int flag;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3637 int is_global = FALSE;
9717 6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	3638
6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	3639 flag = TFN_INT \| TFN_QUIET \| TFN_NO_AUTOLOAD;
6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	3640 if (no_deref)
6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	3641 flag \|= TFN_NO_DEREF;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3642 p = trans_function_name(&nm, &is_global, FALSE, flag, NULL, NULL);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3643 nm = skipwhite(nm);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3644
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3645 // Only accept "funcname", "funcname ", "funcname (..." and
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3646 // "funcname(...", not "funcname!...".
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3647 if (p != NULL && (nm == NUL \|\| nm == '('))
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3648 n = translated_function_exists(p, is_global);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3649 vim_free(p);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3650 return n;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3651 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3652
15555 d89c5b339c2a patch 8.1.0785: depending on the configuration some functions are unused Bram Moolenaar <Bram@vim.org> parents: 15543 diff changeset	3653 #if defined(FEAT_PYTHON) \|\| defined(FEAT_PYTHON3) \|\| defined(PROTO)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3654 char_u *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3655 get_expanded_name(char_u *name, int check)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3656 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3657 char_u *nm = name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3658 char_u *p;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3659 int is_global = FALSE;
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3660
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3661 p = trans_function_name(&nm, &is_global, FALSE,
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3662 TFN_INT\|TFN_QUIET, NULL, NULL);
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3663
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3664 if (p != NULL && *nm == NUL
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3665 && (!check \|\| translated_function_exists(p, is_global)))
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3666 return p;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3667
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3668 vim_free(p);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3669 return NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3670 }
15555 d89c5b339c2a patch 8.1.0785: depending on the configuration some functions are unused Bram Moolenaar <Bram@vim.org> parents: 15543 diff changeset	3671 #endif
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3672
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3673 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3674 * Function given to ExpandGeneric() to obtain the list of user defined
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3675 * function names.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3676 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3677 char_u *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3678 get_user_func_name(expand_T *xp, int idx)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3679 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3680 static long_u done;
21319 fb3dcd8ed14d patch 8.2.1210: using ht_used when looping through a hashtab is less reliable Bram Moolenaar <Bram@vim.org> parents: 21313 diff changeset	3681 static int changed;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3682 static hashitem_T *hi;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3683 ufunc_T *fp;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3684
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3685 if (idx == 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3686 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3687 done = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3688 hi = func_hashtab.ht_array;
21319 fb3dcd8ed14d patch 8.2.1210: using ht_used when looping through a hashtab is less reliable Bram Moolenaar <Bram@vim.org> parents: 21313 diff changeset	3689 changed = func_hashtab.ht_changed;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3690 }
21319 fb3dcd8ed14d patch 8.2.1210: using ht_used when looping through a hashtab is less reliable Bram Moolenaar <Bram@vim.org> parents: 21313 diff changeset	3691 if (changed == func_hashtab.ht_changed && done < func_hashtab.ht_used)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3692 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3693 if (done++ > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3694 ++hi;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3695 while (HASHITEM_EMPTY(hi))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3696 ++hi;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3697 fp = HI2UF(hi);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3698
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3699 // don't show dead, dict and lambda functions
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3700 if ((fp->uf_flags & FC_DEAD) \|\| (fp->uf_flags & FC_DICT)
9638 af0d98d8836e commit https://github.com/vim/vim/commit/b49edc11a1872fa99befa9a4a8ea6c8537868038 Christian Brabandt <cb@256bit.org> parents: 9626 diff changeset	3701 \|\| STRNCMP(fp->uf_name, "<lambda>", 8) == 0)
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3702 return (char_u *)"";
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3703
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3704 if (STRLEN(fp->uf_name) + 4 >= IOSIZE)
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3705 return fp->uf_name; // prevents overflow
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3706
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3707 cat_func_name(IObuff, fp);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3708 if (xp->xp_context != EXPAND_USER_FUNC)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3709 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3710 STRCAT(IObuff, "(");
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3711 if (!has_varargs(fp) && fp->uf_args.ga_len == 0)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3712 STRCAT(IObuff, ")");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3713 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3714 return IObuff;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3715 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3716 return NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3717 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3718
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3719 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3720 * ":delfunction {name}"
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3721 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3722 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3723 ex_delfunction(exarg_T *eap)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3724 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3725 ufunc_T *fp = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3726 char_u *p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3727 char_u *name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3728 funcdict_T fudi;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3729 int is_global = FALSE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3730
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3731 p = eap->arg;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3732 name = trans_function_name(&p, &is_global, eap->skip, 0, &fudi, NULL);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3733 vim_free(fudi.fd_newkey);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3734 if (name == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3735 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3736 if (fudi.fd_dict != NULL && !eap->skip)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	3737 emsg(_(e_funcref));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3738 return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3739 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3740 if (!ends_excmd(*skipwhite(p)))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3741 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3742 vim_free(name);
21461 4dfd00f481fb patch 8.2.1281: the "trailing characters" error can be hard to understand Bram Moolenaar <Bram@vim.org> parents: 21435 diff changeset	3743 semsg(_(e_trailing_arg), p);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3744 return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3745 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3746 eap->nextcmd = check_nextcmd(p);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3747 if (eap->nextcmd != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3748 *p = NUL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3749
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3750 if (!eap->skip)
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3751 fp = find_func(name, is_global, NULL);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3752 vim_free(name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3753
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3754 if (!eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3755 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3756 if (fp == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3757 {
11545 1780e6fecb30 patch 8.0.0655: not easy to make sure a function does not exist Christian Brabandt <cb@256bit.org> parents: 11543 diff changeset	3758 if (!eap->forceit)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	3759 semsg(_(e_nofunc), eap->arg);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3760 return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3761 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3762 if (fp->uf_calls > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3763 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	3764 semsg(_("E131: Cannot delete function %s: It is in use"), eap->arg);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3765 return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3766 }
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3767 if (fp->uf_flags & FC_VIM9)
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3768 {
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3769 semsg(_("E1084: Cannot delete Vim9 script function %s"), eap->arg);
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3770 return;
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3771 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3772
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3773 if (fudi.fd_dict != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3774 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3775 // Delete the dict item that refers to the function, it will
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3776 // invoke func_unref() and possibly delete the function.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3777 dictitem_remove(fudi.fd_dict, fudi.fd_di);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3778 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3779 else
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3780 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3781 // A normal function (not a numbered function or lambda) has a
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3782 // refcount of 1 for the entry in the hashtable. When deleting
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3783 // it and the refcount is more than one, it should be kept.
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3784 // A numbered function and lambda should be kept if the refcount is
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3785 // one or more.
9733 59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	3786 if (fp->uf_refcount > (func_name_refcount(fp->uf_name) ? 0 : 1))
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3787 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3788 // Function is still referenced somewhere. Don't free it but
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3789 // do remove it from the hashtable.
9733 59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	3790 if (func_remove(fp))
59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	3791 fp->uf_refcount--;
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3792 fp->uf_flags \|= FC_DELETED;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3793 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3794 else
10815 f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	3795 func_clear_free(fp, FALSE);
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3796 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3797 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3798 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3799
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3800 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3801 * Unreference a Function: decrement the reference count and free it when it
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3802 * becomes zero.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3803 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3804 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3805 func_unref(char_u *name)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3806 {
9655 f1920505bc16 commit https://github.com/vim/vim/commit/97baee80f0906ee2f651ee1215ec033e84f866ad Christian Brabandt <cb@256bit.org> parents: 9638 diff changeset	3807 ufunc_T *fp = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3808
9733 59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	3809 if (name == NULL \|\| !func_name_refcount(name))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3810 return;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3811 fp = find_func(name, FALSE, NULL);
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3812 if (fp == NULL && isdigit(*name))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3813 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3814 #ifdef EXITFREE
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3815 if (!entered_free_all_mem)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3816 #endif
10359 66f1b5bf3fa6 commit https://github.com/vim/vim/commit/95f096030ed1a8afea028f2ea295d6f6a70f466f Christian Brabandt <cb@256bit.org> parents: 10042 diff changeset	3817 internal_error("func_unref()");
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3818 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3819 if (fp != NULL && --fp->uf_refcount <= 0)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3820 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3821 // Only delete it when it's not being used. Otherwise it's done
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3822 // when "uf_calls" becomes zero.
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3823 if (fp->uf_calls == 0)
10815 f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	3824 func_clear_free(fp, FALSE);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3825 }
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3826 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3827
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3828 /*
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3829 * Unreference a Function: decrement the reference count and free it when it
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3830 * becomes zero.
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3831 */
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3832 void
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3833 func_ptr_unref(ufunc_T *fp)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3834 {
9655 f1920505bc16 commit https://github.com/vim/vim/commit/97baee80f0906ee2f651ee1215ec033e84f866ad Christian Brabandt <cb@256bit.org> parents: 9638 diff changeset	3835 if (fp != NULL && --fp->uf_refcount <= 0)
f1920505bc16 commit https://github.com/vim/vim/commit/97baee80f0906ee2f651ee1215ec033e84f866ad Christian Brabandt <cb@256bit.org> parents: 9638 diff changeset	3836 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3837 // Only delete it when it's not being used. Otherwise it's done
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3838 // when "uf_calls" becomes zero.
9655 f1920505bc16 commit https://github.com/vim/vim/commit/97baee80f0906ee2f651ee1215ec033e84f866ad Christian Brabandt <cb@256bit.org> parents: 9638 diff changeset	3839 if (fp->uf_calls == 0)
10815 f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	3840 func_clear_free(fp, FALSE);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3841 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3842 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3843
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3844 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3845 * Count a reference to a Function.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3846 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3847 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3848 func_ref(char_u *name)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3849 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3850 ufunc_T *fp;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3851
9733 59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	3852 if (name == NULL \|\| !func_name_refcount(name))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3853 return;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3854 fp = find_func(name, FALSE, NULL);
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3855 if (fp != NULL)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3856 ++fp->uf_refcount;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3857 else if (isdigit(*name))
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3858 // Only give an error for a numbered function.
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3859 // Fail silently, when named or lambda function isn't found.
10359 66f1b5bf3fa6 commit https://github.com/vim/vim/commit/95f096030ed1a8afea028f2ea295d6f6a70f466f Christian Brabandt <cb@256bit.org> parents: 10042 diff changeset	3860 internal_error("func_ref()");
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3861 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3862
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3863 /*
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3864 * Count a reference to a Function.
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3865 */
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3866 void
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3867 func_ptr_ref(ufunc_T *fp)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3868 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3869 if (fp != NULL)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3870 ++fp->uf_refcount;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3871 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3872
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3873 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3874 * Return TRUE if items in "fc" do not have "copyID". That means they are not
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3875 * referenced from anywhere that is in use.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3876 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3877 static int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3878 can_free_funccal(funccall_T *fc, int copyID)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3879 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3880 return (fc->l_varlist.lv_copyID != copyID
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3881 && fc->l_vars.dv_copyID != copyID
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	3882 && fc->l_avars.dv_copyID != copyID
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	3883 && fc->fc_copyID != copyID);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3884 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3885
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3886 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3887 * ":return [expr]"
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3888 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3889 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3890 ex_return(exarg_T *eap)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3891 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3892 char_u *arg = eap->arg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3893 typval_T rettv;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3894 int returning = FALSE;
20992 7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function Bram Moolenaar <Bram@vim.org> parents: 20945 diff changeset	3895 evalarg_T evalarg;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3896
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3897 if (current_funccal == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3898 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	3899 emsg(_("E133: :return not inside a function"));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3900 return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3901 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3902
20992 7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function Bram Moolenaar <Bram@vim.org> parents: 20945 diff changeset	3903 CLEAR_FIELD(evalarg);
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function Bram Moolenaar <Bram@vim.org> parents: 20945 diff changeset	3904 evalarg.eval_flags = eap->skip ? 0 : EVAL_EVALUATE;
7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function Bram Moolenaar <Bram@vim.org> parents: 20945 diff changeset	3905
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3906 if (eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3907 ++emsg_skip;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3908
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3909 eap->nextcmd = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3910 if ((arg != NUL && arg != '\|' && *arg != '\n')
20996 3af71cbcfdbe patch 8.2.1049: Vim9: leaking memory when using continuation line Bram Moolenaar <Bram@vim.org> parents: 20992 diff changeset	3911 && eval0(arg, &rettv, eap, &evalarg) != FAIL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3912 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3913 if (!eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3914 returning = do_return(eap, FALSE, TRUE, &rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3915 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3916 clear_tv(&rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3917 }
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3918 // It's safer to return also on error.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3919 else if (!eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3920 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3921 // In return statement, cause_abort should be force_abort.
13096 30f9a62f5f51 patch 8.0.1423: error in return not caught by try/catch Christian Brabandt <cb@256bit.org> parents: 13004 diff changeset	3922 update_force_abort();
30f9a62f5f51 patch 8.0.1423: error in return not caught by try/catch Christian Brabandt <cb@256bit.org> parents: 13004 diff changeset	3923
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3924 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3925 * Return unless the expression evaluation has been cancelled due to an
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3926 * aborting error, an interrupt, or an exception.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3927 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3928 if (!aborting())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3929 returning = do_return(eap, FALSE, TRUE, NULL);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3930 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3931
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3932 // When skipping or the return gets pending, advance to the next command
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3933 // in this line (!returning). Otherwise, ignore the rest of the line.
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3934 // Following lines will be ignored by get_func_line().
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3935 if (returning)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3936 eap->nextcmd = NULL;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3937 else if (eap->nextcmd == NULL) // no argument
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3938 eap->nextcmd = check_nextcmd(arg);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3939
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3940 if (eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3941 --emsg_skip;
21058 111f877e63d9 patch 8.2.1080: Vim9: no line break allowed in a for loop Bram Moolenaar <Bram@vim.org> parents: 21046 diff changeset	3942 clear_evalarg(&evalarg, eap);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3943 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3944
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3945 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3946 * ":1,25call func(arg1, arg2)" function call.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3947 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3948 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3949 ex_call(exarg_T *eap)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3950 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3951 char_u *arg = eap->arg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3952 char_u *startarg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3953 char_u *name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3954 char_u *tofree;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3955 int len;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3956 typval_T rettv;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3957 linenr_T lnum;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3958 int doesrange;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3959 int failed = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3960 funcdict_T fudi;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3961 partial_T *partial = NULL;
21118 b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21066 diff changeset	3962 evalarg_T evalarg;
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21066 diff changeset	3963
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21066 diff changeset	3964 fill_evalarg_from_eap(&evalarg, eap, eap->skip);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3965 if (eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3966 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3967 // trans_function_name() doesn't work well when skipping, use eval0()
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3968 // instead to skip to any following command, e.g. for:
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3969 // :if 0 \| call dict.foo().bar() \| endif
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3970 ++emsg_skip;
21118 b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21066 diff changeset	3971 if (eval0(eap->arg, &rettv, eap, &evalarg) != FAIL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3972 clear_tv(&rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3973 --emsg_skip;
21118 b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21066 diff changeset	3974 clear_evalarg(&evalarg, eap);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3975 return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3976 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3977
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3978 tofree = trans_function_name(&arg, NULL, eap->skip,
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3979 TFN_INT, &fudi, &partial);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3980 if (fudi.fd_newkey != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3981 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3982 // Still need to give an error message for missing key.
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	3983 semsg(_(e_dictkey), fudi.fd_newkey);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3984 vim_free(fudi.fd_newkey);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3985 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3986 if (tofree == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3987 return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3988
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3989 // Increase refcount on dictionary, it could get deleted when evaluating
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3990 // the arguments.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3991 if (fudi.fd_dict != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3992 ++fudi.fd_dict->dv_refcount;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3993
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3994 // If it is the name of a variable of type VAR_FUNC or VAR_PARTIAL use its
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3995 // contents. For VAR_PARTIAL get its partial, unless we already have one
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3996 // from trans_function_name().
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3997 len = (int)STRLEN(tofree);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3998 name = deref_func_name(tofree, &len,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3999 partial != NULL ? NULL : &partial, FALSE);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4000
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4001 // Skip white space to allow ":call func ()". Not good, but required for
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4002 // backward compatibility.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4003 startarg = skipwhite(arg);
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4004 rettv.v_type = VAR_UNKNOWN; // clear_tv() uses this
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4005
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4006 if (*startarg != '(')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4007 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	4008 semsg(_(e_missing_paren), eap->arg);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4009 goto end;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4010 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4011
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4012 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4013 * When skipping, evaluate the function once, to find the end of the
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4014 * arguments.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4015 * When the function takes a range, this is discovered after the first
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4016 * call, and the loop is broken.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4017 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4018 if (eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4019 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4020 ++emsg_skip;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4021 lnum = eap->line2; // do it once, also with an invalid range
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4022 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4023 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4024 lnum = eap->line1;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4025 for ( ; lnum <= eap->line2; ++lnum)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4026 {
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	4027 funcexe_T funcexe;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	4028
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4029 if (!eap->skip && eap->addr_count > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4030 {
15000 32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14968 diff changeset	4031 if (lnum > curbuf->b_ml.ml_line_count)
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14968 diff changeset	4032 {
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14968 diff changeset	4033 // If the function deleted lines or switched to another buffer
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14968 diff changeset	4034 // the line number may become invalid.
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	4035 emsg(_(e_invrange));
15000 32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14968 diff changeset	4036 break;
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14968 diff changeset	4037 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4038 curwin->w_cursor.lnum = lnum;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4039 curwin->w_cursor.col = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4040 curwin->w_cursor.coladd = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4041 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4042 arg = startarg;
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	4043
20007 aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose Bram Moolenaar <Bram@vim.org> parents: 19946 diff changeset	4044 CLEAR_FIELD(funcexe);
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	4045 funcexe.firstline = eap->line1;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	4046 funcexe.lastline = eap->line2;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	4047 funcexe.doesrange = &doesrange;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	4048 funcexe.evaluate = !eap->skip;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	4049 funcexe.partial = partial;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	4050 funcexe.selfdict = fudi.fd_dict;
21118 b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21066 diff changeset	4051 if (get_func_tv(name, -1, &rettv, &arg, &evalarg, &funcexe) == FAIL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4052 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4053 failed = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4054 break;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4055 }
13262 69278c25429d patch 8.0.1505: debugger can't break on a condition Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4056 if (has_watchexpr())
69278c25429d patch 8.0.1505: debugger can't break on a condition Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4057 dbg_check_breakpoint(eap);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4058
17763 117c7795a979 patch 8.1.1878: negative float before method not parsed correctly Bram Moolenaar <Bram@vim.org> parents: 17732 diff changeset	4059 // Handle a function returning a Funcref, Dictionary or List.
21040 d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	4060 if (handle_subscript(&arg, &rettv,
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	4061 eap->skip ? NULL : &EVALARG_EVALUATE, TRUE) == FAIL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4062 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4063 failed = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4064 break;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4065 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4066
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4067 clear_tv(&rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4068 if (doesrange \|\| eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4069 break;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4070
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4071 // Stop when immediately aborting on error, or when an interrupt
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4072 // occurred or an exception was thrown but not caught.
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4073 // get_func_tv() returned OK, so that the check for trailing
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4074 // characters below is executed.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4075 if (aborting())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4076 break;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4077 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4078 if (eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4079 --emsg_skip;
21118 b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21066 diff changeset	4080 clear_evalarg(&evalarg, eap);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4081
19419 c6c9d91d8290 patch 8.2.0267: no check for a following cmd when calling a function fails Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	4082 // When inside :try we need to check for following "\| catch".
c6c9d91d8290 patch 8.2.0267: no check for a following cmd when calling a function fails Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	4083 if (!failed \|\| eap->cstack->cs_trylevel > 0)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4084 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4085 // Check for trailing illegal characters and a following command.
20138 d0a9766167ab patch 8.2.0624: Vim9: no check for space before #comment Bram Moolenaar <Bram@vim.org> parents: 20081 diff changeset	4086 if (!ends_excmd2(eap->arg, arg))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4087 {
19421 208644ebdff8 patch 8.2.0268: trycatch test fails Bram Moolenaar <Bram@vim.org> parents: 19419 diff changeset	4088 if (!failed)
208644ebdff8 patch 8.2.0268: trycatch test fails Bram Moolenaar <Bram@vim.org> parents: 19419 diff changeset	4089 {
208644ebdff8 patch 8.2.0268: trycatch test fails Bram Moolenaar <Bram@vim.org> parents: 19419 diff changeset	4090 emsg_severe = TRUE;
21461 4dfd00f481fb patch 8.2.1281: the "trailing characters" error can be hard to understand Bram Moolenaar <Bram@vim.org> parents: 21435 diff changeset	4091 semsg(_(e_trailing_arg), arg);
19421 208644ebdff8 patch 8.2.0268: trycatch test fails Bram Moolenaar <Bram@vim.org> parents: 19419 diff changeset	4092 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4093 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4094 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4095 eap->nextcmd = check_nextcmd(arg);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4096 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4097
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4098 end:
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4099 dict_unref(fudi.fd_dict);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4100 vim_free(tofree);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4101 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4102
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4103 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4104 * Return from a function. Possibly makes the return pending. Also called
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4105 * for a pending return at the ":endtry" or after returning from an extra
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4106 * do_cmdline(). "reanimate" is used in the latter case. "is_cmd" is set
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4107 * when called due to a ":return" command. "rettv" may point to a typval_T
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4108 * with the return rettv. Returns TRUE when the return can be carried out,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4109 * FALSE when the return gets pending.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4110 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4111 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4112 do_return(
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4113 exarg_T *eap,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4114 int reanimate,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4115 int is_cmd,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4116 void *rettv)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4117 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4118 int idx;
18904 2bdc2e1f6e1f patch 8.2.0013: not using a typedef for condstack Bram Moolenaar <Bram@vim.org> parents: 18816 diff changeset	4119 cstack_T *cstack = eap->cstack;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4120
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4121 if (reanimate)
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4122 // Undo the return.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4123 current_funccal->returned = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4124
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4125 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4126 * Cleanup (and inactivate) conditionals, but stop when a try conditional
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4127 * not in its finally clause (which then is to be executed next) is found.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4128 * In this case, make the ":return" pending for execution at the ":endtry".
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4129 * Otherwise, return normally.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4130 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4131 idx = cleanup_conditionals(eap->cstack, 0, TRUE);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4132 if (idx >= 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4133 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4134 cstack->cs_pending[idx] = CSTP_RETURN;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4135
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4136 if (!is_cmd && !reanimate)
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4137 // A pending return again gets pending. "rettv" points to an
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4138 // allocated variable with the rettv of the original ":return"'s
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4139 // argument if present or is NULL else.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4140 cstack->cs_rettv[idx] = rettv;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4141 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4142 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4143 // When undoing a return in order to make it pending, get the stored
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4144 // return rettv.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4145 if (reanimate)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4146 rettv = current_funccal->rettv;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4147
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4148 if (rettv != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4149 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4150 // Store the value of the pending return.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4151 if ((cstack->cs_rettv[idx] = alloc_tv()) != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4152 (typval_T )cstack->cs_rettv[idx] = (typval_T )rettv;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4153 else
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	4154 emsg(_(e_outofmem));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4155 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4156 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4157 cstack->cs_rettv[idx] = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4158
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4159 if (reanimate)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4160 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4161 // The pending return value could be overwritten by a ":return"
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4162 // without argument in a finally clause; reset the default
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4163 // return value.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4164 current_funccal->rettv->v_type = VAR_NUMBER;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4165 current_funccal->rettv->vval.v_number = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4166 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4167 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4168 report_make_pending(CSTP_RETURN, rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4169 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4170 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4171 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4172 current_funccal->returned = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4173
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4174 // If the return is carried out now, store the return value. For
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4175 // a return immediately after reanimation, the value is already
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4176 // there.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4177 if (!reanimate && rettv != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4178 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4179 clear_tv(current_funccal->rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4180 current_funccal->rettv = (typval_T *)rettv;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4181 if (!is_cmd)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4182 vim_free(rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4183 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4184 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4185
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4186 return idx < 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4187 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4188
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4189 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4190 * Free the variable with a pending return value.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4191 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4192 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4193 discard_pending_return(void *rettv)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4194 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4195 free_tv((typval_T *)rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4196 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4197
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4198 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4199 * Generate a return command for producing the value of "rettv". The result
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4200 * is an allocated string. Used by report_pending() for verbose messages.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4201 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4202 char_u *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4203 get_return_cmd(void *rettv)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4204 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4205 char_u *s = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4206 char_u *tofree = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4207 char_u numbuf[NUMBUFLEN];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4208
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4209 if (rettv != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4210 s = echo_string((typval_T *)rettv, &tofree, numbuf, 0);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4211 if (s == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4212 s = (char_u *)"";
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4213
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4214 STRCPY(IObuff, ":return ");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4215 STRNCPY(IObuff + 8, s, IOSIZE - 8);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4216 if (STRLEN(s) + 8 >= IOSIZE)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4217 STRCPY(IObuff + IOSIZE - 4, "...");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4218 vim_free(tofree);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4219 return vim_strsave(IObuff);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4220 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4221
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4222 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4223 * Get next function line.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4224 * Called by do_cmdline() to get the next line.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4225 * Returns allocated string, or NULL for end of function.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4226 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4227 char_u *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4228 get_func_line(
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4229 int c UNUSED,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4230 void *cookie,
17178 40c4cb095d53 patch 8.1.1588: in :let-heredoc line continuation is recognized Bram Moolenaar <Bram@vim.org> parents: 17168 diff changeset	4231 int indent UNUSED,
40c4cb095d53 patch 8.1.1588: in :let-heredoc line continuation is recognized Bram Moolenaar <Bram@vim.org> parents: 17168 diff changeset	4232 int do_concat UNUSED)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4233 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4234 funccall_T fcp = (funccall_T )cookie;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4235 ufunc_T *fp = fcp->func;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4236 char_u *retval;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4237 garray_T *gap; // growarray with function lines
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4238
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4239 // If breakpoints have been added/deleted need to check for it.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4240 if (fcp->dbg_tick != debug_tick)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4241 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4242 fcp->breakpoint = dbg_find_breakpoint(FALSE, fp->uf_name,
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	4243 SOURCING_LNUM);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4244 fcp->dbg_tick = debug_tick;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4245 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4246 #ifdef FEAT_PROFILE
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4247 if (do_profiling == PROF_YES)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4248 func_line_end(cookie);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4249 #endif
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4250
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4251 gap = &fp->uf_lines;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4252 if (((fp->uf_flags & FC_ABORT) && did_emsg && !aborted_in_try())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4253 \|\| fcp->returned)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4254 retval = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4255 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4256 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4257 // Skip NULL lines (continuation lines).
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4258 while (fcp->linenr < gap->ga_len
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4259 && ((char_u **)(gap->ga_data))[fcp->linenr] == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4260 ++fcp->linenr;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4261 if (fcp->linenr >= gap->ga_len)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4262 retval = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4263 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4264 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4265 retval = vim_strsave(((char_u **)(gap->ga_data))[fcp->linenr++]);
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	4266 SOURCING_LNUM = fcp->linenr;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4267 #ifdef FEAT_PROFILE
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4268 if (do_profiling == PROF_YES)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4269 func_line_start(cookie);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4270 #endif
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4271 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4272 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4273
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4274 // Did we encounter a breakpoint?
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	4275 if (fcp->breakpoint != 0 && fcp->breakpoint <= SOURCING_LNUM)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4276 {
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	4277 dbg_breakpoint(fp->uf_name, SOURCING_LNUM);
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4278 // Find next breakpoint.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4279 fcp->breakpoint = dbg_find_breakpoint(FALSE, fp->uf_name,
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	4280 SOURCING_LNUM);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4281 fcp->dbg_tick = debug_tick;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4282 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4283
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4284 return retval;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4285 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4286
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4287 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4288 * Return TRUE if the currently active function should be ended, because a
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4289 * return was encountered or an error occurred. Used inside a ":while".
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4290 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4291 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4292 func_has_ended(void *cookie)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4293 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4294 funccall_T fcp = (funccall_T )cookie;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4295
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4296 // Ignore the "abort" flag if the abortion behavior has been changed due to
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4297 // an error inside a try conditional.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4298 return (((fcp->func->uf_flags & FC_ABORT) && did_emsg && !aborted_in_try())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4299 \|\| fcp->returned);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4300 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4301
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4302 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4303 * return TRUE if cookie indicates a function which "abort"s on errors.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4304 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4305 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4306 func_has_abort(
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4307 void *cookie)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4308 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4309 return ((funccall_T *)cookie)->func->uf_flags & FC_ABORT;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4310 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4311
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4312
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4313 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4314 * Turn "dict.Func" into a partial for "Func" bound to "dict".
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4315 * Don't do this when "Func" is already a partial that was bound
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4316 * explicitly (pt_auto is FALSE).
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4317 * Changes "rettv" in-place.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4318 * Returns the updated "selfdict_in".
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4319 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4320 dict_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4321 make_partial(dict_T selfdict_in, typval_T rettv)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4322 {
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4323 char_u *fname;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4324 char_u *tofree = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4325 ufunc_T *fp;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4326 char_u fname_buf[FLEN_FIXED + 1];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4327 int error;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4328 dict_T *selfdict = selfdict_in;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4329
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4330 if (rettv->v_type == VAR_PARTIAL && rettv->vval.v_partial->pt_func != NULL)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4331 fp = rettv->vval.v_partial->pt_func;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4332 else
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4333 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4334 fname = rettv->v_type == VAR_FUNC ? rettv->vval.v_string
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4335 : rettv->vval.v_partial->pt_name;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4336 // Translate "s:func" to the stored function name.
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4337 fname = fname_trans_sid(fname, fname_buf, &tofree, &error);
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	4338 fp = find_func(fname, FALSE, NULL);
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4339 vim_free(tofree);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4340 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4341
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4342 if (fp != NULL && (fp->uf_flags & FC_DICT))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4343 {
16825 ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u " causes a lot of type casts Bram Moolenaar <Bram@vim.org>* parents: 16768 diff changeset	4344 partial_T *pt = ALLOC_CLEAR_ONE(partial_T);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4345
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4346 if (pt != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4347 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4348 pt->pt_refcount = 1;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4349 pt->pt_dict = selfdict;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4350 pt->pt_auto = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4351 selfdict = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4352 if (rettv->v_type == VAR_FUNC)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4353 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4354 // Just a function: Take over the function name and use
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4355 // selfdict.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4356 pt->pt_name = rettv->vval.v_string;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4357 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4358 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4359 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4360 partial_T *ret_pt = rettv->vval.v_partial;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4361 int i;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4362
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4363 // Partial: copy the function name, use selfdict and copy
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4364 // args. Can't take over name or args, the partial might
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4365 // be referenced elsewhere.
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4366 if (ret_pt->pt_name != NULL)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4367 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4368 pt->pt_name = vim_strsave(ret_pt->pt_name);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4369 func_ref(pt->pt_name);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4370 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4371 else
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4372 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4373 pt->pt_func = ret_pt->pt_func;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4374 func_ptr_ref(pt->pt_func);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4375 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4376 if (ret_pt->pt_argc > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4377 {
16825 ce04ebdf26b8 patch 8.1.1414: alloc() returning "char_u " causes a lot of type casts Bram Moolenaar <Bram@vim.org>* parents: 16768 diff changeset	4378 pt->pt_argv = ALLOC_MULT(typval_T, ret_pt->pt_argc);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4379 if (pt->pt_argv == NULL)
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4380 // out of memory: drop the arguments
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4381 pt->pt_argc = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4382 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4383 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4384 pt->pt_argc = ret_pt->pt_argc;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4385 for (i = 0; i < pt->pt_argc; i++)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4386 copy_tv(&ret_pt->pt_argv[i], &pt->pt_argv[i]);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4387 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4388 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4389 partial_unref(ret_pt);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4390 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4391 rettv->v_type = VAR_PARTIAL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4392 rettv->vval.v_partial = pt;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4393 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4394 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4395 return selfdict;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4396 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4397
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4398 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4399 * Return the name of the executed function.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4400 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4401 char_u *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4402 func_name(void *cookie)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4403 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4404 return ((funccall_T *)cookie)->func->uf_name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4405 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4406
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4407 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4408 * Return the address holding the next breakpoint line for a funccall cookie.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4409 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4410 linenr_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4411 func_breakpoint(void *cookie)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4412 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4413 return &((funccall_T *)cookie)->breakpoint;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4414 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4415
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4416 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4417 * Return the address holding the debug tick for a funccall cookie.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4418 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4419 int *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4420 func_dbg_tick(void *cookie)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4421 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4422 return &((funccall_T *)cookie)->dbg_tick;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4423 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4424
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4425 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4426 * Return the nesting level for a funccall cookie.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4427 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4428 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4429 func_level(void *cookie)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4430 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4431 return ((funccall_T *)cookie)->level;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4432 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4433
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4434 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4435 * Return TRUE when a function was ended by a ":return" command.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4436 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4437 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4438 current_func_returned(void)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4439 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4440 return current_funccal->returned;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4441 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4442
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4443 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4444 free_unref_funccal(int copyID, int testing)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4445 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4446 int did_free = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4447 int did_free_funccal = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4448 funccall_T fc, *pfc;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4449
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4450 for (pfc = &previous_funccal; *pfc != NULL; )
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4451 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4452 if (can_free_funccal(*pfc, copyID))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4453 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4454 fc = *pfc;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4455 *pfc = fc->caller;
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	4456 free_funccal_contents(fc);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4457 did_free = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4458 did_free_funccal = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4459 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4460 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4461 pfc = &(*pfc)->caller;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4462 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4463 if (did_free_funccal)
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4464 // When a funccal was freed some more items might be garbage
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4465 // collected, so run again.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4466 (void)garbage_collect(testing);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4467
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4468 return did_free;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4469 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4470
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4471 /*
9951 d990a4394c9d commit https://github.com/vim/vim/commit/ba2099034f92a2814494f37bddb0c57d034401b4 Christian Brabandt <cb@256bit.org> parents: 9844 diff changeset	4472 * Get function call environment based on backtrace debug level
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4473 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4474 static funccall_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4475 get_funccal(void)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4476 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4477 int i;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4478 funccall_T *funccal;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4479 funccall_T *temp_funccal;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4480
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4481 funccal = current_funccal;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4482 if (debug_backtrace_level > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4483 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4484 for (i = 0; i < debug_backtrace_level; i++)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4485 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4486 temp_funccal = funccal->caller;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4487 if (temp_funccal)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4488 funccal = temp_funccal;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4489 else
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4490 // backtrace level overflow. reset to max
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4491 debug_backtrace_level = i;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4492 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4493 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4494 return funccal;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4495 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4496
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4497 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4498 * Return the hashtable used for local variables in the current funccal.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4499 * Return NULL if there is no current funccal.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4500 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4501 hashtab_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4502 get_funccal_local_ht()
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4503 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	4504 if (current_funccal == NULL \|\| current_funccal->l_vars.dv_refcount == 0)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4505 return NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4506 return &get_funccal()->l_vars.dv_hashtab;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4507 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4508
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4509 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4510 * Return the l: scope variable.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4511 * Return NULL if there is no current funccal.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4512 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4513 dictitem_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4514 get_funccal_local_var()
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4515 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	4516 if (current_funccal == NULL \|\| current_funccal->l_vars.dv_refcount == 0)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4517 return NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4518 return &get_funccal()->l_vars_var;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4519 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4520
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4521 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4522 * Return the hashtable used for argument in the current funccal.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4523 * Return NULL if there is no current funccal.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4524 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4525 hashtab_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4526 get_funccal_args_ht()
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4527 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	4528 if (current_funccal == NULL \|\| current_funccal->l_vars.dv_refcount == 0)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4529 return NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4530 return &get_funccal()->l_avars.dv_hashtab;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4531 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4532
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4533 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4534 * Return the a: scope variable.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4535 * Return NULL if there is no current funccal.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4536 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4537 dictitem_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4538 get_funccal_args_var()
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4539 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	4540 if (current_funccal == NULL \|\| current_funccal->l_vars.dv_refcount == 0)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4541 return NULL;
10795 8afee415119d patch 8.0.0287: debug mode: cannot access function arguments Christian Brabandt <cb@256bit.org> parents: 10722 diff changeset	4542 return &get_funccal()->l_avars_var;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4543 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4544
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4545 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4546 * List function variables, if there is a function.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4547 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4548 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4549 list_func_vars(int *first)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4550 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	4551 if (current_funccal != NULL && current_funccal->l_vars.dv_refcount > 0)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4552 list_hashtable_vars(&current_funccal->l_vars.dv_hashtab,
15543 dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	4553 "l:", FALSE, first);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4554 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4555
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4556 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4557 * If "ht" is the hashtable for local variables in the current funccal, return
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4558 * the dict that contains it.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4559 * Otherwise return NULL.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4560 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4561 dict_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4562 get_current_funccal_dict(hashtab_T *ht)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4563 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4564 if (current_funccal != NULL
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4565 && ht == &current_funccal->l_vars.dv_hashtab)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4566 return &current_funccal->l_vars;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4567 return NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4568 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4569
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4570 /*
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4571 * Search hashitem in parent scope.
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4572 */
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4573 hashitem_T *
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	4574 find_hi_in_scoped_ht(char_u name, hashtab_T *pht)
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4575 {
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4576 funccall_T *old_current_funccal = current_funccal;
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4577 hashtab_T *ht;
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4578 hashitem_T *hi = NULL;
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	4579 char_u *varname;
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4580
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4581 if (current_funccal == NULL \|\| current_funccal->func->uf_scoped == NULL)
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4582 return NULL;
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4583
20433 5950284a517f patch 8.2.0771: Vim9: cannot call a compiled closure from not compiled code Bram Moolenaar <Bram@vim.org> parents: 20397 diff changeset	4584 // Search in parent scope, which can be referenced from a lambda.
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4585 current_funccal = current_funccal->func->uf_scoped;
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	4586 while (current_funccal != NULL)
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4587 {
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	4588 ht = find_var_ht(name, &varname);
f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	4589 if (ht != NULL && *varname != NUL)
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	4590 {
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	4591 hi = hash_find(ht, varname);
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	4592 if (!HASHITEM_EMPTY(hi))
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	4593 {
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	4594 *pht = ht;
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	4595 break;
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	4596 }
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	4597 }
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	4598 if (current_funccal == current_funccal->func->uf_scoped)
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	4599 break;
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	4600 current_funccal = current_funccal->func->uf_scoped;
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4601 }
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4602 current_funccal = old_current_funccal;
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4603
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4604 return hi;
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4605 }
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4606
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4607 /*
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4608 * Search variable in parent scope.
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4609 */
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4610 dictitem_T *
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	4611 find_var_in_scoped_ht(char_u *name, int no_autoload)
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4612 {
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4613 dictitem_T *v = NULL;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4614 funccall_T *old_current_funccal = current_funccal;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4615 hashtab_T *ht;
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	4616 char_u *varname;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4617
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4618 if (current_funccal == NULL \|\| current_funccal->func->uf_scoped == NULL)
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4619 return NULL;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4620
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4621 // Search in parent scope which is possible to reference from lambda
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4622 current_funccal = current_funccal->func->uf_scoped;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4623 while (current_funccal)
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4624 {
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	4625 ht = find_var_ht(name, &varname);
f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	4626 if (ht != NULL && *varname != NUL)
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4627 {
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	4628 v = find_var_in_ht(ht, *name, varname, no_autoload);
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4629 if (v != NULL)
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4630 break;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4631 }
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4632 if (current_funccal == current_funccal->func->uf_scoped)
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4633 break;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4634 current_funccal = current_funccal->func->uf_scoped;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4635 }
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4636 current_funccal = old_current_funccal;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4637
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4638 return v;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4639 }
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4640
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4641 /*
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4642 * Set "copyID + 1" in previous_funccal and callers.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4643 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4644 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4645 set_ref_in_previous_funccal(int copyID)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4646 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4647 int abort = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4648 funccall_T *fc;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4649
17127 d244a9be99db patch 8.1.1563: crash when using closures Bram Moolenaar <Bram@vim.org> parents: 16969 diff changeset	4650 for (fc = previous_funccal; !abort && fc != NULL; fc = fc->caller)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4651 {
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4652 fc->fc_copyID = copyID + 1;
17127 d244a9be99db patch 8.1.1563: crash when using closures Bram Moolenaar <Bram@vim.org> parents: 16969 diff changeset	4653 abort = abort
d244a9be99db patch 8.1.1563: crash when using closures Bram Moolenaar <Bram@vim.org> parents: 16969 diff changeset	4654 \|\| set_ref_in_ht(&fc->l_vars.dv_hashtab, copyID + 1, NULL)
d244a9be99db patch 8.1.1563: crash when using closures Bram Moolenaar <Bram@vim.org> parents: 16969 diff changeset	4655 \|\| set_ref_in_ht(&fc->l_avars.dv_hashtab, copyID + 1, NULL)
17168 1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items Bram Moolenaar <Bram@vim.org> parents: 17151 diff changeset	4656 \|\| set_ref_in_list_items(&fc->l_varlist, copyID + 1, NULL);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4657 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4658 return abort;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4659 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4660
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4661 static int
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4662 set_ref_in_funccal(funccall_T *fc, int copyID)
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4663 {
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4664 int abort = FALSE;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4665
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4666 if (fc->fc_copyID != copyID)
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4667 {
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4668 fc->fc_copyID = copyID;
17127 d244a9be99db patch 8.1.1563: crash when using closures Bram Moolenaar <Bram@vim.org> parents: 16969 diff changeset	4669 abort = abort
d244a9be99db patch 8.1.1563: crash when using closures Bram Moolenaar <Bram@vim.org> parents: 16969 diff changeset	4670 \|\| set_ref_in_ht(&fc->l_vars.dv_hashtab, copyID, NULL)
d244a9be99db patch 8.1.1563: crash when using closures Bram Moolenaar <Bram@vim.org> parents: 16969 diff changeset	4671 \|\| set_ref_in_ht(&fc->l_avars.dv_hashtab, copyID, NULL)
17168 1d30eb64a7a2 patch 8.1.1583: set_ref_in_list() only sets ref in items Bram Moolenaar <Bram@vim.org> parents: 17151 diff changeset	4672 \|\| set_ref_in_list_items(&fc->l_varlist, copyID, NULL)
17127 d244a9be99db patch 8.1.1563: crash when using closures Bram Moolenaar <Bram@vim.org> parents: 16969 diff changeset	4673 \|\| set_ref_in_func(NULL, fc->func, copyID);
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4674 }
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4675 return abort;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4676 }
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4677
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4678 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4679 * Set "copyID" in all local vars and arguments in the call stack.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4680 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4681 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4682 set_ref_in_call_stack(int copyID)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4683 {
16969 8c794a694d66 patch 8.1.1485: double free when garbage_collect() is used in autocommand Bram Moolenaar <Bram@vim.org> parents: 16872 diff changeset	4684 int abort = FALSE;
8c794a694d66 patch 8.1.1485: double free when garbage_collect() is used in autocommand Bram Moolenaar <Bram@vim.org> parents: 16872 diff changeset	4685 funccall_T *fc;
8c794a694d66 patch 8.1.1485: double free when garbage_collect() is used in autocommand Bram Moolenaar <Bram@vim.org> parents: 16872 diff changeset	4686 funccal_entry_T *entry;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4687
17151 ebe9aab81898 patch 8.1.1575: callbacks may be garbage collected Bram Moolenaar <Bram@vim.org> parents: 17127 diff changeset	4688 for (fc = current_funccal; !abort && fc != NULL; fc = fc->caller)
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4689 abort = abort \|\| set_ref_in_funccal(fc, copyID);
16969 8c794a694d66 patch 8.1.1485: double free when garbage_collect() is used in autocommand Bram Moolenaar <Bram@vim.org> parents: 16872 diff changeset	4690
8c794a694d66 patch 8.1.1485: double free when garbage_collect() is used in autocommand Bram Moolenaar <Bram@vim.org> parents: 16872 diff changeset	4691 // Also go through the funccal_stack.
17151 ebe9aab81898 patch 8.1.1575: callbacks may be garbage collected Bram Moolenaar <Bram@vim.org> parents: 17127 diff changeset	4692 for (entry = funccal_stack; !abort && entry != NULL; entry = entry->next)
ebe9aab81898 patch 8.1.1575: callbacks may be garbage collected Bram Moolenaar <Bram@vim.org> parents: 17127 diff changeset	4693 for (fc = entry->top_funccal; !abort && fc != NULL; fc = fc->caller)
16969 8c794a694d66 patch 8.1.1485: double free when garbage_collect() is used in autocommand Bram Moolenaar <Bram@vim.org> parents: 16872 diff changeset	4694 abort = abort \|\| set_ref_in_funccal(fc, copyID);
8c794a694d66 patch 8.1.1485: double free when garbage_collect() is used in autocommand Bram Moolenaar <Bram@vim.org> parents: 16872 diff changeset	4695
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4696 return abort;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4697 }
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4698
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4699 /*
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4700 * Set "copyID" in all functions available by name.
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4701 */
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4702 int
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4703 set_ref_in_functions(int copyID)
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4704 {
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4705 int todo;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4706 hashitem_T *hi = NULL;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4707 int abort = FALSE;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4708 ufunc_T *fp;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4709
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4710 todo = (int)func_hashtab.ht_used;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4711 for (hi = func_hashtab.ht_array; todo > 0 && !got_int; ++hi)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4712 {
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4713 if (!HASHITEM_EMPTY(hi))
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4714 {
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4715 --todo;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4716 fp = HI2UF(hi);
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4717 if (!func_name_refcount(fp->uf_name))
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4718 abort = abort \|\| set_ref_in_func(NULL, fp, copyID);
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4719 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4720 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4721 return abort;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4722 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4723
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4724 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4725 * Set "copyID" in all function arguments.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4726 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4727 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4728 set_ref_in_func_args(int copyID)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4729 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4730 int i;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4731 int abort = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4732
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4733 for (i = 0; i < funcargs.ga_len; ++i)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4734 abort = abort \|\| set_ref_in_item(((typval_T **)funcargs.ga_data)[i],
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4735 copyID, NULL, NULL);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4736 return abort;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4737 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4738
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4739 /*
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4740 * Mark all lists and dicts referenced through function "name" with "copyID".
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4741 * Returns TRUE if setting references failed somehow.
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4742 */
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4743 int
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4744 set_ref_in_func(char_u name, ufunc_T fp_in, int copyID)
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4745 {
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4746 ufunc_T *fp = fp_in;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4747 funccall_T *fc;
19013 dd9ab0674eec patch 8.2.0067: ERROR_UNKNOWN clashes on some systems Bram Moolenaar <Bram@vim.org> parents: 18991 diff changeset	4748 int error = FCERR_NONE;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4749 char_u fname_buf[FLEN_FIXED + 1];
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4750 char_u *tofree = NULL;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4751 char_u *fname;
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4752 int abort = FALSE;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4753
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4754 if (name == NULL && fp_in == NULL)
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4755 return FALSE;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4756
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4757 if (fp_in == NULL)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4758 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4759 fname = fname_trans_sid(name, fname_buf, &tofree, &error);
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	4760 fp = find_func(fname, FALSE, NULL);
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4761 }
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4762 if (fp != NULL)
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4763 {
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4764 for (fc = fp->uf_scoped; fc != NULL; fc = fc->func->uf_scoped)
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4765 abort = abort \|\| set_ref_in_funccal(fc, copyID);
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4766 }
20255 aac52c32a91f patch 8.2.0683: Vim9: parsing type does not always work Bram Moolenaar <Bram@vim.org> parents: 20244 diff changeset	4767
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4768 vim_free(tofree);
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4769 return abort;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4770 }
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4771
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4772 #endif // FEAT_EVAL

Mercurial > vim

annotate src/userfunc.c @ 21598:7b5b9558500a v8.2.1349