vim: src/userfunc.c annotate

annotate src/userfunc.c @ 24069:324408c61b20 v8.2.2576

patch 8.2.2576: Vim9: defining a :func function checks for white space Commit: https://github.com/vim/vim/commit/608d78fb45077fbaf6dc880b754a1d8a54ac9999 Author: Bram Moolenaar <Bram@vim.org> Date: Sat Mar 6 22:33:12 2021 +0100 patch 8.2.2576: Vim9: defining a :func function checks for white space Problem: Vim9: defining a :func function checks for white space after a comma in the arguments. Solution: Only check for white space in a :def function. (closes #7930)

author	Bram Moolenaar <Bram@vim.org>
date	Sat, 06 Mar 2021 22:45:03 +0100
parents	308d29307910
children	03fc95628eb0

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".
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	57 * If "types_optional" is TRUE a missing type is OK, use "any".
24033 308d29307910 patch 8.2.2558: no error if a lambda argument shadows a variable Bram Moolenaar <Bram@vim.org> parents: 24004 diff changeset	58 * If "evalarg" is not NULL use it to check for an already declared name.
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	59 * 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	60 * 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	61 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	62 static char_u *
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	63 one_function_arg(
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	64 char_u *arg,
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	65 garray_T *newargs,
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	66 garray_T *argtypes,
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	67 int types_optional,
24033 308d29307910 patch 8.2.2558: no error if a lambda argument shadows a variable Bram Moolenaar <Bram@vim.org> parents: 24004 diff changeset	68 evalarg_T *evalarg,
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	69 int skip)
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	70 {
20029 8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	71 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	72 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	73
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	74 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	75 ++p;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	76 if (arg == p \|\| isdigit(*arg)
22339 56f674e7518c patch 8.2.1718: Vim9: :def function disallows "firstline" for no good reason Bram Moolenaar <Bram@vim.org> parents: 22326 diff changeset	77 \|\| (argtypes == NULL
56f674e7518c patch 8.2.1718: Vim9: :def function disallows "firstline" for no good reason Bram Moolenaar <Bram@vim.org> parents: 22326 diff changeset	78 && ((p - arg == 9 && STRNCMP(arg, "firstline", 9) == 0)
56f674e7518c patch 8.2.1718: Vim9: :def function disallows "firstline" for no good reason Bram Moolenaar <Bram@vim.org> parents: 22326 diff changeset	79 \|\| (p - arg == 8 && STRNCMP(arg, "lastline", 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	80 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	81 if (!skip)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	82 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	83 return arg;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	84 }
23996 c192411b27e8 patch 8.2.2540: Vim9: no error for using script var name for argument Bram Moolenaar <Bram@vim.org> parents: 23988 diff changeset	85
24033 308d29307910 patch 8.2.2558: no error if a lambda argument shadows a variable Bram Moolenaar <Bram@vim.org> parents: 24004 diff changeset	86 // Vim9 script: cannot use script var name for argument. In function: also
308d29307910 patch 8.2.2558: no error if a lambda argument shadows a variable Bram Moolenaar <Bram@vim.org> parents: 24004 diff changeset	87 // check local vars and arguments.
308d29307910 patch 8.2.2558: no error if a lambda argument shadows a variable Bram Moolenaar <Bram@vim.org> parents: 24004 diff changeset	88 if (!skip && argtypes != NULL && check_defined(arg, p - arg,
308d29307910 patch 8.2.2558: no error if a lambda argument shadows a variable Bram Moolenaar <Bram@vim.org> parents: 24004 diff changeset	89 evalarg == NULL ? NULL : evalarg->eval_cctx, TRUE) == FAIL)
23996 c192411b27e8 patch 8.2.2540: Vim9: no error for using script var name for argument Bram Moolenaar <Bram@vim.org> parents: 23988 diff changeset	90 return arg;
c192411b27e8 patch 8.2.2540: Vim9: no error for using script var name for argument Bram Moolenaar <Bram@vim.org> parents: 23988 diff changeset	91
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	92 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	93 return arg;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	94 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	95 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	96 int c;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	97 int i;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	98
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	99 c = *p;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	100 *p = NUL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	101 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	102 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	103 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	104 *p = c;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	105 return arg;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	106 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	107
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	108 // 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	109 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	110 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	111 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	112 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	113 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	114 return arg;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	115 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	116 ((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	117 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	118
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	119 *p = c;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	120 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	121
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	122 // get any type from "arg: type"
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	123 if (argtypes != NULL && (skip \|\| ga_grow(argtypes, 1) == OK))
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	124 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	125 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	126
20029 8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	127 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	128 {
21821 0deb6f96a5a3 patch 8.2.1460: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 21791 diff changeset	129 semsg(_(e_no_white_space_allowed_before_colon_str),
20029 8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	130 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	131 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	132 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	133 if (*p == ':')
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	134 {
20142 fe8d0a4344df patch 8.2.0626: Vim9: wrong syntax of function in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 20138 diff changeset	135 ++p;
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	136 if (!skip && !VIM_ISWHITE(*p))
20142 fe8d0a4344df patch 8.2.0626: Vim9: wrong syntax of function in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 20138 diff changeset	137 {
23877 85cf06ddb2a8 patch 8.2.2480: Vim9: some errors for white space do not show context Bram Moolenaar <Bram@vim.org> parents: 23829 diff changeset	138 semsg(_(e_white_space_required_after_str_str), ":", p - 1);
20142 fe8d0a4344df patch 8.2.0626: Vim9: wrong syntax of function in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 20138 diff changeset	139 return arg;
fe8d0a4344df patch 8.2.0626: Vim9: wrong syntax of function in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 20138 diff changeset	140 }
fe8d0a4344df patch 8.2.0626: Vim9: wrong syntax of function in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 20138 diff changeset	141 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	142 p = skip_type(type, TRUE);
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	143 if (!skip)
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	144 type = vim_strnsave(type, p - type);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	145 }
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	146 else if (*skipwhite(p) != '=' && !types_optional)
20029 8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	147 {
21821 0deb6f96a5a3 patch 8.2.1460: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 21791 diff changeset	148 semsg(_(e_missing_argument_type_for_str),
20029 8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	149 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	150 return arg;
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	151 }
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	152 if (!skip)
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	153 {
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	154 if (type == NULL && types_optional)
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	155 // lambda arguments default to "any" type
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	156 type = vim_strsave((char_u *)"any");
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	157 ((char_u **)argtypes->ga_data)[argtypes->ga_len++] = type;
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	158 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	159 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	160
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	161 return p;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	162 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	163
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	164 /*
9597 3ca0fd9709b1 commit https://github.com/vim/vim/commit/4f0383bc3fe5af0229fb66b53fe94329af783eff Christian Brabandt <cb@256bit.org> parents: 9593 diff changeset	165 * Get function arguments.
23511 7e8703464f01 patch 8.2.2298: Vim9: comment right after "(" of function not recognized Bram Moolenaar <Bram@vim.org> parents: 23446 diff changeset	166 * "argp" should point to just after the "(", possibly to white space.
23318 c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	167 * "argp" is advanced just after "endchar".
9597 3ca0fd9709b1 commit https://github.com/vim/vim/commit/4f0383bc3fe5af0229fb66b53fe94329af783eff Christian Brabandt <cb@256bit.org> parents: 9593 diff changeset	168 */
23511 7e8703464f01 patch 8.2.2298: Vim9: comment right after "(" of function not recognized Bram Moolenaar <Bram@vim.org> parents: 23446 diff changeset	169 static int
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	170 get_function_args(
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	171 char_u **argp,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	172 char_u endchar,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	173 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	174 garray_T *argtypes, // NULL unless using :def
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	175 int types_optional, // types optional if "argtypes" is not NULL
24033 308d29307910 patch 8.2.2558: no error if a lambda argument shadows a variable Bram Moolenaar <Bram@vim.org> parents: 24004 diff changeset	176 evalarg_T *evalarg, // context or NULL
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	177 int *varargs,
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	178 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	179 int skip,
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	180 exarg_T *eap,
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	181 char_u **line_to_free)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	182 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	183 int mustend = FALSE;
23511 7e8703464f01 patch 8.2.2298: Vim9: comment right after "(" of function not recognized Bram Moolenaar <Bram@vim.org> parents: 23446 diff changeset	184 char_u *arg;
7e8703464f01 patch 8.2.2298: Vim9: comment right after "(" of function not recognized Bram Moolenaar <Bram@vim.org> parents: 23446 diff changeset	185 char_u *p;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	186 int c;
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	187 int any_default = FALSE;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	188 char_u *expr;
23511 7e8703464f01 patch 8.2.2298: Vim9: comment right after "(" of function not recognized Bram Moolenaar <Bram@vim.org> parents: 23446 diff changeset	189 char_u whitep = argp;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	190
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	191 if (newargs != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	192 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	193 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	194 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	195 if (default_args != NULL)
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	196 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	197
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	198 if (varargs != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	199 *varargs = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	200
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	201 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	202 * Isolate the arguments: "arg1, arg2, ...)"
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	203 */
23511 7e8703464f01 patch 8.2.2298: Vim9: comment right after "(" of function not recognized Bram Moolenaar <Bram@vim.org> parents: 23446 diff changeset	204 arg = skipwhite(*argp);
7e8703464f01 patch 8.2.2298: Vim9: comment right after "(" of function not recognized Bram Moolenaar <Bram@vim.org> parents: 23446 diff changeset	205 p = arg;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	206 while (*p != endchar)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	207 {
20023 c85d4e173cc9 patch 8.2.0567: Vim9: cannot put comments halfway expressions Bram Moolenaar <Bram@vim.org> parents: 20015 diff changeset	208 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	209 && (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	210 {
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	211 char_u *theline;
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	212
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	213 // 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	214 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	215 if (theline == NULL)
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	216 break;
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	217 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	218 *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	219 whitep = (char_u *)" ";
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	220 p = skipwhite(theline);
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	221 }
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	222
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	223 if (mustend && *p != endchar)
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	224 {
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	225 if (!skip)
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	226 semsg(_(e_invarg2), *argp);
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	227 goto err_ret;
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	228 }
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	229 if (*p == endchar)
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	230 break;
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	231
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	232 if (p[0] == '.' && p[1] == '.' && p[2] == '.')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	233 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	234 if (varargs != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	235 *varargs = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	236 p += 3;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	237 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	238
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	239 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	240 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	241 // ...name: list<type>
22349 b66a2e046c2e patch 8.2.1723: Vim9: Variable argument name cannot start with underscore Bram Moolenaar <Bram@vim.org> parents: 22339 diff changeset	242 if (!eval_isnamec1(*p))
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	243 {
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	244 if (!skip)
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	245 emsg(_(e_missing_name_after_dots));
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	246 goto err_ret;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	247 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	248
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	249 arg = p;
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	250 p = one_function_arg(p, newargs, argtypes, types_optional,
24033 308d29307910 patch 8.2.2558: no error if a lambda argument shadows a variable Bram Moolenaar <Bram@vim.org> parents: 24004 diff changeset	251 evalarg, skip);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	252 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	253 break;
23879 9ddf1a537fc2 patch 8.2.2481: Vim9: confusing error when variable arguments have default Bram Moolenaar <Bram@vim.org> parents: 23877 diff changeset	254 if (*skipwhite(p) == '=')
9ddf1a537fc2 patch 8.2.2481: Vim9: confusing error when variable arguments have default Bram Moolenaar <Bram@vim.org> parents: 23877 diff changeset	255 {
9ddf1a537fc2 patch 8.2.2481: Vim9: confusing error when variable arguments have default Bram Moolenaar <Bram@vim.org> parents: 23877 diff changeset	256 emsg(_(e_cannot_use_default_for_variable_arguments));
9ddf1a537fc2 patch 8.2.2481: Vim9: confusing error when variable arguments have default Bram Moolenaar <Bram@vim.org> parents: 23877 diff changeset	257 break;
9ddf1a537fc2 patch 8.2.2481: Vim9: confusing error when variable arguments have default Bram Moolenaar <Bram@vim.org> parents: 23877 diff changeset	258 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	259 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	260 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	261 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	262 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	263 arg = p;
24033 308d29307910 patch 8.2.2558: no error if a lambda argument shadows a variable Bram Moolenaar <Bram@vim.org> parents: 24004 diff changeset	264 p = one_function_arg(p, newargs, argtypes, types_optional,
308d29307910 patch 8.2.2558: no error if a lambda argument shadows a variable Bram Moolenaar <Bram@vim.org> parents: 24004 diff changeset	265 evalarg, skip);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	266 if (p == arg)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	267 break;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	268
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	269 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	270 {
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	271 typval_T rettv;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	272
19328 e99e6d794597 patch 8.2.0222: Vim9: optional function arguments don't work yet Bram Moolenaar <Bram@vim.org> parents: 19297 diff changeset	273 // 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	274 any_default = TRUE;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	275 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	276 whitep = p;
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	277 p = skipwhite(p);
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	278 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	279 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	280 {
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	281 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	282 goto err_ret;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	283
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	284 // trim trailing whitespace
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	285 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	286 p--;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	287 c = *p;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	288 *p = NUL;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	289 expr = vim_strsave(expr);
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	290 if (expr == NULL)
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	291 {
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	292 *p = c;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	293 goto err_ret;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	294 }
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	295 ((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	296 [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	297 default_args->ga_len++;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	298 *p = c;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	299 }
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	300 else
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	301 mustend = TRUE;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	302 }
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	303 else if (any_default)
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	304 {
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	305 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	306 goto err_ret;
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	307 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	308 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	309 {
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	310 ++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	311 // 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	312 // found in "{k,v -> x}" and give a confusing error.
24069 324408c61b20 patch 8.2.2576: Vim9: defining a :func function checks for white space Bram Moolenaar <Bram@vim.org> parents: 24033 diff changeset	313 // Allow missing space after comma in legacy functions.
324408c61b20 patch 8.2.2576: Vim9: defining a :func function checks for white space Bram Moolenaar <Bram@vim.org> parents: 24033 diff changeset	314 if (!skip && argtypes != NULL
21263 71bd2f9adb61 patch 8.2.1182: Vim9: no check for whitespace after comma in lambda Bram Moolenaar <Bram@vim.org> parents: 21222 diff changeset	315 && !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	316 {
23877 85cf06ddb2a8 patch 8.2.2480: Vim9: some errors for white space do not show context Bram Moolenaar <Bram@vim.org> parents: 23829 diff changeset	317 semsg(_(e_white_space_required_after_str_str), ",", p - 1);
21263 71bd2f9adb61 patch 8.2.1182: Vim9: no check for whitespace after comma in lambda Bram Moolenaar <Bram@vim.org> parents: 21222 diff changeset	318 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	319 }
71bd2f9adb61 patch 8.2.1182: Vim9: no check for whitespace after comma in lambda Bram Moolenaar <Bram@vim.org> parents: 21222 diff changeset	320 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	321 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	322 mustend = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	323 }
20023 c85d4e173cc9 patch 8.2.0567: Vim9: cannot put comments halfway expressions Bram Moolenaar <Bram@vim.org> parents: 20015 diff changeset	324 whitep = p;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	325 p = skipwhite(p);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	326 }
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	327
9597 3ca0fd9709b1 commit https://github.com/vim/vim/commit/4f0383bc3fe5af0229fb66b53fe94329af783eff Christian Brabandt <cb@256bit.org> parents: 9593 diff changeset	328 if (*p != endchar)
3ca0fd9709b1 commit https://github.com/vim/vim/commit/4f0383bc3fe5af0229fb66b53fe94329af783eff Christian Brabandt <cb@256bit.org> parents: 9593 diff changeset	329 goto err_ret;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	330 ++p; // skip "endchar"
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	331
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	332 *argp = p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	333 return OK;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	334
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	335 err_ret:
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	336 if (newargs != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	337 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	338 if (default_args != NULL)
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	339 ga_clear_strings(default_args);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	340 return FAIL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	341 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	342
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	343 /*
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	344 * Parse the argument types, filling "fp->uf_arg_types".
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	345 * Return OK or FAIL.
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	346 */
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	347 static int
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	348 parse_argument_types(ufunc_T fp, garray_T argtypes, int varargs)
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	349 {
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	350 ga_init2(&fp->uf_type_list, sizeof(type_T *), 10);
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	351 if (argtypes->ga_len > 0)
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	352 {
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	353 // When "varargs" is set the last name/type goes into uf_va_name
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	354 // and uf_va_type.
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	355 int len = argtypes->ga_len - (varargs ? 1 : 0);
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	356
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	357 if (len > 0)
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	358 fp->uf_arg_types = ALLOC_CLEAR_MULT(type_T *, len);
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	359 if (fp->uf_arg_types != NULL)
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	360 {
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	361 int i;
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	362 type_T *type;
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	363
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	364 for (i = 0; i < len; ++ i)
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	365 {
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	366 char_u p = ((char_u *)argtypes->ga_data)[i];
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	367
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	368 if (p == NULL)
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	369 // will get the type from the default value
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	370 type = &t_unknown;
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	371 else
23332 cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	372 type = parse_type(&p, &fp->uf_type_list, TRUE);
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	373 if (type == NULL)
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	374 return FAIL;
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	375 fp->uf_arg_types[i] = type;
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	376 }
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	377 }
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	378 if (varargs)
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	379 {
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	380 char_u *p;
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	381
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	382 // Move the last argument "...name: type" to uf_va_name and
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	383 // uf_va_type.
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	384 fp->uf_va_name = ((char_u **)fp->uf_args.ga_data)
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	385 [fp->uf_args.ga_len - 1];
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	386 --fp->uf_args.ga_len;
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	387 p = ((char_u **)argtypes->ga_data)[len];
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	388 if (p == NULL)
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	389 // todo: get type from default value
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	390 fp->uf_va_type = &t_any;
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	391 else
23332 cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	392 fp->uf_va_type = parse_type(&p, &fp->uf_type_list, TRUE);
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	393 if (fp->uf_va_type == NULL)
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	394 return FAIL;
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	395 }
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	396 }
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	397 return OK;
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	398 }
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	399
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	400 /*
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	401 * 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	402 */
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	403 static int
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	404 register_closure(ufunc_T *fp)
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	405 {
9733 59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	406 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	407 // no change
9733 59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	408 return OK;
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	409 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	410 fp->uf_scoped = current_funccal;
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	411 current_funccal->fc_refcount++;
9733 59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	412
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	413 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	414 return FAIL;
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	415 ((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	416 [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	417 return OK;
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	418 }
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	419
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	420 static void
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	421 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	422 {
23829 950875545045 patch 8.2.2456: Coverity warning for strcpy() into fixed size array Bram Moolenaar <Bram@vim.org> parents: 23808 diff changeset	423 // Add a type cast to avoid a warning for an overflow, the uf_name[] array
950875545045 patch 8.2.2456: Coverity warning for strcpy() into fixed size array Bram Moolenaar <Bram@vim.org> parents: 23808 diff changeset	424 // actually extends beyond the struct.
950875545045 patch 8.2.2456: Coverity warning for strcpy() into fixed size array Bram Moolenaar <Bram@vim.org> parents: 23808 diff changeset	425 STRCPY((void *)fp->uf_name, name);
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	426
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	427 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	428 {
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	429 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	430 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	431 {
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	432 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	433 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	434 }
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	435 }
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	436 }
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	437
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	438 /*
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	439 * 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	440 */
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	441 char_u *
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	442 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	443 {
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	444 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	445 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	446
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	447 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	448 return name;
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	449 }
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	450
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	451 #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	452 /*
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	453 * 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	454 * 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	455 */
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	456 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	457 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	458 {
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	459 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	460 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	461
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	462 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	463 if (fp == NULL)
21066 48cfc37fe4fc patch 8.2.1084: Lua: registering function has useless code Bram Moolenaar <Bram@vim.org> parents: 21058 diff changeset	464 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	465
21558 1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	466 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	467 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	468 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	469 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	470 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	471 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	472 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	473 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	474 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	475
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	476 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	477 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	478
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	479 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	480 }
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	481 #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	482
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	483 /*
23318 c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	484 * Skip over "->" or "=>" after the arguments of a lambda.
23332 cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	485 * If ": type" is found make "ret_type" point to "type".
23338 9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	486 * If "white_error" is not NULL check for correct use of white space and set
9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	487 * "white_error" to TRUE if there is an error.
23318 c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	488 * Return NULL if no valid arrow found.
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	489 */
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	490 static char_u *
23338 9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	491 skip_arrow(
9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	492 char_u *start,
9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	493 int equal_arrow,
9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	494 char_u **ret_type,
9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	495 int *white_error)
23318 c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	496 {
23338 9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	497 char_u *s = start;
9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	498 char_u *bef = start - 2; // "start" points to > of ->
23318 c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	499
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	500 if (equal_arrow)
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	501 {
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	502 if (*s == ':')
23332 cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	503 {
23338 9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	504 if (white_error != NULL && !VIM_ISWHITE(s[1]))
9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	505 {
9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	506 *white_error = TRUE;
23877 85cf06ddb2a8 patch 8.2.2480: Vim9: some errors for white space do not show context Bram Moolenaar <Bram@vim.org> parents: 23829 diff changeset	507 semsg(_(e_white_space_required_after_str_str), ":", s);
23338 9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	508 return NULL;
9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	509 }
23332 cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	510 s = skipwhite(s + 1);
cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	511 *ret_type = s;
cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	512 s = skip_type(s, TRUE);
23808 baf9069f64ca patch 8.2.2445: Vim9: no proper error for lambda missing return type Bram Moolenaar <Bram@vim.org> parents: 23727 diff changeset	513 if (s == *ret_type)
baf9069f64ca patch 8.2.2445: Vim9: no proper error for lambda missing return type Bram Moolenaar <Bram@vim.org> parents: 23727 diff changeset	514 {
baf9069f64ca patch 8.2.2445: Vim9: no proper error for lambda missing return type Bram Moolenaar <Bram@vim.org> parents: 23727 diff changeset	515 emsg(_(e_missing_return_type));
baf9069f64ca patch 8.2.2445: Vim9: no proper error for lambda missing return type Bram Moolenaar <Bram@vim.org> parents: 23727 diff changeset	516 return NULL;
baf9069f64ca patch 8.2.2445: Vim9: no proper error for lambda missing return type Bram Moolenaar <Bram@vim.org> parents: 23727 diff changeset	517 }
23332 cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	518 }
23338 9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	519 bef = s;
23318 c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	520 s = skipwhite(s);
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	521 if (*s != '=')
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	522 return NULL;
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	523 ++s;
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	524 }
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	525 if (*s != '>')
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	526 return NULL;
23338 9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	527 if (white_error != NULL && ((!VIM_ISWHITE(bef) && bef != '{')
9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	528 \|\| !IS_WHITE_OR_NUL(s[1])))
9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	529 {
9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	530 *white_error = TRUE;
23446 b1dbbc81a011 patch 8.2.2266: Vim9: it can be hard to see where white space is missing Bram Moolenaar <Bram@vim.org> parents: 23444 diff changeset	531 semsg(_(e_white_space_required_before_and_after_str_at_str),
b1dbbc81a011 patch 8.2.2266: Vim9: it can be hard to see where white space is missing Bram Moolenaar <Bram@vim.org> parents: 23444 diff changeset	532 equal_arrow ? "=>" : "->", bef);
23338 9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	533 return NULL;
9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	534 }
23318 c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	535 return skipwhite(s + 1);
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	536 }
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	537
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	538 /*
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	539 * Parse a lambda expression and get a Funcref from "*arg".
23318 c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	540 * "arg" points to the { in "{arg -> expr}" or the ( in "(arg) => expr"
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	541 * When "types_optional" is TRUE optionally take argument types.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	542 * 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	543 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	544 int
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	545 get_lambda_tv(
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	546 char_u **arg,
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	547 typval_T *rettv,
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	548 int types_optional,
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	549 evalarg_T *evalarg)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	550 {
21040 d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	551 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	552 && (evalarg->eval_flags & EVAL_EVALUATE);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	553 garray_T newargs;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	554 garray_T newlines;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	555 garray_T *pnewargs;
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	556 garray_T argtypes;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	557 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	558 partial_T *pt = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	559 int varargs;
23332 cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	560 char_u *ret_type = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	561 int ret;
21220 ad13736a1783 patch 8.2.1161: Vim9: using freed memory Bram Moolenaar <Bram@vim.org> parents: 21218 diff changeset	562 char_u *s;
ad13736a1783 patch 8.2.1161: Vim9: using freed memory Bram Moolenaar <Bram@vim.org> parents: 21218 diff changeset	563 char_u start, end;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	564 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	565 int eval_lavars = FALSE;
23644 03acf9c49f07 patch 8.2.2364: Vim9: line break in lambda accesses freed memory Bram Moolenaar <Bram@vim.org> parents: 23630 diff changeset	566 char_u *tofree1 = NULL;
03acf9c49f07 patch 8.2.2364: Vim9: line break in lambda accesses freed memory Bram Moolenaar <Bram@vim.org> parents: 23630 diff changeset	567 char_u *tofree2 = NULL;
23318 c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	568 int equal_arrow = **arg == '(';
23338 9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	569 int white_error = FALSE;
23808 baf9069f64ca patch 8.2.2445: Vim9: no proper error for lambda missing return type Bram Moolenaar <Bram@vim.org> parents: 23727 diff changeset	570 int called_emsg_start = called_emsg;
23318 c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	571
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	572 if (equal_arrow && !in_vim9script())
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	573 return NOTDONE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	574
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	575 ga_init(&newargs);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	576 ga_init(&newlines);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	577
23332 cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	578 // First, check if this is really a lambda expression. "->" or "=>" must
cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	579 // be found after the arguments.
23511 7e8703464f01 patch 8.2.2298: Vim9: comment right after "(" of function not recognized Bram Moolenaar <Bram@vim.org> parents: 23446 diff changeset	580 s = *arg + 1;
23318 c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	581 ret = get_function_args(&s, equal_arrow ? ')' : '-', NULL,
24033 308d29307910 patch 8.2.2558: no error if a lambda argument shadows a variable Bram Moolenaar <Bram@vim.org> parents: 24004 diff changeset	582 types_optional ? &argtypes : NULL, types_optional, evalarg,
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	583 NULL, NULL, TRUE, NULL, NULL);
23338 9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	584 if (ret == FAIL \|\| skip_arrow(s, equal_arrow, &ret_type, NULL) == NULL)
23320 1d11e3adbe52 patch 8.2.2205: Vim9: memory leak when parsing lambda fails Bram Moolenaar <Bram@vim.org> parents: 23318 diff changeset	585 {
1d11e3adbe52 patch 8.2.2205: Vim9: memory leak when parsing lambda fails Bram Moolenaar <Bram@vim.org> parents: 23318 diff changeset	586 if (types_optional)
1d11e3adbe52 patch 8.2.2205: Vim9: memory leak when parsing lambda fails Bram Moolenaar <Bram@vim.org> parents: 23318 diff changeset	587 ga_clear_strings(&argtypes);
23808 baf9069f64ca patch 8.2.2445: Vim9: no proper error for lambda missing return type Bram Moolenaar <Bram@vim.org> parents: 23727 diff changeset	588 return called_emsg == called_emsg_start ? NOTDONE : FAIL;
23320 1d11e3adbe52 patch 8.2.2205: Vim9: memory leak when parsing lambda fails Bram Moolenaar <Bram@vim.org> parents: 23318 diff changeset	589 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	590
23332 cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	591 // Parse the arguments for real.
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	592 if (evaluate)
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	593 pnewargs = &newargs;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	594 else
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	595 pnewargs = NULL;
23511 7e8703464f01 patch 8.2.2298: Vim9: comment right after "(" of function not recognized Bram Moolenaar <Bram@vim.org> parents: 23446 diff changeset	596 *arg += 1;
23318 c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	597 ret = get_function_args(arg, equal_arrow ? ')' : '-', pnewargs,
24033 308d29307910 patch 8.2.2558: no error if a lambda argument shadows a variable Bram Moolenaar <Bram@vim.org> parents: 24004 diff changeset	598 types_optional ? &argtypes : NULL, types_optional, evalarg,
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	599 &varargs, NULL, FALSE, NULL, NULL);
23332 cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	600 if (ret == FAIL
23338 9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	601 \|\| (s = skip_arrow(*arg, equal_arrow, &ret_type,
23368 a7cbdb9294c4 patch 8.2.2227: Vim9: recognizing lambda is too complicated Bram Moolenaar <Bram@vim.org> parents: 23360 diff changeset	602 equal_arrow \|\| in_vim9script() ? &white_error : NULL)) == NULL)
23320 1d11e3adbe52 patch 8.2.2205: Vim9: memory leak when parsing lambda fails Bram Moolenaar <Bram@vim.org> parents: 23318 diff changeset	603 {
1d11e3adbe52 patch 8.2.2205: Vim9: memory leak when parsing lambda fails Bram Moolenaar <Bram@vim.org> parents: 23318 diff changeset	604 if (types_optional)
1d11e3adbe52 patch 8.2.2205: Vim9: memory leak when parsing lambda fails Bram Moolenaar <Bram@vim.org> parents: 23318 diff changeset	605 ga_clear_strings(&argtypes);
23354 611e19cd237d patch 8.2.2220: Vim9: memory leak when parsing nested parenthesis Bram Moolenaar <Bram@vim.org> parents: 23340 diff changeset	606 ga_clear_strings(&newargs);
23338 9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	607 return white_error ? FAIL : NOTDONE;
23320 1d11e3adbe52 patch 8.2.2205: Vim9: memory leak when parsing lambda fails Bram Moolenaar <Bram@vim.org> parents: 23318 diff changeset	608 }
23338 9c5275b1c763 patch 8.2.2212: Vim9: lambda with => does not work at the script level Bram Moolenaar <Bram@vim.org> parents: 23332 diff changeset	609 *arg = s;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	610
23644 03acf9c49f07 patch 8.2.2364: Vim9: line break in lambda accesses freed memory Bram Moolenaar <Bram@vim.org> parents: 23630 diff changeset	611 // Skipping over linebreaks may make "ret_type" invalid, make a copy.
03acf9c49f07 patch 8.2.2364: Vim9: line break in lambda accesses freed memory Bram Moolenaar <Bram@vim.org> parents: 23630 diff changeset	612 if (ret_type != NULL)
03acf9c49f07 patch 8.2.2364: Vim9: line break in lambda accesses freed memory Bram Moolenaar <Bram@vim.org> parents: 23630 diff changeset	613 {
03acf9c49f07 patch 8.2.2364: Vim9: line break in lambda accesses freed memory Bram Moolenaar <Bram@vim.org> parents: 23630 diff changeset	614 ret_type = vim_strsave(ret_type);
03acf9c49f07 patch 8.2.2364: Vim9: line break in lambda accesses freed memory Bram Moolenaar <Bram@vim.org> parents: 23630 diff changeset	615 tofree2 = ret_type;
03acf9c49f07 patch 8.2.2364: Vim9: line break in lambda accesses freed memory Bram Moolenaar <Bram@vim.org> parents: 23630 diff changeset	616 }
03acf9c49f07 patch 8.2.2364: Vim9: line break in lambda accesses freed memory Bram Moolenaar <Bram@vim.org> parents: 23630 diff changeset	617
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	618 // 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	619 if (evaluate)
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	620 eval_lavars_used = &eval_lavars;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	621
23318 c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	622 arg = skipwhite_and_linebreak(arg, evalarg);
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	623
23332 cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	624 // Recognize "{" as the start of a function body.
cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	625 if (equal_arrow && **arg == '{')
23318 c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	626 {
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	627 // TODO: process the function body upto the "}".
23332 cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	628 // Return type is required then.
23318 c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	629 emsg("Lambda function body not supported yet");
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	630 goto errret;
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	631 }
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	632
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	633 // Get the start and the end of the expression.
21220 ad13736a1783 patch 8.2.1161: Vim9: using freed memory Bram Moolenaar <Bram@vim.org> parents: 21218 diff changeset	634 start = *arg;
ad13736a1783 patch 8.2.1161: Vim9: using freed memory Bram Moolenaar <Bram@vim.org> parents: 21218 diff changeset	635 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	636 if (ret == FAIL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	637 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	638 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	639 {
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	640 // avoid that the expression gets freed when another line break follows
23644 03acf9c49f07 patch 8.2.2364: Vim9: line break in lambda accesses freed memory Bram Moolenaar <Bram@vim.org> parents: 23630 diff changeset	641 tofree1 = evalarg->eval_tofree;
21040 d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	642 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	643 }
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	644
23318 c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	645 if (!equal_arrow)
19826 293a22b677a8 patch 8.2.0469: Vim9: no error for missing ] after list Bram Moolenaar <Bram@vim.org> parents: 19685 diff changeset	646 {
23318 c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	647 arg = skipwhite_and_linebreak(arg, evalarg);
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	648 if (**arg != '}')
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	649 {
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	650 semsg(_("E451: Expected }: %s"), *arg);
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	651 goto errret;
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	652 }
c76240efdf02 patch 8.2.2204: Vim9: using -> both for method and lambda is confusing Bram Moolenaar <Bram@vim.org> parents: 23285 diff changeset	653 ++*arg;
19826 293a22b677a8 patch 8.2.0469: Vim9: no error for missing ] after list Bram Moolenaar <Bram@vim.org> parents: 19685 diff changeset	654 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	655
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	656 if (evaluate)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	657 {
21040 d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	658 int len;
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	659 int flags = 0;
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	660 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	661 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	662
17659 121bdff812b4 patch 8.1.1827: allocating more memory than needed for extended structs Bram Moolenaar <Bram@vim.org> parents: 17646 diff changeset	663 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	664 if (fp == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	665 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	666 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	667 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	668 if (pt == NULL)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	669 goto errret;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	670
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	671 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	672 if (ga_grow(&newlines, 1) == FAIL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	673 goto errret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	674
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	675 // Add "return " before the expression.
21220 ad13736a1783 patch 8.2.1161: Vim9: using freed memory Bram Moolenaar <Bram@vim.org> parents: 21218 diff changeset	676 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	677 p = alloc(len);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	678 if (p == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	679 goto errret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	680 ((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	681 STRCPY(p, "return ");
21220 ad13736a1783 patch 8.2.1161: Vim9: using freed memory Bram Moolenaar <Bram@vim.org> parents: 21218 diff changeset	682 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	683 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	684 // 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	685 flags \|= FC_NOARGS;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	686
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	687 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	688 set_ufunc_name(fp, name);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	689 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	690 ga_init(&fp->uf_def_args);
23332 cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	691 if (types_optional)
cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	692 {
cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	693 if (parse_argument_types(fp, &argtypes, FALSE) == FAIL)
cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	694 goto errret;
cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	695 if (ret_type != NULL)
cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	696 {
cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	697 fp->uf_ret_type = parse_type(&ret_type,
cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	698 &fp->uf_type_list, TRUE);
cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	699 if (fp->uf_ret_type == NULL)
cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	700 goto errret;
cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	701 }
23420 42294d4d4f6e patch 8.2.2253: Vim9: expr test fails Bram Moolenaar <Bram@vim.org> parents: 23398 diff changeset	702 else
23531 f39a18a42aed patch 8.2.2308: Vim9: no error when assigning lambda to funcref Bram Moolenaar <Bram@vim.org> parents: 23527 diff changeset	703 fp->uf_ret_type = &t_any;
23332 cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	704 }
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	705
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	706 fp->uf_lines = newlines;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	707 if (current_funccal != NULL && eval_lavars)
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	708 {
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	709 flags \|= FC_CLOSURE;
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	710 if (register_closure(fp) == FAIL)
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	711 goto errret;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	712 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	713
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	714 #ifdef FEAT_PROFILE
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	715 if (prof_def_func())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	716 func_do_profile(fp);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	717 #endif
14323 9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	718 if (sandbox)
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	719 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	720 // 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	721 fp->uf_varargs = TRUE;
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	722 fp->uf_flags = flags;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	723 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	724 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	725 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	726
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	727 pt->pt_func = fp;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	728 pt->pt_refcount = 1;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	729 rettv->vval.v_partial = pt;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	730 rettv->v_type = VAR_PARTIAL;
24033 308d29307910 patch 8.2.2558: no error if a lambda argument shadows a variable Bram Moolenaar <Bram@vim.org> parents: 24004 diff changeset	731
308d29307910 patch 8.2.2558: no error if a lambda argument shadows a variable Bram Moolenaar <Bram@vim.org> parents: 24004 diff changeset	732 hash_add(&func_hashtab, UF2HIKEY(fp));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	733 }
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	734
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	735 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	736 if (evalarg != NULL && evalarg->eval_tofree == NULL)
23644 03acf9c49f07 patch 8.2.2364: Vim9: line break in lambda accesses freed memory Bram Moolenaar <Bram@vim.org> parents: 23630 diff changeset	737 evalarg->eval_tofree = tofree1;
21220 ad13736a1783 patch 8.2.1161: Vim9: using freed memory Bram Moolenaar <Bram@vim.org> parents: 21218 diff changeset	738 else
23644 03acf9c49f07 patch 8.2.2364: Vim9: line break in lambda accesses freed memory Bram Moolenaar <Bram@vim.org> parents: 23630 diff changeset	739 vim_free(tofree1);
03acf9c49f07 patch 8.2.2364: Vim9: line break in lambda accesses freed memory Bram Moolenaar <Bram@vim.org> parents: 23630 diff changeset	740 vim_free(tofree2);
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	741 if (types_optional)
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	742 ga_clear_strings(&argtypes);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	743 return OK;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	744
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	745 errret:
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	746 ga_clear_strings(&newargs);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	747 ga_clear_strings(&newlines);
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	748 if (types_optional)
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	749 ga_clear_strings(&argtypes);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	750 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	751 vim_free(pt);
21222 a4d00a2dadd6 patch 8.2.1162: crash when using a lambda Bram Moolenaar <Bram@vim.org> parents: 21220 diff changeset	752 if (evalarg != NULL && evalarg->eval_tofree == NULL)
23644 03acf9c49f07 patch 8.2.2364: Vim9: line break in lambda accesses freed memory Bram Moolenaar <Bram@vim.org> parents: 23630 diff changeset	753 evalarg->eval_tofree = tofree1;
21220 ad13736a1783 patch 8.2.1161: Vim9: using freed memory Bram Moolenaar <Bram@vim.org> parents: 21218 diff changeset	754 else
23644 03acf9c49f07 patch 8.2.2364: Vim9: line break in lambda accesses freed memory Bram Moolenaar <Bram@vim.org> parents: 23630 diff changeset	755 vim_free(tofree1);
03acf9c49f07 patch 8.2.2364: Vim9: line break in lambda accesses freed memory Bram Moolenaar <Bram@vim.org> parents: 23630 diff changeset	756 vim_free(tofree2);
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	757 eval_lavars_used = old_eval_lavars;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	758 return FAIL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	759 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	760
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	761 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	762 * 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	763 * name it contains, otherwise return "name".
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	764 * 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	765 * "partialp".
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	766 * If "type" is not NULL and a Vim9 script-local variable is found look up the
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	767 * type of the variable.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	768 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	769 char_u *
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	770 deref_func_name(
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	771 char_u *name,
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	772 int *lenp,
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	773 partial_T **partialp,
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	774 type_T **type,
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	775 int no_autoload)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	776 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	777 dictitem_T *v;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	778 int cc;
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	779 char_u *s = NULL;
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	780 hashtab_T *ht;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	781
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	782 if (partialp != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	783 *partialp = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	784
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	785 cc = name[*lenp];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	786 name[*lenp] = NUL;
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	787 v = find_var(name, &ht, no_autoload);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	788 name[*lenp] = cc;
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	789 if (v != NULL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	790 {
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	791 if (v->di_tv.v_type == VAR_FUNC)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	792 {
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	793 if (v->di_tv.vval.v_string == NULL)
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	794 {
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	795 *lenp = 0;
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	796 return (char_u *)""; // just in case
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	797 }
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	798 s = v->di_tv.vval.v_string;
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	799 *lenp = (int)STRLEN(s);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	800 }
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	801
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	802 if (v->di_tv.v_type == VAR_PARTIAL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	803 {
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	804 partial_T *pt = v->di_tv.vval.v_partial;
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	805
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	806 if (pt == NULL)
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	807 {
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	808 *lenp = 0;
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	809 return (char_u *)""; // just in case
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	810 }
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	811 if (partialp != NULL)
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	812 *partialp = pt;
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	813 s = partial_name(pt);
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	814 *lenp = (int)STRLEN(s);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	815 }
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	816
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	817 if (s != NULL)
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	818 {
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	819 if (type != NULL && ht == get_script_local_ht())
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	820 {
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	821 svar_T *sv = find_typval_in_script(&v->di_tv);
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	822
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	823 if (sv != NULL)
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	824 *type = sv->sv_type;
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	825 }
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	826 return s;
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	827 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	828 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	829
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	830 return name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	831 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	832
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	833 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	834 * 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	835 * "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	836 */
18576 e9675870c480 patch 8.1.2282: crash when passing many arguments through a partial Bram Moolenaar <Bram@vim.org> parents: 18572 diff changeset	837 void
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	838 emsg_funcname(char ermsg, char_u name)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	839 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	840 char_u *p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	841
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	842 if (*name == K_SPECIAL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	843 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	844 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	845 p = name;
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	846 semsg(_(ermsg), p);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	847 if (p != name)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	848 vim_free(p);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	849 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	850
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	851 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	852 * 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	853 * Return OK or FAIL.
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 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	856 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	857 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	858 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	859 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	860 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	861 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	862 funcexe_T *funcexe) // various values
9562 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 char_u *argp;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	865 int ret = OK;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	866 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	867 int argcount = 0; // number of arguments found
21909 a211bca98bc3 patch 8.2.1504: Vim9: white space checks are only done for a :def function Bram Moolenaar <Bram@vim.org> parents: 21883 diff changeset	868 int vim9script = in_vim9script();
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	869
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	870 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	871 * Get the arguments.
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 argp = *arg;
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	874 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	875 : funcexe->partial->pt_argc))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	876 {
21118 b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21066 diff changeset	877 // 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	878 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	879
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	880 if (argp == ')' \|\| argp == ',' \|\| *argp == NUL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	881 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	882 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	883 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	884 ret = FAIL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	885 break;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	886 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	887 ++argcount;
21552 cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list Bram Moolenaar <Bram@vim.org> parents: 21528 diff changeset	888 // 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	889 // checked previously, thus only enforce it in Vim9 script.
21909 a211bca98bc3 patch 8.2.1504: Vim9: white space checks are only done for a :def function Bram Moolenaar <Bram@vim.org> parents: 21883 diff changeset	890 if (vim9script)
a211bca98bc3 patch 8.2.1504: Vim9: white space checks are only done for a :def function Bram Moolenaar <Bram@vim.org> parents: 21883 diff changeset	891 {
a211bca98bc3 patch 8.2.1504: Vim9: white space checks are only done for a :def function Bram Moolenaar <Bram@vim.org> parents: 21883 diff changeset	892 if (argp != ',' && skipwhite(argp) == ',')
a211bca98bc3 patch 8.2.1504: Vim9: white space checks are only done for a :def function Bram Moolenaar <Bram@vim.org> parents: 21883 diff changeset	893 {
23888 d95403445b6b patch 8.2.2486: Vim9: some errors for white space do not show context Bram Moolenaar <Bram@vim.org> parents: 23879 diff changeset	894 semsg(_(e_no_white_space_allowed_before_str_str), ",", argp);
21909 a211bca98bc3 patch 8.2.1504: Vim9: white space checks are only done for a :def function Bram Moolenaar <Bram@vim.org> parents: 21883 diff changeset	895 ret = FAIL;
a211bca98bc3 patch 8.2.1504: Vim9: white space checks are only done for a :def function Bram Moolenaar <Bram@vim.org> parents: 21883 diff changeset	896 break;
a211bca98bc3 patch 8.2.1504: Vim9: white space checks are only done for a :def function Bram Moolenaar <Bram@vim.org> parents: 21883 diff changeset	897 }
a211bca98bc3 patch 8.2.1504: Vim9: white space checks are only done for a :def function Bram Moolenaar <Bram@vim.org> parents: 21883 diff changeset	898 }
a211bca98bc3 patch 8.2.1504: Vim9: white space checks are only done for a :def function Bram Moolenaar <Bram@vim.org> parents: 21883 diff changeset	899 else
21552 cbc570e66d11 patch 8.2.1326: Vim9: skipping over white space after list Bram Moolenaar <Bram@vim.org> parents: 21528 diff changeset	900 argp = skipwhite(argp);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	901 if (*argp != ',')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	902 break;
21909 a211bca98bc3 patch 8.2.1504: Vim9: white space checks are only done for a :def function Bram Moolenaar <Bram@vim.org> parents: 21883 diff changeset	903 if (vim9script && !IS_WHITE_OR_NUL(argp[1]))
a211bca98bc3 patch 8.2.1504: Vim9: white space checks are only done for a :def function Bram Moolenaar <Bram@vim.org> parents: 21883 diff changeset	904 {
23877 85cf06ddb2a8 patch 8.2.2480: Vim9: some errors for white space do not show context Bram Moolenaar <Bram@vim.org> parents: 23829 diff changeset	905 semsg(_(e_white_space_required_after_str_str), ",", argp);
21909 a211bca98bc3 patch 8.2.1504: Vim9: white space checks are only done for a :def function Bram Moolenaar <Bram@vim.org> parents: 21883 diff changeset	906 ret = FAIL;
a211bca98bc3 patch 8.2.1504: Vim9: white space checks are only done for a :def function Bram Moolenaar <Bram@vim.org> parents: 21883 diff changeset	907 break;
a211bca98bc3 patch 8.2.1504: Vim9: white space checks are only done for a :def function Bram Moolenaar <Bram@vim.org> parents: 21883 diff changeset	908 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	909 }
21118 b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21066 diff changeset	910 argp = skipwhite_and_linebreak(argp, evalarg);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	911 if (*argp == ')')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	912 ++argp;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	913 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	914 ret = FAIL;
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 if (ret == OK)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	917 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	918 int i = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	919
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	920 if (get_vim_var_nr(VV_TESTING))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	921 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	922 // 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	923 // 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	924 if (funcargs.ga_itemsize == 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	925 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	926 for (i = 0; i < argcount; ++i)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	927 if (ga_grow(&funcargs, 1) == OK)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	928 ((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	929 &argvars[i];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	930 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	931
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	932 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	933
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	934 funcargs.ga_len -= i;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	935 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	936 else if (!aborting())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	937 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	938 if (argcount == MAX_FUNC_ARGS)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	939 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	940 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	941 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	942 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	943
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	944 while (--argcount >= 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	945 clear_tv(&argvars[argcount]);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	946
21737 a849c984b485 patch 8.2.1418: Vim9: invalid error for missing white space Bram Moolenaar <Bram@vim.org> parents: 21699 diff changeset	947 if (in_vim9script())
a849c984b485 patch 8.2.1418: Vim9: invalid error for missing white space Bram Moolenaar <Bram@vim.org> parents: 21699 diff changeset	948 *arg = argp;
a849c984b485 patch 8.2.1418: Vim9: invalid error for missing white space Bram Moolenaar <Bram@vim.org> parents: 21699 diff changeset	949 else
a849c984b485 patch 8.2.1418: Vim9: invalid error for missing white space Bram Moolenaar <Bram@vim.org> parents: 21699 diff changeset	950 *arg = skipwhite(argp);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	951 return ret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	952 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	953
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	954 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	955 * 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	956 * 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	957 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	958 static int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	959 eval_fname_sid(char_u *p)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	960 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	961 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	962 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	963
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	964 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	965 * 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	966 * 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	967 * 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	968 * (slow).
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	969 */
19330 9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: 19328 diff changeset	970 char_u *
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	971 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	972 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	973 int llen;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	974 char_u *fname;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	975 int i;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	976
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	977 llen = eval_fname_script(name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	978 if (llen > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	979 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	980 fname_buf[0] = K_SPECIAL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	981 fname_buf[1] = KS_EXTRA;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	982 fname_buf[2] = (int)KE_SNR;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	983 i = 3;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	984 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	985 {
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	986 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	987 *error = FCERR_SCRIPT;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	988 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	989 {
16378 3d6b282e2d6e patch 8.1.1194: typos and small problems in source files Bram Moolenaar <Bram@vim.org> parents: 16003 diff changeset	990 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	991 (long)current_sctx.sc_sid);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	992 i = (int)STRLEN(fname_buf);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	993 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	994 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	995 if (i + STRLEN(name + llen) < FLEN_FIXED)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	996 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	997 STRCPY(fname_buf + i, name + llen);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	998 fname = fname_buf;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	999 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1000 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1001 {
16764 ef00b6bc186b patch 8.1.1384: using "int" for alloc() often results in compiler warnings Bram Moolenaar <Bram@vim.org> parents: 16708 diff changeset	1002 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	1003 if (fname == NULL)
19013 dd9ab0674eec patch 8.2.0067: ERROR_UNKNOWN clashes on some systems Bram Moolenaar <Bram@vim.org> parents: 18991 diff changeset	1004 *error = FCERR_OTHER;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1005 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1006 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1007 *tofree = fname;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1008 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	1009 STRCPY(fname + i, name + llen);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1010 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1011 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1012 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1013 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1014 fname = name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1015 return fname;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1016 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1017
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1018 /*
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1019 * 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	1020 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1021 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	1022 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	1023 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1024 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	1025 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	1026
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1027 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	1028 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	1029 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	1030 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	1031 (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	1032 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	1033 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	1034 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	1035
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1036 return NULL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1037 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1038
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1039 /*
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1040 * 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	1041 * 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	1042 * Return NULL for unknown function.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1043 */
21564 30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	1044 ufunc_T *
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1045 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	1046 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1047 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	1048 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	1049 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	1050
20816 9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	1051 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	1052 {
21586 5470c36ed7e6 patch 8.2.1343: Vim9: cannot find global function when using g: Bram Moolenaar <Bram@vim.org> parents: 21566 diff changeset	1053 char_u *after_script = NULL;
21699 1b96535705a0 patch 8.2.1399: Vim9: may find imported item in wrong script Bram Moolenaar <Bram@vim.org> parents: 21685 diff changeset	1054 long sid = 0;
21983 3fe594c72d8c patch 8.2.1541: Vim9: cannot find function reference for s:Func Bram Moolenaar <Bram@vim.org> parents: 21969 diff changeset	1055 int find_script_local = in_vim9script()
3fe594c72d8c patch 8.2.1541: Vim9: cannot find function reference for s:Func Bram Moolenaar <Bram@vim.org> parents: 21969 diff changeset	1056 && eval_isnamec1(*name) && name[1] != ':';
3fe594c72d8c patch 8.2.1541: Vim9: cannot find function reference for s:Func Bram Moolenaar <Bram@vim.org> parents: 21969 diff changeset	1057
3fe594c72d8c patch 8.2.1541: Vim9: cannot find function reference for s:Func Bram Moolenaar <Bram@vim.org> parents: 21969 diff changeset	1058 if (find_script_local)
20816 9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	1059 {
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	1060 // 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	1061 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	1062 if (func != NULL)
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	1063 return func;
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	1064 }
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	1065
21699 1b96535705a0 patch 8.2.1399: Vim9: may find imported item in wrong script Bram Moolenaar <Bram@vim.org> parents: 21685 diff changeset	1066 if (name[0] == K_SPECIAL
20816 9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	1067 && 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	1068 && 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	1069 {
20816 9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	1070 // 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	1071
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	1072 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	1073 sid = getdigits(&after_script);
21699 1b96535705a0 patch 8.2.1399: Vim9: may find imported item in wrong script Bram Moolenaar <Bram@vim.org> parents: 21685 diff changeset	1074 if (*after_script == '_')
20816 9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	1075 ++after_script;
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	1076 else
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	1077 after_script = NULL;
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	1078 }
21983 3fe594c72d8c patch 8.2.1541: Vim9: cannot find function reference for s:Func Bram Moolenaar <Bram@vim.org> parents: 21969 diff changeset	1079 if (find_script_local \|\| 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	1080 {
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	1081 // Find imported function before global one.
21699 1b96535705a0 patch 8.2.1399: Vim9: may find imported item in wrong script Bram Moolenaar <Bram@vim.org> parents: 21685 diff changeset	1082 if (after_script != NULL && sid != current_sctx.sc_sid)
1b96535705a0 patch 8.2.1399: Vim9: may find imported item in wrong script Bram Moolenaar <Bram@vim.org> parents: 21685 diff changeset	1083 imported = find_imported_in_script(after_script, 0, sid);
1b96535705a0 patch 8.2.1399: Vim9: may find imported item in wrong script Bram Moolenaar <Bram@vim.org> parents: 21685 diff changeset	1084 else
1b96535705a0 patch 8.2.1399: Vim9: may find imported item in wrong script Bram Moolenaar <Bram@vim.org> parents: 21685 diff changeset	1085 imported = find_imported(after_script == NULL
1b96535705a0 patch 8.2.1399: Vim9: may find imported item in wrong script Bram Moolenaar <Bram@vim.org> parents: 21685 diff changeset	1086 ? name : after_script, 0, cctx);
20816 9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	1087 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	1088 {
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	1089 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	1090 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	1091 return HI2UF(hi);
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	1092 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1093 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1094 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1095
20079 336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	1096 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	1097 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	1098 if (!HASHITEM_EMPTY(hi))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1099 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	1100
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1101 return NULL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1102 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1103
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1104 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1105 * 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	1106 * "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	1107 * 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	1108 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1109 ufunc_T *
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1110 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	1111 {
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1112 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	1113
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1114 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	1115 return fp;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1116 return NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1117 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1118
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1119 /*
22236 3d0632b260fd patch 8.2.1667: local function name cannot shadow a global function name Bram Moolenaar <Bram@vim.org> parents: 22188 diff changeset	1120 * Return TRUE if "ufunc" is a global function.
3d0632b260fd patch 8.2.1667: local function name cannot shadow a global function name Bram Moolenaar <Bram@vim.org> parents: 22188 diff changeset	1121 */
3d0632b260fd patch 8.2.1667: local function name cannot shadow a global function name Bram Moolenaar <Bram@vim.org> parents: 22188 diff changeset	1122 int
3d0632b260fd patch 8.2.1667: local function name cannot shadow a global function name Bram Moolenaar <Bram@vim.org> parents: 22188 diff changeset	1123 func_is_global(ufunc_T *ufunc)
3d0632b260fd patch 8.2.1667: local function name cannot shadow a global function name Bram Moolenaar <Bram@vim.org> parents: 22188 diff changeset	1124 {
3d0632b260fd patch 8.2.1667: local function name cannot shadow a global function name Bram Moolenaar <Bram@vim.org> parents: 22188 diff changeset	1125 return ufunc->uf_name[0] != K_SPECIAL;
3d0632b260fd patch 8.2.1667: local function name cannot shadow a global function name Bram Moolenaar <Bram@vim.org> parents: 22188 diff changeset	1126 }
3d0632b260fd patch 8.2.1667: local function name cannot shadow a global function name Bram Moolenaar <Bram@vim.org> parents: 22188 diff changeset	1127
3d0632b260fd patch 8.2.1667: local function name cannot shadow a global function name Bram Moolenaar <Bram@vim.org> parents: 22188 diff changeset	1128 /*
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1129 * 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	1130 * "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	1131 * Takes care of script-local function names.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1132 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1133 static void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1134 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	1135 {
22236 3d0632b260fd patch 8.2.1667: local function name cannot shadow a global function name Bram Moolenaar <Bram@vim.org> parents: 22188 diff changeset	1136 if (!func_is_global(fp))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1137 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1138 STRCPY(buf, "<SNR>");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1139 STRCAT(buf, fp->uf_name + 3);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1140 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1141 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1142 STRCPY(buf, fp->uf_name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1143 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1144
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1145 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1146 * 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	1147 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1148 static void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1149 add_nr_var(
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1150 dict_T *dp,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1151 dictitem_T *v,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1152 char *name,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1153 varnumber_T nr)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1154 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1155 STRCPY(v->di_key, name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1156 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	1157 hash_add(&dp->dv_hashtab, DI2HIKEY(v));
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1158 v->di_tv.v_type = VAR_NUMBER;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1159 v->di_tv.v_lock = VAR_FIXED;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1160 v->di_tv.vval.v_number = nr;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1161 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1162
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1163 /*
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1164 * Free "fc".
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1165 */
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1166 static void
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1167 free_funccal(funccall_T *fc)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1168 {
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1169 int i;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	1170
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	1171 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	1172 {
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1173 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	1174
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1175 // 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	1176 // 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	1177 // 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	1178 // 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	1179 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	1180 fp->uf_scoped = NULL;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	1181 }
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	1182 ga_clear(&fc->fc_funcs);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1183
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	1184 func_ptr_unref(fc->func);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1185 vim_free(fc);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1186 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1187
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1188 /*
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1189 * 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	1190 * 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	1191 * 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	1192 */
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1193 static void
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1194 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	1195 {
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1196 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	1197
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1198 // 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	1199 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	1200
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1201 // 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	1202 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	1203
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1204 // 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	1205 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	1206 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	1207
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1208 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	1209 }
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1210
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1211 /*
11299 4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1212 * 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	1213 * 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	1214 */
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1215 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	1216 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	1217 {
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1218 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	1219 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	1220
11299 4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1221 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	1222
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1223 // 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	1224 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	1225 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	1226 else
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1227 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	1228
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1229 // 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	1230 // 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	1231 // in it.
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1232 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	1233 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	1234 else
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1235 {
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1236 int todo;
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1237 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	1238 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	1239
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1240 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	1241
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1242 // 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	1243 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	1244 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	1245 {
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1246 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	1247 {
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1248 --todo;
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1249 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	1250 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	1251 }
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1252 }
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1253 }
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1254
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1255 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	1256 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	1257 else
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1258 {
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1259 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	1260
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1261 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	1262
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1263 // 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	1264 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	1265 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	1266 }
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1267
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1268 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	1269 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	1270 else
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1271 {
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1272 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	1273
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1274 // "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	1275 // 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	1276 // 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	1277 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	1278 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	1279
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1280 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	1281 // 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	1282 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	1283 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	1284 {
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1285 // 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	1286 // 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	1287 // 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	1288 // 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	1289 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	1290 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	1291 }
11299 4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1292 }
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1293 }
22324 a4ed0de125d9 patch 8.2.1711: Vim9: leaking memory when using partial Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1294
a4ed0de125d9 patch 8.2.1711: Vim9: leaking memory when using partial Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1295 /*
a4ed0de125d9 patch 8.2.1711: Vim9: leaking memory when using partial Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1296 * There are two kinds of function names:
a4ed0de125d9 patch 8.2.1711: Vim9: leaking memory when using partial Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1297 * 1. ordinary names, function defined with :function or :def
a4ed0de125d9 patch 8.2.1711: Vim9: leaking memory when using partial Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1298 * 2. numbered functions and lambdas
a4ed0de125d9 patch 8.2.1711: Vim9: leaking memory when using partial Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1299 * For the first we only count the name stored in func_hashtab as a reference,
a4ed0de125d9 patch 8.2.1711: Vim9: leaking memory when using partial Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1300 * using function() does not count as a reference, because the function is
a4ed0de125d9 patch 8.2.1711: Vim9: leaking memory when using partial Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1301 * looked up by name.
a4ed0de125d9 patch 8.2.1711: Vim9: leaking memory when using partial Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1302 */
22326 fb69b43d73f3 patch 8.2.1712: Vim9: leaking memory when calling a lambda Bram Moolenaar <Bram@vim.org> parents: 22324 diff changeset	1303 int
22324 a4ed0de125d9 patch 8.2.1711: Vim9: leaking memory when using partial Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1304 func_name_refcount(char_u *name)
a4ed0de125d9 patch 8.2.1711: Vim9: leaking memory when using partial Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1305 {
a4ed0de125d9 patch 8.2.1711: Vim9: leaking memory when using partial Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1306 return isdigit(name) \|\| name == '<';
a4ed0de125d9 patch 8.2.1711: Vim9: leaking memory when using partial Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1307 }
a4ed0de125d9 patch 8.2.1711: Vim9: leaking memory when using partial Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1308
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1309 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1310 * 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	1311 * 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	1312 * 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	1313 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1314 static void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1315 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	1316 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1317 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	1318 int i;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1319
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1320 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	1321 return;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1322
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1323 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	1324 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	1325 && 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	1326 && 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	1327 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	1328 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1329 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	1330 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1331 *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	1332 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	1333 return;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1334 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1335 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1336 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	1337 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	1338 ((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	1339 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1340
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1341 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1342 * 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	1343 * 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	1344 * 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	1345 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1346 static int
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1347 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	1348 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1349 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	1350
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1351 // 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	1352 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	1353 return FALSE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1354
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1355 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	1356 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	1357 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1358 // 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	1359 // 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	1360 // 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	1361 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	1362 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	1363 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1364 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	1365 return TRUE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1366 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1367 return FALSE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1368 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1369
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1370 static void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1371 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	1372 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1373 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	1374 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	1375 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	1376 VIM_CLEAR(fp->uf_arg_types);
19685 d64f403289db patch 8.2.0399: various memory leaks Bram Moolenaar <Bram@vim.org> parents: 19579 diff changeset	1377 VIM_CLEAR(fp->uf_def_arg_idx);
22596 107eae953b87 patch 8.2.1846: Vim9: block variables are not found in compiled function Bram Moolenaar <Bram@vim.org> parents: 22496 diff changeset	1378 VIM_CLEAR(fp->uf_block_ids);
19685 d64f403289db patch 8.2.0399: various memory leaks Bram Moolenaar <Bram@vim.org> parents: 19579 diff changeset	1379 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	1380 clear_type_list(&fp->uf_type_list);
23699 317018f62643 patch 8.2.2391: memory leak when creating a global function with closure Bram Moolenaar <Bram@vim.org> parents: 23644 diff changeset	1381
317018f62643 patch 8.2.2391: memory leak when creating a global function with closure Bram Moolenaar <Bram@vim.org> parents: 23644 diff changeset	1382 // Increment the refcount of this function to avoid it being freed
317018f62643 patch 8.2.2391: memory leak when creating a global function with closure Bram Moolenaar <Bram@vim.org> parents: 23644 diff changeset	1383 // recursively when the partial is freed.
317018f62643 patch 8.2.2391: memory leak when creating a global function with closure Bram Moolenaar <Bram@vim.org> parents: 23644 diff changeset	1384 fp->uf_refcount += 3;
23249 43532077b5ff patch 8.2.2170: Vim9: a global function defined in a :def function fails Bram Moolenaar <Bram@vim.org> parents: 23237 diff changeset	1385 partial_unref(fp->uf_partial);
43532077b5ff patch 8.2.2170: Vim9: a global function defined in a :def function fails Bram Moolenaar <Bram@vim.org> parents: 23237 diff changeset	1386 fp->uf_partial = NULL;
23699 317018f62643 patch 8.2.2391: memory leak when creating a global function with closure Bram Moolenaar <Bram@vim.org> parents: 23644 diff changeset	1387 fp->uf_refcount -= 3;
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	1388
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	1389 #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	1390 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	1391 {
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	1392 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	1393 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	1394 }
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	1395
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	1396 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	1397 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	1398 #endif
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1399 #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	1400 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	1401 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	1402 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	1403 #endif
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1404 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1405
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1406 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1407 * 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	1408 * 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	1409 * 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	1410 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1411 static void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1412 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	1413 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1414 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	1415 return;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1416 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	1417
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1418 // 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	1419 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	1420 funccal_unref(fp->uf_scoped, fp, force);
23285 112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1421 unlink_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	1422 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1423
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1424 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1425 * 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	1426 * 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	1427 * When "force" is TRUE we are exiting.
22326 fb69b43d73f3 patch 8.2.1712: Vim9: leaking memory when calling a lambda Bram Moolenaar <Bram@vim.org> parents: 22324 diff changeset	1428 * Returns OK when the function was actually freed.
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1429 */
22326 fb69b43d73f3 patch 8.2.1712: Vim9: leaking memory when calling a lambda Bram Moolenaar <Bram@vim.org> parents: 22324 diff changeset	1430 static int
20257 683c2da4982b patch 8.2.0684: Vim9: memory leak when using lambda Bram Moolenaar <Bram@vim.org> parents: 20255 diff changeset	1431 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	1432 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1433 // 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	1434 // 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	1435 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	1436 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	1437
20257 683c2da4982b patch 8.2.0684: Vim9: memory leak when using lambda Bram Moolenaar <Bram@vim.org> parents: 20255 diff changeset	1438 if ((fp->uf_flags & FC_DEAD) == 0 \|\| force)
21791 d504fcd3d2c0 patch 8.2.1445: Vim9: function expanded name is cleared when sourcing again Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1439 {
22324 a4ed0de125d9 patch 8.2.1711: Vim9: leaking memory when using partial Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1440 if (fp->uf_dfunc_idx > 0)
a4ed0de125d9 patch 8.2.1711: Vim9: leaking memory when using partial Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1441 unlink_def_function(fp);
21791 d504fcd3d2c0 patch 8.2.1445: Vim9: function expanded name is cleared when sourcing again Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1442 VIM_CLEAR(fp->uf_name_exp);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1443 vim_free(fp);
22326 fb69b43d73f3 patch 8.2.1712: Vim9: leaking memory when calling a lambda Bram Moolenaar <Bram@vim.org> parents: 22324 diff changeset	1444 return OK;
21791 d504fcd3d2c0 patch 8.2.1445: Vim9: function expanded name is cleared when sourcing again Bram Moolenaar <Bram@vim.org> parents: 21789 diff changeset	1445 }
22326 fb69b43d73f3 patch 8.2.1712: Vim9: leaking memory when calling a lambda Bram Moolenaar <Bram@vim.org> parents: 22324 diff changeset	1446 return FAIL;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1447 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1448
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1449 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1450 * 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	1451 * 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	1452 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1453 static void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1454 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	1455 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1456 func_clear(fp, force);
22324 a4ed0de125d9 patch 8.2.1711: Vim9: leaking memory when using partial Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1457 if (force \|\| fp->uf_dfunc_idx == 0 \|\| func_name_refcount(fp->uf_name)
a4ed0de125d9 patch 8.2.1711: Vim9: leaking memory when using partial Bram Moolenaar <Bram@vim.org> parents: 22298 diff changeset	1458 \|\| (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	1459 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	1460 else
90d859a402cc patch 8.2.1290: Vim9: cannot replace a global function Bram Moolenaar <Bram@vim.org> parents: 21461 diff changeset	1461 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	1462 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1463
21558 1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1464 /*
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1465 * 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	1466 * 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	1467 */
23285 112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1468 int
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1469 copy_func(char_u lambda, char_u global, ectx_T *ectx)
21558 1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1470 {
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1471 ufunc_T *ufunc = find_func_even_dead(lambda, TRUE, NULL);
23249 43532077b5ff patch 8.2.2170: Vim9: a global function defined in a :def function fails Bram Moolenaar <Bram@vim.org> parents: 23237 diff changeset	1472 ufunc_T *fp = NULL;
21558 1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1473
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1474 if (ufunc == NULL)
23285 112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1475 {
21821 0deb6f96a5a3 patch 8.2.1460: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 21791 diff changeset	1476 semsg(_(e_lambda_function_not_found_str), lambda);
23285 112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1477 return FAIL;
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1478 }
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1479
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1480 fp = find_func(global, TRUE, NULL);
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1481 if (fp != NULL)
21558 1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1482 {
23699 317018f62643 patch 8.2.2391: memory leak when creating a global function with closure Bram Moolenaar <Bram@vim.org> parents: 23644 diff changeset	1483 // TODO: handle ! to overwrite
23285 112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1484 semsg(_(e_funcexts), global);
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1485 return FAIL;
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1486 }
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1487
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1488 fp = alloc_clear(offsetof(ufunc_T, uf_name) + STRLEN(global) + 1);
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1489 if (fp == NULL)
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1490 return FAIL;
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1491
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1492 fp->uf_varargs = ufunc->uf_varargs;
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1493 fp->uf_flags = (ufunc->uf_flags & ~FC_VIM9) \| FC_COPY;
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1494 fp->uf_def_status = ufunc->uf_def_status;
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1495 fp->uf_dfunc_idx = ufunc->uf_dfunc_idx;
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1496 if (ga_copy_strings(&ufunc->uf_args, &fp->uf_args) == FAIL
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1497 \|\| ga_copy_strings(&ufunc->uf_def_args, &fp->uf_def_args)
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1498 == FAIL
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1499 \|\| ga_copy_strings(&ufunc->uf_lines, &fp->uf_lines) == FAIL)
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1500 goto failed;
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1501
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1502 fp->uf_name_exp = ufunc->uf_name_exp == NULL ? NULL
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1503 : vim_strsave(ufunc->uf_name_exp);
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1504 if (ufunc->uf_arg_types != NULL)
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1505 {
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1506 fp->uf_arg_types = ALLOC_MULT(type_T *, fp->uf_args.ga_len);
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1507 if (fp->uf_arg_types == NULL)
21558 1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1508 goto failed;
23285 112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1509 mch_memmove(fp->uf_arg_types, ufunc->uf_arg_types,
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1510 sizeof(type_T ) fp->uf_args.ga_len);
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1511 }
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1512 if (ufunc->uf_def_arg_idx != NULL)
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1513 {
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1514 fp->uf_def_arg_idx = ALLOC_MULT(int, fp->uf_def_args.ga_len + 1);
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1515 if (fp->uf_def_arg_idx == NULL)
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1516 goto failed;
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1517 mch_memmove(fp->uf_def_arg_idx, ufunc->uf_def_arg_idx,
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1518 sizeof(int) * fp->uf_def_args.ga_len + 1);
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1519 }
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1520 if (ufunc->uf_va_name != NULL)
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1521 {
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1522 fp->uf_va_name = vim_strsave(ufunc->uf_va_name);
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1523 if (fp->uf_va_name == NULL)
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1524 goto failed;
21558 1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1525 }
23285 112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1526 fp->uf_ret_type = ufunc->uf_ret_type;
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1527
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1528 fp->uf_refcount = 1;
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1529 STRCPY(fp->uf_name, global);
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1530 hash_add(&func_hashtab, UF2HIKEY(fp));
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1531
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1532 // the referenced dfunc_T is now used one more time
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1533 link_def_function(fp);
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1534
23699 317018f62643 patch 8.2.2391: memory leak when creating a global function with closure Bram Moolenaar <Bram@vim.org> parents: 23644 diff changeset	1535 // Create a partial to store the context of the function where it was
317018f62643 patch 8.2.2391: memory leak when creating a global function with closure Bram Moolenaar <Bram@vim.org> parents: 23644 diff changeset	1536 // instantiated. Only needs to be done once. Do this on the original
317018f62643 patch 8.2.2391: memory leak when creating a global function with closure Bram Moolenaar <Bram@vim.org> parents: 23644 diff changeset	1537 // function, "dfunc->df_ufunc" will point to it.
23285 112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1538 if ((ufunc->uf_flags & FC_CLOSURE) && ufunc->uf_partial == NULL)
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1539 {
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1540 partial_T *pt = ALLOC_CLEAR_ONE(partial_T);
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1541
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1542 if (pt == NULL)
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1543 goto failed;
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1544 if (fill_partial_and_closure(pt, ufunc, ectx) == FAIL)
23699 317018f62643 patch 8.2.2391: memory leak when creating a global function with closure Bram Moolenaar <Bram@vim.org> parents: 23644 diff changeset	1545 {
317018f62643 patch 8.2.2391: memory leak when creating a global function with closure Bram Moolenaar <Bram@vim.org> parents: 23644 diff changeset	1546 vim_free(pt);
23285 112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1547 goto failed;
23699 317018f62643 patch 8.2.2391: memory leak when creating a global function with closure Bram Moolenaar <Bram@vim.org> parents: 23644 diff changeset	1548 }
23285 112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1549 ufunc->uf_partial = pt;
23699 317018f62643 patch 8.2.2391: memory leak when creating a global function with closure Bram Moolenaar <Bram@vim.org> parents: 23644 diff changeset	1550 --pt->pt_refcount; // not actually referenced here
23285 112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1551 }
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1552
112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1553 return OK;
21558 1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1554
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1555 failed:
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1556 func_clear_free(fp, TRUE);
23285 112fa621b127 patch 8.2.2188: Vim9: crash when calling global function from :def function Bram Moolenaar <Bram@vim.org> parents: 23252 diff changeset	1557 return FAIL;
21558 1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1558 }
1c4d4aa22b37 patch 8.2.1329: Vim9: cannot define global function inside :def function Bram Moolenaar <Bram@vim.org> parents: 21552 diff changeset	1559
22908 54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1560 static int funcdepth = 0;
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1561
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1562 /*
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1563 * Increment the function call depth count.
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1564 * Return FAIL when going over 'maxfuncdepth'.
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1565 * Otherwise return OK, must call funcdepth_decrement() later!
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1566 */
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1567 int
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1568 funcdepth_increment(void)
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1569 {
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1570 if (funcdepth >= p_mfd)
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1571 {
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1572 emsg(_("E132: Function call depth is higher than 'maxfuncdepth'"));
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1573 return FAIL;
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1574 }
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1575 ++funcdepth;
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1576 return OK;
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1577 }
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1578
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1579 void
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1580 funcdepth_decrement(void)
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1581 {
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1582 --funcdepth;
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1583 }
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1584
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1585 /*
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1586 * Get the current function call depth.
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1587 */
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1588 int
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1589 funcdepth_get(void)
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1590 {
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1591 return funcdepth;
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1592 }
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1593
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1594 /*
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1595 * Restore the function call depth. This is for cases where there is no
23229 b545334ae654 patch 8.2.2160: various typos Bram Moolenaar <Bram@vim.org> parents: 23193 diff changeset	1596 * guarantee funcdepth_decrement() can be called exactly the same number of
22908 54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1597 * times as funcdepth_increment().
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1598 */
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1599 void
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1600 funcdepth_restore(int depth)
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1601 {
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1602 funcdepth = depth;
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1603 }
11299 4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1604
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1605 /*
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1606 * Call a user function.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1607 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1608 static void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1609 call_user_func(
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1610 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	1611 int argcount, // nr of args
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1612 typval_T *argvars, // arguments
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1613 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	1614 funcexe_T *funcexe, // context
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1615 dict_T *selfdict) // Dictionary for "self"
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1616 {
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	1617 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	1618 int using_sandbox = FALSE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1619 funccall_T *fc;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1620 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	1621 int default_arg_err = FALSE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1622 dictitem_T *v;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1623 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	1624 int i;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1625 int ai;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1626 int islambda = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1627 char_u numbuf[NUMBUFLEN];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1628 char_u *name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1629 #ifdef FEAT_PROFILE
23717 e3720756acdc patch 8.2.2400: Vim9: compiled functions are not profiled Bram Moolenaar <Bram@vim.org> parents: 23699 diff changeset	1630 profinfo_T profile_info;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1631 #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	1632 ESTACK_CHECK_DECLARATION
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1633
23717 e3720756acdc patch 8.2.2400: Vim9: compiled functions are not profiled Bram Moolenaar <Bram@vim.org> parents: 23699 diff changeset	1634 #ifdef FEAT_PROFILE
e3720756acdc patch 8.2.2400: Vim9: compiled functions are not profiled Bram Moolenaar <Bram@vim.org> parents: 23699 diff changeset	1635 CLEAR_FIELD(profile_info);
e3720756acdc patch 8.2.2400: Vim9: compiled functions are not profiled Bram Moolenaar <Bram@vim.org> parents: 23699 diff changeset	1636 #endif
e3720756acdc patch 8.2.2400: Vim9: compiled functions are not profiled Bram Moolenaar <Bram@vim.org> parents: 23699 diff changeset	1637
22908 54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1638 // If depth of calling is getting too high, don't execute the function.
54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1639 if (funcdepth_increment() == FAIL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1640 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1641 rettv->v_type = VAR_NUMBER;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1642 rettv->vval.v_number = -1;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1643 return;
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
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1646 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	1647
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	1648 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	1649 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	1650 return;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1651 fc->caller = current_funccal;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1652 current_funccal = fc;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1653 fc->func = fp;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1654 fc->rettv = rettv;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1655 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	1656 // 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	1657 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	1658 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	1659 // Set up fields for closure.
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	1660 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	1661 func_ptr_ref(fp);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1662
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	1663 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	1664 {
23976 03819ebd3e6d patch 8.2.2530: Vim9: not enough testing for profiling Bram Moolenaar <Bram@vim.org> parents: 23925 diff changeset	1665 #ifdef FEAT_PROFILE
03819ebd3e6d patch 8.2.2530: Vim9: not enough testing for profiling Bram Moolenaar <Bram@vim.org> parents: 23925 diff changeset	1666 ufunc_T *caller = fc->caller == NULL ? NULL : fc->caller->func;
03819ebd3e6d patch 8.2.2530: Vim9: not enough testing for profiling Bram Moolenaar <Bram@vim.org> parents: 23925 diff changeset	1667 #endif
20538 9f921ba86d05 patch 8.2.0823: Vim9: script reload test is disabled Bram Moolenaar <Bram@vim.org> parents: 20532 diff changeset	1668 // Execute the function, possibly compiling it first.
23717 e3720756acdc patch 8.2.2400: Vim9: compiled functions are not profiled Bram Moolenaar <Bram@vim.org> parents: 23699 diff changeset	1669 #ifdef FEAT_PROFILE
23976 03819ebd3e6d patch 8.2.2530: Vim9: not enough testing for profiling Bram Moolenaar <Bram@vim.org> parents: 23925 diff changeset	1670 if (do_profiling == PROF_YES)
03819ebd3e6d patch 8.2.2530: Vim9: not enough testing for profiling Bram Moolenaar <Bram@vim.org> parents: 23925 diff changeset	1671 profile_may_start_func(&profile_info, fp, caller);
23717 e3720756acdc patch 8.2.2400: Vim9: compiled functions are not profiled Bram Moolenaar <Bram@vim.org> parents: 23699 diff changeset	1672 #endif
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	1673 call_def_function(fp, argcount, argvars, funcexe->partial, rettv);
22908 54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	1674 funcdepth_decrement();
23717 e3720756acdc patch 8.2.2400: Vim9: compiled functions are not profiled Bram Moolenaar <Bram@vim.org> parents: 23699 diff changeset	1675 #ifdef FEAT_PROFILE
e3720756acdc patch 8.2.2400: Vim9: compiled functions are not profiled Bram Moolenaar <Bram@vim.org> parents: 23699 diff changeset	1676 if (do_profiling == PROF_YES && (fp->uf_profiling
23976 03819ebd3e6d patch 8.2.2530: Vim9: not enough testing for profiling Bram Moolenaar <Bram@vim.org> parents: 23925 diff changeset	1677 \|\| (caller != NULL && caller->uf_profiling)))
03819ebd3e6d patch 8.2.2530: Vim9: not enough testing for profiling Bram Moolenaar <Bram@vim.org> parents: 23925 diff changeset	1678 profile_may_end_func(&profile_info, fp, caller);
23717 e3720756acdc patch 8.2.2400: Vim9: compiled functions are not profiled Bram Moolenaar <Bram@vim.org> parents: 23699 diff changeset	1679 #endif
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1680 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	1681 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	1682 return;
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
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1685 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	1686 islambda = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1687
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1688 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1689 * 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	1690 * 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	1691 * 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	1692 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1693 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1694 * Init l: variables.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1695 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1696 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	1697 if (selfdict != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1698 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1699 // 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	1700 // 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	1701 v = &fc->fixvar[fixvar_idx++].var;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1702 name = v->di_key;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1703 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	1704 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	1705 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	1706 v->di_tv.v_type = VAR_DICT;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1707 v->di_tv.v_lock = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1708 v->di_tv.vval.v_dict = selfdict;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1709 ++selfdict->dv_refcount;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1710 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1711
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1712 /*
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1713 * 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	1714 * 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	1715 * 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	1716 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1717 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	1718 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	1719 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	1720 (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	1721 ? 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	1722 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	1723 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	1724 {
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1725 // 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	1726 // 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	1727 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	1728 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	1729 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	1730 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	1731 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	1732 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	1733 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	1734 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	1735 }
20007 aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose Bram Moolenaar <Bram@vim.org> parents: 19946 diff changeset	1736 CLEAR_FIELD(fc->l_varlist);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1737 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	1738 fc->l_varlist.lv_lock = VAR_FIXED;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1739
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1740 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1741 * 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	1742 * Set a:name to named arguments.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1743 * 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	1744 * 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	1745 */
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1746 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	1747 {
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1748 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	1749 (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	1750 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	1751 (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	1752 }
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1753 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	1754 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1755 int addlocal = FALSE;
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1756 typval_T def_rettv;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1757 int isdefault = FALSE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1758
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1759 ai = i - fp->uf_args.ga_len;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1760 if (ai < 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1761 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1762 // named argument a:name
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1763 name = FUNCARG(fp, i);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1764 if (islambda)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1765 addlocal = TRUE;
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1766
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1767 // 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	1768 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	1769 && (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	1770 && 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	1771 if (isdefault)
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1772 {
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1773 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	1774 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	1775 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	1776
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1777 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	1778 [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	1779 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	1780 {
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1781 default_arg_err = 1;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1782 break;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1783 }
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1784 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1785 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1786 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1787 {
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1788 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	1789 // 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	1790 break;
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1791
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1792 // "..." argument a:1, a:2, etc.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1793 sprintf((char *)numbuf, "%d", ai + 1);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1794 name = numbuf;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1795 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1796 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	1797 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1798 v = &fc->fixvar[fixvar_idx++].var;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1799 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	1800 STRCPY(v->di_key, name);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1801 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1802 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1803 {
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1804 v = dictitem_alloc(name);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1805 if (v == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1806 break;
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1807 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	1808 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1809
17127 d244a9be99db patch 8.1.1563: crash when using closures Bram Moolenaar <Bram@vim.org> parents: 16969 diff changeset	1810 // 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	1811 // "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	1812 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	1813 v->di_tv.v_lock = VAR_FIXED;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1814
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1815 if (addlocal)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1816 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1817 // 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	1818 // 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	1819 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	1820 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	1821 }
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	1822 else
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	1823 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	1824
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1825 if (ai >= 0 && ai < MAX_FUNC_ARGS)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1826 {
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1827 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	1828
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1829 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	1830 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	1831 list_append(&fc->l_varlist, li);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1832 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1833 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1834
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1835 // 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	1836 ++RedrawingDisabled;
14323 9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1837
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1838 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	1839 {
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1840 using_sandbox = TRUE;
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1841 ++sandbox;
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1842 }
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1843
20538 9f921ba86d05 patch 8.2.0823: Vim9: script reload test is disabled Bram Moolenaar <Bram@vim.org> parents: 20532 diff changeset	1844 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	1845 ESTACK_CHECK_SETUP
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1846 if (p_verbose >= 12)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1847 {
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1848 ++no_wait_return;
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1849 verbose_enter_scroll();
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1850
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1851 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	1852 if (p_verbose >= 14)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1853 {
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1854 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	1855 char_u numbuf2[NUMBUFLEN];
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1856 char_u *tofree;
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1857 char_u *s;
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1858
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1859 msg_puts("(");
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1860 for (i = 0; i < argcount; ++i)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1861 {
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1862 if (i > 0)
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1863 msg_puts(", ");
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1864 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	1865 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	1866 else
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1867 {
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1868 // 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	1869 ++emsg_off;
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1870 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	1871 --emsg_off;
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1872 if (s != NULL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1873 {
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1874 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	1875 {
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1876 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	1877 s = buf;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1878 }
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1879 msg_puts((char *)s);
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1880 vim_free(tofree);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1881 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1882 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1883 }
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1884 msg_puts(")");
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1885 }
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1886 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	1887
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1888 verbose_leave_scroll();
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1889 --no_wait_return;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1890 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1891 #ifdef FEAT_PROFILE
23976 03819ebd3e6d patch 8.2.2530: Vim9: not enough testing for profiling Bram Moolenaar <Bram@vim.org> parents: 23925 diff changeset	1892 if (do_profiling == PROF_YES)
03819ebd3e6d patch 8.2.2530: Vim9: not enough testing for profiling Bram Moolenaar <Bram@vim.org> parents: 23925 diff changeset	1893 profile_may_start_func(&profile_info, fp,
03819ebd3e6d patch 8.2.2530: Vim9: not enough testing for profiling Bram Moolenaar <Bram@vim.org> parents: 23925 diff changeset	1894 fc->caller == NULL ? NULL : fc->caller->func);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1895 #endif
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1896
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	1897 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	1898 current_sctx = fp->uf_script_ctx;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1899 save_did_emsg = did_emsg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1900 did_emsg = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1901
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1902 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	1903 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	1904 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	1905 {
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1906 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	1907
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1908 // 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	1909 // 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	1910 ++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	1911 (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	1912 --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	1913 }
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1914 else
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1915 // 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	1916 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	1917 DOCMD_NOWAIT\|DOCMD_VERBOSE\|DOCMD_REPEAT);
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 --RedrawingDisabled;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1920
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1921 // 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	1922 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	1923 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1924 clear_tv(rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1925 rettv->v_type = VAR_NUMBER;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1926 rettv->vval.v_number = -1;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1927 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1928
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1929 #ifdef FEAT_PROFILE
23976 03819ebd3e6d patch 8.2.2530: Vim9: not enough testing for profiling Bram Moolenaar <Bram@vim.org> parents: 23925 diff changeset	1930 if (do_profiling == PROF_YES)
03819ebd3e6d patch 8.2.2530: Vim9: not enough testing for profiling Bram Moolenaar <Bram@vim.org> parents: 23925 diff changeset	1931 {
03819ebd3e6d patch 8.2.2530: Vim9: not enough testing for profiling Bram Moolenaar <Bram@vim.org> parents: 23925 diff changeset	1932 ufunc_T *caller = fc->caller == NULL ? NULL : fc->caller->func;
03819ebd3e6d patch 8.2.2530: Vim9: not enough testing for profiling Bram Moolenaar <Bram@vim.org> parents: 23925 diff changeset	1933
03819ebd3e6d patch 8.2.2530: Vim9: not enough testing for profiling Bram Moolenaar <Bram@vim.org> parents: 23925 diff changeset	1934 if (fp->uf_profiling \|\| (caller != NULL && caller->uf_profiling))
03819ebd3e6d patch 8.2.2530: Vim9: not enough testing for profiling Bram Moolenaar <Bram@vim.org> parents: 23925 diff changeset	1935 profile_may_end_func(&profile_info, fp, caller);
03819ebd3e6d patch 8.2.2530: Vim9: not enough testing for profiling Bram Moolenaar <Bram@vim.org> parents: 23925 diff changeset	1936 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1937 #endif
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1938
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1939 // 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	1940 if (p_verbose >= 12)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1941 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1942 ++no_wait_return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1943 verbose_enter_scroll();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1944
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1945 if (aborting())
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1946 smsg(_("%s aborted"), SOURCING_NAME);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1947 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	1948 smsg(_("%s returning #%ld"), SOURCING_NAME,
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1949 (long)fc->rettv->vval.v_number);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1950 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1951 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1952 char_u buf[MSG_BUF_LEN];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1953 char_u numbuf2[NUMBUFLEN];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1954 char_u *tofree;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1955 char_u *s;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1956
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1957 // 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	1958 // 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	1959 // 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	1960 ++emsg_off;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1961 s = tv2string(fc->rettv, &tofree, numbuf2, 0);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1962 --emsg_off;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1963 if (s != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1964 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1965 if (vim_strsize(s) > MSG_BUF_CLEN)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1966 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1967 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	1968 s = buf;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1969 }
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1970 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	1971 vim_free(tofree);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1972 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1973 }
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1974 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	1975
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1976 verbose_leave_scroll();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1977 --no_wait_return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1978 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1979
19075 af1eca322b9e patch 8.2.0098: exe stack length can be wrong without being detected Bram Moolenaar <Bram@vim.org> parents: 19035 diff changeset	1980 ESTACK_CHECK_NOW
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1981 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	1982 current_sctx = save_current_sctx;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1983 #ifdef FEAT_PROFILE
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1984 if (do_profiling == PROF_YES)
23717 e3720756acdc patch 8.2.2400: Vim9: compiled functions are not profiled Bram Moolenaar <Bram@vim.org> parents: 23699 diff changeset	1985 script_prof_restore(&profile_info.pi_wait_start);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1986 #endif
14323 9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1987 if (using_sandbox)
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1988 --sandbox;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1989
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1990 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	1991 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1992 ++no_wait_return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1993 verbose_enter_scroll();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1994
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1995 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	1996 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	1997
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1998 verbose_leave_scroll();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1999 --no_wait_return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2000 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2001
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2002 did_emsg \|= save_did_emsg;
22908 54219df706b5 patch 8.2.2001: Vim9: :def function does not apply 'maxfuncdepth' Bram Moolenaar <Bram@vim.org> parents: 22816 diff changeset	2003 funcdepth_decrement();
11299 4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2004 cleanup_function_call(fc);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2005 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2006
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2007 /*
23252 35583da6397e patch 8.2.2172: Vim9: number of arguments is not always checked Bram Moolenaar <Bram@vim.org> parents: 23249 diff changeset	2008 * Check the argument count for user function "fp".
35583da6397e patch 8.2.2172: Vim9: number of arguments is not always checked Bram Moolenaar <Bram@vim.org> parents: 23249 diff changeset	2009 * Return FCERR_UNKNOWN if OK, FCERR_TOOFEW or FCERR_TOOMANY otherwise.
35583da6397e patch 8.2.2172: Vim9: number of arguments is not always checked Bram Moolenaar <Bram@vim.org> parents: 23249 diff changeset	2010 */
35583da6397e patch 8.2.2172: Vim9: number of arguments is not always checked Bram Moolenaar <Bram@vim.org> parents: 23249 diff changeset	2011 int
35583da6397e patch 8.2.2172: Vim9: number of arguments is not always checked Bram Moolenaar <Bram@vim.org> parents: 23249 diff changeset	2012 check_user_func_argcount(ufunc_T *fp, int argcount)
35583da6397e patch 8.2.2172: Vim9: number of arguments is not always checked Bram Moolenaar <Bram@vim.org> parents: 23249 diff changeset	2013 {
35583da6397e patch 8.2.2172: Vim9: number of arguments is not always checked Bram Moolenaar <Bram@vim.org> parents: 23249 diff changeset	2014 int regular_args = fp->uf_args.ga_len;
35583da6397e patch 8.2.2172: Vim9: number of arguments is not always checked Bram Moolenaar <Bram@vim.org> parents: 23249 diff changeset	2015
35583da6397e patch 8.2.2172: Vim9: number of arguments is not always checked Bram Moolenaar <Bram@vim.org> parents: 23249 diff changeset	2016 if (argcount < regular_args - fp->uf_def_args.ga_len)
35583da6397e patch 8.2.2172: Vim9: number of arguments is not always checked Bram Moolenaar <Bram@vim.org> parents: 23249 diff changeset	2017 return FCERR_TOOFEW;
35583da6397e patch 8.2.2172: Vim9: number of arguments is not always checked Bram Moolenaar <Bram@vim.org> parents: 23249 diff changeset	2018 else if (!has_varargs(fp) && argcount > regular_args)
35583da6397e patch 8.2.2172: Vim9: number of arguments is not always checked Bram Moolenaar <Bram@vim.org> parents: 23249 diff changeset	2019 return FCERR_TOOMANY;
35583da6397e patch 8.2.2172: Vim9: number of arguments is not always checked Bram Moolenaar <Bram@vim.org> parents: 23249 diff changeset	2020 return FCERR_UNKNOWN;
35583da6397e patch 8.2.2172: Vim9: number of arguments is not always checked Bram Moolenaar <Bram@vim.org> parents: 23249 diff changeset	2021 }
35583da6397e patch 8.2.2172: Vim9: number of arguments is not always checked Bram Moolenaar <Bram@vim.org> parents: 23249 diff changeset	2022
35583da6397e patch 8.2.2172: Vim9: number of arguments is not always checked Bram Moolenaar <Bram@vim.org> parents: 23249 diff changeset	2023 /*
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2024 * 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	2025 */
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2026 int
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2027 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	2028 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	2029 int argcount,
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2030 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	2031 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	2032 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	2033 dict_T *selfdict)
14430 2fba714294b9 patch 8.1.0229: crash when dumping profiling data Christian Brabandt <cb@256bit.org> parents: 14323 diff changeset	2034 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2035 int error;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2036
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2037 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	2038 *funcexe->doesrange = TRUE;
23252 35583da6397e patch 8.2.2172: Vim9: number of arguments is not always checked Bram Moolenaar <Bram@vim.org> parents: 23249 diff changeset	2039 error = check_user_func_argcount(fp, argcount);
35583da6397e patch 8.2.2172: Vim9: number of arguments is not always checked Bram Moolenaar <Bram@vim.org> parents: 23249 diff changeset	2040 if (error != FCERR_UNKNOWN)
35583da6397e patch 8.2.2172: Vim9: number of arguments is not always checked Bram Moolenaar <Bram@vim.org> parents: 23249 diff changeset	2041 return error;
35583da6397e patch 8.2.2172: Vim9: number of arguments is not always checked Bram Moolenaar <Bram@vim.org> parents: 23249 diff changeset	2042 if ((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	2043 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	2044 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2045 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2046 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	2047 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	2048
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2049 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2050 * 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	2051 * 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	2052 * redo buffer.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2053 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2054 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	2055 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	2056 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2057 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	2058 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	2059 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2060 ++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	2061 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	2062 (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	2063 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	2064 // 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	2065 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	2066 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	2067 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	2068 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	2069 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	2070 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2071 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	2072 }
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	2073
14927 162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	2074 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	2075
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	2076 /*
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	2077 * 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	2078 * 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	2079 */
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	2080 void
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	2081 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	2082 {
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	2083 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	2084 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	2085 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	2086 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	2087 }
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	2088
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	2089 void
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	2090 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	2091 {
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	2092 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	2093 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	2094 else
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	2095 {
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	2096 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	2097 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	2098 }
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	2099 }
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	2100
17370 ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: 17251 diff changeset	2101 funccall_T *
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: 17251 diff changeset	2102 get_current_funccal(void)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: 17251 diff changeset	2103 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: 17251 diff changeset	2104 return current_funccal;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: 17251 diff changeset	2105 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: 17251 diff changeset	2106
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2107 /*
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2108 * 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	2109 */
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2110 void
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2111 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	2112 {
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2113 hashitem_T *hi;
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2114 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	2115 long_u todo = 1;
20193 cf13b26be258 patch 8.2.0652: compiler warning for char conversion Bram Moolenaar <Bram@vim.org> parents: 20189 diff changeset	2116 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	2117 size_t len;
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2118
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2119 buf[0] = K_SPECIAL;
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2120 buf[1] = KS_EXTRA;
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2121 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	2122 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	2123 len = STRLEN(buf);
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2124
21564 30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	2125 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	2126 {
30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	2127 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	2128 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	2129 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	2130 {
21564 30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	2131 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	2132 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	2133 {
30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	2134 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	2135
30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	2136 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	2137 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	2138 // 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	2139 // 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	2140 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	2141 break;
30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	2142 }
30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	2143 --todo;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2144 }
21564 30a997217524 patch 8.2.1332: Vim9: memory leak when using nested global function Bram Moolenaar <Bram@vim.org> parents: 21558 diff changeset	2145 }
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2146 }
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2147
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2148 #if defined(EXITFREE) \|\| defined(PROTO)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2149 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2150 free_all_functions(void)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2151 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2152 hashitem_T *hi;
9844 9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	2153 ufunc_T *fp;
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	2154 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	2155 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	2156 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	2157
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2158 // 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	2159 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	2160 {
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2161 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	2162 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	2163 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	2164 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	2165 }
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2166
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2167 // 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	2168 // 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	2169 // 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	2170 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	2171 {
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	2172 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	2173 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	2174 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	2175 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2176 // 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	2177 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	2178 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	2179 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	2180
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2181 // 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	2182 // 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	2183 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	2184 ++skipped;
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	2185 else
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	2186 {
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	2187 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	2188 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	2189 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	2190 {
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	2191 skipped = 0;
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	2192 break;
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	2193 }
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	2194 }
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	2195 --todo;
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	2196 }
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	2197 }
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	2198
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2199 // 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	2200 // 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	2201 skipped = 0;
9844 9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	2202 while (func_hashtab.ht_used > skipped)
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	2203 {
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	2204 todo = func_hashtab.ht_used;
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	2205 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	2206 if (!HASHITEM_EMPTY(hi))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2207 {
9844 9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	2208 --todo;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2209 // 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	2210 // 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	2211 fp = HI2UF(hi);
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	2212 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	2213 ++skipped;
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	2214 else
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	2215 {
22326 fb69b43d73f3 patch 8.2.1712: Vim9: leaking memory when calling a lambda Bram Moolenaar <Bram@vim.org> parents: 22324 diff changeset	2216 if (func_free(fp, FALSE) == OK)
fb69b43d73f3 patch 8.2.1712: Vim9: leaking memory when calling a lambda Bram Moolenaar <Bram@vim.org> parents: 22324 diff changeset	2217 {
fb69b43d73f3 patch 8.2.1712: Vim9: leaking memory when calling a lambda Bram Moolenaar <Bram@vim.org> parents: 22324 diff changeset	2218 skipped = 0;
fb69b43d73f3 patch 8.2.1712: Vim9: leaking memory when calling a lambda Bram Moolenaar <Bram@vim.org> parents: 22324 diff changeset	2219 break;
fb69b43d73f3 patch 8.2.1712: Vim9: leaking memory when calling a lambda Bram Moolenaar <Bram@vim.org> parents: 22324 diff changeset	2220 }
fb69b43d73f3 patch 8.2.1712: Vim9: leaking memory when calling a lambda Bram Moolenaar <Bram@vim.org> parents: 22324 diff changeset	2221 // did not actually free it
fb69b43d73f3 patch 8.2.1712: Vim9: leaking memory when calling a lambda Bram Moolenaar <Bram@vim.org> parents: 22324 diff changeset	2222 ++skipped;
9844 9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	2223 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2224 }
9844 9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	2225 }
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	2226 if (skipped == 0)
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	2227 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	2228
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2229 free_def_functions();
9562 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 #endif
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 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2234 * 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	2235 * 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	2236 * "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	2237 */
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2238 int
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2239 builtin_function(char_u *name, int len)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2240 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2241 char_u *p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2242
20079 336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2243 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	2244 return FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2245 p = vim_strchr(name, AUTOLOAD_CHAR);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2246 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	2247 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2248
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2249 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2250 func_call(
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2251 char_u *name,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2252 typval_T *args,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2253 partial_T *partial,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2254 dict_T *selfdict,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2255 typval_T *rettv)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2256 {
19201 e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 19183 diff changeset	2257 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	2258 listitem_T *item;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2259 typval_T argv[MAX_FUNC_ARGS + 1];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2260 int argc = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2261 int r = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2262
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20339 diff changeset	2263 CHECK_LIST_MATERIALIZE(l);
19934 3ff714d765ba patch 8.2.0523: loops are repeated Bram Moolenaar <Bram@vim.org> parents: 19912 diff changeset	2264 FOR_ALL_LIST_ITEMS(l, item)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2265 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2266 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	2267 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	2268 emsg(_("E699: Too many arguments"));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2269 break;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2270 }
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2271 // 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	2272 // 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	2273 copy_tv(&item->li_tv, &argv[argc++]);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2274 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2275
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2276 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	2277 {
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	2278 funcexe_T funcexe;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	2279
20007 aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose Bram Moolenaar <Bram@vim.org> parents: 19946 diff changeset	2280 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	2281 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	2282 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	2283 funcexe.evaluate = TRUE;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	2284 funcexe.partial = partial;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	2285 funcexe.selfdict = selfdict;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	2286 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	2287 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2288
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2289 // Free the arguments.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2290 while (argc > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2291 clear_tv(&argv[--argc]);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2292
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2293 return r;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2294 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2295
18104 e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	2296 static int callback_depth = 0;
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	2297
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	2298 int
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	2299 get_callback_depth(void)
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	2300 {
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	2301 return callback_depth;
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	2302 }
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	2303
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2304 /*
16872 a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	2305 * 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	2306 */
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	2307 int
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	2308 call_callback(
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	2309 callback_T *callback,
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	2310 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	2311 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	2312 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	2313 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	2314 // PLUS ONE elements!
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	2315 {
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	2316 funcexe_T funcexe;
18104 e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	2317 int ret;
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	2318
20007 aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose Bram Moolenaar <Bram@vim.org> parents: 19946 diff changeset	2319 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	2320 funcexe.evaluate = TRUE;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	2321 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	2322 ++callback_depth;
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	2323 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	2324 --callback_depth;
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	2325 return ret;
16872 a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	2326 }
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	2327
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	2328 /*
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2329 * 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	2330 * 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	2331 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2332 void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2333 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	2334 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2335 switch (error)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2336 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2337 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	2338 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	2339 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2340 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	2341 emsg_funcname(
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2342 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	2343 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2344 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	2345 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	2346 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2347 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	2348 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	2349 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2350 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	2351 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	2352 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2353 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	2354 emsg_funcname(
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2355 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	2356 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2357 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	2358 emsg_funcname(
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2359 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	2360 name);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2361 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2362 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2363 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2364
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2365 /*
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2366 * 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	2367 *
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2368 * 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	2369 * 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	2370 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2371 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2372 call_func(
16634 a1ba0bd74e7d patch 8.1.1319: computing function length name in many places Bram Moolenaar <Bram@vim.org> parents: 16615 diff changeset	2373 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	2374 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	2375 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	2376 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	2377 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	2378 // 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	2379 funcexe_T *funcexe) // more arguments
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2380 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2381 int ret = FAIL;
19013 dd9ab0674eec patch 8.2.0067: ERROR_UNKNOWN clashes on some systems Bram Moolenaar <Bram@vim.org> parents: 18991 diff changeset	2382 int error = FCERR_NONE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2383 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	2384 ufunc_T *fp = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2385 char_u fname_buf[FLEN_FIXED + 1];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2386 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	2387 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	2388 char_u *name = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2389 int argcount = argcount_in;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2390 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	2391 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	2392 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	2393 // "funcexe->basetv" is not NULL
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2394 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	2395 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	2396 partial_T *partial = funcexe->partial;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2397
17883 6249953b0609 patch 8.1.1938: may crash when out of memory Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	2398 // 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	2399 // 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	2400 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	2401
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2402 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	2403 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	2404 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	2405 {
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2406 // 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	2407 // 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	2408 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	2409 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	2410 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	2411
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2412 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	2413 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2414
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	2415 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	2416 *funcexe->doesrange = FALSE;
9562 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 if (partial != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2419 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2420 // 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	2421 // 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	2422 // 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	2423 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	2424 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	2425 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	2426 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2427 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	2428 {
e9675870c480 patch 8.1.2282: crash when passing many arguments through a partial Bram Moolenaar <Bram@vim.org> parents: 18572 diff changeset	2429 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	2430 {
19013 dd9ab0674eec patch 8.2.0067: ERROR_UNKNOWN clashes on some systems Bram Moolenaar <Bram@vim.org> parents: 18991 diff changeset	2431 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	2432 goto theend;
e9675870c480 patch 8.1.2282: crash when passing many arguments through a partial Bram Moolenaar <Bram@vim.org> parents: 18572 diff changeset	2433 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2434 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	2435 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2436 for (i = 0; i < argcount_in; ++i)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2437 argv[i + argv_clear] = argvars_in[i];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2438 argvars = argv;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2439 argcount = partial->pt_argc + argcount_in;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2440 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2441 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2442
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	2443 if (error == FCERR_NONE && funcexe->check_type != NULL && funcexe->evaluate)
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	2444 {
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	2445 // Check that the argument types are OK for the types of the funcref.
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	2446 if (check_argument_types(funcexe->check_type, argvars, argcount,
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	2447 name) == FAIL)
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	2448 error = FCERR_OTHER;
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	2449 }
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	2450
19013 dd9ab0674eec patch 8.2.0067: ERROR_UNKNOWN clashes on some systems Bram Moolenaar <Bram@vim.org> parents: 18991 diff changeset	2451 if (error == FCERR_NONE && funcexe->evaluate)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2452 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2453 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	2454 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	2455
5470c36ed7e6 patch 8.2.1343: Vim9: cannot find global function when using g: Bram Moolenaar <Bram@vim.org> parents: 21566 diff changeset	2456 // 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	2457 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	2458 {
5470c36ed7e6 patch 8.2.1343: Vim9: cannot find global function when using g: Bram Moolenaar <Bram@vim.org> parents: 21566 diff changeset	2459 is_global = TRUE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2460 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	2461 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2462
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2463 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	2464 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	2465 error = FCERR_UNKNOWN;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2466
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2467 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	2468 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2469 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2470 * User defined function.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2471 */
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2472 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	2473 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	2474
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2475 // 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	2476 if (fp == NULL
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2477 && 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	2478 rfname, rfname, TRUE, NULL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2479 && !aborting())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2480 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2481 // 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	2482 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	2483 }
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2484 // Try loading a package.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2485 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	2486 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2487 // 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	2488 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	2489 }
20079 336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2490 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	2491 {
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2492 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	2493
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2494 // If using Vim9 script try not local to the script.
21747 7e1316c6d0eb patch 8.2.1423: Vim9: find global function when looking for script-local Bram Moolenaar <Bram@vim.org> parents: 21737 diff changeset	2495 // Don't do this if the name starts with "s:".
7e1316c6d0eb patch 8.2.1423: Vim9: find global function when looking for script-local Bram Moolenaar <Bram@vim.org> parents: 21737 diff changeset	2496 if (p != NULL && (funcname[0] != 's' \|\| funcname[1] != ':'))
21586 5470c36ed7e6 patch 8.2.1343: Vim9: cannot find global function when using g: Bram Moolenaar <Bram@vim.org> parents: 21566 diff changeset	2497 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	2498 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2499
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	2500 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	2501 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	2502 #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	2503 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	2504 {
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	2505 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	2506
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	2507 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	2508 }
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	2509 #endif
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	2510 else if (fp != NULL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2511 {
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	2512 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	2513 // 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	2514 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	2515 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	2516
17638 9ffec4eb8d33 patch 8.1.1816: cannot use a user defined function as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	2517 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	2518 {
9ffec4eb8d33 patch 8.1.1816: cannot use a user defined function as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	2519 // 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	2520 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	2521 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	2522 argcount++;
17646 e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work Bram Moolenaar <Bram@vim.org> parents: 17638 diff changeset	2523 argvars = argv;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work Bram Moolenaar <Bram@vim.org> parents: 17638 diff changeset	2524 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	2525 }
9ffec4eb8d33 patch 8.1.1816: cannot use a user defined function as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	2526
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2527 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	2528 funcexe, selfdict);
9562 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 }
17612 e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17606 diff changeset	2531 else if (funcexe->basetv != NULL)
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17606 diff changeset	2532 {
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17606 diff changeset	2533 /*
17638 9ffec4eb8d33 patch 8.1.1816: cannot use a user defined function as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	2534 * 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	2535 * 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	2536 */
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17606 diff changeset	2537 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	2538 funcexe->basetv);
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17606 diff changeset	2539 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2540 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2541 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2542 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2543 * 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	2544 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2545 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	2546 }
21586 5470c36ed7e6 patch 8.2.1343: Vim9: cannot find global function when using g: Bram Moolenaar <Bram@vim.org> parents: 21566 diff changeset	2547
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2548 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2549 * 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	2550 * 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	2551 * 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	2552 * 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	2553 * 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	2554 * 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	2555 * 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	2556 * 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	2557 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2558 update_force_abort();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2559 }
19013 dd9ab0674eec patch 8.2.0067: ERROR_UNKNOWN clashes on some systems Bram Moolenaar <Bram@vim.org> parents: 18991 diff changeset	2560 if (error == FCERR_NONE)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2561 ret = OK;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2562
18576 e9675870c480 patch 8.1.2282: crash when passing many arguments through a partial Bram Moolenaar <Bram@vim.org> parents: 18572 diff changeset	2563 theend:
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2564 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2565 * 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	2566 * 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	2567 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2568 if (!aborting())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2569 {
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2570 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	2571 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2572
17646 e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work Bram Moolenaar <Bram@vim.org> parents: 17638 diff changeset	2573 // 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	2574 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	2575 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	2576
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2577 vim_free(tofree);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2578 vim_free(name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2579
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2580 return ret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2581 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2582
21401 aa7675a4a0cd patch 8.2.1251: Vim9: warning for pointer usage, test failure undetected Bram Moolenaar <Bram@vim.org> parents: 21319 diff changeset	2583 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	2584 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	2585 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2586 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	2587 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2588
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2589 /*
19579 aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2590 * 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	2591 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2592 static void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2593 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	2594 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2595 int j;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2596
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2597 msg_start();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2598 if (indent)
15543 dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	2599 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	2600 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	2601 msg_puts("def ");
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2602 else
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2603 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	2604 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	2605 msg_putchar('(');
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2606 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	2607 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2608 if (j)
15543 dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	2609 msg_puts(", ");
dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	2610 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	2611 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	2612 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2613 char *tofree;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2614
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2615 msg_puts(": ");
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2616 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	2617 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	2618 }
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	2619 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	2620 {
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	2621 msg_puts(" = ");
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	2622 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	2623 [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	2624 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2625 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2626 if (fp->uf_varargs)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2627 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2628 if (j)
15543 dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	2629 msg_puts(", ");
dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	2630 msg_puts("...");
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2631 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2632 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	2633 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2634 if (j)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2635 msg_puts(", ");
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2636 msg_puts("...");
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2637 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	2638 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	2639 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2640 char *tofree;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2641
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2642 msg_puts(": ");
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2643 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	2644 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	2645 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2646 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2647 msg_putchar(')');
19579 aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2648
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	2649 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	2650 {
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2651 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	2652 {
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2653 char *tofree;
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2654
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2655 msg_puts(": ");
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2656 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	2657 vim_free(tofree);
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2658 }
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2659 }
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2660 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	2661 msg_puts(" abort");
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2662 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	2663 msg_puts(" range");
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2664 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	2665 msg_puts(" dict");
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	2666 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	2667 msg_puts(" closure");
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2668 msg_clr_eos();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2669 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	2670 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	2671 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2672
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2673 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2674 * 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	2675 * 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	2676 * 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	2677 * 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	2678 * "is_global" is NULL.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2679 * flags:
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2680 * TFN_INT: internal function name OK
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2681 * TFN_QUIET: be quiet
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2682 * 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	2683 * 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	2684 * 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	2685 */
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	2686 char_u *
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2687 trans_function_name(
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2688 char_u **pp,
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2689 int *is_global,
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2690 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	2691 int flags,
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2692 funcdict_T *fdp, // return: info about dictionary used
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	2693 partial_T **partial, // return: partial of a FuncRef
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	2694 type_T **type) // return: type of funcref if not NULL
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2695 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2696 char_u *name = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2697 char_u *start;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2698 char_u *end;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2699 int lead;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2700 char_u sid_buf[20];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2701 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	2702 int extra = 0;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2703 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	2704 int vim9script;
22496 454b78ca8247 patch 8.2.1796: Vim9: invalid memory access with weird function name Bram Moolenaar <Bram@vim.org> parents: 22415 diff changeset	2705 static char *e_function_name = N_("E129: Function name required");
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2706
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2707 if (fdp != NULL)
20007 aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose Bram Moolenaar <Bram@vim.org> parents: 19946 diff changeset	2708 CLEAR_POINTER(fdp);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2709 start = *pp;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2710
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2711 // 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	2712 // command).
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2713 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	2714 && (*pp)[2] == (int)KE_SNR)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2715 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2716 *pp += 3;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2717 len = get_id_len(pp) + 3;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2718 return vim_strnsave(start, len);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2719 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2720
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2721 // 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	2722 // 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	2723 lead = eval_fname_script(start);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2724 if (lead > 2)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2725 start += lead;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2726
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2727 // 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	2728 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	2729 lead > 2 ? 0 : FNE_CHECK_START);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2730 if (end == start)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2731 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2732 if (!skip)
22496 454b78ca8247 patch 8.2.1796: Vim9: invalid memory access with weird function name Bram Moolenaar <Bram@vim.org> parents: 22415 diff changeset	2733 emsg(_(e_function_name));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2734 goto theend;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2735 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2736 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	2737 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2738 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2739 * 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	2740 * 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	2741 * interrupt, or an exception.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2742 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2743 if (!aborting())
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 if (end != NULL)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	2746 semsg(_(e_invarg2), start);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2747 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2748 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2749 *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	2750 goto theend;
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
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2753 if (lv.ll_tv != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2754 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2755 if (fdp != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2756 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2757 fdp->fd_dict = lv.ll_dict;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2758 fdp->fd_newkey = lv.ll_newkey;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2759 lv.ll_newkey = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2760 fdp->fd_di = lv.ll_di;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2761 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2762 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	2763 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2764 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	2765 *pp = end;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2766 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2767 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	2768 && lv.ll_tv->vval.v_partial != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2769 {
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	2770 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	2771 *pp = end;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2772 if (partial != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2773 *partial = lv.ll_tv->vval.v_partial;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2774 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2775 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2776 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2777 if (!skip && !(flags & TFN_QUIET) && (fdp == NULL
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2778 \|\| 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	2779 emsg(_(e_funcref));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2780 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2781 *pp = end;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2782 name = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2783 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2784 goto theend;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2785 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2786
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2787 if (lv.ll_name == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2788 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2789 // 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	2790 *pp = end;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2791 goto theend;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2792 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2793
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2794 // 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	2795 if (lv.ll_exp_name != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2796 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2797 len = (int)STRLEN(lv.ll_exp_name);
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	2798 name = deref_func_name(lv.ll_exp_name, &len, partial, type,
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2799 flags & TFN_NO_AUTOLOAD);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2800 if (name == lv.ll_exp_name)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2801 name = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2802 }
9717 6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	2803 else if (!(flags & TFN_NO_DEREF))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2804 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2805 len = (int)(end - *pp);
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	2806 name = deref_func_name(*pp, &len, partial, type,
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	2807 flags & TFN_NO_AUTOLOAD);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2808 if (name == *pp)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2809 name = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2810 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2811 if (name != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2812 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2813 name = vim_strsave(name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2814 *pp = end;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2815 if (STRNCMP(name, "<SNR>", 5) == 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2816 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2817 // Change "<SNR>" to the byte sequence.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2818 name[0] = K_SPECIAL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2819 name[1] = KS_EXTRA;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2820 name[2] = (int)KE_SNR;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2821 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	2822 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2823 goto theend;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2824 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2825
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2826 if (lv.ll_exp_name != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2827 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2828 len = (int)STRLEN(lv.ll_exp_name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2829 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	2830 && STRNCMP(lv.ll_name, "s:", 2) == 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2831 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2832 // 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	2833 // leading "s:" then remove it.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2834 lv.ll_name += 2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2835 len -= 2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2836 lead = 2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2837 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2838 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2839 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2840 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2841 // skip over "s:" and "g:"
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2842 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	2843 {
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2844 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	2845 *is_global = TRUE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2846 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	2847 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2848 len = (int)(end - lv.ll_name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2849 }
22496 454b78ca8247 patch 8.2.1796: Vim9: invalid memory access with weird function name Bram Moolenaar <Bram@vim.org> parents: 22415 diff changeset	2850 if (len <= 0)
454b78ca8247 patch 8.2.1796: Vim9: invalid memory access with weird function name Bram Moolenaar <Bram@vim.org> parents: 22415 diff changeset	2851 {
454b78ca8247 patch 8.2.1796: Vim9: invalid memory access with weird function name Bram Moolenaar <Bram@vim.org> parents: 22415 diff changeset	2852 if (!skip)
454b78ca8247 patch 8.2.1796: Vim9: invalid memory access with weird function name Bram Moolenaar <Bram@vim.org> parents: 22415 diff changeset	2853 emsg(_(e_function_name));
454b78ca8247 patch 8.2.1796: Vim9: invalid memory access with weird function name Bram Moolenaar <Bram@vim.org> parents: 22415 diff changeset	2854 goto theend;
454b78ca8247 patch 8.2.1796: Vim9: invalid memory access with weird function name Bram Moolenaar <Bram@vim.org> parents: 22415 diff changeset	2855 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2856
23237 033b2a97d59b patch 8.2.2164: Vim9: autoload function doesn't work in uppercased script Bram Moolenaar <Bram@vim.org> parents: 23229 diff changeset	2857 // In Vim9 script a user function is script-local by default, unless it
033b2a97d59b patch 8.2.2164: Vim9: autoload function doesn't work in uppercased script Bram Moolenaar <Bram@vim.org> parents: 23229 diff changeset	2858 // starts with a lower case character: dict.func().
21279 8d1d11afd8c8 patch 8.2.1190: Vim9: checking for Vim9 syntax is spread out Bram Moolenaar <Bram@vim.org> parents: 21263 diff changeset	2859 vim9script = ASCII_ISUPPER(*start) && in_vim9script();
23237 033b2a97d59b patch 8.2.2164: Vim9: autoload function doesn't work in uppercased script Bram Moolenaar <Bram@vim.org> parents: 23229 diff changeset	2860 if (vim9script)
033b2a97d59b patch 8.2.2164: Vim9: autoload function doesn't work in uppercased script Bram Moolenaar <Bram@vim.org> parents: 23229 diff changeset	2861 {
033b2a97d59b patch 8.2.2164: Vim9: autoload function doesn't work in uppercased script Bram Moolenaar <Bram@vim.org> parents: 23229 diff changeset	2862 char_u *p;
033b2a97d59b patch 8.2.2164: Vim9: autoload function doesn't work in uppercased script Bram Moolenaar <Bram@vim.org> parents: 23229 diff changeset	2863
033b2a97d59b patch 8.2.2164: Vim9: autoload function doesn't work in uppercased script Bram Moolenaar <Bram@vim.org> parents: 23229 diff changeset	2864 // SomeScript#func() is a global function.
033b2a97d59b patch 8.2.2164: Vim9: autoload function doesn't work in uppercased script Bram Moolenaar <Bram@vim.org> parents: 23229 diff changeset	2865 for (p = start; p != NUL && p != '('; ++p)
033b2a97d59b patch 8.2.2164: Vim9: autoload function doesn't work in uppercased script Bram Moolenaar <Bram@vim.org> parents: 23229 diff changeset	2866 if (*p == AUTOLOAD_CHAR)
033b2a97d59b patch 8.2.2164: Vim9: autoload function doesn't work in uppercased script Bram Moolenaar <Bram@vim.org> parents: 23229 diff changeset	2867 vim9script = FALSE;
033b2a97d59b patch 8.2.2164: Vim9: autoload function doesn't work in uppercased script Bram Moolenaar <Bram@vim.org> parents: 23229 diff changeset	2868 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2869
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2870 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2871 * Copy the function name to allocated memory.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2872 * 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	2873 * Accept <SNR>123_name() outside a script.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2874 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2875 if (skip)
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2876 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	2877 else if (lead > 0 \|\| vim9script)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2878 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2879 if (!vim9script)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2880 lead = 3;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2881 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	2882 && 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	2883 \|\| eval_fname_sid(*pp))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2884 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2885 // 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	2886 if (current_sctx.sc_sid <= 0)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2887 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	2888 emsg(_(e_usingsid));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2889 goto theend;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2890 }
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	2891 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	2892 if (vim9script)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2893 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	2894 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2895 lead += (int)STRLEN(sid_buf);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2896 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2897 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2898 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	2899 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	2900 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	2901 start);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2902 goto theend;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2903 }
9717 6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	2904 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	2905 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2906 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	2907
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2908 if (cp != NULL && cp < end)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2909 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	2910 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	2911 goto theend;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2912 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2913 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2914
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2915 name = alloc(len + lead + extra + 1);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2916 if (name != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2917 {
19225 77cd94083850 patch 8.2.0171: Coverity warning for using uninitialized buffer Bram Moolenaar <Bram@vim.org> parents: 19201 diff changeset	2918 if (!skip && (lead > 0 \|\| vim9script))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2919 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2920 name[0] = K_SPECIAL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2921 name[1] = KS_EXTRA;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2922 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	2923 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	2924 STRCPY(name + 3, sid_buf);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2925 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2926 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	2927 name[lead + extra + len] = NUL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2928 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2929 *pp = end;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2930
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2931 theend:
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2932 clear_lval(&lv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2933 return name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2934 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2935
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2936 /*
20079 336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2937 * 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	2938 * 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	2939 * "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	2940 * 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	2941 * 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	2942 */
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2943 char_u *
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2944 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	2945 {
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2946 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	2947
21279 8d1d11afd8c8 patch 8.2.1190: Vim9: checking for Vim9 syntax is spread out Bram Moolenaar <Bram@vim.org> parents: 21263 diff changeset	2948 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	2949 {
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2950 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	2951 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	2952 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	2953 }
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2954 return NULL;
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2955 }
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2956
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2957 /*
20709 a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2958 * 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	2959 * 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	2960 */
22973 4c97c0747017 patch 8.2.2033: Vim9: :def without argument gives compilation error Bram Moolenaar <Bram@vim.org> parents: 22908 diff changeset	2961 void
20709 a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2962 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	2963 {
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	2964 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	2965 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	2966 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	2967
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	2968 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	2969 {
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2970 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	2971 {
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2972 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	2973
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2974 --todo;
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2975 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	2976 && (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	2977 ? !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	2978 && !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	2979 : !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	2980 && 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	2981 {
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2982 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	2983 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	2984 {
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2985 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	2986 return;
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2987 }
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2988 }
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2989 }
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2990 }
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2991 }
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2992
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2993 /*
23426 c3c690c8fcbf patch 8.2.2256: Vim9: cannot use function( after line break in :def function Bram Moolenaar <Bram@vim.org> parents: 23420 diff changeset	2994 * Check if "cmd" points to a function command and if so advance "cmd" and
c3c690c8fcbf patch 8.2.2256: Vim9: cannot use function( after line break in :def function Bram Moolenaar <Bram@vim.org> parents: 23420 diff changeset	2995 * return TRUE.
c3c690c8fcbf patch 8.2.2256: Vim9: cannot use function( after line break in :def function Bram Moolenaar <Bram@vim.org> parents: 23420 diff changeset	2996 * Otherwise return FALSE;
c3c690c8fcbf patch 8.2.2256: Vim9: cannot use function( after line break in :def function Bram Moolenaar <Bram@vim.org> parents: 23420 diff changeset	2997 * Do not consider "function(" to be a command.
c3c690c8fcbf patch 8.2.2256: Vim9: cannot use function( after line break in :def function Bram Moolenaar <Bram@vim.org> parents: 23420 diff changeset	2998 */
c3c690c8fcbf patch 8.2.2256: Vim9: cannot use function( after line break in :def function Bram Moolenaar <Bram@vim.org> parents: 23420 diff changeset	2999 static int
c3c690c8fcbf patch 8.2.2256: Vim9: cannot use function( after line break in :def function Bram Moolenaar <Bram@vim.org> parents: 23420 diff changeset	3000 is_function_cmd(char_u **cmd)
c3c690c8fcbf patch 8.2.2256: Vim9: cannot use function( after line break in :def function Bram Moolenaar <Bram@vim.org> parents: 23420 diff changeset	3001 {
c3c690c8fcbf patch 8.2.2256: Vim9: cannot use function( after line break in :def function Bram Moolenaar <Bram@vim.org> parents: 23420 diff changeset	3002 char_u p = cmd;
c3c690c8fcbf patch 8.2.2256: Vim9: cannot use function( after line break in :def function Bram Moolenaar <Bram@vim.org> parents: 23420 diff changeset	3003
c3c690c8fcbf patch 8.2.2256: Vim9: cannot use function( after line break in :def function Bram Moolenaar <Bram@vim.org> parents: 23420 diff changeset	3004 if (checkforcmd(&p, "function", 2))
c3c690c8fcbf patch 8.2.2256: Vim9: cannot use function( after line break in :def function Bram Moolenaar <Bram@vim.org> parents: 23420 diff changeset	3005 {
c3c690c8fcbf patch 8.2.2256: Vim9: cannot use function( after line break in :def function Bram Moolenaar <Bram@vim.org> parents: 23420 diff changeset	3006 if (*p == '(')
c3c690c8fcbf patch 8.2.2256: Vim9: cannot use function( after line break in :def function Bram Moolenaar <Bram@vim.org> parents: 23420 diff changeset	3007 return FALSE;
c3c690c8fcbf patch 8.2.2256: Vim9: cannot use function( after line break in :def function Bram Moolenaar <Bram@vim.org> parents: 23420 diff changeset	3008 *cmd = p;
c3c690c8fcbf patch 8.2.2256: Vim9: cannot use function( after line break in :def function Bram Moolenaar <Bram@vim.org> parents: 23420 diff changeset	3009 return TRUE;
c3c690c8fcbf patch 8.2.2256: Vim9: cannot use function( after line break in :def function Bram Moolenaar <Bram@vim.org> parents: 23420 diff changeset	3010 }
c3c690c8fcbf patch 8.2.2256: Vim9: cannot use function( after line break in :def function Bram Moolenaar <Bram@vim.org> parents: 23420 diff changeset	3011 return FALSE;
c3c690c8fcbf patch 8.2.2256: Vim9: cannot use function( after line break in :def function Bram Moolenaar <Bram@vim.org> parents: 23420 diff changeset	3012 }
c3c690c8fcbf patch 8.2.2256: Vim9: cannot use function( after line break in :def function Bram Moolenaar <Bram@vim.org> parents: 23420 diff changeset	3013
c3c690c8fcbf patch 8.2.2256: Vim9: cannot use function( after line break in :def function Bram Moolenaar <Bram@vim.org> parents: 23420 diff changeset	3014 /*
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3015 * ":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	3016 * 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	3017 * 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	3018 * 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	3019 */
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3020 ufunc_T *
22596 107eae953b87 patch 8.2.1846: Vim9: block variables are not found in compiled function Bram Moolenaar <Bram@vim.org> parents: 22496 diff changeset	3021 define_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	3022 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3023 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	3024 char_u *line_to_free = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3025 int j;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3026 int c;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3027 int saved_did_emsg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3028 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	3029 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	3030 int is_global = FALSE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3031 char_u *p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3032 char_u *arg;
23511 7e8703464f01 patch 8.2.2298: Vim9: comment right after "(" of function not recognized Bram Moolenaar <Bram@vim.org> parents: 23446 diff changeset	3033 char_u *whitep;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3034 char_u *line_arg = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3035 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	3036 garray_T argtypes;
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	3037 garray_T default_args;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3038 garray_T newlines;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3039 int varargs = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3040 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	3041 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	3042 ufunc_T *fp = NULL;
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3043 int overwrite = FALSE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3044 int indent;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3045 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	3046 #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	3047 char nesting_def[MAX_FUNC_NESTING];
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3048 dictitem_T *v;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3049 funcdict_T fudi;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3050 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	3051 int paren;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3052 hashitem_T *hi;
23392 517fca70e084 patch 8.2.2239: Vim9: concatenating lines with backslash is inconvenient Bram Moolenaar <Bram@vim.org> parents: 23368 diff changeset	3053 getline_opt_T getline_options;
17251 984eef966002 patch 8.1.1625: script line numbers are not exactly right Bram Moolenaar <Bram@vim.org> parents: 17178 diff changeset	3054 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	3055 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	3056 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	3057 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	3058 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	3059 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	3060 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	3061
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3062 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3063 * ":function" without argument: list functions.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3064 */
20138 d0a9766167ab patch 8.2.0624: Vim9: no check for space before #comment Bram Moolenaar <Bram@vim.org> parents: 20081 diff changeset	3065 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	3066 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3067 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	3068 list_functions(NULL);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3069 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	3070 return NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3071 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3072
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3073 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3074 * ":function /pat": list functions matching pattern.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3075 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3076 if (*eap->arg == '/')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3077 {
19892 5feb426d2ea1 patch 8.2.0502: Vim9: some code is not tested Bram Moolenaar <Bram@vim.org> parents: 19888 diff changeset	3078 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	3079 if (!eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3080 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3081 regmatch_T regmatch;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3082
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3083 c = *p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3084 *p = NUL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3085 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	3086 *p = c;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3087 if (regmatch.regprog != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3088 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3089 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	3090 list_functions(&regmatch);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3091 vim_regfree(regmatch.regprog);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3092 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3093 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3094 if (*p == '/')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3095 ++p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3096 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	3097 return NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3098 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3099
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3100 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	3101 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	3102 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	3103
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3104 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3105 * 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	3106 * func normal function name
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3107 * "name" == func, "fudi.fd_dict" == NULL
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3108 * dict.func new dictionary entry
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3109 * "name" == NULL, "fudi.fd_dict" set,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3110 * "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	3111 * 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	3112 * "name" == func, "fudi.fd_dict" set,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3113 * "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	3114 * 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	3115 * "name" == NULL, "fudi.fd_dict" set,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3116 * "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	3117 * s:func script-local function name
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3118 * 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	3119 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3120 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	3121 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	3122 {
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3123 // 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	3124 paren = TRUE;
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3125 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	3126 }
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3127 else
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3128 {
23547 7f09cfa9ac4a patch 8.2.2316: Vim9: cannot list a lambda function Bram Moolenaar <Bram@vim.org> parents: 23545 diff changeset	3129 if (STRNCMP(p, "<lambda>", 8) == 0)
7f09cfa9ac4a patch 8.2.2316: Vim9: cannot list a lambda function Bram Moolenaar <Bram@vim.org> parents: 23545 diff changeset	3130 {
7f09cfa9ac4a patch 8.2.2316: Vim9: cannot list a lambda function Bram Moolenaar <Bram@vim.org> parents: 23545 diff changeset	3131 p += 8;
7f09cfa9ac4a patch 8.2.2316: Vim9: cannot list a lambda function Bram Moolenaar <Bram@vim.org> parents: 23545 diff changeset	3132 (void)getdigits(&p);
7f09cfa9ac4a patch 8.2.2316: Vim9: cannot list a lambda function Bram Moolenaar <Bram@vim.org> parents: 23545 diff changeset	3133 name = vim_strnsave(eap->arg, p - eap->arg);
7f09cfa9ac4a patch 8.2.2316: Vim9: cannot list a lambda function Bram Moolenaar <Bram@vim.org> parents: 23545 diff changeset	3134 CLEAR_FIELD(fudi);
7f09cfa9ac4a patch 8.2.2316: Vim9: cannot list a lambda function Bram Moolenaar <Bram@vim.org> parents: 23545 diff changeset	3135 }
7f09cfa9ac4a patch 8.2.2316: Vim9: cannot list a lambda function Bram Moolenaar <Bram@vim.org> parents: 23545 diff changeset	3136 else
7f09cfa9ac4a patch 8.2.2316: Vim9: cannot list a lambda function Bram Moolenaar <Bram@vim.org> parents: 23545 diff changeset	3137 name = trans_function_name(&p, &is_global, eap->skip,
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	3138 TFN_NO_AUTOLOAD, &fudi, NULL, NULL);
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3139 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	3140 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	3141 {
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3142 /*
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3143 * 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	3144 * 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	3145 * 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	3146 */
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3147 if (!aborting())
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3148 {
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3149 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	3150 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	3151 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	3152 return NULL;
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3153 }
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3154 else
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3155 eap->skip = TRUE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3156 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3157 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3158
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3159 // 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	3160 // 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	3161 saved_did_emsg = did_emsg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3162 did_emsg = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3163
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3164 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3165 * ":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	3166 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3167 if (!paren)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3168 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3169 if (!ends_excmd(*skipwhite(p)))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3170 {
21461 4dfd00f481fb patch 8.2.1281: the "trailing characters" error can be hard to understand Bram Moolenaar <Bram@vim.org> parents: 21435 diff changeset	3171 semsg(_(e_trailing_arg), p);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3172 goto ret_free;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3173 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3174 eap->nextcmd = check_nextcmd(p);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3175 if (eap->nextcmd != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3176 *p = NUL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3177 if (!eap->skip && !got_int)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3178 {
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3179 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	3180 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	3181 {
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	3182 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	3183
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	3184 // 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	3185 // 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	3186 if (up != NULL)
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3187 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	3188 }
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	3189
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3190 if (fp != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3191 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3192 list_func_head(fp, TRUE);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3193 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	3194 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3195 if (FUNCLINE(fp, j) == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3196 continue;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3197 msg_putchar('\n');
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3198 msg_outnum((long)(j + 1));
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3199 if (j < 9)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3200 msg_putchar(' ');
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3201 if (j < 99)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3202 msg_putchar(' ');
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3203 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	3204 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	3205 ui_breakcheck();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3206 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3207 if (!got_int)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3208 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3209 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	3210 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	3211 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	3212 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3213 msg_puts(" endfunction");
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3214 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3215 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3216 else
20079 336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	3217 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	3218 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3219 goto ret_free;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3220 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3221
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 * ":function name(arg1, arg2)" Define function.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3224 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3225 p = skipwhite(p);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3226 if (*p != '(')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3227 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3228 if (!eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3229 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	3230 semsg(_("E124: Missing '(': %s"), eap->arg);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3231 goto ret_free;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3232 }
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3233 // 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	3234 if (vim_strchr(p, '(') != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3235 p = vim_strchr(p, '(');
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
23727 7d0959080545 patch 8.2.2405: Vim9: no need to allow white space before "(" for :def Bram Moolenaar <Bram@vim.org> parents: 23717 diff changeset	3238 if ((vim9script \|\| eap->cmdidx == CMD_def) && VIM_ISWHITE(p[-1]))
7d0959080545 patch 8.2.2405: Vim9: no need to allow white space before "(" for :def Bram Moolenaar <Bram@vim.org> parents: 23717 diff changeset	3239 {
23888 d95403445b6b patch 8.2.2486: Vim9: some errors for white space do not show context Bram Moolenaar <Bram@vim.org> parents: 23879 diff changeset	3240 semsg(_(e_no_white_space_allowed_before_str_str), "(", p - 1);
23727 7d0959080545 patch 8.2.2405: Vim9: no need to allow white space before "(" for :def Bram Moolenaar <Bram@vim.org> parents: 23717 diff changeset	3241 goto ret_free;
7d0959080545 patch 8.2.2405: Vim9: no need to allow white space before "(" for :def Bram Moolenaar <Bram@vim.org> parents: 23717 diff changeset	3242 }
7d0959080545 patch 8.2.2405: Vim9: no need to allow white space before "(" for :def Bram Moolenaar <Bram@vim.org> parents: 23717 diff changeset	3243
21479 90d859a402cc patch 8.2.1290: Vim9: cannot replace a global function Bram Moolenaar <Bram@vim.org> parents: 21461 diff changeset	3244 // 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	3245 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	3246 {
90d859a402cc patch 8.2.1290: Vim9: cannot replace a global function Bram Moolenaar <Bram@vim.org> parents: 21461 diff changeset	3247 emsg(_(e_nobang));
90d859a402cc patch 8.2.1290: Vim9: cannot replace a global function Bram Moolenaar <Bram@vim.org> parents: 21461 diff changeset	3248 goto ret_free;
90d859a402cc patch 8.2.1290: Vim9: cannot replace a global function Bram Moolenaar <Bram@vim.org> parents: 21461 diff changeset	3249 }
90d859a402cc patch 8.2.1290: Vim9: cannot replace a global function Bram Moolenaar <Bram@vim.org> parents: 21461 diff changeset	3250
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3251 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	3252
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3253 if (!eap->skip && name_arg == NULL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3254 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3255 // 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	3256 // (that we are overwriting).
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3257 if (name != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3258 arg = name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3259 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3260 arg = fudi.fd_newkey;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3261 if (arg != NULL && (fudi.fd_di == NULL
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3262 \|\| (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	3263 && 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	3264 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3265 if (*arg == K_SPECIAL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3266 j = 3;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3267 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3268 j = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3269 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	3270 : eval_isnamec(arg[j])))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3271 ++j;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3272 if (arg[j] != NUL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3273 emsg_funcname((char *)e_invarg2, arg);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3274 }
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3275 // Disallow using the g: dict.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3276 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	3277 emsg(_("E862: Cannot use g: here"));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3278 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3279
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	3280 // 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	3281 // invalid.
23511 7e8703464f01 patch 8.2.2298: Vim9: comment right after "(" of function not recognized Bram Moolenaar <Bram@vim.org> parents: 23446 diff changeset	3282 ++p;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3283 if (get_function_args(&p, ')', &newargs,
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	3284 eap->cmdidx == CMD_def ? &argtypes : NULL, FALSE,
24033 308d29307910 patch 8.2.2558: no error if a lambda argument shadows a variable Bram Moolenaar <Bram@vim.org> parents: 24004 diff changeset	3285 NULL, &varargs, &default_args, eap->skip,
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	3286 eap, &line_to_free) == FAIL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3287 goto errret_2;
23511 7e8703464f01 patch 8.2.2298: Vim9: comment right after "(" of function not recognized Bram Moolenaar <Bram@vim.org> parents: 23446 diff changeset	3288 whitep = p;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3289
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3290 if (eap->cmdidx == CMD_def)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3291 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3292 // 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	3293 if (*p == ':')
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3294 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3295 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	3296 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	3297 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	3298 {
20830 9064044fd4f6 patch 8.2.0967: unnecessary type casts for vim_strnsave() Bram Moolenaar <Bram@vim.org> parents: 20816 diff changeset	3299 ret_type = vim_strnsave(ret_type, p - ret_type);
23511 7e8703464f01 patch 8.2.2298: Vim9: comment right after "(" of function not recognized Bram Moolenaar <Bram@vim.org> parents: 23446 diff changeset	3300 whitep = p;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3301 p = skipwhite(p);
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	3302 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3303 else
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	3304 {
21821 0deb6f96a5a3 patch 8.2.1460: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 21791 diff changeset	3305 semsg(_(e_expected_type_str), ret_type);
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	3306 ret_type = NULL;
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	3307 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3308 }
21435 8ec9e2b54ce7 patch 8.2.1268: Vim9: no error for using double quote comment Bram Moolenaar <Bram@vim.org> parents: 21401 diff changeset	3309 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	3310 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3311 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3312 // 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	3313 for (;;)
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	3314 {
23511 7e8703464f01 patch 8.2.2298: Vim9: comment right after "(" of function not recognized Bram Moolenaar <Bram@vim.org> parents: 23446 diff changeset	3315 whitep = p;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3316 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	3317 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	3318 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3319 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	3320 p += 5;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3321 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3322 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	3323 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3324 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	3325 p += 4;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3326 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3327 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	3328 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3329 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	3330 p += 5;
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3331 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3332 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	3333 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3334 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	3335 p += 7;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3336 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	3337 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3338 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	3339 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	3340 goto erret;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3341 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3342 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3343 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3344 break;
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	3345 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3346
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3347 // 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	3348 // 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	3349 if (*p == '\n')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3350 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	3351 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	3352 && !(*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	3353 && eap->cmdidx != CMD_def)
23511 7e8703464f01 patch 8.2.2298: Vim9: comment right after "(" of function not recognized Bram Moolenaar <Bram@vim.org> parents: 23446 diff changeset	3354 && !(VIM_ISWHITE(whitep) && p == '#'
7e8703464f01 patch 8.2.2298: Vim9: comment right after "(" of function not recognized Bram Moolenaar <Bram@vim.org> parents: 23446 diff changeset	3355 && (vim9script \|\| 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	3356 && !eap->skip
8ec9e2b54ce7 patch 8.2.1268: Vim9: no error for using double quote comment Bram Moolenaar <Bram@vim.org> parents: 21401 diff changeset	3357 && !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	3358 semsg(_(e_trailing_arg), p);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3359
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3360 /*
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3361 * 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	3362 * found.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3363 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3364 if (KeyTyped)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3365 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3366 // 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	3367 // 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	3368 // 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	3369 if (!eap->skip && !eap->forceit)
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 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	3372 emsg(_(e_funcdict));
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3373 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	3374 emsg_funcname(e_funcexts, name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3375 }
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 if (!eap->skip && did_emsg)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3378 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3379
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3380 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	3381 cmdline_row = msg_row;
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
17251 984eef966002 patch 8.1.1625: script line numbers are not exactly right Bram Moolenaar <Bram@vim.org> parents: 17178 diff changeset	3384 // 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	3385 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	3386
21685 26a4b53c4587 patch 8.2.1392: Vim9: line number incorrect after skipping over comment lines Bram Moolenaar <Bram@vim.org> parents: 21646 diff changeset	3387 // Detect having skipped over comment lines to find the return
26a4b53c4587 patch 8.2.1392: Vim9: line number incorrect after skipping over comment lines Bram Moolenaar <Bram@vim.org> parents: 21646 diff changeset	3388 // type. Add NULL lines to keep the line count correct.
26a4b53c4587 patch 8.2.1392: Vim9: line number incorrect after skipping over comment lines Bram Moolenaar <Bram@vim.org> parents: 21646 diff changeset	3389 sourcing_lnum_off = get_sourced_lnum(eap->getline, eap->cookie);
26a4b53c4587 patch 8.2.1392: Vim9: line number incorrect after skipping over comment lines Bram Moolenaar <Bram@vim.org> parents: 21646 diff changeset	3390 if (SOURCING_LNUM < sourcing_lnum_off)
26a4b53c4587 patch 8.2.1392: Vim9: line number incorrect after skipping over comment lines Bram Moolenaar <Bram@vim.org> parents: 21646 diff changeset	3391 {
26a4b53c4587 patch 8.2.1392: Vim9: line number incorrect after skipping over comment lines Bram Moolenaar <Bram@vim.org> parents: 21646 diff changeset	3392 sourcing_lnum_off -= SOURCING_LNUM;
26a4b53c4587 patch 8.2.1392: Vim9: line number incorrect after skipping over comment lines Bram Moolenaar <Bram@vim.org> parents: 21646 diff changeset	3393 if (ga_grow(&newlines, sourcing_lnum_off) == FAIL)
26a4b53c4587 patch 8.2.1392: Vim9: line number incorrect after skipping over comment lines Bram Moolenaar <Bram@vim.org> parents: 21646 diff changeset	3394 goto erret;
26a4b53c4587 patch 8.2.1392: Vim9: line number incorrect after skipping over comment lines Bram Moolenaar <Bram@vim.org> parents: 21646 diff changeset	3395 while (sourcing_lnum_off-- > 0)
26a4b53c4587 patch 8.2.1392: Vim9: line number incorrect after skipping over comment lines Bram Moolenaar <Bram@vim.org> parents: 21646 diff changeset	3396 ((char_u **)(newlines.ga_data))[newlines.ga_len++] = NULL;
26a4b53c4587 patch 8.2.1392: Vim9: line number incorrect after skipping over comment lines Bram Moolenaar <Bram@vim.org> parents: 21646 diff changeset	3397 }
26a4b53c4587 patch 8.2.1392: Vim9: line number incorrect after skipping over comment lines Bram Moolenaar <Bram@vim.org> parents: 21646 diff changeset	3398
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3399 indent = 2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3400 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	3401 nesting_def[nesting] = (eap->cmdidx == CMD_def);
23392 517fca70e084 patch 8.2.2239: Vim9: concatenating lines with backslash is inconvenient Bram Moolenaar <Bram@vim.org> parents: 23368 diff changeset	3402 getline_options = eap->cmdidx == CMD_def
23398 40f824f5c7c7 patch 8.2.2242: Vim9: bar line continuation does not work at script level Bram Moolenaar <Bram@vim.org> parents: 23392 diff changeset	3403 ? GETLINE_CONCAT_CONTBAR : GETLINE_CONCAT_CONT;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3404 for (;;)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3405 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3406 if (KeyTyped)
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 msg_scroll = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3409 saved_wait_return = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3410 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3411 need_wait_return = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3412
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3413 if (line_arg != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3414 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3415 // 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	3416 theline = line_arg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3417 p = vim_strchr(theline, '\n');
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3418 if (p == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3419 line_arg += STRLEN(line_arg);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3420 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3421 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3422 *p = NUL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3423 line_arg = p + 1;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3424 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3425 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3426 else
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3427 {
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3428 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	3429 if (eap->getline == NULL)
21883 a427f5f26419 patch 8.2.1491: Vim9: crash when compiling heredoc lines start with comment Bram Moolenaar <Bram@vim.org> parents: 21821 diff changeset	3430 theline = getcmdline(':', 0L, indent, getline_options);
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3431 else
21883 a427f5f26419 patch 8.2.1491: Vim9: crash when compiling heredoc lines start with comment Bram Moolenaar <Bram@vim.org> parents: 21821 diff changeset	3432 theline = eap->getline(':', eap->cookie, indent,
a427f5f26419 patch 8.2.1491: Vim9: crash when compiling heredoc lines start with comment Bram Moolenaar <Bram@vim.org> parents: 21821 diff changeset	3433 getline_options);
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3434 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	3435 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3436 if (KeyTyped)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3437 lines_left = Rows - 1;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3438 if (theline == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3439 {
23444 7278e86c2f70 patch 8.2.2265: error message for missing endfunc/enddef is last line Bram Moolenaar <Bram@vim.org> parents: 23442 diff changeset	3440 // Use the start of the function for the line number.
7278e86c2f70 patch 8.2.2265: error message for missing endfunc/enddef is last line Bram Moolenaar <Bram@vim.org> parents: 23442 diff changeset	3441 SOURCING_LNUM = sourcing_lnum_top;
23185 055fa9db6f39 patch 8.2.2138: Vim9: "exit_cb" causes Vim to exit Bram Moolenaar <Bram@vim.org> parents: 22973 diff changeset	3442 if (skip_until != NULL)
055fa9db6f39 patch 8.2.2138: Vim9: "exit_cb" causes Vim to exit Bram Moolenaar <Bram@vim.org> parents: 22973 diff changeset	3443 semsg(_(e_missing_heredoc_end_marker_str), skip_until);
055fa9db6f39 patch 8.2.2138: Vim9: "exit_cb" causes Vim to exit Bram Moolenaar <Bram@vim.org> parents: 22973 diff changeset	3444 else if (eap->cmdidx == CMD_def)
21821 0deb6f96a5a3 patch 8.2.1460: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 21791 diff changeset	3445 emsg(_(e_missing_enddef));
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3446 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3447 emsg(_("E126: Missing :endfunction"));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3448 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3449 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3450
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	3451 // 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	3452 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	3453 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	3454 sourcing_lnum_off -= SOURCING_LNUM;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3455 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3456 sourcing_lnum_off = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3457
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3458 if (skip_until != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3459 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3460 // 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	3461 // * ":append" and "."
9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	3462 // * ":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	3463 // * ":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	3464 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	3465 \|\| (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	3466 \|\| 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	3467 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	3468 {
17462 9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	3469 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	3470 p = theline;
9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	3471 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	3472 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	3473 ? 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	3474 else
9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	3475 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	3476 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	3477 {
98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3478 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	3479 VIM_CLEAR(heredoc_trimmed);
23392 517fca70e084 patch 8.2.2239: Vim9: concatenating lines with backslash is inconvenient Bram Moolenaar <Bram@vim.org> parents: 23368 diff changeset	3480 getline_options = eap->cmdidx == CMD_def
23398 40f824f5c7c7 patch 8.2.2242: Vim9: bar line continuation does not work at script level Bram Moolenaar <Bram@vim.org> parents: 23392 diff changeset	3481 ? GETLINE_CONCAT_CONTBAR : GETLINE_CONCAT_CONT;
17462 9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	3482 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	3483 }
98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3484 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3485 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3486 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3487 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3488 // skip ':' and blanks
11129 f4ea50924c6d patch 8.0.0452: some macros are in lower case Christian Brabandt <cb@256bit.org> parents: 10815 diff changeset	3489 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	3490 ;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3491
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3492 // Check for "endfunction" or "enddef".
23545 987fb6e8a376 patch 8.2.2315: Vim9: "enddef" as dict key misintepreted as function end Bram Moolenaar <Bram@vim.org> parents: 23531 diff changeset	3493 // When a ":" follows it must be a dict key; "enddef: value,"
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3494 if (checkforcmd(&p, nesting_def[nesting]
23545 987fb6e8a376 patch 8.2.2315: Vim9: "enddef" as dict key misintepreted as function end Bram Moolenaar <Bram@vim.org> parents: 23531 diff changeset	3495 ? "enddef" : "endfunction", 4)
987fb6e8a376 patch 8.2.2315: Vim9: "enddef" as dict key misintepreted as function end Bram Moolenaar <Bram@vim.org> parents: 23531 diff changeset	3496 && *p != ':')
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3497 {
23442 f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3498 if (nesting-- == 0)
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3499 {
23442 f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3500 char_u *nextcmd = NULL;
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3501
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3502 if (*p == '\|')
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3503 nextcmd = p + 1;
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3504 else if (line_arg != NULL && *skipwhite(line_arg) != NUL)
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3505 nextcmd = line_arg;
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3506 else if (p != NUL && p != '"' && p_verbose > 0)
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3507 give_warning2(eap->cmdidx == CMD_def
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3508 ? (char_u *)_("W1001: Text found after :enddef: %s")
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3509 : (char_u *)_("W22: Text found after :endfunction: %s"),
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3510 p, TRUE);
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3511 if (nextcmd != NULL)
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3512 {
23442 f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3513 // Another command follows. If the line came from "eap"
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3514 // we can simply point into it, otherwise we need to
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3515 // change "eap->cmdlinep".
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3516 eap->nextcmd = nextcmd;
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3517 if (line_to_free != NULL)
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3518 {
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3519 vim_free(*eap->cmdlinep);
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3520 *eap->cmdlinep = line_to_free;
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3521 line_to_free = NULL;
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3522 }
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3523 }
23442 f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3524 break;
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3525 }
9562 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
23442 f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3528 // Check for mismatched "endfunc" or "enddef".
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3529 // We don't check for "def" inside "func" thus we also can't check
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3530 // for "enddef".
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3531 // We continue to find the end of the function, although we might
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3532 // not find it.
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3533 else if (nesting_def[nesting])
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3534 {
23545 987fb6e8a376 patch 8.2.2315: Vim9: "enddef" as dict key misintepreted as function end Bram Moolenaar <Bram@vim.org> parents: 23531 diff changeset	3535 if (checkforcmd(&p, "endfunction", 4) && *p != ':')
23442 f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3536 emsg(_(e_mismatched_endfunction));
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3537 }
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3538 else if (eap->cmdidx == CMD_def && checkforcmd(&p, "enddef", 4))
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3539 emsg(_(e_mismatched_enddef));
f00d6ff51046 patch 8.2.2264: Vim9: no error for mismatched :endfunc or :enddef Bram Moolenaar <Bram@vim.org> parents: 23426 diff changeset	3540
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3541 // 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	3542 // 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	3543 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	3544 indent -= 2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3545 else if (STRNCMP(p, "if", 2) == 0
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3546 \|\| STRNCMP(p, "wh", 2) == 0
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3547 \|\| STRNCMP(p, "for", 3) == 0
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3548 \|\| STRNCMP(p, "try", 3) == 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3549 indent += 2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3550
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3551 // 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	3552 // 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	3553 // 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	3554 c = *p;
23426 c3c690c8fcbf patch 8.2.2256: Vim9: cannot use function( after line break in :def function Bram Moolenaar <Bram@vim.org> parents: 23420 diff changeset	3555 if (is_function_cmd(&p)
19183 1168c53d1b49 patch 8.2.0150: cannot define python function when using :execute Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	3556 \|\| (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	3557 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3558 if (*p == '!')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3559 p = skipwhite(p + 1);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3560 p += eval_fname_script(p);
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	3561 vim_free(trans_function_name(&p, NULL, TRUE, 0, NULL,
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	3562 NULL, NULL));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3563 if (*skipwhite(p) == '(')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3564 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3565 if (nesting == MAX_FUNC_NESTING - 1)
21821 0deb6f96a5a3 patch 8.2.1460: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 21791 diff changeset	3566 emsg(_(e_function_nesting_too_deep));
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3567 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3568 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3569 ++nesting;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3570 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	3571 indent += 2;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3572 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3573 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3574 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3575
19253 a8d2d3c8f0b3 patch 8.2.0185: Vim9 script: cannot use "if has()" to skip lines Bram Moolenaar <Bram@vim.org> parents: 19225 diff changeset	3576 // Check for ":append", ":change", ":insert". Not for :def.
22260 d7c1e3efa88e patch 8.2.1679: Vim9: ":" is not recognized as a range Bram Moolenaar <Bram@vim.org>* parents: 22236 diff changeset	3577 p = skip_range(p, FALSE, 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	3578 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	3579 && ((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	3580 \|\| (p[0] == 'c'
3f777388b6ad patch 8.0.0176: cannot use :change inside a function definition Christian Brabandt <cb@256bit.org> parents: 10359 diff changeset	3581 && (!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	3582 && (!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	3583 && (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	3584 \|\| !ASCII_ISALPHA(p[6])))))))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3585 \|\| (p[0] == 'i'
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3586 && (!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	3587 && (!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	3588 \|\| (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	3589 && (!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	3590 \|\| p[3] == 'e'))))))))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3591 skip_until = vim_strsave((char_u *)".");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3592
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3593 // 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	3594 arg = skipwhite(skiptowhite(p));
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3595 if (arg[0] == '<' && arg[1] =='<'
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3596 && ((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	3597 && (!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	3598 \|\| ((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	3599 && !ASCII_ISALPHA(p[3]))))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3600 \|\| (p[0] == 'p' && p[1] == 'e'
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3601 && (!ASCII_ISALPHA(p[2]) \|\| p[2] == 'r'))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3602 \|\| (p[0] == 't' && p[1] == 'c'
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3603 && (!ASCII_ISALPHA(p[2]) \|\| p[2] == 'l'))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3604 \|\| (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	3605 && !ASCII_ISALPHA(p[3]))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3606 \|\| (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	3607 && (!ASCII_ISALPHA(p[3]) \|\| p[3] == 'y'))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3608 \|\| (p[0] == 'm' && p[1] == 'z'
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3609 && (!ASCII_ISALPHA(p[2]) \|\| p[2] == 's'))
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 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3612 // ":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	3613 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	3614 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	3615 {
04ef2ccf2519 patch 8.2.0578: heredoc for interfaces does not support "trim" Bram Moolenaar <Bram@vim.org> parents: 20029 diff changeset	3616 // 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	3617 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	3618 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	3619 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	3620 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3621 if (*p == NUL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3622 skip_until = vim_strsave((char_u *)".");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3623 else
20830 9064044fd4f6 patch 8.2.0967: unnecessary type casts for vim_strnsave() Bram Moolenaar <Bram@vim.org> parents: 20816 diff changeset	3624 skip_until = vim_strnsave(p, skiptowhite(p) - p);
21883 a427f5f26419 patch 8.2.1491: Vim9: crash when compiling heredoc lines start with comment Bram Moolenaar <Bram@vim.org> parents: 21821 diff changeset	3625 getline_options = GETLINE_NONE;
20045 04ef2ccf2519 patch 8.2.0578: heredoc for interfaces does not support "trim" Bram Moolenaar <Bram@vim.org> parents: 20029 diff changeset	3626 is_heredoc = TRUE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3627 }
16708 98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3628
22415 1cefe1c013ac patch 8.2.1756: Vim9: :let will soon be disallowed Bram Moolenaar <Bram@vim.org> parents: 22349 diff changeset	3629 // Check for ":cmd v =<< [trim] EOF"
1cefe1c013ac patch 8.2.1756: Vim9: :let will soon be disallowed Bram Moolenaar <Bram@vim.org> parents: 22349 diff changeset	3630 // and ":cmd [a, b] =<< [trim] EOF"
23185 055fa9db6f39 patch 8.2.2138: Vim9: "exit_cb" causes Vim to exit Bram Moolenaar <Bram@vim.org> parents: 22973 diff changeset	3631 // and "lines =<< [trim] EOF" for Vim9
22415 1cefe1c013ac patch 8.2.1756: Vim9: :let will soon be disallowed Bram Moolenaar <Bram@vim.org> parents: 22349 diff changeset	3632 // Where "cmd" can be "let", "var", "final" or "const".
16708 98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3633 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	3634 if (*arg == '[')
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3635 arg = vim_strchr(arg, ']');
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3636 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	3637 {
23185 055fa9db6f39 patch 8.2.2138: Vim9: "exit_cb" causes Vim to exit Bram Moolenaar <Bram@vim.org> parents: 22973 diff changeset	3638 int found = (eap->cmdidx == CMD_def && arg[0] == '='
055fa9db6f39 patch 8.2.2138: Vim9: "exit_cb" causes Vim to exit Bram Moolenaar <Bram@vim.org> parents: 22973 diff changeset	3639 && arg[1] == '<' && arg[2] =='<');
055fa9db6f39 patch 8.2.2138: Vim9: "exit_cb" causes Vim to exit Bram Moolenaar <Bram@vim.org> parents: 22973 diff changeset	3640
055fa9db6f39 patch 8.2.2138: Vim9: "exit_cb" causes Vim to exit Bram Moolenaar <Bram@vim.org> parents: 22973 diff changeset	3641 if (!found)
055fa9db6f39 patch 8.2.2138: Vim9: "exit_cb" causes Vim to exit Bram Moolenaar <Bram@vim.org> parents: 22973 diff changeset	3642 // skip over the argument after "cmd"
055fa9db6f39 patch 8.2.2138: Vim9: "exit_cb" causes Vim to exit Bram Moolenaar <Bram@vim.org> parents: 22973 diff changeset	3643 arg = skipwhite(skiptowhite(arg));
055fa9db6f39 patch 8.2.2138: Vim9: "exit_cb" causes Vim to exit Bram Moolenaar <Bram@vim.org> parents: 22973 diff changeset	3644 if (found \|\| (arg[0] == '=' && arg[1] == '<' && arg[2] =='<'
22415 1cefe1c013ac patch 8.2.1756: Vim9: :let will soon be disallowed Bram Moolenaar <Bram@vim.org> parents: 22349 diff changeset	3645 && (checkforcmd(&p, "let", 2)
1cefe1c013ac patch 8.2.1756: Vim9: :let will soon be disallowed Bram Moolenaar <Bram@vim.org> parents: 22349 diff changeset	3646 \|\| checkforcmd(&p, "var", 3)
1cefe1c013ac patch 8.2.1756: Vim9: :let will soon be disallowed Bram Moolenaar <Bram@vim.org> parents: 22349 diff changeset	3647 \|\| checkforcmd(&p, "final", 5)
23185 055fa9db6f39 patch 8.2.2138: Vim9: "exit_cb" causes Vim to exit Bram Moolenaar <Bram@vim.org> parents: 22973 diff changeset	3648 \|\| checkforcmd(&p, "const", 5))))
16708 98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3649 {
18536 c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3650 p = skipwhite(arg + 3);
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3651 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	3652 {
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3653 // Ignore leading white space.
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3654 p = skipwhite(p + 4);
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3655 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	3656 skipwhite(theline) - theline);
18536 c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3657 }
20830 9064044fd4f6 patch 8.2.0967: unnecessary type casts for vim_strnsave() Bram Moolenaar <Bram@vim.org> parents: 20816 diff changeset	3658 skip_until = vim_strnsave(p, skiptowhite(p) - p);
21883 a427f5f26419 patch 8.2.1491: Vim9: crash when compiling heredoc lines start with comment Bram Moolenaar <Bram@vim.org> parents: 21821 diff changeset	3659 getline_options = GETLINE_NONE;
18536 c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3660 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	3661 }
98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3662 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3663 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3664
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3665 // Add the line to the function.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3666 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	3667 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3668
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3669 // 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	3670 // 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	3671 // is an extra alloc/free.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3672 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	3673 if (p == NULL)
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3674 goto erret;
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3675 ((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	3676
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3677 // 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	3678 // 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	3679 while (sourcing_lnum_off-- > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3680 ((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	3681
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3682 // Check for end of eap->arg.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3683 if (line_arg != NULL && *line_arg == NUL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3684 line_arg = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3685 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3686
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3687 // 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	3688 // detected.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3689 if (eap->skip \|\| did_emsg)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3690 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3691
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 there are no errors, add the function
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3694 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3695 if (fudi.fd_dict == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3696 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3697 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	3698
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	3699 v = find_var(name, &ht, TRUE);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3700 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	3701 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3702 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	3703 name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3704 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3705 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3706
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3707 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	3708 if (vim9script)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3709 {
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	3710 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	3711
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	3712 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	3713 }
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	3714
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	3715 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	3716 {
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	3717 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	3718
15008 67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	3719 // 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	3720 // 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	3721 // 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	3722 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	3723 \|\| (!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	3724 && (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	3725 \|\| 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	3726 {
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	3727 if (vim9script)
21909 a211bca98bc3 patch 8.2.1504: Vim9: white space checks are only done for a :def function Bram Moolenaar <Bram@vim.org> parents: 21883 diff changeset	3728 emsg_funcname(e_name_already_defined_str, name);
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	3729 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	3730 emsg_funcname(e_funcexts, name);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3731 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3732 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3733 if (fp->uf_calls > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3734 {
15008 67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	3735 emsg_funcname(
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	3736 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	3737 name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3738 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3739 }
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3740 if (fp->uf_refcount > 1)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3741 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3742 // 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	3743 // create a new one.
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3744 --fp->uf_refcount;
9733 59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	3745 fp->uf_flags \|= FC_REMOVED;
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3746 fp = NULL;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3747 overwrite = TRUE;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3748 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3749 else
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3750 {
19035 b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time Bram Moolenaar <Bram@vim.org> parents: 19013 diff changeset	3751 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	3752
b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time Bram Moolenaar <Bram@vim.org> parents: 19013 diff changeset	3753 // 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	3754 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	3755 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	3756 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	3757 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	3758 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	3759 #ifdef FEAT_PROFILE
2fba714294b9 patch 8.1.0229: crash when dumping profiling data Christian Brabandt <cb@256bit.org> parents: 14323 diff changeset	3760 fp->uf_profiling = FALSE;
2fba714294b9 patch 8.1.0229: crash when dumping profiling data Christian Brabandt <cb@256bit.org> parents: 14323 diff changeset	3761 fp->uf_prof_initialized = FALSE;
2fba714294b9 patch 8.1.0229: crash when dumping profiling data Christian Brabandt <cb@256bit.org> parents: 14323 diff changeset	3762 #endif
23360 eb7d8f39363c patch 8.2.2223: Vim9: Reloading marks a :def function as deleted Bram Moolenaar <Bram@vim.org> parents: 23354 diff changeset	3763 fp->uf_def_status = UF_NOT_COMPILED;
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3764 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3765 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3766 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3767 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3768 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3769 char numbuf[20];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3770
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3771 fp = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3772 if (fudi.fd_newkey == NULL && !eap->forceit)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3773 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	3774 emsg(_(e_funcdict));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3775 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3776 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3777 if (fudi.fd_di == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3778 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3779 // Can't add a function to a locked dictionary
22298 07e48ee8c3bb patch 8.2.1698: cannot lock a variable in legacy Vim script like in Vim9 Bram Moolenaar <Bram@vim.org> parents: 22260 diff changeset	3780 if (value_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	3781 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3782 }
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3783 // Can't change an existing function if it is locked
22298 07e48ee8c3bb patch 8.2.1698: cannot lock a variable in legacy Vim script like in Vim9 Bram Moolenaar <Bram@vim.org> parents: 22260 diff changeset	3784 else if (value_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	3785 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3786
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3787 // 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	3788 // Funcref!
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3789 vim_free(name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3790 sprintf(numbuf, "%d", ++func_nr);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3791 name = vim_strsave((char_u *)numbuf);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3792 if (name == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3793 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3794 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3795
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3796 if (fp == NULL)
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 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	3799 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3800 int slen, plen;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3801 char_u *scriptname;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3802
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3803 // 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	3804 j = FAIL;
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	3805 if (SOURCING_NAME != NULL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3806 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3807 scriptname = autoload_name(name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3808 if (scriptname != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3809 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3810 p = vim_strchr(scriptname, '/');
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3811 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	3812 slen = (int)STRLEN(SOURCING_NAME);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3813 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	3814 SOURCING_NAME + slen - plen) == 0)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3815 j = OK;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3816 vim_free(scriptname);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3817 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3818 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3819 if (j == FAIL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3820 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	3821 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	3822 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3823 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3824 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3825
17659 121bdff812b4 patch 8.1.1827: allocating more memory than needed for extended structs Bram Moolenaar <Bram@vim.org> parents: 17646 diff changeset	3826 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	3827 if (fp == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3828 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3829
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3830 if (fudi.fd_dict != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3831 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3832 if (fudi.fd_di == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3833 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3834 // add new dict entry
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3835 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	3836 if (fudi.fd_di == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3837 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3838 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	3839 fp = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3840 goto erret;
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 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	3843 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3844 vim_free(fudi.fd_di);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3845 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	3846 fp = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3847 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3848 }
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 else
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3851 // overwrite existing dict entry
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3852 clear_tv(&fudi.fd_di->di_tv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3853 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	3854 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	3855
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3856 // behave like "dict" was used
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3857 flags \|= FC_DICT;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3858 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3859
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3860 // 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	3861 set_ufunc_name(fp, name);
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3862 if (overwrite)
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 hi = hash_find(&func_hashtab, name);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3865 hi->hi_key = UF2HIKEY(fp);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3866 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3867 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	3868 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3869 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	3870 fp = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3871 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3872 }
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3873 fp->uf_refcount = 1;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3874 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3875 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	3876 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	3877 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	3878 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	3879
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3880 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	3881 {
22643 71b57779177d patch 8.2.1870: Vim9: no need to keep all script variables Bram Moolenaar <Bram@vim.org> parents: 22596 diff changeset	3882 int lnum_save = SOURCING_LNUM;
71b57779177d patch 8.2.1870: Vim9: no need to keep all script variables Bram Moolenaar <Bram@vim.org> parents: 22596 diff changeset	3883 cstack_T *cstack = eap->cstack;
19297 84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3884
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	3885 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	3886
19297 84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3887 // 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	3888 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	3889
22643 71b57779177d patch 8.2.1870: Vim9: no need to keep all script variables Bram Moolenaar <Bram@vim.org> parents: 22596 diff changeset	3890 if (cstack != NULL && cstack->cs_idx >= 0)
22596 107eae953b87 patch 8.2.1846: Vim9: block variables are not found in compiled function Bram Moolenaar <Bram@vim.org> parents: 22496 diff changeset	3891 {
22643 71b57779177d patch 8.2.1870: Vim9: no need to keep all script variables Bram Moolenaar <Bram@vim.org> parents: 22596 diff changeset	3892 int count = cstack->cs_idx + 1;
71b57779177d patch 8.2.1870: Vim9: no need to keep all script variables Bram Moolenaar <Bram@vim.org> parents: 22596 diff changeset	3893 int i;
22596 107eae953b87 patch 8.2.1846: Vim9: block variables are not found in compiled function Bram Moolenaar <Bram@vim.org> parents: 22496 diff changeset	3894
107eae953b87 patch 8.2.1846: Vim9: block variables are not found in compiled function Bram Moolenaar <Bram@vim.org> parents: 22496 diff changeset	3895 // The block context may be needed for script variables declared in
22643 71b57779177d patch 8.2.1870: Vim9: no need to keep all script variables Bram Moolenaar <Bram@vim.org> parents: 22596 diff changeset	3896 // a block that is visible now but not when the function is called
71b57779177d patch 8.2.1870: Vim9: no need to keep all script variables Bram Moolenaar <Bram@vim.org> parents: 22596 diff changeset	3897 // later.
22596 107eae953b87 patch 8.2.1846: Vim9: block variables are not found in compiled function Bram Moolenaar <Bram@vim.org> parents: 22496 diff changeset	3898 fp->uf_block_ids = ALLOC_MULT(int, count);
107eae953b87 patch 8.2.1846: Vim9: block variables are not found in compiled function Bram Moolenaar <Bram@vim.org> parents: 22496 diff changeset	3899 if (fp->uf_block_ids != NULL)
107eae953b87 patch 8.2.1846: Vim9: block variables are not found in compiled function Bram Moolenaar <Bram@vim.org> parents: 22496 diff changeset	3900 {
22643 71b57779177d patch 8.2.1870: Vim9: no need to keep all script variables Bram Moolenaar <Bram@vim.org> parents: 22596 diff changeset	3901 mch_memmove(fp->uf_block_ids, cstack->cs_block_id,
22596 107eae953b87 patch 8.2.1846: Vim9: block variables are not found in compiled function Bram Moolenaar <Bram@vim.org> parents: 22496 diff changeset	3902 sizeof(int) * count);
107eae953b87 patch 8.2.1846: Vim9: block variables are not found in compiled function Bram Moolenaar <Bram@vim.org> parents: 22496 diff changeset	3903 fp->uf_block_depth = count;
107eae953b87 patch 8.2.1846: Vim9: block variables are not found in compiled function Bram Moolenaar <Bram@vim.org> parents: 22496 diff changeset	3904 }
22643 71b57779177d patch 8.2.1870: Vim9: no need to keep all script variables Bram Moolenaar <Bram@vim.org> parents: 22596 diff changeset	3905
71b57779177d patch 8.2.1870: Vim9: no need to keep all script variables Bram Moolenaar <Bram@vim.org> parents: 22596 diff changeset	3906 // Set flag in each block to indicate a function was defined. This
71b57779177d patch 8.2.1870: Vim9: no need to keep all script variables Bram Moolenaar <Bram@vim.org> parents: 22596 diff changeset	3907 // is used to keep the variable when leaving the block, see
71b57779177d patch 8.2.1870: Vim9: no need to keep all script variables Bram Moolenaar <Bram@vim.org> parents: 22596 diff changeset	3908 // hide_script_var().
71b57779177d patch 8.2.1870: Vim9: no need to keep all script variables Bram Moolenaar <Bram@vim.org> parents: 22596 diff changeset	3909 for (i = 0; i <= cstack->cs_idx; ++i)
71b57779177d patch 8.2.1870: Vim9: no need to keep all script variables Bram Moolenaar <Bram@vim.org> parents: 22596 diff changeset	3910 cstack->cs_flags[i] \|= CSF_FUNC_DEF;
22596 107eae953b87 patch 8.2.1846: Vim9: block variables are not found in compiled function Bram Moolenaar <Bram@vim.org> parents: 22496 diff changeset	3911 }
107eae953b87 patch 8.2.1846: Vim9: block variables are not found in compiled function Bram Moolenaar <Bram@vim.org> parents: 22496 diff changeset	3912
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	3913 if (parse_argument_types(fp, &argtypes, varargs) == FAIL)
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3914 {
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	3915 SOURCING_LNUM = lnum_save;
8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	3916 goto errret_2;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3917 }
22816 8a5369f5f2b4 patch 8.2.1956: Vim9: cannot specify argument types for lambda Bram Moolenaar <Bram@vim.org> parents: 22643 diff changeset	3918 varargs = FALSE;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3919
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3920 // 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	3921 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	3922 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	3923 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3924 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3925 p = ret_type;
23332 cdb706d5c43d patch 8.2.2209: Vim9: return type of => lambda not parsed Bram Moolenaar <Bram@vim.org> parents: 23320 diff changeset	3926 fp->uf_ret_type = parse_type(&p, &fp->uf_type_list, TRUE);
23630 ca98d85e92da patch 8.2.2357: Vim9: crash when parsing function return type fails Bram Moolenaar <Bram@vim.org> parents: 23547 diff changeset	3927 if (fp->uf_ret_type == NULL)
ca98d85e92da patch 8.2.2357: Vim9: crash when parsing function return type fails Bram Moolenaar <Bram@vim.org> parents: 23547 diff changeset	3928 {
ca98d85e92da patch 8.2.2357: Vim9: crash when parsing function return type fails Bram Moolenaar <Bram@vim.org> parents: 23547 diff changeset	3929 fp->uf_ret_type = &t_void;
ca98d85e92da patch 8.2.2357: Vim9: crash when parsing function return type fails Bram Moolenaar <Bram@vim.org> parents: 23547 diff changeset	3930 SOURCING_LNUM = lnum_save;
ca98d85e92da patch 8.2.2357: Vim9: crash when parsing function return type fails Bram Moolenaar <Bram@vim.org> parents: 23547 diff changeset	3931 goto erret;
ca98d85e92da patch 8.2.2357: Vim9: crash when parsing function return type fails Bram Moolenaar <Bram@vim.org> parents: 23547 diff changeset	3932 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3933 }
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	3934 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	3935 }
20528 489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3936 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	3937 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	3938
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3939 fp->uf_lines = newlines;
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	3940 if ((flags & FC_CLOSURE) != 0)
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	3941 {
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3942 if (register_closure(fp) == FAIL)
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	3943 goto erret;
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	3944 }
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	3945 else
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	3946 fp->uf_scoped = NULL;
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	3947
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3948 #ifdef FEAT_PROFILE
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3949 if (prof_def_func())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3950 func_do_profile(fp);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3951 #endif
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3952 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	3953 if (sandbox)
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	3954 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	3955 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	3956 flags \|= FC_VIM9;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3957 fp->uf_flags = flags;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3958 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	3959 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	3960 fp->uf_script_ctx = current_sctx;
21646 a640bc762196 patch 8.2.1373: Vim9: no error for assigning to non-existing script var Bram Moolenaar <Bram@vim.org> parents: 21598 diff changeset	3961 fp->uf_script_ctx_version = current_sctx.sc_version;
17251 984eef966002 patch 8.1.1625: script line numbers are not exactly right Bram Moolenaar <Bram@vim.org> parents: 17178 diff changeset	3962 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	3963 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	3964 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3965 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	3966 // 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	3967 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	3968 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3969
20532 cb4831fa7e25 patch 8.2.0820: Vim9: function type isn't set until compiled Bram Moolenaar <Bram@vim.org> parents: 20528 diff changeset	3970 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	3971 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	3972 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	3973 // :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	3974 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	3975
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3976 goto ret_free;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3977
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3978 erret:
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3979 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	3980 ga_clear_strings(&default_args);
23925 e979bf909fd8 patch 8.2.2505: Vim9: crash after defining function with invalid return type Bram Moolenaar <Bram@vim.org> parents: 23888 diff changeset	3981 if (fp != NULL)
e979bf909fd8 patch 8.2.2505: Vim9: crash after defining function with invalid return type Bram Moolenaar <Bram@vim.org> parents: 23888 diff changeset	3982 {
e979bf909fd8 patch 8.2.2505: Vim9: crash after defining function with invalid return type Bram Moolenaar <Bram@vim.org> parents: 23888 diff changeset	3983 ga_init(&fp->uf_args);
e979bf909fd8 patch 8.2.2505: Vim9: crash after defining function with invalid return type Bram Moolenaar <Bram@vim.org> parents: 23888 diff changeset	3984 ga_init(&fp->uf_def_args);
e979bf909fd8 patch 8.2.2505: Vim9: crash after defining function with invalid return type Bram Moolenaar <Bram@vim.org> parents: 23888 diff changeset	3985 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3986 errret_2:
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3987 ga_clear_strings(&newlines);
23925 e979bf909fd8 patch 8.2.2505: Vim9: crash after defining function with invalid return type Bram Moolenaar <Bram@vim.org> parents: 23888 diff changeset	3988 if (fp != NULL)
e979bf909fd8 patch 8.2.2505: Vim9: crash after defining function with invalid return type Bram Moolenaar <Bram@vim.org> parents: 23888 diff changeset	3989 VIM_CLEAR(fp->uf_arg_types);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3990 ret_free:
19685 d64f403289db patch 8.2.0399: various memory leaks Bram Moolenaar <Bram@vim.org> parents: 19579 diff changeset	3991 ga_clear_strings(&argtypes);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3992 vim_free(skip_until);
23193 3978f5b48934 patch 8.2.2142: memory leak when heredoc is not terminated Bram Moolenaar <Bram@vim.org> parents: 23185 diff changeset	3993 vim_free(heredoc_trimmed);
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3994 vim_free(line_to_free);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3995 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	3996 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	3997 vim_free(name);
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	3998 vim_free(ret_type);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3999 did_emsg \|= saved_did_emsg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4000 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	4001
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	4002 return fp;
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	4003 }
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	4004
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	4005 /*
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	4006 * ":function"
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	4007 */
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	4008 void
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	4009 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	4010 {
22596 107eae953b87 patch 8.2.1846: Vim9: block variables are not found in compiled function Bram Moolenaar <Bram@vim.org> parents: 22496 diff changeset	4011 (void)define_function(eap, NULL);
20528 489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	4012 }
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	4013
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	4014 /*
22188 ec0a5ae32d5e patch 8.2.1643: Vim9: :defcompile compiles dead functions Bram Moolenaar <Bram@vim.org> parents: 21983 diff changeset	4015 * :defcompile - compile all :def functions in the current script that need to
23717 e3720756acdc patch 8.2.2400: Vim9: compiled functions are not profiled Bram Moolenaar <Bram@vim.org> parents: 23699 diff changeset	4016 * be compiled. Except dead functions. Doesn't do profiling.
20528 489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	4017 */
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	4018 void
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	4019 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	4020 {
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	4021 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	4022 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	4023 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	4024 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	4025
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	4026 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	4027 {
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	4028 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	4029 {
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	4030 --todo;
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	4031 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	4032 if (ufunc->uf_script_ctx.sc_sid == current_sctx.sc_sid
22188 ec0a5ae32d5e patch 8.2.1643: Vim9: :defcompile compiles dead functions Bram Moolenaar <Bram@vim.org> parents: 21983 diff changeset	4033 && ufunc->uf_def_status == UF_TO_BE_COMPILED
ec0a5ae32d5e patch 8.2.1643: Vim9: :defcompile compiles dead functions Bram Moolenaar <Bram@vim.org> parents: 21983 diff changeset	4034 && (ufunc->uf_flags & FC_DEAD) == 0)
20544 e8132bec4b0f patch 8.2.0826: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20542 diff changeset	4035 {
23988 686af23ec132 patch 8.2.2536: Coverity complains about unchecked return value Bram Moolenaar <Bram@vim.org> parents: 23976 diff changeset	4036 (void)compile_def_function(ufunc, FALSE, FALSE, NULL);
20544 e8132bec4b0f patch 8.2.0826: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20542 diff changeset	4037
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	4038 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	4039 {
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	4040 // 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	4041 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	4042 changed = func_hashtab.ht_changed;
20544 e8132bec4b0f patch 8.2.0826: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20542 diff changeset	4043 hi = func_hashtab.ht_array;
20546 1ea55bad1234 patch 8.2.0827: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20544 diff changeset	4044 --hi;
20544 e8132bec4b0f patch 8.2.0826: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20542 diff changeset	4045 }
e8132bec4b0f patch 8.2.0826: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20542 diff changeset	4046 }
20528 489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	4047 }
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	4048 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4049 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4050
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4051 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4052 * 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	4053 * Return 2 if "p" starts with "s:".
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4054 * Return 0 otherwise.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4055 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4056 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4057 eval_fname_script(char_u *p)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4058 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4059 // 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	4060 // the standard library function.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4061 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	4062 \|\| MB_STRNICMP(p + 1, "SNR>", 4) == 0))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4063 return 5;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4064 if (p[0] == 's' && p[1] == ':')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4065 return 2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4066 return 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4067 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4068
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4069 int
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	4070 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	4071 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4072 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	4073 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	4074 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	4075 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	4076
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	4077 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	4078 * 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	4079 * 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	4080 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	4081 int
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	4082 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	4083 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	4084 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	4085 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4086
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4087 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4088 * 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	4089 * 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	4090 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4091 int
9717 6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	4092 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	4093 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4094 char_u *nm = name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4095 char_u *p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4096 int n = FALSE;
9717 6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	4097 int flag;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	4098 int is_global = FALSE;
9717 6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	4099
6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	4100 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	4101 if (no_deref)
6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	4102 flag \|= TFN_NO_DEREF;
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	4103 p = trans_function_name(&nm, &is_global, FALSE, flag, NULL, NULL, NULL);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4104 nm = skipwhite(nm);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4105
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4106 // 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	4107 // "funcname(...", not "funcname!...".
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4108 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	4109 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	4110 vim_free(p);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4111 return n;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4112 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4113
15555 d89c5b339c2a patch 8.1.0785: depending on the configuration some functions are unused Bram Moolenaar <Bram@vim.org> parents: 15543 diff changeset	4114 #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	4115 char_u *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4116 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	4117 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4118 char_u *nm = name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4119 char_u *p;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	4120 int is_global = FALSE;
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	4121
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	4122 p = trans_function_name(&nm, &is_global, FALSE,
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	4123 TFN_INT\|TFN_QUIET, NULL, NULL, NULL);
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	4124
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	4125 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	4126 && (!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	4127 return p;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4128
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4129 vim_free(p);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4130 return NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4131 }
15555 d89c5b339c2a patch 8.1.0785: depending on the configuration some functions are unused Bram Moolenaar <Bram@vim.org> parents: 15543 diff changeset	4132 #endif
9562 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 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4135 * 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	4136 * function names.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4137 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4138 char_u *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4139 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	4140 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4141 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	4142 static int changed;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4143 static hashitem_T *hi;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4144 ufunc_T *fp;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4145
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4146 if (idx == 0)
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 done = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4149 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	4150 changed = func_hashtab.ht_changed;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4151 }
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	4152 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	4153 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4154 if (done++ > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4155 ++hi;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4156 while (HASHITEM_EMPTY(hi))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4157 ++hi;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4158 fp = HI2UF(hi);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4159
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	4160 // 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	4161 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	4162 \|\| 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	4163 return (char_u *)"";
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4164
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4165 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	4166 return fp->uf_name; // prevents overflow
9562 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 cat_func_name(IObuff, fp);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4169 if (xp->xp_context != EXPAND_USER_FUNC)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4170 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4171 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	4172 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	4173 STRCAT(IObuff, ")");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4174 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4175 return IObuff;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4176 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4177 return 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
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4180 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4181 * ":delfunction {name}"
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4182 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4183 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4184 ex_delfunction(exarg_T *eap)
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 ufunc_T *fp = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4187 char_u *p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4188 char_u *name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4189 funcdict_T fudi;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	4190 int is_global = FALSE;
9562 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 p = eap->arg;
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	4193 name = trans_function_name(&p, &is_global, eap->skip, 0, &fudi,
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	4194 NULL, NULL);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4195 vim_free(fudi.fd_newkey);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4196 if (name == NULL)
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 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	4199 emsg(_(e_funcref));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4200 return;
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 if (!ends_excmd(*skipwhite(p)))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4203 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4204 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	4205 semsg(_(e_trailing_arg), p);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4206 return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4207 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4208 eap->nextcmd = check_nextcmd(p);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4209 if (eap->nextcmd != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4210 *p = NUL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4211
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4212 if (!eap->skip)
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	4213 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	4214 vim_free(name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4215
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4216 if (!eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4217 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4218 if (fp == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4219 {
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	4220 if (!eap->forceit)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	4221 semsg(_(e_nofunc), eap->arg);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4222 return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4223 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4224 if (fp->uf_calls > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4225 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	4226 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	4227 return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4228 }
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	4229 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	4230 {
21821 0deb6f96a5a3 patch 8.2.1460: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 21791 diff changeset	4231 semsg(_(e_cannot_delete_vim9_script_function_str), eap->arg);
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	4232 return;
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	4233 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4234
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4235 if (fudi.fd_dict != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4236 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4237 // 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	4238 // 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	4239 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	4240 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4241 else
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4242 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4243 // 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	4244 // 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	4245 // 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	4246 // 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	4247 // one or more.
9733 59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	4248 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	4249 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4250 // 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	4251 // 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	4252 if (func_remove(fp))
59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	4253 fp->uf_refcount--;
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4254 fp->uf_flags \|= FC_DELETED;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4255 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4256 else
10815 f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	4257 func_clear_free(fp, FALSE);
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4258 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4259 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4260 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4261
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4262 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4263 * 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	4264 * becomes zero.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4265 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4266 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4267 func_unref(char_u *name)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4268 {
9655 f1920505bc16 commit https://github.com/vim/vim/commit/97baee80f0906ee2f651ee1215ec033e84f866ad Christian Brabandt <cb@256bit.org> parents: 9638 diff changeset	4269 ufunc_T *fp = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4270
9733 59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	4271 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	4272 return;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	4273 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	4274 if (fp == NULL && isdigit(*name))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4275 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4276 #ifdef EXITFREE
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4277 if (!entered_free_all_mem)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4278 #endif
10359 66f1b5bf3fa6 commit https://github.com/vim/vim/commit/95f096030ed1a8afea028f2ea295d6f6a70f466f Christian Brabandt <cb@256bit.org> parents: 10042 diff changeset	4279 internal_error("func_unref()");
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4280 }
23699 317018f62643 patch 8.2.2391: memory leak when creating a global function with closure Bram Moolenaar <Bram@vim.org> parents: 23644 diff changeset	4281 func_ptr_unref(fp);
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4282 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4283
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4284 /*
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4285 * 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	4286 * becomes zero.
23699 317018f62643 patch 8.2.2391: memory leak when creating a global function with closure Bram Moolenaar <Bram@vim.org> parents: 23644 diff changeset	4287 * Also when it becomes one and uf_partial points to the function.
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4288 */
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4289 void
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4290 func_ptr_unref(ufunc_T *fp)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4291 {
23699 317018f62643 patch 8.2.2391: memory leak when creating a global function with closure Bram Moolenaar <Bram@vim.org> parents: 23644 diff changeset	4292 if (fp != NULL && (--fp->uf_refcount <= 0
317018f62643 patch 8.2.2391: memory leak when creating a global function with closure Bram Moolenaar <Bram@vim.org> parents: 23644 diff changeset	4293 \|\| (fp->uf_refcount == 1 && fp->uf_partial != NULL
317018f62643 patch 8.2.2391: memory leak when creating a global function with closure Bram Moolenaar <Bram@vim.org> parents: 23644 diff changeset	4294 && fp->uf_partial->pt_refcount <= 1
317018f62643 patch 8.2.2391: memory leak when creating a global function with closure Bram Moolenaar <Bram@vim.org> parents: 23644 diff changeset	4295 && fp->uf_partial->pt_func == fp)))
9655 f1920505bc16 commit https://github.com/vim/vim/commit/97baee80f0906ee2f651ee1215ec033e84f866ad Christian Brabandt <cb@256bit.org> parents: 9638 diff changeset	4296 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4297 // 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	4298 // when "uf_calls" becomes zero.
9655 f1920505bc16 commit https://github.com/vim/vim/commit/97baee80f0906ee2f651ee1215ec033e84f866ad Christian Brabandt <cb@256bit.org> parents: 9638 diff changeset	4299 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	4300 func_clear_free(fp, FALSE);
9562 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
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 * Count a reference to a Function.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4306 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4307 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4308 func_ref(char_u *name)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4309 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4310 ufunc_T *fp;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4311
9733 59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	4312 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	4313 return;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	4314 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	4315 if (fp != NULL)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4316 ++fp->uf_refcount;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4317 else if (isdigit(*name))
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4318 // 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	4319 // 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	4320 internal_error("func_ref()");
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4321 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4322
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4323 /*
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4324 * Count a reference to a Function.
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4325 */
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4326 void
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4327 func_ptr_ref(ufunc_T *fp)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4328 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4329 if (fp != NULL)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4330 ++fp->uf_refcount;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4331 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4332
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4333 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4334 * 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	4335 * referenced from anywhere that is in use.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4336 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4337 static int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4338 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	4339 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4340 return (fc->l_varlist.lv_copyID != copyID
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4341 && 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	4342 && fc->l_avars.dv_copyID != copyID
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4343 && fc->fc_copyID != copyID);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4344 }
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 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4347 * ":return [expr]"
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4348 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4349 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4350 ex_return(exarg_T *eap)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4351 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4352 char_u *arg = eap->arg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4353 typval_T rettv;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4354 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	4355 evalarg_T evalarg;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4356
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4357 if (current_funccal == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4358 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	4359 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	4360 return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4361 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4362
20992 7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function Bram Moolenaar <Bram@vim.org> parents: 20945 diff changeset	4363 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	4364 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	4365
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4366 if (eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4367 ++emsg_skip;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4368
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4369 eap->nextcmd = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4370 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	4371 && eval0(arg, &rettv, eap, &evalarg) != FAIL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4372 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4373 if (!eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4374 returning = do_return(eap, FALSE, TRUE, &rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4375 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4376 clear_tv(&rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4377 }
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4378 // 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	4379 else if (!eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4380 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4381 // 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	4382 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	4383
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4384 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4385 * 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	4386 * aborting error, an interrupt, or an exception.
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 if (!aborting())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4389 returning = do_return(eap, FALSE, TRUE, NULL);
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
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4392 // 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	4393 // 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	4394 // 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	4395 if (returning)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4396 eap->nextcmd = NULL;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4397 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	4398 eap->nextcmd = check_nextcmd(arg);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4399
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4400 if (eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4401 --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	4402 clear_evalarg(&evalarg, eap);
9562 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
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 * ":1,25call func(arg1, arg2)" function call.
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 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4409 ex_call(exarg_T *eap)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4410 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4411 char_u *arg = eap->arg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4412 char_u *startarg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4413 char_u *name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4414 char_u *tofree;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4415 int len;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4416 typval_T rettv;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4417 linenr_T lnum;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4418 int doesrange;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4419 int failed = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4420 funcdict_T fudi;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4421 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	4422 evalarg_T evalarg;
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	4423 type_T *type = 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	4424
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21066 diff changeset	4425 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	4426 if (eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4427 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4428 // 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	4429 // 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	4430 // :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	4431 ++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	4432 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	4433 clear_tv(&rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4434 --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	4435 clear_evalarg(&evalarg, eap);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4436 return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4437 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4438
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	4439 tofree = trans_function_name(&arg, NULL, eap->skip, TFN_INT,
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	4440 &fudi, &partial, in_vim9script() ? &type : NULL);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4441 if (fudi.fd_newkey != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4442 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4443 // 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	4444 semsg(_(e_dictkey), fudi.fd_newkey);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4445 vim_free(fudi.fd_newkey);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4446 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4447 if (tofree == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4448 return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4449
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4450 // 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	4451 // the arguments.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4452 if (fudi.fd_dict != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4453 ++fudi.fd_dict->dv_refcount;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4454
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4455 // 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	4456 // 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	4457 // from trans_function_name().
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4458 len = (int)STRLEN(tofree);
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	4459 name = deref_func_name(tofree, &len, partial != NULL ? NULL : &partial,
27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	4460 in_vim9script() && type == NULL ? &type : NULL, FALSE);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4461
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4462 // 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	4463 // backward compatibility.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4464 startarg = skipwhite(arg);
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4465 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	4466
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4467 if (*startarg != '(')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4468 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	4469 semsg(_(e_missing_paren), eap->arg);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4470 goto end;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4471 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4472
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 * 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	4475 * arguments.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4476 * 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	4477 * call, and the loop is broken.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4478 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4479 if (eap->skip)
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 ++emsg_skip;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4482 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	4483 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4484 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4485 lnum = eap->line1;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4486 for ( ; lnum <= eap->line2; ++lnum)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4487 {
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	4488 funcexe_T funcexe;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	4489
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4490 if (!eap->skip && eap->addr_count > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4491 {
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	4492 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	4493 {
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14968 diff changeset	4494 // 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	4495 // 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	4496 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	4497 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	4498 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4499 curwin->w_cursor.lnum = lnum;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4500 curwin->w_cursor.col = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4501 curwin->w_cursor.coladd = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4502 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4503 arg = startarg;
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	4504
20007 aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose Bram Moolenaar <Bram@vim.org> parents: 19946 diff changeset	4505 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	4506 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	4507 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	4508 funcexe.doesrange = &doesrange;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	4509 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	4510 funcexe.partial = partial;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	4511 funcexe.selfdict = fudi.fd_dict;
23527 27ca5534a408 patch 8.2.2306: Vim9: when using function reference type is not checked Bram Moolenaar <Bram@vim.org> parents: 23511 diff changeset	4512 funcexe.check_type = type;
21118 b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21066 diff changeset	4513 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	4514 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4515 failed = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4516 break;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4517 }
13262 69278c25429d patch 8.0.1505: debugger can't break on a condition Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4518 if (has_watchexpr())
69278c25429d patch 8.0.1505: debugger can't break on a condition Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	4519 dbg_check_breakpoint(eap);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4520
17763 117c7795a979 patch 8.1.1878: negative float before method not parsed correctly Bram Moolenaar <Bram@vim.org> parents: 17732 diff changeset	4521 // 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	4522 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	4523 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	4524 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4525 failed = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4526 break;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4527 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4528
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4529 clear_tv(&rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4530 if (doesrange \|\| eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4531 break;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4532
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4533 // 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	4534 // 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	4535 // 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	4536 // characters below is executed.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4537 if (aborting())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4538 break;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4539 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4540 if (eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4541 --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	4542 clear_evalarg(&evalarg, eap);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4543
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	4544 // 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	4545 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	4546 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4547 // Check for trailing illegal characters and a following command.
21737 a849c984b485 patch 8.2.1418: Vim9: invalid error for missing white space Bram Moolenaar <Bram@vim.org> parents: 21699 diff changeset	4548 arg = skipwhite(arg);
20138 d0a9766167ab patch 8.2.0624: Vim9: no check for space before #comment Bram Moolenaar <Bram@vim.org> parents: 20081 diff changeset	4549 if (!ends_excmd2(eap->arg, arg))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4550 {
19421 208644ebdff8 patch 8.2.0268: trycatch test fails Bram Moolenaar <Bram@vim.org> parents: 19419 diff changeset	4551 if (!failed)
208644ebdff8 patch 8.2.0268: trycatch test fails Bram Moolenaar <Bram@vim.org> parents: 19419 diff changeset	4552 {
208644ebdff8 patch 8.2.0268: trycatch test fails Bram Moolenaar <Bram@vim.org> parents: 19419 diff changeset	4553 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	4554 semsg(_(e_trailing_arg), arg);
19421 208644ebdff8 patch 8.2.0268: trycatch test fails Bram Moolenaar <Bram@vim.org> parents: 19419 diff changeset	4555 }
9562 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 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4558 eap->nextcmd = check_nextcmd(arg);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4559 }
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 end:
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4562 dict_unref(fudi.fd_dict);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4563 vim_free(tofree);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4564 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4565
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4566 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4567 * 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	4568 * 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	4569 * 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	4570 * 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	4571 * 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	4572 * FALSE when the return gets pending.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4573 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4574 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4575 do_return(
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4576 exarg_T *eap,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4577 int reanimate,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4578 int is_cmd,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4579 void *rettv)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4580 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4581 int idx;
18904 2bdc2e1f6e1f patch 8.2.0013: not using a typedef for condstack Bram Moolenaar <Bram@vim.org> parents: 18816 diff changeset	4582 cstack_T *cstack = eap->cstack;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4583
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4584 if (reanimate)
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4585 // Undo the return.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4586 current_funccal->returned = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4587
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4588 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4589 * 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	4590 * 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	4591 * 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	4592 * Otherwise, return normally.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4593 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4594 idx = cleanup_conditionals(eap->cstack, 0, TRUE);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4595 if (idx >= 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4596 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4597 cstack->cs_pending[idx] = CSTP_RETURN;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4598
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4599 if (!is_cmd && !reanimate)
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4600 // 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	4601 // 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	4602 // 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	4603 cstack->cs_rettv[idx] = rettv;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4604 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4605 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4606 // 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	4607 // return rettv.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4608 if (reanimate)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4609 rettv = current_funccal->rettv;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4610
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4611 if (rettv != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4612 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4613 // 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	4614 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	4615 (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	4616 else
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	4617 emsg(_(e_outofmem));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4618 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4619 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4620 cstack->cs_rettv[idx] = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4621
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4622 if (reanimate)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4623 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4624 // 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	4625 // 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	4626 // return value.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4627 current_funccal->rettv->v_type = VAR_NUMBER;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4628 current_funccal->rettv->vval.v_number = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4629 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4630 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4631 report_make_pending(CSTP_RETURN, rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4632 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4633 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4634 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4635 current_funccal->returned = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4636
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4637 // 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	4638 // 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	4639 // there.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4640 if (!reanimate && rettv != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4641 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4642 clear_tv(current_funccal->rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4643 current_funccal->rettv = (typval_T *)rettv;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4644 if (!is_cmd)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4645 vim_free(rettv);
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 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4648
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4649 return idx < 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4650 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4651
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4652 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4653 * 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	4654 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4655 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4656 discard_pending_return(void *rettv)
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 free_tv((typval_T *)rettv);
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
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4661 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4662 * 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	4663 * 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	4664 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4665 char_u *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4666 get_return_cmd(void *rettv)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4667 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4668 char_u *s = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4669 char_u *tofree = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4670 char_u numbuf[NUMBUFLEN];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4671
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4672 if (rettv != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4673 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	4674 if (s == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4675 s = (char_u *)"";
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4676
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4677 STRCPY(IObuff, ":return ");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4678 STRNCPY(IObuff + 8, s, IOSIZE - 8);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4679 if (STRLEN(s) + 8 >= IOSIZE)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4680 STRCPY(IObuff + IOSIZE - 4, "...");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4681 vim_free(tofree);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4682 return vim_strsave(IObuff);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4683 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4684
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4685 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4686 * Get next function line.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4687 * 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	4688 * 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	4689 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4690 char_u *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4691 get_func_line(
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4692 int c UNUSED,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4693 void *cookie,
17178 40c4cb095d53 patch 8.1.1588: in :let-heredoc line continuation is recognized Bram Moolenaar <Bram@vim.org> parents: 17168 diff changeset	4694 int indent UNUSED,
21883 a427f5f26419 patch 8.2.1491: Vim9: crash when compiling heredoc lines start with comment Bram Moolenaar <Bram@vim.org> parents: 21821 diff changeset	4695 getline_opt_T options UNUSED)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4696 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4697 funccall_T fcp = (funccall_T )cookie;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4698 ufunc_T *fp = fcp->func;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4699 char_u *retval;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4700 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	4701
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4702 // 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	4703 if (fcp->dbg_tick != debug_tick)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4704 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4705 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	4706 SOURCING_LNUM);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4707 fcp->dbg_tick = debug_tick;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4708 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4709 #ifdef FEAT_PROFILE
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4710 if (do_profiling == PROF_YES)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4711 func_line_end(cookie);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4712 #endif
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4713
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4714 gap = &fp->uf_lines;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4715 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	4716 \|\| fcp->returned)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4717 retval = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4718 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4719 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4720 // Skip NULL lines (continuation lines).
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4721 while (fcp->linenr < gap->ga_len
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4722 && ((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	4723 ++fcp->linenr;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4724 if (fcp->linenr >= gap->ga_len)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4725 retval = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4726 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4727 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4728 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	4729 SOURCING_LNUM = fcp->linenr;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4730 #ifdef FEAT_PROFILE
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4731 if (do_profiling == PROF_YES)
23717 e3720756acdc patch 8.2.2400: Vim9: compiled functions are not profiled Bram Moolenaar <Bram@vim.org> parents: 23699 diff changeset	4732 func_line_start(cookie, SOURCING_LNUM);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4733 #endif
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4734 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4735 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4736
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4737 // 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	4738 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	4739 {
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	4740 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	4741 // Find next breakpoint.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4742 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	4743 SOURCING_LNUM);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4744 fcp->dbg_tick = debug_tick;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4745 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4746
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4747 return retval;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4748 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4749
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4750 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4751 * 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	4752 * 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	4753 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4754 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4755 func_has_ended(void *cookie)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4756 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4757 funccall_T fcp = (funccall_T )cookie;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4758
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4759 // 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	4760 // an error inside a try conditional.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4761 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	4762 \|\| fcp->returned);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4763 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4764
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4765 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4766 * 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	4767 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4768 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4769 func_has_abort(
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4770 void *cookie)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4771 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4772 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	4773 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4774
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4775
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4776 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4777 * 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	4778 * 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	4779 * explicitly (pt_auto is FALSE).
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4780 * Changes "rettv" in-place.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4781 * Returns the updated "selfdict_in".
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4782 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4783 dict_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4784 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	4785 {
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4786 char_u *fname;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4787 char_u *tofree = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4788 ufunc_T *fp;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4789 char_u fname_buf[FLEN_FIXED + 1];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4790 int error;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4791 dict_T *selfdict = selfdict_in;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4792
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4793 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	4794 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	4795 else
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4796 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4797 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	4798 : 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	4799 // 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	4800 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	4801 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	4802 vim_free(tofree);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4803 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4804
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4805 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	4806 {
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	4807 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	4808
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4809 if (pt != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4810 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4811 pt->pt_refcount = 1;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4812 pt->pt_dict = selfdict;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4813 pt->pt_auto = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4814 selfdict = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4815 if (rettv->v_type == VAR_FUNC)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4816 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4817 // 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	4818 // selfdict.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4819 pt->pt_name = rettv->vval.v_string;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4820 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4821 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4822 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4823 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	4824 int i;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4825
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4826 // 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	4827 // 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	4828 // be referenced elsewhere.
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4829 if (ret_pt->pt_name != NULL)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4830 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4831 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	4832 func_ref(pt->pt_name);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4833 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4834 else
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4835 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4836 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	4837 func_ptr_ref(pt->pt_func);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4838 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4839 if (ret_pt->pt_argc > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4840 {
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	4841 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	4842 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	4843 // out of memory: drop the arguments
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4844 pt->pt_argc = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4845 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4846 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4847 pt->pt_argc = ret_pt->pt_argc;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4848 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	4849 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	4850 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4851 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4852 partial_unref(ret_pt);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4853 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4854 rettv->v_type = VAR_PARTIAL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4855 rettv->vval.v_partial = pt;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4856 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4857 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4858 return selfdict;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4859 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4860
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4861 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4862 * Return the name of the executed function.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4863 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4864 char_u *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4865 func_name(void *cookie)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4866 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4867 return ((funccall_T *)cookie)->func->uf_name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4868 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4869
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4870 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4871 * 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	4872 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4873 linenr_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4874 func_breakpoint(void *cookie)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4875 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4876 return &((funccall_T *)cookie)->breakpoint;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4877 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4878
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4879 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4880 * 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	4881 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4882 int *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4883 func_dbg_tick(void *cookie)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4884 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4885 return &((funccall_T *)cookie)->dbg_tick;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4886 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4887
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4888 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4889 * 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	4890 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4891 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4892 func_level(void *cookie)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4893 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4894 return ((funccall_T *)cookie)->level;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4895 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4896
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4897 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4898 * 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	4899 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4900 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4901 current_func_returned(void)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4902 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4903 return current_funccal->returned;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4904 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4905
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4906 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4907 free_unref_funccal(int copyID, int testing)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4908 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4909 int did_free = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4910 int did_free_funccal = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4911 funccall_T fc, *pfc;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4912
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4913 for (pfc = &previous_funccal; *pfc != NULL; )
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4914 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4915 if (can_free_funccal(*pfc, copyID))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4916 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4917 fc = *pfc;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4918 *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	4919 free_funccal_contents(fc);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4920 did_free = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4921 did_free_funccal = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4922 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4923 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4924 pfc = &(*pfc)->caller;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4925 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4926 if (did_free_funccal)
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4927 // 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	4928 // collected, so run again.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4929 (void)garbage_collect(testing);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4930
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4931 return did_free;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4932 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4933
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4934 /*
9951 d990a4394c9d commit https://github.com/vim/vim/commit/ba2099034f92a2814494f37bddb0c57d034401b4 Christian Brabandt <cb@256bit.org> parents: 9844 diff changeset	4935 * 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	4936 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4937 static funccall_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4938 get_funccal(void)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4939 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4940 int i;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4941 funccall_T *funccal;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4942 funccall_T *temp_funccal;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4943
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4944 funccal = current_funccal;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4945 if (debug_backtrace_level > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4946 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4947 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	4948 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4949 temp_funccal = funccal->caller;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4950 if (temp_funccal)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4951 funccal = temp_funccal;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4952 else
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4953 // backtrace level overflow. reset to max
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4954 debug_backtrace_level = i;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4955 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4956 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4957 return funccal;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4958 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4959
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4960 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4961 * 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	4962 * 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	4963 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4964 hashtab_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4965 get_funccal_local_ht()
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4966 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	4967 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	4968 return NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4969 return &get_funccal()->l_vars.dv_hashtab;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4970 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4971
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4972 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4973 * Return the l: scope variable.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4974 * 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	4975 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4976 dictitem_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4977 get_funccal_local_var()
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4978 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	4979 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	4980 return NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4981 return &get_funccal()->l_vars_var;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4982 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4983
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4984 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4985 * 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	4986 * 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	4987 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4988 hashtab_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4989 get_funccal_args_ht()
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4990 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	4991 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	4992 return NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4993 return &get_funccal()->l_avars.dv_hashtab;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4994 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4995
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4996 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4997 * Return the a: scope variable.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4998 * 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	4999 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5000 dictitem_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5001 get_funccal_args_var()
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5002 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	5003 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	5004 return NULL;
10795 8afee415119d patch 8.0.0287: debug mode: cannot access function arguments Christian Brabandt <cb@256bit.org> parents: 10722 diff changeset	5005 return &get_funccal()->l_avars_var;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5006 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5007
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5008 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5009 * 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	5010 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5011 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5012 list_func_vars(int *first)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5013 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	5014 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	5015 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	5016 "l:", FALSE, first);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5017 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5018
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5019 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5020 * 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	5021 * the dict that contains it.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5022 * Otherwise return NULL.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5023 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5024 dict_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5025 get_current_funccal_dict(hashtab_T *ht)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5026 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5027 if (current_funccal != NULL
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5028 && ht == &current_funccal->l_vars.dv_hashtab)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5029 return &current_funccal->l_vars;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5030 return NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5031 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5032
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5033 /*
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	5034 * Search hashitem in parent scope.
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	5035 */
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	5036 hashitem_T *
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	5037 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	5038 {
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	5039 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	5040 hashtab_T *ht;
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	5041 hashitem_T *hi = NULL;
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	5042 char_u *varname;
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	5043
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	5044 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	5045 return NULL;
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	5046
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	5047 // 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	5048 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	5049 while (current_funccal != NULL)
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	5050 {
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	5051 ht = find_var_ht(name, &varname);
f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	5052 if (ht != NULL && *varname != NUL)
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	5053 {
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	5054 hi = hash_find(ht, varname);
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	5055 if (!HASHITEM_EMPTY(hi))
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	5056 {
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	5057 *pht = ht;
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	5058 break;
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	5059 }
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	5060 }
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	5061 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	5062 break;
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	5063 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	5064 }
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	5065 current_funccal = old_current_funccal;
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	5066
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	5067 return hi;
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	5068 }
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	5069
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	5070 /*
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5071 * Search variable in parent scope.
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5072 */
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5073 dictitem_T *
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	5074 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	5075 {
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5076 dictitem_T *v = NULL;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5077 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	5078 hashtab_T *ht;
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	5079 char_u *varname;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5080
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5081 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	5082 return NULL;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5083
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	5084 // 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	5085 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	5086 while (current_funccal)
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5087 {
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	5088 ht = find_var_ht(name, &varname);
f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	5089 if (ht != NULL && *varname != NUL)
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5090 {
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	5091 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	5092 if (v != NULL)
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5093 break;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5094 }
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5095 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	5096 break;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5097 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	5098 }
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5099 current_funccal = old_current_funccal;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5100
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5101 return v;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5102 }
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5103
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5104 /*
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5105 * 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	5106 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5107 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5108 set_ref_in_previous_funccal(int copyID)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5109 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5110 int abort = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5111 funccall_T *fc;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5112
17127 d244a9be99db patch 8.1.1563: crash when using closures Bram Moolenaar <Bram@vim.org> parents: 16969 diff changeset	5113 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	5114 {
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5115 fc->fc_copyID = copyID + 1;
17127 d244a9be99db patch 8.1.1563: crash when using closures Bram Moolenaar <Bram@vim.org> parents: 16969 diff changeset	5116 abort = abort
d244a9be99db patch 8.1.1563: crash when using closures Bram Moolenaar <Bram@vim.org> parents: 16969 diff changeset	5117 \|\| 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	5118 \|\| 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	5119 \|\| 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	5120 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5121 return abort;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5122 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5123
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5124 static int
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5125 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	5126 {
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5127 int abort = FALSE;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5128
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5129 if (fc->fc_copyID != copyID)
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5130 {
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5131 fc->fc_copyID = copyID;
17127 d244a9be99db patch 8.1.1563: crash when using closures Bram Moolenaar <Bram@vim.org> parents: 16969 diff changeset	5132 abort = abort
d244a9be99db patch 8.1.1563: crash when using closures Bram Moolenaar <Bram@vim.org> parents: 16969 diff changeset	5133 \|\| 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	5134 \|\| 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	5135 \|\| 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	5136 \|\| 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	5137 }
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5138 return abort;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5139 }
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5140
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5141 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5142 * 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	5143 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5144 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5145 set_ref_in_call_stack(int copyID)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5146 {
16969 8c794a694d66 patch 8.1.1485: double free when garbage_collect() is used in autocommand Bram Moolenaar <Bram@vim.org> parents: 16872 diff changeset	5147 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	5148 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	5149 funccal_entry_T *entry;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5150
17151 ebe9aab81898 patch 8.1.1575: callbacks may be garbage collected Bram Moolenaar <Bram@vim.org> parents: 17127 diff changeset	5151 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	5152 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	5153
8c794a694d66 patch 8.1.1485: double free when garbage_collect() is used in autocommand Bram Moolenaar <Bram@vim.org> parents: 16872 diff changeset	5154 // 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	5155 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	5156 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	5157 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	5158
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5159 return abort;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5160 }
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5161
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5162 /*
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5163 * 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	5164 */
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5165 int
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5166 set_ref_in_functions(int copyID)
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5167 {
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5168 int todo;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5169 hashitem_T *hi = NULL;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5170 int abort = FALSE;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5171 ufunc_T *fp;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5172
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5173 todo = (int)func_hashtab.ht_used;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5174 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	5175 {
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5176 if (!HASHITEM_EMPTY(hi))
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5177 {
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5178 --todo;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5179 fp = HI2UF(hi);
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5180 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	5181 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	5182 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5183 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5184 return abort;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5185 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5186
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5187 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5188 * Set "copyID" in all function arguments.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5189 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5190 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5191 set_ref_in_func_args(int copyID)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5192 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5193 int i;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5194 int abort = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5195
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5196 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	5197 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	5198 copyID, NULL, NULL);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5199 return abort;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5200 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5201
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5202 /*
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5203 * 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	5204 * 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	5205 */
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5206 int
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	5207 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	5208 {
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	5209 ufunc_T *fp = fp_in;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5210 funccall_T *fc;
19013 dd9ab0674eec patch 8.2.0067: ERROR_UNKNOWN clashes on some systems Bram Moolenaar <Bram@vim.org> parents: 18991 diff changeset	5211 int error = FCERR_NONE;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5212 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	5213 char_u *tofree = NULL;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5214 char_u *fname;
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5215 int abort = FALSE;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5216
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	5217 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	5218 return FALSE;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5219
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	5220 if (fp_in == NULL)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	5221 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	5222 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	5223 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	5224 }
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5225 if (fp != NULL)
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5226 {
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5227 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	5228 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	5229 }
20255 aac52c32a91f patch 8.2.0683: Vim9: parsing type does not always work Bram Moolenaar <Bram@vim.org> parents: 20244 diff changeset	5230
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5231 vim_free(tofree);
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	5232 return abort;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5233 }
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	5234
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	5235 #endif // FEAT_EVAL

Mercurial > vim

annotate src/userfunc.c @ 24069:324408c61b20 v8.2.2576