vim: src/userfunc.c annotate

annotate src/userfunc.c @ 21118:b0baa80cb53f v8.2.1110

patch 8.2.1110: Vim9: line continuation does not work in function arguments Commit: https://github.com/vim/vim/commit/e6b5324e3a3d354363f3c48e784c42ce3e77453f Author: Bram Moolenaar <Bram@vim.org> Date: Wed Jul 1 17:28:33 2020 +0200 patch 8.2.1110: Vim9: line continuation does not work in function arguments Problem: Vim9: line continuation does not work in function arguments. Solution: Pass "evalarg" to get_func_tv(). Fix seeing double quoted string as comment.

author	Bram Moolenaar <Bram@vim.org>
date	Wed, 01 Jul 2020 17:30:06 +0200
parents	48cfc37fe4fc
children	1f4d0375f947

rev	line source
10042 4aead6a9b7a9 commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47 Christian Brabandt <cb@256bit.org> parents: 9951 diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2 *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4 *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	6 * Do ":help credits" in Vim to see a list of people who contributed.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	7 * See README.txt for an overview of the Vim source code.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	8 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	9
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	10 /*
18265 fe5afdc03bd2 patch 8.1.2127: the indent.c file is a bit big Bram Moolenaar <Bram@vim.org> parents: 18104 diff changeset	11 * userfunc.c: User defined function support
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	12 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	13
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	14 #include "vim.h"
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	15
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	16 #if defined(FEAT_EVAL) \|\| defined(PROTO)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	17 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	18 * All user-defined functions are found in this hashtable.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	19 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	20 static hashtab_T func_hashtab;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	21
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	22 // Used by get_func_tv()
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	23 static garray_T funcargs = GA_EMPTY;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	24
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	25 // pointer to funccal for currently active function
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	26 static funccall_T *current_funccal = NULL;
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	27
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	28 // Pointer to list of previously used funccal, still around because some
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	29 // item in it is still being used.
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	30 static funccall_T *previous_funccal = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	31
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	32 static char *e_funcexts = N_("E122: Function %s already exists, add ! to replace it");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	33 static char *e_funcdict = N_("E717: Dictionary entry already exists");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	34 static char *e_funcref = N_("E718: Funcref required");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	35 static char *e_nofunc = N_("E130: Unknown function: %s");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	36
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	37 static void funccal_unref(funccall_T fc, ufunc_T fp, int force);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	38
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	39 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	40 func_init()
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	41 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	42 hash_init(&func_hashtab);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	43 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	44
9597 3ca0fd9709b1 commit https://github.com/vim/vim/commit/4f0383bc3fe5af0229fb66b53fe94329af783eff Christian Brabandt <cb@256bit.org> parents: 9593 diff changeset	45 /*
17381 8f44c630c366 patch 8.1.1689: profiling code is spread out Bram Moolenaar <Bram@vim.org> parents: 17370 diff changeset	46 * Return the function hash table
8f44c630c366 patch 8.1.1689: profiling code is spread out Bram Moolenaar <Bram@vim.org> parents: 17370 diff changeset	47 */
8f44c630c366 patch 8.1.1689: profiling code is spread out Bram Moolenaar <Bram@vim.org> parents: 17370 diff changeset	48 hashtab_T *
8f44c630c366 patch 8.1.1689: profiling code is spread out Bram Moolenaar <Bram@vim.org> parents: 17370 diff changeset	49 func_tbl_get(void)
8f44c630c366 patch 8.1.1689: profiling code is spread out Bram Moolenaar <Bram@vim.org> parents: 17370 diff changeset	50 {
8f44c630c366 patch 8.1.1689: profiling code is spread out Bram Moolenaar <Bram@vim.org> parents: 17370 diff changeset	51 return &func_hashtab;
8f44c630c366 patch 8.1.1689: profiling code is spread out Bram Moolenaar <Bram@vim.org> parents: 17370 diff changeset	52 }
8f44c630c366 patch 8.1.1689: profiling code is spread out Bram Moolenaar <Bram@vim.org> parents: 17370 diff changeset	53
8f44c630c366 patch 8.1.1689: profiling code is spread out Bram Moolenaar <Bram@vim.org> parents: 17370 diff changeset	54 /*
20029 8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	55 * Get one function argument.
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	56 * If "argtypes" is not NULL also get the type: "arg: type".
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	57 * Return a pointer to after the type.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	58 * When something is wrong return "arg".
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	59 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	60 static char_u *
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	61 one_function_arg(char_u arg, garray_T newargs, garray_T *argtypes, int skip)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	62 {
20029 8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	63 char_u *p = arg;
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	64 char_u *arg_copy = NULL;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	65
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	66 while (ASCII_ISALNUM(p) \|\| p == '_')
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	67 ++p;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	68 if (arg == p \|\| isdigit(*arg)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	69 \|\| (p - arg == 9 && STRNCMP(arg, "firstline", 9) == 0)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	70 \|\| (p - arg == 8 && STRNCMP(arg, "lastline", 8) == 0))
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	71 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	72 if (!skip)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	73 semsg(_("E125: Illegal argument: %s"), arg);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	74 return arg;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	75 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	76 if (newargs != NULL && ga_grow(newargs, 1) == FAIL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	77 return arg;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	78 if (newargs != NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	79 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	80 int c;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	81 int i;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	82
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	83 c = *p;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	84 *p = NUL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	85 arg_copy = vim_strsave(arg);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	86 if (arg_copy == NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	87 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	88 *p = c;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	89 return arg;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	90 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	91
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	92 // Check for duplicate argument name.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	93 for (i = 0; i < newargs->ga_len; ++i)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	94 if (STRCMP(((char_u **)(newargs->ga_data))[i], arg_copy) == 0)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	95 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	96 semsg(_("E853: Duplicate argument name: %s"), arg_copy);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	97 vim_free(arg_copy);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	98 return arg;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	99 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	100 ((char_u **)(newargs->ga_data))[newargs->ga_len] = arg_copy;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	101 newargs->ga_len++;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	102
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	103 *p = c;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	104 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	105
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	106 // get any type from "arg: type"
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	107 if (argtypes != NULL && ga_grow(argtypes, 1) == OK)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	108 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	109 char_u *type = NULL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	110
20029 8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	111 if (VIM_ISWHITE(p) && skipwhite(p) == ':')
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	112 {
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	113 semsg(_("E1059: No white space allowed before colon: %s"),
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	114 arg_copy == NULL ? arg : arg_copy);
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	115 p = skipwhite(p);
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	116 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	117 if (*p == ':')
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	118 {
20142 fe8d0a4344df patch 8.2.0626: Vim9: wrong syntax of function in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 20138 diff changeset	119 ++p;
fe8d0a4344df patch 8.2.0626: Vim9: wrong syntax of function in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 20138 diff changeset	120 if (!VIM_ISWHITE(*p))
fe8d0a4344df patch 8.2.0626: Vim9: wrong syntax of function in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 20138 diff changeset	121 {
fe8d0a4344df patch 8.2.0626: Vim9: wrong syntax of function in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 20138 diff changeset	122 semsg(_(e_white_after), ":");
fe8d0a4344df patch 8.2.0626: Vim9: wrong syntax of function in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 20138 diff changeset	123 return arg;
fe8d0a4344df patch 8.2.0626: Vim9: wrong syntax of function in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 20138 diff changeset	124 }
fe8d0a4344df patch 8.2.0626: Vim9: wrong syntax of function in Vim9 script Bram Moolenaar <Bram@vim.org> parents: 20138 diff changeset	125 type = skipwhite(p);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	126 p = skip_type(type);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	127 type = vim_strnsave(type, p - type);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	128 }
20029 8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	129 else if (*skipwhite(p) != '=')
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	130 {
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	131 semsg(_("E1077: Missing argument type for %s"),
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	132 arg_copy == NULL ? arg : arg_copy);
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	133 return arg;
8fb1cf4c44d5 patch 8.2.0570: Vim9: no error when omitting type from argument Bram Moolenaar <Bram@vim.org> parents: 20023 diff changeset	134 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	135 ((char_u **)argtypes->ga_data)[argtypes->ga_len++] = type;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	136 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	137
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	138 return p;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	139 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	140
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	141 /*
9597 3ca0fd9709b1 commit https://github.com/vim/vim/commit/4f0383bc3fe5af0229fb66b53fe94329af783eff Christian Brabandt <cb@256bit.org> parents: 9593 diff changeset	142 * Get function arguments.
3ca0fd9709b1 commit https://github.com/vim/vim/commit/4f0383bc3fe5af0229fb66b53fe94329af783eff Christian Brabandt <cb@256bit.org> parents: 9593 diff changeset	143 */
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	144 int
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	145 get_function_args(
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	146 char_u **argp,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	147 char_u endchar,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	148 garray_T *newargs,
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	149 garray_T *argtypes, // NULL unless using :def
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	150 int *varargs,
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	151 garray_T *default_args,
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	152 int skip,
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	153 exarg_T *eap,
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	154 char_u **line_to_free)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	155 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	156 int mustend = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	157 char_u arg = argp;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	158 char_u *p = arg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	159 int c;
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	160 int any_default = FALSE;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	161 char_u *expr;
20023 c85d4e173cc9 patch 8.2.0567: Vim9: cannot put comments halfway expressions Bram Moolenaar <Bram@vim.org> parents: 20015 diff changeset	162 char_u *whitep = arg;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	163
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	164 if (newargs != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	165 ga_init2(newargs, (int)sizeof(char_u *), 3);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	166 if (argtypes != NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	167 ga_init2(argtypes, (int)sizeof(char_u *), 3);
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	168 if (default_args != NULL)
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	169 ga_init2(default_args, (int)sizeof(char_u *), 3);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	170
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	171 if (varargs != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	172 *varargs = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	173
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	174 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	175 * Isolate the arguments: "arg1, arg2, ...)"
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	176 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	177 while (*p != endchar)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	178 {
20023 c85d4e173cc9 patch 8.2.0567: Vim9: cannot put comments halfway expressions Bram Moolenaar <Bram@vim.org> parents: 20015 diff changeset	179 while (eap != NULL && eap->getline != NULL
c85d4e173cc9 patch 8.2.0567: Vim9: cannot put comments halfway expressions Bram Moolenaar <Bram@vim.org> parents: 20015 diff changeset	180 && (p == NUL \|\| (VIM_ISWHITE(whitep) && *p == '#')))
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	181 {
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	182 char_u *theline;
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	183
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	184 // End of the line, get the next one.
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	185 theline = eap->getline(':', eap->cookie, 0, TRUE);
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	186 if (theline == NULL)
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	187 break;
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	188 vim_free(*line_to_free);
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	189 *line_to_free = theline;
20023 c85d4e173cc9 patch 8.2.0567: Vim9: cannot put comments halfway expressions Bram Moolenaar <Bram@vim.org> parents: 20015 diff changeset	190 whitep = (char_u *)" ";
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	191 p = skipwhite(theline);
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	192 }
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	193
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	194 if (mustend && *p != endchar)
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	195 {
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	196 if (!skip)
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	197 semsg(_(e_invarg2), *argp);
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	198 break;
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	199 }
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	200 if (*p == endchar)
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	201 break;
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	202
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	203 if (p[0] == '.' && p[1] == '.' && p[2] == '.')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	204 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	205 if (varargs != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	206 *varargs = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	207 p += 3;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	208 mustend = TRUE;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	209
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	210 if (argtypes != NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	211 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	212 // ...name: list<type>
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	213 if (!ASCII_ISALPHA(*p))
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	214 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	215 emsg(_("E1055: Missing name after ..."));
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	216 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	217 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	218
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	219 arg = p;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	220 p = one_function_arg(p, newargs, argtypes, skip);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	221 if (p == arg)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	222 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	223 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	224 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	225 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	226 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	227 arg = p;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	228 p = one_function_arg(p, newargs, argtypes, skip);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	229 if (p == arg)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	230 break;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	231
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	232 if (*skipwhite(p) == '=' && default_args != NULL)
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	233 {
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	234 typval_T rettv;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	235
19328 e99e6d794597 patch 8.2.0222: Vim9: optional function arguments don't work yet Bram Moolenaar <Bram@vim.org> parents: 19297 diff changeset	236 // find the end of the expression (doesn't evaluate it)
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	237 any_default = TRUE;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	238 p = skipwhite(p) + 1;
20023 c85d4e173cc9 patch 8.2.0567: Vim9: cannot put comments halfway expressions Bram Moolenaar <Bram@vim.org> parents: 20015 diff changeset	239 whitep = p;
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	240 p = skipwhite(p);
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	241 expr = p;
20992 7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function Bram Moolenaar <Bram@vim.org> parents: 20945 diff changeset	242 if (eval1(&p, &rettv, NULL) != FAIL)
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	243 {
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	244 if (ga_grow(default_args, 1) == FAIL)
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	245 goto err_ret;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	246
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	247 // trim trailing whitespace
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	248 while (p > expr && VIM_ISWHITE(p[-1]))
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	249 p--;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	250 c = *p;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	251 *p = NUL;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	252 expr = vim_strsave(expr);
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	253 if (expr == NULL)
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	254 {
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	255 *p = c;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	256 goto err_ret;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	257 }
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	258 ((char_u **)(default_args->ga_data))
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	259 [default_args->ga_len] = expr;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	260 default_args->ga_len++;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	261 *p = c;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	262 }
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	263 else
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	264 mustend = TRUE;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	265 }
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	266 else if (any_default)
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	267 {
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	268 emsg(_("E989: Non-default argument follows default argument"));
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	269 mustend = TRUE;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	270 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	271 if (*p == ',')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	272 ++p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	273 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	274 mustend = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	275 }
20023 c85d4e173cc9 patch 8.2.0567: Vim9: cannot put comments halfway expressions Bram Moolenaar <Bram@vim.org> parents: 20015 diff changeset	276 whitep = p;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	277 p = skipwhite(p);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	278 }
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	279
9597 3ca0fd9709b1 commit https://github.com/vim/vim/commit/4f0383bc3fe5af0229fb66b53fe94329af783eff Christian Brabandt <cb@256bit.org> parents: 9593 diff changeset	280 if (*p != endchar)
3ca0fd9709b1 commit https://github.com/vim/vim/commit/4f0383bc3fe5af0229fb66b53fe94329af783eff Christian Brabandt <cb@256bit.org> parents: 9593 diff changeset	281 goto err_ret;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	282 ++p; // skip "endchar"
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	283
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	284 *argp = p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	285 return OK;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	286
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	287 err_ret:
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	288 if (newargs != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	289 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	290 if (default_args != NULL)
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	291 ga_clear_strings(default_args);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	292 return FAIL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	293 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	294
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	295 /*
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	296 * 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	297 */
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	298 static int
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	299 register_closure(ufunc_T *fp)
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	300 {
9733 59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	301 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	302 // no change
9733 59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	303 return OK;
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	304 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	305 fp->uf_scoped = current_funccal;
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	306 current_funccal->fc_refcount++;
9733 59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	307
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	308 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	309 return FAIL;
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	310 ((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	311 [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	312 return OK;
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	313 }
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	314
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	315 static void
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	316 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	317 {
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	318 STRCPY(fp->uf_name, name);
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	319
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	320 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	321 {
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	322 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	323 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	324 {
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	325 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	326 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	327 }
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	328 }
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	329 }
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	330
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	331 /*
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	332 * 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	333 */
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	334 char_u *
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	335 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	336 {
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	337 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	338 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	339
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	340 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	341 return name;
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	342 }
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	343
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	344 #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	345 /*
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	346 * 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	347 * 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	348 */
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	349 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	350 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	351 {
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	352 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	353 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	354
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	355 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	356 if (fp == NULL)
21066 48cfc37fe4fc patch 8.2.1084: Lua: registering function has useless code Bram Moolenaar <Bram@vim.org> parents: 21058 diff changeset	357 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	358
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	359 fp->uf_dfunc_idx = UF_NOT_COMPILED;
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	360 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	361 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	362 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	363 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	364 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	365 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	366 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	367 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	368
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	369 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	370 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	371
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	372 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	373 }
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	374 #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	375
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	376 /*
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	377 * Parse a lambda expression and get a Funcref from "*arg".
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	378 * 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	379 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	380 int
21040 d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	381 get_lambda_tv(char_u *arg, typval_T rettv, evalarg_T *evalarg)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	382 {
21040 d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	383 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	384 && (evalarg->eval_flags & EVAL_EVALUATE);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	385 garray_T newargs;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	386 garray_T newlines;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	387 garray_T *pnewargs;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	388 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	389 partial_T *pt = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	390 int varargs;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	391 int ret;
21046 0ca7e04d39e3 patch 8.2.1074: Vim9: no line break allowed after some operators Bram Moolenaar <Bram@vim.org> parents: 21040 diff changeset	392 char_u *start;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	393 char_u s, e;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	394 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	395 int eval_lavars = FALSE;
21040 d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	396 char_u *tofree = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	397
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	398 ga_init(&newargs);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	399 ga_init(&newlines);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	400
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	401 // First, check if this is a lambda expression. "->" must exist.
21046 0ca7e04d39e3 patch 8.2.1074: Vim9: no line break allowed after some operators Bram Moolenaar <Bram@vim.org> parents: 21040 diff changeset	402 start = skipwhite(*arg + 1);
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	403 ret = get_function_args(&start, '-', NULL, NULL, NULL, NULL, TRUE,
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	404 NULL, NULL);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	405 if (ret == FAIL \|\| *start != '>')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	406 return NOTDONE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	407
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	408 // Parse the arguments again.
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	409 if (evaluate)
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	410 pnewargs = &newargs;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	411 else
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	412 pnewargs = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	413 arg = skipwhite(arg + 1);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	414 // TODO: argument types
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	415 ret = get_function_args(arg, '-', pnewargs, NULL, &varargs, NULL, FALSE,
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	416 NULL, NULL);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	417 if (ret == FAIL \|\| **arg != '>')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	418 goto errret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	419
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	420 // 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	421 if (evaluate)
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	422 eval_lavars_used = &eval_lavars;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	423
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	424 // Get the start and the end of the expression.
21046 0ca7e04d39e3 patch 8.2.1074: Vim9: no line break allowed after some operators Bram Moolenaar <Bram@vim.org> parents: 21040 diff changeset	425 arg = skipwhite_and_linebreak(arg + 1, evalarg);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	426 s = *arg;
21040 d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	427 ret = skip_expr_concatenate(&s, arg, evalarg);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	428 if (ret == FAIL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	429 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	430 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	431 {
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	432 // avoid that the expression gets freed when another line break follows
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	433 tofree = evalarg->eval_tofree;
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	434 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	435 }
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	436
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	437 e = *arg;
21046 0ca7e04d39e3 patch 8.2.1074: Vim9: no line break allowed after some operators Bram Moolenaar <Bram@vim.org> parents: 21040 diff changeset	438 arg = skipwhite_and_linebreak(arg, evalarg);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	439 if (**arg != '}')
19826 293a22b677a8 patch 8.2.0469: Vim9: no error for missing ] after list Bram Moolenaar <Bram@vim.org> parents: 19685 diff changeset	440 {
293a22b677a8 patch 8.2.0469: Vim9: no error for missing ] after list Bram Moolenaar <Bram@vim.org> parents: 19685 diff changeset	441 semsg(_("E451: Expected }: %s"), *arg);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	442 goto errret;
19826 293a22b677a8 patch 8.2.0469: Vim9: no error for missing ] after list Bram Moolenaar <Bram@vim.org> parents: 19685 diff changeset	443 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	444 ++*arg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	445
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	446 if (evaluate)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	447 {
21040 d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	448 int len;
d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	449 int flags = 0;
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	450 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	451 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	452
17659 121bdff812b4 patch 8.1.1827: allocating more memory than needed for extended structs Bram Moolenaar <Bram@vim.org> parents: 17646 diff changeset	453 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	454 if (fp == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	455 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	456 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	457 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	458 if (pt == NULL)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	459 goto errret;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	460
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	461 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	462 if (ga_grow(&newlines, 1) == FAIL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	463 goto errret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	464
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	465 // Add "return " before the expression.
21040 d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	466 len = 7 + (int)(e - s) + 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	467 p = alloc(len);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	468 if (p == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	469 goto errret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	470 ((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	471 STRCPY(p, "return ");
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	472 vim_strncpy(p + 7, s, e - s);
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	473 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	474 // 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	475 flags \|= FC_NOARGS;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	476
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	477 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	478 set_ufunc_name(fp, name);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	479 hash_add(&func_hashtab, UF2HIKEY(fp));
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	480 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	481 ga_init(&fp->uf_def_args);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	482 fp->uf_lines = newlines;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	483 if (current_funccal != NULL && eval_lavars)
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	484 {
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	485 flags \|= FC_CLOSURE;
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	486 if (register_closure(fp) == FAIL)
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	487 goto errret;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	488 }
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	489 else
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	490 fp->uf_scoped = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	491
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	492 #ifdef FEAT_PROFILE
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	493 if (prof_def_func())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	494 func_do_profile(fp);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	495 #endif
14323 9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	496 if (sandbox)
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	497 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	498 // 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	499 fp->uf_varargs = TRUE;
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	500 fp->uf_flags = flags;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	501 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	502 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	503 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	504
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	505 pt->pt_func = fp;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	506 pt->pt_refcount = 1;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	507 rettv->vval.v_partial = pt;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	508 rettv->v_type = VAR_PARTIAL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	509 }
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	510
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	511 eval_lavars_used = old_eval_lavars;
21040 d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	512 vim_free(tofree);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	513 return OK;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	514
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	515 errret:
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	516 ga_clear_strings(&newargs);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	517 ga_clear_strings(&newlines);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	518 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	519 vim_free(pt);
21040 d9e0db9b2b99 patch 8.2.1071: Vim9: no line break allowed inside a lambda Bram Moolenaar <Bram@vim.org> parents: 21032 diff changeset	520 vim_free(tofree);
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	521 eval_lavars_used = old_eval_lavars;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	522 return FAIL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	523 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	524
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	525 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	526 * 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	527 * name it contains, otherwise return "name".
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	528 * 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	529 * "partialp".
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	530 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	531 char_u *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	532 deref_func_name(char_u name, int lenp, partial_T **partialp, int no_autoload)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	533 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	534 dictitem_T *v;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	535 int cc;
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	536 char_u *s;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	537
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	538 if (partialp != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	539 *partialp = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	540
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	541 cc = name[*lenp];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	542 name[*lenp] = NUL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	543 v = find_var(name, NULL, no_autoload);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	544 name[*lenp] = cc;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	545 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	546 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	547 if (v->di_tv.vval.v_string == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	548 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	549 *lenp = 0;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	550 return (char_u *)""; // just in case
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	551 }
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	552 s = v->di_tv.vval.v_string;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	553 *lenp = (int)STRLEN(s);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	554 return s;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	555 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	556
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	557 if (v != NULL && v->di_tv.v_type == VAR_PARTIAL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	558 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	559 partial_T *pt = v->di_tv.vval.v_partial;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	560
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	561 if (pt == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	562 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	563 *lenp = 0;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	564 return (char_u *)""; // just in case
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	565 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	566 if (partialp != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	567 *partialp = pt;
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	568 s = partial_name(pt);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	569 *lenp = (int)STRLEN(s);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	570 return s;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	571 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	572
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	573 return name;
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
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	576 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	577 * 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	578 * "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	579 */
18576 e9675870c480 patch 8.1.2282: crash when passing many arguments through a partial Bram Moolenaar <Bram@vim.org> parents: 18572 diff changeset	580 void
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	581 emsg_funcname(char ermsg, char_u name)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	582 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	583 char_u *p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	584
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	585 if (*name == K_SPECIAL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	586 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	587 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	588 p = name;
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	589 semsg(_(ermsg), p);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	590 if (p != name)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	591 vim_free(p);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	592 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	593
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	594 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	595 * 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	596 * Return OK or FAIL.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	597 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	598 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	599 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	600 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	601 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	602 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	603 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	604 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	605 funcexe_T *funcexe) // various values
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	606 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	607 char_u *argp;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	608 int ret = OK;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	609 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	610 int argcount = 0; // number of arguments found
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	611
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	612 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	613 * Get the arguments.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	614 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	615 argp = *arg;
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	616 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	617 : funcexe->partial->pt_argc))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	618 {
21118 b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21066 diff changeset	619 // 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	620 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	621
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	622 if (argp == ')' \|\| argp == ',' \|\| *argp == NUL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	623 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	624 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	625 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	626 ret = FAIL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	627 break;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	628 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	629 ++argcount;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	630 if (*argp != ',')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	631 break;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	632 }
21118 b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21066 diff changeset	633 argp = skipwhite_and_linebreak(argp, evalarg);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	634 if (*argp == ')')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	635 ++argp;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	636 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	637 ret = FAIL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	638
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	639 if (ret == OK)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	640 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	641 int i = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	642
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	643 if (get_vim_var_nr(VV_TESTING))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	644 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	645 // 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	646 // 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	647 if (funcargs.ga_itemsize == 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	648 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	649 for (i = 0; i < argcount; ++i)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	650 if (ga_grow(&funcargs, 1) == OK)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	651 ((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	652 &argvars[i];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	653 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	654
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	655 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	656
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	657 funcargs.ga_len -= i;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	658 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	659 else if (!aborting())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	660 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	661 if (argcount == MAX_FUNC_ARGS)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	662 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	663 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	664 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	665 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	666
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	667 while (--argcount >= 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	668 clear_tv(&argvars[argcount]);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	669
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	670 *arg = skipwhite(argp);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	671 return ret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	672 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	673
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	674 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	675 * 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	676 * 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	677 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	678 static int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	679 eval_fname_sid(char_u *p)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	680 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	681 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	682 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	683
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	684 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	685 * 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	686 * 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	687 * 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	688 * (slow).
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	689 */
19330 9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: 19328 diff changeset	690 char_u *
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	691 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	692 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	693 int llen;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	694 char_u *fname;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	695 int i;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	696
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	697 llen = eval_fname_script(name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	698 if (llen > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	699 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	700 fname_buf[0] = K_SPECIAL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	701 fname_buf[1] = KS_EXTRA;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	702 fname_buf[2] = (int)KE_SNR;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	703 i = 3;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	704 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	705 {
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	706 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	707 *error = FCERR_SCRIPT;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	708 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	709 {
16378 3d6b282e2d6e patch 8.1.1194: typos and small problems in source files Bram Moolenaar <Bram@vim.org> parents: 16003 diff changeset	710 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	711 (long)current_sctx.sc_sid);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	712 i = (int)STRLEN(fname_buf);
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 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	715 if (i + STRLEN(name + llen) < FLEN_FIXED)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	716 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	717 STRCPY(fname_buf + i, name + llen);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	718 fname = fname_buf;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	719 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	720 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	721 {
16764 ef00b6bc186b patch 8.1.1384: using "int" for alloc() often results in compiler warnings Bram Moolenaar <Bram@vim.org> parents: 16708 diff changeset	722 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	723 if (fname == NULL)
19013 dd9ab0674eec patch 8.2.0067: ERROR_UNKNOWN clashes on some systems Bram Moolenaar <Bram@vim.org> parents: 18991 diff changeset	724 *error = FCERR_OTHER;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	725 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	726 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	727 *tofree = fname;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	728 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	729 STRCPY(fname + i, name + llen);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	730 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	731 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	732 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	733 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	734 fname = name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	735 return fname;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	736 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	737
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	738 /*
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	739 * 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	740 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	741 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	742 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	743 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	744 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	745 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	746
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	747 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	748 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	749 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	750 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	751 (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	752 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	753 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	754 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	755
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	756 return NULL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	757 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	758
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	759 /*
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	760 * 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	761 * 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	762 * Return NULL for unknown function.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	763 */
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	764 static ufunc_T *
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	765 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	766 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	767 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	768 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	769 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	770
20816 9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	771 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	772 {
20816 9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	773 char_u *after_script = NULL;
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	774
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	775 if (in_vim9script())
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	776 {
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	777 // 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	778 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	779 if (func != NULL)
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	780 return func;
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	781 }
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	782
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	783 if (!in_vim9script()
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	784 && name[0] == K_SPECIAL
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	785 && 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	786 && 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	787 {
20816 9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	788 long sid;
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	789
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	790 // 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	791
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	792 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	793 sid = getdigits(&after_script);
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	794 if (sid == current_sctx.sc_sid && *after_script == '_')
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	795 ++after_script;
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	796 else
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	797 after_script = NULL;
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	798 }
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	799 if (in_vim9script() \|\| after_script != NULL)
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	800 {
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	801 // Find imported function before global one.
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	802 imported = find_imported(
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	803 after_script == NULL ? name : after_script, 0, cctx);
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	804 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	805 {
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	806 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	807 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	808 return HI2UF(hi);
9faab49c880f patch 8.2.0960: cannot use :import in legacy Vim script Bram Moolenaar <Bram@vim.org> parents: 20709 diff changeset	809 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	810 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	811 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	812
20079 336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	813 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	814 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	815 if (!HASHITEM_EMPTY(hi))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	816 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	817
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	818 return NULL;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	819 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	820
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	821 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	822 * 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	823 * "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	824 * 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	825 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	826 ufunc_T *
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	827 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	828 {
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	829 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	830
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	831 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	832 return fp;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	833 return NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	834 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	835
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	836 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	837 * 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	838 * "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	839 * Takes care of script-local function names.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	840 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	841 static void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	842 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	843 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	844 if (fp->uf_name[0] == K_SPECIAL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	845 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	846 STRCPY(buf, "<SNR>");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	847 STRCAT(buf, fp->uf_name + 3);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	848 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	849 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	850 STRCPY(buf, fp->uf_name);
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
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	853 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	854 * 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	855 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	856 static void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	857 add_nr_var(
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	858 dict_T *dp,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	859 dictitem_T *v,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	860 char *name,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	861 varnumber_T nr)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	862 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	863 STRCPY(v->di_key, name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	864 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	865 hash_add(&dp->dv_hashtab, DI2HIKEY(v));
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	866 v->di_tv.v_type = VAR_NUMBER;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	867 v->di_tv.v_lock = VAR_FIXED;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	868 v->di_tv.vval.v_number = nr;
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 /*
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	872 * Free "fc".
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	873 */
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	874 static void
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	875 free_funccal(funccall_T *fc)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	876 {
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	877 int i;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	878
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	879 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	880 {
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	881 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	882
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	883 // 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	884 // 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	885 // 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	886 // 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	887 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	888 fp->uf_scoped = NULL;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	889 }
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	890 ga_clear(&fc->fc_funcs);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	891
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	892 func_ptr_unref(fc->func);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	893 vim_free(fc);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	894 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	895
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	896 /*
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	897 * 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	898 * 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	899 * 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	900 */
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	901 static void
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	902 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	903 {
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	904 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	905
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	906 // 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	907 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	908
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	909 // 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	910 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	911
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	912 // 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	913 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	914 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	915
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	916 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	917 }
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	918
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	919 /*
11299 4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	920 * 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	921 * 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	922 */
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	923 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	924 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	925 {
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	926 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	927 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	928
11299 4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	929 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	930
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	931 // 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	932 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	933 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	934 else
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	935 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	936
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	937 // 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	938 // 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	939 // in it.
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	940 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	941 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	942 else
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	943 {
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	944 int todo;
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	945 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	946 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	947
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	948 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	949
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	950 // 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	951 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	952 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	953 {
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	954 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	955 {
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	956 --todo;
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	957 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	958 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	959 }
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	960 }
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	961 }
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	962
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	963 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	964 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	965 else
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	966 {
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	967 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	968
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	969 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	970
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	971 // 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	972 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	973 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	974 }
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	975
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	976 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	977 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	978 else
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	979 {
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	980 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	981
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	982 // "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	983 // 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	984 // 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	985 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	986 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	987
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	988 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	989 // 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	990 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	991 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	992 {
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	993 // 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	994 // 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	995 // 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	996 // 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	997 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	998 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	999 }
11299 4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1000 }
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1001 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1002 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1003 * 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	1004 * 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	1005 * 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	1006 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1007 static void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1008 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	1009 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1010 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	1011 int i;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1012
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1013 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	1014 return;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1015
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1016 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	1017 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	1018 && 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	1019 && 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	1020 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	1021 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1022 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	1023 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1024 *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	1025 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	1026 return;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1027 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1028 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1029 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	1030 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	1031 ((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	1032 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1033
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1034 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1035 * 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	1036 * 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	1037 * 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	1038 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1039 static int
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1040 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	1041 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1042 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	1043
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1044 // 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	1045 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	1046 return FALSE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1047
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1048 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	1049 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	1050 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1051 // 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	1052 // function, so we can find the index when defining the function again.
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	1053 if (fp->uf_def_status == UF_COMPILED)
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1054 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	1055 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1056 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	1057 return TRUE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1058 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1059 return FALSE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1060 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1061
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1062 static void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1063 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	1064 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1065 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	1066 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	1067 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	1068 VIM_CLEAR(fp->uf_name_exp);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1069 VIM_CLEAR(fp->uf_arg_types);
19685 d64f403289db patch 8.2.0399: various memory leaks Bram Moolenaar <Bram@vim.org> parents: 19579 diff changeset	1070 VIM_CLEAR(fp->uf_def_arg_idx);
d64f403289db patch 8.2.0399: various memory leaks Bram Moolenaar <Bram@vim.org> parents: 19579 diff changeset	1071 VIM_CLEAR(fp->uf_va_name);
19912 d4fa9db88d16 patch 8.2.0512: Vim9: no optional arguments in func type Bram Moolenaar <Bram@vim.org> parents: 19900 diff changeset	1072 while (fp->uf_type_list.ga_len > 0)
d4fa9db88d16 patch 8.2.0512: Vim9: no optional arguments in func type Bram Moolenaar <Bram@vim.org> parents: 19900 diff changeset	1073 vim_free(((type_T **)fp->uf_type_list.ga_data)
d4fa9db88d16 patch 8.2.0512: Vim9: no optional arguments in func type Bram Moolenaar <Bram@vim.org> parents: 19900 diff changeset	1074 [--fp->uf_type_list.ga_len]);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1075 ga_clear(&fp->uf_type_list);
21006 ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	1076
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	1077 #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	1078 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	1079 {
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	1080 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	1081 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	1082 }
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	1083
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	1084 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	1085 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	1086 #endif
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1087 #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	1088 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	1089 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	1090 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	1091 #endif
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1092 }
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 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1095 * 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	1096 * 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	1097 * 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	1098 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1099 static void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1100 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	1101 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1102 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	1103 return;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1104 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	1105
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1106 // 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	1107 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	1108 funccal_unref(fp->uf_scoped, fp, force);
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	1109 clear_def_function(fp);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1110 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1111
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1112 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1113 * Free 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	1114 * 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	1115 * When "force" is TRUE we are exiting.
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1116 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1117 static void
20257 683c2da4982b patch 8.2.0684: Vim9: memory leak when using lambda Bram Moolenaar <Bram@vim.org> parents: 20255 diff changeset	1118 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	1119 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1120 // 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	1121 // 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	1122 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	1123 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	1124
20257 683c2da4982b patch 8.2.0684: Vim9: memory leak when using lambda Bram Moolenaar <Bram@vim.org> parents: 20255 diff changeset	1125 if ((fp->uf_flags & FC_DEAD) == 0 \|\| force)
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1126 vim_free(fp);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1127 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1128
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1129 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1130 * 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	1131 * 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	1132 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1133 static void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1134 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	1135 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1136 func_clear(fp, force);
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	1137 if (force \|\| fp->uf_dfunc_idx == 0)
1693ca876049 patch 8.2.1023: Vim9: redefining a function uses a new index every time Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	1138 func_free(fp, force);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1139 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1140
11299 4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1141
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1142 /*
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1143 * Call a user function.
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 static void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1146 call_user_func(
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1147 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	1148 int argcount, // nr of args
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1149 typval_T *argvars, // arguments
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1150 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	1151 funcexe_T *funcexe, // context
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1152 dict_T *selfdict) // Dictionary for "self"
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1153 {
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	1154 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	1155 int using_sandbox = FALSE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1156 funccall_T *fc;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1157 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	1158 int default_arg_err = FALSE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1159 static int depth = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1160 dictitem_T *v;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1161 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	1162 int i;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1163 int ai;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1164 int islambda = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1165 char_u numbuf[NUMBUFLEN];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1166 char_u *name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1167 #ifdef FEAT_PROFILE
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1168 proftime_T wait_start;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1169 proftime_T call_start;
14226 706b57cd1b00 patch 8.1.0130: ":profdel func" does not work if func was called already Christian Brabandt <cb@256bit.org> parents: 14002 diff changeset	1170 int started_profiling = FALSE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1171 #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	1172 ESTACK_CHECK_DECLARATION
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1173
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1174 // If depth of calling is getting too high, don't execute the function
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1175 if (depth >= p_mfd)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1176 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	1177 emsg(_("E132: Function call depth is higher than 'maxfuncdepth'"));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1178 rettv->v_type = VAR_NUMBER;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1179 rettv->vval.v_number = -1;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1180 return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1181 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1182 ++depth;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1183
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1184 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	1185
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	1186 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	1187 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	1188 return;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1189 fc->caller = current_funccal;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1190 current_funccal = fc;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1191 fc->func = fp;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1192 fc->rettv = rettv;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1193 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	1194 // 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	1195 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	1196 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	1197 // Set up fields for closure.
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	1198 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	1199 func_ptr_ref(fp);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1200
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	1201 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	1202 {
20538 9f921ba86d05 patch 8.2.0823: Vim9: script reload test is disabled Bram Moolenaar <Bram@vim.org> parents: 20532 diff changeset	1203 estack_push_ufunc(fp, 1);
19281 9fcdeaa18bd1 patch 8.2.0199: Vim9 script commands not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19253 diff changeset	1204 save_current_sctx = current_sctx;
9fcdeaa18bd1 patch 8.2.0199: Vim9 script commands not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19253 diff changeset	1205 current_sctx = fp->uf_script_ctx;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1206
20538 9f921ba86d05 patch 8.2.0823: Vim9: script reload test is disabled Bram Moolenaar <Bram@vim.org> parents: 20532 diff changeset	1207 // Execute the function, possibly compiling it first.
20433 5950284a517f patch 8.2.0771: Vim9: cannot call a compiled closure from not compiled code Bram Moolenaar <Bram@vim.org> parents: 20397 diff changeset	1208 call_def_function(fp, argcount, argvars, funcexe->partial, rettv);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1209 --depth;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1210 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	1211
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1212 estack_pop();
19281 9fcdeaa18bd1 patch 8.2.0199: Vim9 script commands not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19253 diff changeset	1213 current_sctx = save_current_sctx;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1214 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	1215 return;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1216 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1217
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1218 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	1219 islambda = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1220
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1221 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1222 * 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	1223 * 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	1224 * 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	1225 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1226 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1227 * Init l: variables.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1228 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1229 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	1230 if (selfdict != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1231 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1232 // 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	1233 // 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	1234 v = &fc->fixvar[fixvar_idx++].var;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1235 name = v->di_key;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1236 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	1237 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	1238 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	1239 v->di_tv.v_type = VAR_DICT;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1240 v->di_tv.v_lock = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1241 v->di_tv.vval.v_dict = selfdict;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1242 ++selfdict->dv_refcount;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1243 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1244
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1245 /*
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1246 * 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	1247 * 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	1248 * 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	1249 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1250 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	1251 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	1252 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	1253 (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	1254 ? 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	1255 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	1256 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	1257 {
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1258 // 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	1259 // 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	1260 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	1261 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	1262 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	1263 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	1264 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	1265 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	1266 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	1267 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	1268 }
20007 aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose Bram Moolenaar <Bram@vim.org> parents: 19946 diff changeset	1269 CLEAR_FIELD(fc->l_varlist);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1270 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	1271 fc->l_varlist.lv_lock = VAR_FIXED;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1272
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1273 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1274 * 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	1275 * Set a:name to named arguments.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1276 * 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	1277 * 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	1278 */
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1279 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	1280 {
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1281 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	1282 (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	1283 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	1284 (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	1285 }
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1286 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	1287 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1288 int addlocal = FALSE;
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1289 typval_T def_rettv;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1290 int isdefault = FALSE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1291
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1292 ai = i - fp->uf_args.ga_len;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1293 if (ai < 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1294 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1295 // named argument a:name
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1296 name = FUNCARG(fp, i);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1297 if (islambda)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1298 addlocal = TRUE;
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1299
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1300 // 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	1301 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	1302 && (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	1303 && 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	1304 if (isdefault)
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1305 {
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1306 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	1307 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	1308 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	1309
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1310 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	1311 [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	1312 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	1313 {
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1314 default_arg_err = 1;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1315 break;
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1316 }
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1317 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1318 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1319 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1320 {
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1321 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	1322 // 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	1323 break;
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1324
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1325 // "..." argument a:1, a:2, etc.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1326 sprintf((char *)numbuf, "%d", ai + 1);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1327 name = numbuf;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1328 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1329 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	1330 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1331 v = &fc->fixvar[fixvar_idx++].var;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1332 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	1333 STRCPY(v->di_key, name);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1334 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1335 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1336 {
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1337 v = dictitem_alloc(name);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1338 if (v == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1339 break;
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1340 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	1341 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1342
17127 d244a9be99db patch 8.1.1563: crash when using closures Bram Moolenaar <Bram@vim.org> parents: 16969 diff changeset	1343 // 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	1344 // "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	1345 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	1346 v->di_tv.v_lock = VAR_FIXED;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1347
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1348 if (addlocal)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1349 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1350 // 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	1351 // 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	1352 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	1353 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	1354 }
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	1355 else
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	1356 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	1357
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1358 if (ai >= 0 && ai < MAX_FUNC_ARGS)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1359 {
16003 879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1360 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	1361
879829e44091 patch 8.1.1007: using closure may consume a lot of memory Bram Moolenaar <Bram@vim.org> parents: 15820 diff changeset	1362 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	1363 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	1364 list_append(&fc->l_varlist, li);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1365 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1366 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1367
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1368 // 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	1369 ++RedrawingDisabled;
14323 9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1370
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1371 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	1372 {
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1373 using_sandbox = TRUE;
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1374 ++sandbox;
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1375 }
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1376
20538 9f921ba86d05 patch 8.2.0823: Vim9: script reload test is disabled Bram Moolenaar <Bram@vim.org> parents: 20532 diff changeset	1377 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	1378 ESTACK_CHECK_SETUP
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1379 if (p_verbose >= 12)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1380 {
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1381 ++no_wait_return;
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1382 verbose_enter_scroll();
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1383
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1384 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	1385 if (p_verbose >= 14)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1386 {
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1387 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	1388 char_u numbuf2[NUMBUFLEN];
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1389 char_u *tofree;
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1390 char_u *s;
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1391
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1392 msg_puts("(");
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1393 for (i = 0; i < argcount; ++i)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1394 {
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1395 if (i > 0)
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1396 msg_puts(", ");
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1397 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	1398 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	1399 else
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1400 {
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1401 // 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	1402 ++emsg_off;
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1403 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	1404 --emsg_off;
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1405 if (s != NULL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1406 {
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1407 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	1408 {
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1409 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	1410 s = buf;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1411 }
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1412 msg_puts((char *)s);
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1413 vim_free(tofree);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1414 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1415 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1416 }
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1417 msg_puts(")");
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1418 }
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1419 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	1420
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1421 verbose_leave_scroll();
847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1422 --no_wait_return;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1423 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1424 #ifdef FEAT_PROFILE
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1425 if (do_profiling == PROF_YES)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1426 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1427 if (!fp->uf_profiling && has_profiling(FALSE, fp->uf_name, NULL))
14226 706b57cd1b00 patch 8.1.0130: ":profdel func" does not work if func was called already Christian Brabandt <cb@256bit.org> parents: 14002 diff changeset	1428 {
706b57cd1b00 patch 8.1.0130: ":profdel func" does not work if func was called already Christian Brabandt <cb@256bit.org> parents: 14002 diff changeset	1429 started_profiling = TRUE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1430 func_do_profile(fp);
14226 706b57cd1b00 patch 8.1.0130: ":profdel func" does not work if func was called already Christian Brabandt <cb@256bit.org> parents: 14002 diff changeset	1431 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1432 if (fp->uf_profiling
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1433 \|\| (fc->caller != NULL && fc->caller->func->uf_profiling))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1434 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1435 ++fp->uf_tm_count;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1436 profile_start(&call_start);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1437 profile_zero(&fp->uf_tm_children);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1438 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1439 script_prof_save(&wait_start);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1440 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1441 #endif
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1442
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	1443 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	1444 current_sctx = fp->uf_script_ctx;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1445 save_did_emsg = did_emsg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1446 did_emsg = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1447
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1448 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	1449 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	1450 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	1451 {
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1452 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	1453
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1454 // 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	1455 // 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	1456 ++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	1457 (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	1458 --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	1459 }
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1460 else
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	1461 // 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	1462 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	1463 DOCMD_NOWAIT\|DOCMD_VERBOSE\|DOCMD_REPEAT);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1464
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1465 --RedrawingDisabled;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1466
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1467 // 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	1468 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	1469 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1470 clear_tv(rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1471 rettv->v_type = VAR_NUMBER;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1472 rettv->vval.v_number = -1;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1473 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1474
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1475 #ifdef FEAT_PROFILE
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1476 if (do_profiling == PROF_YES && (fp->uf_profiling
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1477 \|\| (fc->caller != NULL && fc->caller->func->uf_profiling)))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1478 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1479 profile_end(&call_start);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1480 profile_sub_wait(&wait_start, &call_start);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1481 profile_add(&fp->uf_tm_total, &call_start);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1482 profile_self(&fp->uf_tm_self, &call_start, &fp->uf_tm_children);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1483 if (fc->caller != NULL && fc->caller->func->uf_profiling)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1484 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1485 profile_add(&fc->caller->func->uf_tm_children, &call_start);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1486 profile_add(&fc->caller->func->uf_tml_children, &call_start);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1487 }
14226 706b57cd1b00 patch 8.1.0130: ":profdel func" does not work if func was called already Christian Brabandt <cb@256bit.org> parents: 14002 diff changeset	1488 if (started_profiling)
706b57cd1b00 patch 8.1.0130: ":profdel func" does not work if func was called already Christian Brabandt <cb@256bit.org> parents: 14002 diff changeset	1489 // make a ":profdel func" stop profiling the function
706b57cd1b00 patch 8.1.0130: ":profdel func" does not work if func was called already Christian Brabandt <cb@256bit.org> parents: 14002 diff changeset	1490 fp->uf_profiling = FALSE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1491 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1492 #endif
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1493
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1494 // 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	1495 if (p_verbose >= 12)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1496 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1497 ++no_wait_return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1498 verbose_enter_scroll();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1499
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1500 if (aborting())
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1501 smsg(_("%s aborted"), SOURCING_NAME);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1502 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	1503 smsg(_("%s returning #%ld"), SOURCING_NAME,
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1504 (long)fc->rettv->vval.v_number);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1505 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1506 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1507 char_u buf[MSG_BUF_LEN];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1508 char_u numbuf2[NUMBUFLEN];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1509 char_u *tofree;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1510 char_u *s;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1511
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1512 // 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	1513 // 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	1514 // 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	1515 ++emsg_off;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1516 s = tv2string(fc->rettv, &tofree, numbuf2, 0);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1517 --emsg_off;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1518 if (s != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1519 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1520 if (vim_strsize(s) > MSG_BUF_CLEN)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1521 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1522 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	1523 s = buf;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1524 }
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1525 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	1526 vim_free(tofree);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1527 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1528 }
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1529 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	1530
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1531 verbose_leave_scroll();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1532 --no_wait_return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1533 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1534
19075 af1eca322b9e patch 8.2.0098: exe stack length can be wrong without being detected Bram Moolenaar <Bram@vim.org> parents: 19035 diff changeset	1535 ESTACK_CHECK_NOW
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1536 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	1537 current_sctx = save_current_sctx;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1538 #ifdef FEAT_PROFILE
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1539 if (do_profiling == PROF_YES)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1540 script_prof_restore(&wait_start);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1541 #endif
14323 9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1542 if (using_sandbox)
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1543 --sandbox;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1544
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1545 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	1546 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1547 ++no_wait_return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1548 verbose_enter_scroll();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1549
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	1550 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	1551 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	1552
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1553 verbose_leave_scroll();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1554 --no_wait_return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1555 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1556
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1557 did_emsg \|= save_did_emsg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1558 --depth;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1559
11299 4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1560 cleanup_function_call(fc);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1561 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1562
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1563 /*
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1564 * 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	1565 */
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1566 int
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1567 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	1568 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	1569 int argcount,
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1570 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	1571 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	1572 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	1573 dict_T *selfdict)
14430 2fba714294b9 patch 8.1.0229: crash when dumping profiling data Christian Brabandt <cb@256bit.org> parents: 14323 diff changeset	1574 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1575 int error;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1576 int regular_args = fp->uf_args.ga_len;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1577
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1578 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	1579 *funcexe->doesrange = TRUE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1580 if (argcount < regular_args - fp->uf_def_args.ga_len)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1581 error = FCERR_TOOFEW;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1582 else if (!has_varargs(fp) && argcount > regular_args)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1583 error = FCERR_TOOMANY;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1584 else if ((fp->uf_flags & FC_DICT) && selfdict == NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1585 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	1586 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1587 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1588 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	1589 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	1590
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1591 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1592 * 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	1593 * 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	1594 * redo buffer.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1595 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1596 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	1597 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	1598 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1599 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	1600 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	1601 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1602 ++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	1603 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	1604 (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	1605 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	1606 // 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	1607 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	1608 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	1609 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	1610 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	1611 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	1612 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1613 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	1614 }
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1615
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1616 /*
9844 9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1617 * There are two kinds of function names:
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1618 * 1. ordinary names, function defined with :function
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1619 * 2. numbered functions and lambdas
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1620 * For the first we only count the name stored in func_hashtab as a reference,
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1621 * using function() does not count as a reference, because the function is
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1622 * looked up by name.
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1623 */
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1624 static int
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1625 func_name_refcount(char_u *name)
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1626 {
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1627 return isdigit(name) \|\| name == '<';
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1628 }
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1629
14927 162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1630 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	1631
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1632 /*
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1633 * 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	1634 * 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	1635 */
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1636 void
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1637 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	1638 {
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1639 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	1640 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	1641 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	1642 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	1643 }
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1644
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1645 void
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1646 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	1647 {
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1648 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	1649 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	1650 else
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1651 {
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1652 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	1653 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	1654 }
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1655 }
162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14706 diff changeset	1656
17370 ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: 17251 diff changeset	1657 funccall_T *
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: 17251 diff changeset	1658 get_current_funccal(void)
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: 17251 diff changeset	1659 {
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: 17251 diff changeset	1660 return current_funccal;
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: 17251 diff changeset	1661 }
ba06a1c42274 patch 8.1.1684: profiling functionality is spread out Bram Moolenaar <Bram@vim.org> parents: 17251 diff changeset	1662
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1663 /*
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1664 * 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	1665 */
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1666 void
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1667 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	1668 {
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1669 hashitem_T *hi;
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1670 ufunc_T *fp;
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1671 long_u todo;
20193 cf13b26be258 patch 8.2.0652: compiler warning for char conversion Bram Moolenaar <Bram@vim.org> parents: 20189 diff changeset	1672 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	1673 size_t len;
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1674
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1675 buf[0] = K_SPECIAL;
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1676 buf[1] = KS_EXTRA;
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1677 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	1678 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	1679 len = STRLEN(buf);
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1680
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1681 todo = func_hashtab.ht_used;
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1682 for (hi = func_hashtab.ht_array; todo > 0; ++hi)
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1683 if (!HASHITEM_EMPTY(hi))
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1684 {
20195 a2447c58da25 patch 8.2.0653: using uninitialized pointer Bram Moolenaar <Bram@vim.org> parents: 20193 diff changeset	1685 fp = HI2UF(hi);
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1686 if (STRNCMP(fp->uf_name, buf, len) == 0)
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1687 {
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1688 fp->uf_flags \|= FC_DEAD;
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1689 func_clear(fp, TRUE);
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1690 }
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1691 --todo;
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1692 }
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1693 }
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	1694
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1695 #if defined(EXITFREE) \|\| defined(PROTO)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1696 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1697 free_all_functions(void)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1698 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1699 hashitem_T *hi;
9844 9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1700 ufunc_T *fp;
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1701 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	1702 long_u todo = 1;
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1703 long_u used;
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1704
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1705 // 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	1706 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	1707 {
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1708 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	1709 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	1710 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	1711 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	1712 }
4ae86195f559 patch 8.0.0535: memory leak when exiting from within a user function Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	1713
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1714 // 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	1715 // 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	1716 // 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	1717 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	1718 {
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1719 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	1720 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	1721 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	1722 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1723 // 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	1724 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	1725 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	1726 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	1727
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1728 // 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	1729 // 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	1730 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	1731 ++skipped;
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1732 else
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1733 {
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1734 used = 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	1735 func_clear(fp, TRUE);
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1736 if (used != 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	1737 {
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1738 skipped = 0;
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1739 break;
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1740 }
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1741 }
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1742 --todo;
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1743 }
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1744 }
f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	1745
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1746 // 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	1747 // 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	1748 skipped = 0;
9844 9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1749 while (func_hashtab.ht_used > skipped)
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1750 {
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1751 todo = func_hashtab.ht_used;
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1752 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	1753 if (!HASHITEM_EMPTY(hi))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1754 {
9844 9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1755 --todo;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1756 // 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	1757 // 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	1758 fp = HI2UF(hi);
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1759 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	1760 ++skipped;
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1761 else
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1762 {
20257 683c2da4982b patch 8.2.0684: Vim9: memory leak when using lambda Bram Moolenaar <Bram@vim.org> parents: 20255 diff changeset	1763 func_free(fp, FALSE);
9844 9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1764 skipped = 0;
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1765 break;
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1766 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1767 }
9844 9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1768 }
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1769 if (skipped == 0)
9ce5941b77d3 commit https://github.com/vim/vim/commit/c257487035f83aabe1c7e07f0552309e98f1bcb1 Christian Brabandt <cb@256bit.org> parents: 9735 diff changeset	1770 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	1771
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1772 free_def_functions();
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1773 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1774 #endif
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1775
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1776 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1777 * 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	1778 * 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	1779 * "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	1780 */
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1781 int
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1782 builtin_function(char_u *name, int len)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1783 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1784 char_u *p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1785
20079 336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	1786 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	1787 return FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1788 p = vim_strchr(name, AUTOLOAD_CHAR);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1789 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	1790 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1791
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1792 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1793 func_call(
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1794 char_u *name,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1795 typval_T *args,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1796 partial_T *partial,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1797 dict_T *selfdict,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1798 typval_T *rettv)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1799 {
19201 e7b4fff348dd patch 8.2.0159: non-materialized range() list causes problems Bram Moolenaar <Bram@vim.org> parents: 19183 diff changeset	1800 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	1801 listitem_T *item;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1802 typval_T argv[MAX_FUNC_ARGS + 1];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1803 int argc = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1804 int r = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1805
20392 4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved Bram Moolenaar <Bram@vim.org> parents: 20339 diff changeset	1806 CHECK_LIST_MATERIALIZE(l);
19934 3ff714d765ba patch 8.2.0523: loops are repeated Bram Moolenaar <Bram@vim.org> parents: 19912 diff changeset	1807 FOR_ALL_LIST_ITEMS(l, item)
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 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	1810 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	1811 emsg(_("E699: Too many arguments"));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1812 break;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1813 }
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1814 // 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	1815 // 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	1816 copy_tv(&item->li_tv, &argv[argc++]);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1817 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1818
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1819 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	1820 {
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1821 funcexe_T funcexe;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1822
20007 aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose Bram Moolenaar <Bram@vim.org> parents: 19946 diff changeset	1823 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	1824 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	1825 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	1826 funcexe.evaluate = TRUE;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1827 funcexe.partial = partial;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1828 funcexe.selfdict = selfdict;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1829 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	1830 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1831
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1832 // Free the arguments.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1833 while (argc > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1834 clear_tv(&argv[--argc]);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1835
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1836 return r;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1837 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1838
18104 e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1839 static int callback_depth = 0;
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1840
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1841 int
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1842 get_callback_depth(void)
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1843 {
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1844 return callback_depth;
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1845 }
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1846
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1847 /*
16872 a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	1848 * 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	1849 */
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	1850 int
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	1851 call_callback(
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	1852 callback_T *callback,
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	1853 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	1854 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	1855 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	1856 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	1857 // PLUS ONE elements!
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	1858 {
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1859 funcexe_T funcexe;
18104 e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1860 int ret;
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1861
20007 aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose Bram Moolenaar <Bram@vim.org> parents: 19946 diff changeset	1862 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	1863 funcexe.evaluate = TRUE;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1864 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	1865 ++callback_depth;
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1866 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	1867 --callback_depth;
e59ff7b5d7a7 patch 8.1.2047: cannot check the current state Bram Moolenaar <Bram@vim.org> parents: 17883 diff changeset	1868 return ret;
16872 a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	1869 }
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	1870
a836d122231a patch 8.1.1437: code to handle callbacks is duplicated Bram Moolenaar <Bram@vim.org> parents: 16825 diff changeset	1871 /*
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1872 * 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	1873 * 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	1874 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1875 void
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1876 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	1877 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1878 switch (error)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1879 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1880 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	1881 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	1882 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1883 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	1884 emsg_funcname(
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1885 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	1886 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1887 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	1888 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	1889 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1890 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	1891 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	1892 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1893 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	1894 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	1895 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1896 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	1897 emsg_funcname(
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1898 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	1899 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1900 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	1901 emsg_funcname(
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1902 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	1903 name);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1904 break;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1905 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1906 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1907
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	1908 /*
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1909 * 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	1910 *
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1911 * 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	1912 * 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	1913 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1914 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1915 call_func(
16634 a1ba0bd74e7d patch 8.1.1319: computing function length name in many places Bram Moolenaar <Bram@vim.org> parents: 16615 diff changeset	1916 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	1917 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	1918 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	1919 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	1920 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	1921 // 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	1922 funcexe_T *funcexe) // more arguments
9562 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 int ret = FAIL;
19013 dd9ab0674eec patch 8.2.0067: ERROR_UNKNOWN clashes on some systems Bram Moolenaar <Bram@vim.org> parents: 18991 diff changeset	1925 int error = FCERR_NONE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1926 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	1927 ufunc_T *fp = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1928 char_u fname_buf[FLEN_FIXED + 1];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1929 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	1930 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	1931 char_u *name = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1932 int argcount = argcount_in;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1933 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	1934 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	1935 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	1936 // "funcexe->basetv" is not NULL
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1937 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	1938 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	1939 partial_T *partial = funcexe->partial;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1940
17883 6249953b0609 patch 8.1.1938: may crash when out of memory Bram Moolenaar <Bram@vim.org> parents: 17809 diff changeset	1941 // 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	1942 // 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	1943 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	1944
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1945 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	1946 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	1947 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	1948 {
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1949 // 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	1950 // 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	1951 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	1952 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	1953 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	1954
4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1955 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	1956 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1957
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	1958 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	1959 *funcexe->doesrange = FALSE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1960
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1961 if (partial != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1962 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1963 // 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	1964 // 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	1965 // 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	1966 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	1967 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	1968 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	1969 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1970 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	1971 {
e9675870c480 patch 8.1.2282: crash when passing many arguments through a partial Bram Moolenaar <Bram@vim.org> parents: 18572 diff changeset	1972 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	1973 {
19013 dd9ab0674eec patch 8.2.0067: ERROR_UNKNOWN clashes on some systems Bram Moolenaar <Bram@vim.org> parents: 18991 diff changeset	1974 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	1975 goto theend;
e9675870c480 patch 8.1.2282: crash when passing many arguments through a partial Bram Moolenaar <Bram@vim.org> parents: 18572 diff changeset	1976 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1977 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	1978 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1979 for (i = 0; i < argcount_in; ++i)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1980 argv[i + argv_clear] = argvars_in[i];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1981 argvars = argv;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1982 argcount = partial->pt_argc + argcount_in;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1983 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1984 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1985
19013 dd9ab0674eec patch 8.2.0067: ERROR_UNKNOWN clashes on some systems Bram Moolenaar <Bram@vim.org> parents: 18991 diff changeset	1986 if (error == FCERR_NONE && funcexe->evaluate)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1987 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1988 char_u *rfname = fname;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1989
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1990 // Ignore "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	1991 if (fp == NULL && fname[0] == 'g' && fname[1] == ':')
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1992 rfname = fname + 2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1993
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	1994 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	1995 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	1996 error = FCERR_UNKNOWN;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	1997
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	1998 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	1999 {
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 * User defined function.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2002 */
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2003 if (fp == NULL)
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2004 fp = find_func(rfname, FALSE, NULL);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2005
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2006 // 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	2007 if (fp == NULL
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2008 && 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	2009 rfname, rfname, TRUE, NULL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2010 && !aborting())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2011 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2012 // executed an autocommand, search for the function again
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2013 fp = find_func(rfname, FALSE, NULL);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2014 }
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2015 // Try loading a package.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2016 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	2017 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2018 // loaded a package, search for the function again
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2019 fp = find_func(rfname, FALSE, NULL);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2020 }
20079 336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2021 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	2022 {
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2023 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	2024
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2025 // If using Vim9 script try not local to the script.
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2026 // TODO: should not do this if the name started with "s:".
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2027 if (p != NULL)
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2028 fp = find_func(p, 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	2029 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2030
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	2031 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	2032 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	2033 #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	2034 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	2035 {
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	2036 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	2037
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	2038 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	2039 }
ae185f35e256 patch 8.2.1054: not so easy to pass a lua function to Vim Bram Moolenaar <Bram@vim.org> parents: 20996 diff changeset	2040 #endif
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	2041 else if (fp != NULL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2042 {
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	2043 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	2044 // 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	2045 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	2046 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	2047
17638 9ffec4eb8d33 patch 8.1.1816: cannot use a user defined function as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	2048 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	2049 {
9ffec4eb8d33 patch 8.1.1816: cannot use a user defined function as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	2050 // 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	2051 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	2052 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	2053 argcount++;
17646 e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work Bram Moolenaar <Bram@vim.org> parents: 17638 diff changeset	2054 argvars = argv;
e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work Bram Moolenaar <Bram@vim.org> parents: 17638 diff changeset	2055 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	2056 }
9ffec4eb8d33 patch 8.1.1816: cannot use a user defined function as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	2057
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2058 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	2059 funcexe, selfdict);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2060 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2061 }
17612 e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17606 diff changeset	2062 else if (funcexe->basetv != NULL)
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17606 diff changeset	2063 {
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17606 diff changeset	2064 /*
17638 9ffec4eb8d33 patch 8.1.1816: cannot use a user defined function as a method Bram Moolenaar <Bram@vim.org> parents: 17612 diff changeset	2065 * 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	2066 * 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	2067 */
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17606 diff changeset	2068 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	2069 funcexe->basetv);
e259d11e2900 patch 8.1.1803: all builtin functions are global Bram Moolenaar <Bram@vim.org> parents: 17606 diff changeset	2070 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2071 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2072 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2073 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2074 * 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	2075 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2076 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	2077 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2078 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2079 * 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	2080 * 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	2081 * 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	2082 * 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	2083 * 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	2084 * 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	2085 * 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	2086 * 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	2087 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2088 update_force_abort();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2089 }
19013 dd9ab0674eec patch 8.2.0067: ERROR_UNKNOWN clashes on some systems Bram Moolenaar <Bram@vim.org> parents: 18991 diff changeset	2090 if (error == FCERR_NONE)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2091 ret = OK;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2092
18576 e9675870c480 patch 8.1.2282: crash when passing many arguments through a partial Bram Moolenaar <Bram@vim.org> parents: 18572 diff changeset	2093 theend:
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2094 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2095 * 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	2096 * 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	2097 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2098 if (!aborting())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2099 {
19886 4d033d36ba23 patch 8.2.0499: calling a lambda is slower than evaluating a string Bram Moolenaar <Bram@vim.org> parents: 19826 diff changeset	2100 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	2101 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2102
17646 e5397617d6ca patch 8.1.1820: using expr->FuncRef() does not work Bram Moolenaar <Bram@vim.org> parents: 17638 diff changeset	2103 // 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	2104 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	2105 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	2106
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2107 vim_free(tofree);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2108 vim_free(name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2109
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2110 return ret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2111 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2112
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2113 static char_u *
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2114 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	2115 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2116 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	2117 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2118
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2119 /*
19579 aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2120 * 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	2121 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2122 static void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2123 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	2124 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2125 int j;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2126
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2127 msg_start();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2128 if (indent)
15543 dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	2129 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	2130 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	2131 msg_puts("def ");
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2132 else
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2133 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	2134 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	2135 msg_putchar('(');
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2136 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	2137 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2138 if (j)
15543 dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	2139 msg_puts(", ");
dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	2140 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	2141 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	2142 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2143 char *tofree;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2144
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2145 msg_puts(": ");
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2146 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	2147 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	2148 }
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	2149 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	2150 {
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	2151 msg_puts(" = ");
1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	2152 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	2153 [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	2154 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2155 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2156 if (fp->uf_varargs)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2157 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2158 if (j)
15543 dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	2159 msg_puts(", ");
dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	2160 msg_puts("...");
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2161 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2162 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	2163 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2164 if (j)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2165 msg_puts(", ");
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2166 msg_puts("...");
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2167 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	2168 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	2169 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2170 char *tofree;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2171
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2172 msg_puts(": ");
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2173 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	2174 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	2175 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2176 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2177 msg_putchar(')');
19579 aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2178
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 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	2180 {
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2181 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	2182 {
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2183 char *tofree;
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2184
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2185 msg_puts(": ");
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2186 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	2187 vim_free(tofree);
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2188 }
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2189 }
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19443 diff changeset	2190 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	2191 msg_puts(" abort");
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2192 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	2193 msg_puts(" range");
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2194 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	2195 msg_puts(" dict");
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	2196 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	2197 msg_puts(" closure");
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2198 msg_clr_eos();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2199 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	2200 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	2201 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2202
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2203 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2204 * 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	2205 * 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	2206 * 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	2207 * 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	2208 * "is_global" is NULL.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2209 * flags:
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2210 * TFN_INT: internal function name OK
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2211 * TFN_QUIET: be quiet
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2212 * 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	2213 * 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	2214 * 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	2215 */
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	2216 char_u *
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2217 trans_function_name(
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2218 char_u **pp,
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2219 int *is_global,
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2220 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	2221 int flags,
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2222 funcdict_T *fdp, // return: info about dictionary used
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2223 partial_T **partial) // return: partial of a FuncRef
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2224 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2225 char_u *name = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2226 char_u *start;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2227 char_u *end;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2228 int lead;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2229 char_u sid_buf[20];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2230 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	2231 int extra = 0;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2232 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	2233 int vim9script;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2234
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2235 if (fdp != NULL)
20007 aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose Bram Moolenaar <Bram@vim.org> parents: 19946 diff changeset	2236 CLEAR_POINTER(fdp);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2237 start = *pp;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2238
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2239 // 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	2240 // command).
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2241 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	2242 && (*pp)[2] == (int)KE_SNR)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2243 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2244 *pp += 3;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2245 len = get_id_len(pp) + 3;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2246 return vim_strnsave(start, 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
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2249 // 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	2250 // 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	2251 lead = eval_fname_script(start);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2252 if (lead > 2)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2253 start += lead;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2254
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2255 // 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	2256 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	2257 lead > 2 ? 0 : FNE_CHECK_START);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2258 if (end == start)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2259 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2260 if (!skip)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	2261 emsg(_("E129: Function name required"));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2262 goto theend;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2263 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2264 if (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	2265 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2266 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2267 * 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	2268 * 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	2269 * interrupt, or an exception.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2270 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2271 if (!aborting())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2272 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2273 if (end != NULL)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	2274 semsg(_(e_invarg2), start);
9562 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 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2277 *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	2278 goto theend;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2279 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2280
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2281 if (lv.ll_tv != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2282 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2283 if (fdp != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2284 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2285 fdp->fd_dict = lv.ll_dict;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2286 fdp->fd_newkey = lv.ll_newkey;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2287 lv.ll_newkey = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2288 fdp->fd_di = lv.ll_di;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2289 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2290 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	2291 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2292 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	2293 *pp = end;
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 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	2296 && lv.ll_tv->vval.v_partial != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2297 {
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	2298 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	2299 *pp = end;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2300 if (partial != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2301 *partial = lv.ll_tv->vval.v_partial;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2302 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2303 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2304 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2305 if (!skip && !(flags & TFN_QUIET) && (fdp == NULL
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2306 \|\| 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	2307 emsg(_(e_funcref));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2308 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2309 *pp = end;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2310 name = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2311 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2312 goto theend;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2313 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2314
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2315 if (lv.ll_name == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2316 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2317 // 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	2318 *pp = end;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2319 goto theend;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2320 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2321
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2322 // 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	2323 if (lv.ll_exp_name != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2324 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2325 len = (int)STRLEN(lv.ll_exp_name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2326 name = deref_func_name(lv.ll_exp_name, &len, partial,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2327 flags & TFN_NO_AUTOLOAD);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2328 if (name == lv.ll_exp_name)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2329 name = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2330 }
9717 6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	2331 else if (!(flags & TFN_NO_DEREF))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2332 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2333 len = (int)(end - *pp);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2334 name = deref_func_name(*pp, &len, partial, flags & TFN_NO_AUTOLOAD);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2335 if (name == *pp)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2336 name = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2337 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2338 if (name != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2339 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2340 name = vim_strsave(name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2341 *pp = end;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2342 if (STRNCMP(name, "<SNR>", 5) == 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2343 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2344 // Change "<SNR>" to the byte sequence.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2345 name[0] = K_SPECIAL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2346 name[1] = KS_EXTRA;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2347 name[2] = (int)KE_SNR;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2348 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	2349 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2350 goto theend;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2351 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2352
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2353 if (lv.ll_exp_name != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2354 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2355 len = (int)STRLEN(lv.ll_exp_name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2356 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	2357 && STRNCMP(lv.ll_name, "s:", 2) == 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2358 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2359 // 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	2360 // leading "s:" then remove it.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2361 lv.ll_name += 2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2362 len -= 2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2363 lead = 2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2364 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2365 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2366 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2367 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2368 // skip over "s:" and "g:"
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2369 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	2370 {
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2371 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	2372 *is_global = TRUE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2373 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	2374 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2375 len = (int)(end - lv.ll_name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2376 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2377
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2378 // In Vim9 script a user function is script-local by default.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2379 vim9script = ASCII_ISUPPER(*start)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2380 && current_sctx.sc_version == SCRIPT_VERSION_VIM9;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2381
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2382 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2383 * Copy the function name to allocated memory.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2384 * 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	2385 * Accept <SNR>123_name() outside a script.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2386 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2387 if (skip)
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2388 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	2389 else if (lead > 0 \|\| vim9script)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2390 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2391 if (!vim9script)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2392 lead = 3;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2393 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	2394 && 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	2395 \|\| eval_fname_sid(*pp))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2396 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2397 // 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	2398 if (current_sctx.sc_sid <= 0)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2399 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	2400 emsg(_(e_usingsid));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2401 goto theend;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2402 }
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	2403 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	2404 if (vim9script)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2405 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	2406 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2407 lead += (int)STRLEN(sid_buf);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2408 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2409 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2410 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	2411 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	2412 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	2413 start);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2414 goto theend;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2415 }
9717 6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	2416 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	2417 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2418 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	2419
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2420 if (cp != NULL && cp < end)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2421 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	2422 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	2423 goto theend;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2424 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2425 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2426
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2427 name = alloc(len + lead + extra + 1);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2428 if (name != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2429 {
19225 77cd94083850 patch 8.2.0171: Coverity warning for using uninitialized buffer Bram Moolenaar <Bram@vim.org> parents: 19201 diff changeset	2430 if (!skip && (lead > 0 \|\| vim9script))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2431 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2432 name[0] = K_SPECIAL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2433 name[1] = KS_EXTRA;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2434 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	2435 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	2436 STRCPY(name + 3, sid_buf);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2437 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2438 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	2439 name[lead + extra + len] = NUL;
9562 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 *pp = end;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2442
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2443 theend:
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2444 clear_lval(&lv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2445 return name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2446 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2447
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2448 /*
20079 336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2449 * 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	2450 * 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	2451 * "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	2452 * 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	2453 * 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	2454 */
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2455 char_u *
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2456 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	2457 {
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2458 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	2459
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2460 if (*name == K_SPECIAL && current_sctx.sc_version == SCRIPT_VERSION_VIM9)
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2461 {
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2462 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	2463 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	2464 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	2465 }
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2466 return NULL;
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2467 }
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2468
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2469 /*
20709 a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2470 * 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	2471 * 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	2472 */
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2473 static void
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2474 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	2475 {
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2476 long_u used = func_hashtab.ht_used;
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2477 long_u todo = used;
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2478 hashitem_T *ht_array = func_hashtab.ht_array;
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2479 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	2480
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2481 for (hi = ht_array; todo > 0 && !got_int; ++hi)
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2482 {
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2483 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	2484 {
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2485 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	2486
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2487 --todo;
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2488 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	2489 && (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	2490 ? !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	2491 && !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	2492 : !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	2493 && 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	2494 {
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2495 list_func_head(fp, FALSE);
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2496 if (used != func_hashtab.ht_used
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2497 \|\| ht_array != func_hashtab.ht_array)
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2498 {
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2499 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	2500 return;
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2501 }
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2502 }
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2503 }
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2504 }
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2505 }
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2506
a2262c80a4e0 patch 8.2.0908: crash when changing the function table while listing it Bram Moolenaar <Bram@vim.org> parents: 20546 diff changeset	2507 /*
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2508 * ":function" also supporting nested ":def".
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2509 * 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	2510 */
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2511 ufunc_T *
20528 489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	2512 def_function(exarg_T eap, char_u name_arg)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2513 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2514 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	2515 char_u *line_to_free = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2516 int j;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2517 int c;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2518 int saved_did_emsg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2519 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	2520 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	2521 int is_global = FALSE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2522 char_u *p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2523 char_u *arg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2524 char_u *line_arg = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2525 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	2526 garray_T argtypes;
16615 1a911bd57f11 patch 8.1.1310: named function arguments are never optional Bram Moolenaar <Bram@vim.org> parents: 16606 diff changeset	2527 garray_T default_args;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2528 garray_T newlines;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2529 int varargs = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2530 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	2531 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	2532 ufunc_T *fp = NULL;
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	2533 int overwrite = FALSE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2534 int indent;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2535 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	2536 #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	2537 char nesting_def[MAX_FUNC_NESTING];
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2538 dictitem_T *v;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2539 funcdict_T fudi;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2540 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	2541 int paren;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2542 hashitem_T *hi;
17178 40c4cb095d53 patch 8.1.1588: in :let-heredoc line continuation is recognized Bram Moolenaar <Bram@vim.org> parents: 17168 diff changeset	2543 int do_concat = TRUE;
17251 984eef966002 patch 8.1.1625: script line numbers are not exactly right Bram Moolenaar <Bram@vim.org> parents: 17178 diff changeset	2544 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	2545 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	2546 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	2547 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	2548 char_u *heredoc_trimmed = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2549
20528 489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	2550 if (in_vim9script() && eap->forceit)
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	2551 {
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	2552 emsg(_(e_nobang));
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	2553 return NULL;
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	2554 }
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	2555
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2556 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2557 * ":function" without argument: list functions.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2558 */
20138 d0a9766167ab patch 8.2.0624: Vim9: no check for space before #comment Bram Moolenaar <Bram@vim.org> parents: 20081 diff changeset	2559 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	2560 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2561 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	2562 list_functions(NULL);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2563 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	2564 return NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2565 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2566
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 * ":function /pat": list functions matching pattern.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2569 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2570 if (*eap->arg == '/')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2571 {
19892 5feb426d2ea1 patch 8.2.0502: Vim9: some code is not tested Bram Moolenaar <Bram@vim.org> parents: 19888 diff changeset	2572 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	2573 if (!eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2574 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2575 regmatch_T regmatch;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2576
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2577 c = *p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2578 *p = NUL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2579 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	2580 *p = c;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2581 if (regmatch.regprog != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2582 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2583 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	2584 list_functions(&regmatch);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2585 vim_regfree(regmatch.regprog);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2586 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2587 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2588 if (*p == '/')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2589 ++p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2590 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	2591 return NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2592 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2593
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2594 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	2595 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	2596 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	2597
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2598 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2599 * 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	2600 * func normal function name
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2601 * "name" == func, "fudi.fd_dict" == NULL
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2602 * dict.func new dictionary entry
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2603 * "name" == NULL, "fudi.fd_dict" set,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2604 * "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	2605 * 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	2606 * "name" == func, "fudi.fd_dict" set,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2607 * "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	2608 * 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	2609 * "name" == NULL, "fudi.fd_dict" set,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2610 * "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	2611 * s:func script-local function name
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2612 * 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	2613 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2614 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	2615 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	2616 {
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2617 // 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	2618 paren = TRUE;
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2619 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	2620 }
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2621 else
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2622 {
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2623 name = trans_function_name(&p, &is_global, eap->skip,
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2624 TFN_NO_AUTOLOAD, &fudi, NULL);
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2625 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	2626 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	2627 {
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2628 /*
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2629 * 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	2630 * 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	2631 * 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	2632 */
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2633 if (!aborting())
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2634 {
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2635 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	2636 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	2637 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	2638 return NULL;
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2639 }
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2640 else
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2641 eap->skip = TRUE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2642 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2643 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2644
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2645 // 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	2646 // 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	2647 saved_did_emsg = did_emsg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2648 did_emsg = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2649
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2650 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2651 * ":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	2652 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2653 if (!paren)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2654 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2655 if (!ends_excmd(*skipwhite(p)))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2656 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	2657 emsg(_(e_trailing));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2658 goto ret_free;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2659 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2660 eap->nextcmd = check_nextcmd(p);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2661 if (eap->nextcmd != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2662 *p = NUL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2663 if (!eap->skip && !got_int)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2664 {
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2665 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	2666 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	2667 {
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2668 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	2669
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2670 // 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	2671 // 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	2672 if (up != NULL)
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2673 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	2674 }
336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2675
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2676 if (fp != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2677 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2678 list_func_head(fp, TRUE);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2679 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	2680 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2681 if (FUNCLINE(fp, j) == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2682 continue;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2683 msg_putchar('\n');
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2684 msg_outnum((long)(j + 1));
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2685 if (j < 9)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2686 msg_putchar(' ');
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2687 if (j < 99)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2688 msg_putchar(' ');
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2689 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	2690 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	2691 ui_breakcheck();
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2692 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2693 if (!got_int)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2694 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2695 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	2696 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	2697 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	2698 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2699 msg_puts(" endfunction");
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2700 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2701 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2702 else
20079 336483164ca6 patch 8.2.0595: Vim9: not all commands using ends_excmd() tested Bram Moolenaar <Bram@vim.org> parents: 20045 diff changeset	2703 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	2704 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2705 goto ret_free;
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
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2708 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2709 * ":function name(arg1, arg2)" Define function.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2710 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2711 p = skipwhite(p);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2712 if (*p != '(')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2713 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2714 if (!eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2715 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	2716 semsg(_("E124: Missing '(': %s"), eap->arg);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2717 goto ret_free;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2718 }
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2719 // 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	2720 if (vim_strchr(p, '(') != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2721 p = vim_strchr(p, '(');
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2722 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2723 p = skipwhite(p + 1);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2724
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2725 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	2726
20279 49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	2727 if (!eap->skip && name_arg == NULL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2728 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2729 // 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	2730 // (that we are overwriting).
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2731 if (name != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2732 arg = name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2733 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2734 arg = fudi.fd_newkey;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2735 if (arg != NULL && (fudi.fd_di == NULL
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2736 \|\| (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	2737 && 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	2738 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2739 if (*arg == K_SPECIAL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2740 j = 3;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2741 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2742 j = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2743 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	2744 : eval_isnamec(arg[j])))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2745 ++j;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2746 if (arg[j] != NUL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2747 emsg_funcname((char *)e_invarg2, arg);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2748 }
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2749 // Disallow using the g: dict.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2750 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	2751 emsg(_("E862: Cannot use g: here"));
9562 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
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	2754 // 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	2755 // invalid.
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2756 if (get_function_args(&p, ')', &newargs,
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2757 eap->cmdidx == CMD_def ? &argtypes : NULL,
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	2758 &varargs, &default_args, eap->skip,
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	2759 eap, &line_to_free) == FAIL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2760 goto errret_2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2761
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2762 if (eap->cmdidx == CMD_def)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2763 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2764 // 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	2765 if (*p == ':')
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2766 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2767 ret_type = skipwhite(p + 1);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2768 p = skip_type(ret_type);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2769 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	2770 {
20830 9064044fd4f6 patch 8.2.0967: unnecessary type casts for vim_strnsave() Bram Moolenaar <Bram@vim.org> parents: 20816 diff changeset	2771 ret_type = vim_strnsave(ret_type, p - ret_type);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2772 p = skipwhite(p);
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	2773 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2774 else
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	2775 {
20144 c21a1d91f78d patch 8.2.0627: Vim9: error message does not work Bram Moolenaar <Bram@vim.org> parents: 20142 diff changeset	2776 semsg(_("E1056: expected a type: %s"), ret_type);
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	2777 ret_type = NULL;
c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	2778 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2779 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2780 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2781 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2782 // 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	2783 for (;;)
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	2784 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2785 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	2786 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	2787 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2788 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	2789 p += 5;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2790 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2791 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	2792 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2793 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	2794 p += 4;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2795 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2796 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	2797 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2798 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	2799 p += 5;
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	2800 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2801 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	2802 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2803 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	2804 p += 7;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2805 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	2806 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2807 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	2808 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	2809 goto erret;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2810 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2811 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2812 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2813 break;
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	2814 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2815
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2816 // 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	2817 // 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	2818 if (*p == '\n')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2819 line_arg = p + 1;
20023 c85d4e173cc9 patch 8.2.0567: Vim9: cannot put comments halfway expressions Bram Moolenaar <Bram@vim.org> parents: 20015 diff changeset	2820 else if (p != NUL && p != '"' && !(eap->cmdidx == CMD_def && *p == '#')
c85d4e173cc9 patch 8.2.0567: Vim9: cannot put comments halfway expressions Bram Moolenaar <Bram@vim.org> parents: 20015 diff changeset	2821 && !eap->skip && !did_emsg)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	2822 emsg(_(e_trailing));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2823
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2824 /*
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2825 * 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	2826 * found.
9562 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 if (KeyTyped)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2829 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2830 // 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	2831 // 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	2832 // 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	2833 if (!eap->skip && !eap->forceit)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2834 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2835 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	2836 emsg(_(e_funcdict));
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2837 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	2838 emsg_funcname(e_funcexts, name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2839 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2840
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2841 if (!eap->skip && did_emsg)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2842 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2843
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2844 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	2845 cmdline_row = msg_row;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2846 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2847
17251 984eef966002 patch 8.1.1625: script line numbers are not exactly right Bram Moolenaar <Bram@vim.org> parents: 17178 diff changeset	2848 // 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	2849 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	2850
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2851 indent = 2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2852 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	2853 nesting_def[nesting] = (eap->cmdidx == CMD_def);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2854 for (;;)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2855 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2856 if (KeyTyped)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2857 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2858 msg_scroll = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2859 saved_wait_return = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2860 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2861 need_wait_return = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2862
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2863 if (line_arg != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2864 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2865 // 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	2866 theline = line_arg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2867 p = vim_strchr(theline, '\n');
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2868 if (p == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2869 line_arg += STRLEN(line_arg);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2870 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2871 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2872 *p = NUL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2873 line_arg = p + 1;
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 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2876 else
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2877 {
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2878 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	2879 if (eap->getline == NULL)
17178 40c4cb095d53 patch 8.1.1588: in :let-heredoc line continuation is recognized Bram Moolenaar <Bram@vim.org> parents: 17168 diff changeset	2880 theline = getcmdline(':', 0L, indent, do_concat);
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2881 else
17178 40c4cb095d53 patch 8.1.1588: in :let-heredoc line continuation is recognized Bram Moolenaar <Bram@vim.org> parents: 17168 diff changeset	2882 theline = eap->getline(':', eap->cookie, indent, do_concat);
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2883 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	2884 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2885 if (KeyTyped)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2886 lines_left = Rows - 1;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2887 if (theline == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2888 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2889 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	2890 emsg(_("E1057: Missing :enddef"));
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2891 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2892 emsg(_("E126: Missing :endfunction"));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2893 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2894 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2895
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	2896 // 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	2897 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	2898 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	2899 sourcing_lnum_off -= SOURCING_LNUM;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2900 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2901 sourcing_lnum_off = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2902
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2903 if (skip_until != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2904 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2905 // 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	2906 // * ":append" and "."
9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	2907 // * ":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	2908 // * ":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	2909 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	2910 \|\| (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	2911 \|\| 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	2912 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	2913 {
17462 9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	2914 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	2915 p = theline;
9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	2916 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	2917 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	2918 ? 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	2919 else
9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	2920 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	2921 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	2922 {
98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	2923 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	2924 VIM_CLEAR(heredoc_trimmed);
17178 40c4cb095d53 patch 8.1.1588: in :let-heredoc line continuation is recognized Bram Moolenaar <Bram@vim.org> parents: 17168 diff changeset	2925 do_concat = TRUE;
17462 9088fafff9b3 patch 8.1.1729: heredoc with trim not properly handled in function Bram Moolenaar <Bram@vim.org> parents: 17381 diff changeset	2926 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	2927 }
98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	2928 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2929 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2930 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2931 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2932 // skip ':' and blanks
11129 f4ea50924c6d patch 8.0.0452: some macros are in lower case Christian Brabandt <cb@256bit.org> parents: 10815 diff changeset	2933 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	2934 ;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2935
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2936 // Check for "endfunction" or "enddef".
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2937 if (checkforcmd(&p, nesting_def[nesting]
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2938 ? "enddef" : "endfunction", 4) && nesting-- == 0)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2939 {
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2940 char_u *nextcmd = NULL;
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2941
11543 57c452316da1 patch 8.0.0654: no warning for text after :endfunction Christian Brabandt <cb@256bit.org> parents: 11325 diff changeset	2942 if (*p == '\|')
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2943 nextcmd = p + 1;
11543 57c452316da1 patch 8.0.0654: no warning for text after :endfunction Christian Brabandt <cb@256bit.org> parents: 11325 diff changeset	2944 else if (line_arg != NULL && *skipwhite(line_arg) != NUL)
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2945 nextcmd = line_arg;
11543 57c452316da1 patch 8.0.0654: no warning for text after :endfunction Christian Brabandt <cb@256bit.org> parents: 11325 diff changeset	2946 else if (p != NUL && p != '"' && p_verbose > 0)
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2947 give_warning2(eap->cmdidx == CMD_def
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2948 ? (char_u *)_("W1001: Text found after :enddef: %s")
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2949 : (char_u *)_("W22: Text found after :endfunction: %s"),
11561 7ad79766365a patch 8.0.0663: unexpected error message only when 'verbose' is set Christian Brabandt <cb@256bit.org> parents: 11545 diff changeset	2950 p, TRUE);
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2951 if (nextcmd != NULL)
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2952 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2953 // Another command follows. If the line came from "eap" we
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2954 // can simply point into it, otherwise we need to change
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2955 // "eap->cmdlinep".
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2956 eap->nextcmd = nextcmd;
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2957 if (line_to_free != NULL)
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2958 {
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2959 vim_free(*eap->cmdlinep);
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2960 *eap->cmdlinep = line_to_free;
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2961 line_to_free = NULL;
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2962 }
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	2963 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2964 break;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2965 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2966
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2967 // 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	2968 // 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	2969 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	2970 indent -= 2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2971 else if (STRNCMP(p, "if", 2) == 0
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2972 \|\| STRNCMP(p, "wh", 2) == 0
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2973 \|\| STRNCMP(p, "for", 3) == 0
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2974 \|\| STRNCMP(p, "try", 3) == 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2975 indent += 2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2976
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	2977 // 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	2978 // 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	2979 // 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	2980 c = *p;
19183 1168c53d1b49 patch 8.2.0150: cannot define python function when using :execute Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	2981 if (checkforcmd(&p, "function", 2)
1168c53d1b49 patch 8.2.0150: cannot define python function when using :execute Bram Moolenaar <Bram@vim.org> parents: 19181 diff changeset	2982 \|\| (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	2983 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2984 if (*p == '!')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2985 p = skipwhite(p + 1);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2986 p += eval_fname_script(p);
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	2987 vim_free(trans_function_name(&p, NULL, TRUE, 0, NULL, NULL));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2988 if (*skipwhite(p) == '(')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2989 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2990 if (nesting == MAX_FUNC_NESTING - 1)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2991 emsg(_("E1058: function nesting too deep"));
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2992 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2993 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2994 ++nesting;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2995 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	2996 indent += 2;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	2997 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2998 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	2999 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3000
19253 a8d2d3c8f0b3 patch 8.2.0185: Vim9 script: cannot use "if has()" to skip lines Bram Moolenaar <Bram@vim.org> parents: 19225 diff changeset	3001 // Check for ":append", ":change", ":insert". Not for :def.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3002 p = skip_range(p, NULL);
19253 a8d2d3c8f0b3 patch 8.2.0185: Vim9 script: cannot use "if has()" to skip lines Bram Moolenaar <Bram@vim.org> parents: 19225 diff changeset	3003 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	3004 && ((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	3005 \|\| (p[0] == 'c'
3f777388b6ad patch 8.0.0176: cannot use :change inside a function definition Christian Brabandt <cb@256bit.org> parents: 10359 diff changeset	3006 && (!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	3007 && (!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	3008 && (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	3009 \|\| !ASCII_ISALPHA(p[6])))))))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3010 \|\| (p[0] == 'i'
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3011 && (!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	3012 && (!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	3013 \|\| (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	3014 && (!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	3015 \|\| p[3] == 'e'))))))))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3016 skip_until = vim_strsave((char_u *)".");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3017
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3018 // 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	3019 arg = skipwhite(skiptowhite(p));
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3020 if (arg[0] == '<' && arg[1] =='<'
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3021 && ((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	3022 && (!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	3023 \|\| ((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	3024 && !ASCII_ISALPHA(p[3]))))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3025 \|\| (p[0] == 'p' && p[1] == 'e'
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3026 && (!ASCII_ISALPHA(p[2]) \|\| p[2] == 'r'))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3027 \|\| (p[0] == 't' && p[1] == 'c'
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3028 && (!ASCII_ISALPHA(p[2]) \|\| p[2] == 'l'))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3029 \|\| (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	3030 && !ASCII_ISALPHA(p[3]))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3031 \|\| (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	3032 && (!ASCII_ISALPHA(p[3]) \|\| p[3] == 'y'))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3033 \|\| (p[0] == 'm' && p[1] == 'z'
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3034 && (!ASCII_ISALPHA(p[2]) \|\| p[2] == 's'))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3035 ))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3036 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3037 // ":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	3038 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	3039 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	3040 {
04ef2ccf2519 patch 8.2.0578: heredoc for interfaces does not support "trim" Bram Moolenaar <Bram@vim.org> parents: 20029 diff changeset	3041 // 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	3042 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	3043 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	3044 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	3045 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3046 if (*p == NUL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3047 skip_until = vim_strsave((char_u *)".");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3048 else
20830 9064044fd4f6 patch 8.2.0967: unnecessary type casts for vim_strnsave() Bram Moolenaar <Bram@vim.org> parents: 20816 diff changeset	3049 skip_until = vim_strnsave(p, skiptowhite(p) - p);
20045 04ef2ccf2519 patch 8.2.0578: heredoc for interfaces does not support "trim" Bram Moolenaar <Bram@vim.org> parents: 20029 diff changeset	3050 do_concat = FALSE;
04ef2ccf2519 patch 8.2.0578: heredoc for interfaces does not support "trim" Bram Moolenaar <Bram@vim.org> parents: 20029 diff changeset	3051 is_heredoc = TRUE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3052 }
16708 98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3053
98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3054 // Check for ":let v =<< [trim] EOF"
18536 c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3055 // and ":let [a, b] =<< [trim] EOF"
16708 98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3056 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	3057 if (*arg == '[')
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3058 arg = vim_strchr(arg, ']');
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3059 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	3060 {
18536 c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3061 arg = skipwhite(skiptowhite(arg));
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3062 if ( arg[0] == '=' && arg[1] == '<' && arg[2] =='<'
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3063 && ((p[0] == 'l'
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3064 && p[1] == 'e'
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3065 && (!ASCII_ISALNUM(p[2])
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3066 \|\| (p[2] == 't' && !ASCII_ISALNUM(p[3]))))))
16708 98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3067 {
18536 c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3068 p = skipwhite(arg + 3);
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3069 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	3070 {
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3071 // Ignore leading white space.
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3072 p = skipwhite(p + 4);
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3073 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	3074 skipwhite(theline) - theline);
18536 c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3075 }
20830 9064044fd4f6 patch 8.2.0967: unnecessary type casts for vim_strnsave() Bram Moolenaar <Bram@vim.org> parents: 20816 diff changeset	3076 skip_until = vim_strnsave(p, skiptowhite(p) - p);
18536 c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3077 do_concat = FALSE;
c0cd979000f9 patch 8.1.2262: unpack assignment in function not recognized Bram Moolenaar <Bram@vim.org> parents: 18265 diff changeset	3078 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	3079 }
98393772bddd patch 8.1.1356: some text in heredoc assignment ends the text Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3080 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3081 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3082
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3083 // Add the line to the function.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3084 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	3085 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3086
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3087 // 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	3088 // 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	3089 // is an extra alloc/free.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3090 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	3091 if (p == NULL)
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3092 goto erret;
7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3093 ((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	3094
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3095 // 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	3096 // 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	3097 while (sourcing_lnum_off-- > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3098 ((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	3099
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3100 // Check for end of eap->arg.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3101 if (line_arg != NULL && *line_arg == NUL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3102 line_arg = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3103 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3104
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3105 // 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	3106 // detected.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3107 if (eap->skip \|\| did_emsg)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3108 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3109
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3110 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3111 * 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	3112 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3113 if (fudi.fd_dict == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3114 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3115 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	3116
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3117 v = find_var(name, &ht, FALSE);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3118 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	3119 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3120 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	3121 name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3122 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3123 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3124
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3125 fp = find_func_even_dead(name, is_global, NULL);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3126 if (fp != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3127 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3128 int dead = 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	3129
15008 67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	3130 // 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	3131 // same script again, but only once.
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3132 if (!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	3133 && (fp->uf_script_ctx.sc_sid != current_sctx.sc_sid
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	3134 \|\| 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	3135 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3136 emsg_funcname(e_funcexts, name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3137 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3138 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3139 if (fp->uf_calls > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3140 {
15008 67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	3141 emsg_funcname(
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15000 diff changeset	3142 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	3143 name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3144 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3145 }
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3146 if (fp->uf_refcount > 1)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3147 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3148 // 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	3149 // create a new one.
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3150 --fp->uf_refcount;
9733 59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	3151 fp->uf_flags \|= FC_REMOVED;
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3152 fp = NULL;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3153 overwrite = TRUE;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3154 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3155 else
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3156 {
19035 b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time Bram Moolenaar <Bram@vim.org> parents: 19013 diff changeset	3157 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	3158
b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time Bram Moolenaar <Bram@vim.org> parents: 19013 diff changeset	3159 // 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	3160 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	3161 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	3162 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	3163 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	3164 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	3165 #ifdef FEAT_PROFILE
2fba714294b9 patch 8.1.0229: crash when dumping profiling data Christian Brabandt <cb@256bit.org> parents: 14323 diff changeset	3166 fp->uf_profiling = FALSE;
2fba714294b9 patch 8.1.0229: crash when dumping profiling data Christian Brabandt <cb@256bit.org> parents: 14323 diff changeset	3167 fp->uf_prof_initialized = FALSE;
2fba714294b9 patch 8.1.0229: crash when dumping profiling data Christian Brabandt <cb@256bit.org> parents: 14323 diff changeset	3168 #endif
20943 1693ca876049 patch 8.2.1023: Vim9: redefining a function uses a new index every time Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	3169 clear_def_function(fp);
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3170 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3171 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3172 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3173 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3174 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3175 char numbuf[20];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3176
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3177 fp = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3178 if (fudi.fd_newkey == NULL && !eap->forceit)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3179 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	3180 emsg(_(e_funcdict));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3181 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3182 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3183 if (fudi.fd_di == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3184 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3185 // Can't add a function to a locked dictionary
15780 5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference Bram Moolenaar <Bram@vim.org> parents: 15762 diff changeset	3186 if (var_check_lock(fudi.fd_dict->dv_lock, eap->arg, FALSE))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3187 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3188 }
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3189 // Can't change an existing function if it is locked
15780 5b6c3c7feba8 patch 8.1.0897: can modify a:000 when using a reference Bram Moolenaar <Bram@vim.org> parents: 15762 diff changeset	3190 else if (var_check_lock(fudi.fd_di->di_tv.v_lock, eap->arg, FALSE))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3191 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3192
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3193 // 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	3194 // Funcref!
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3195 vim_free(name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3196 sprintf(numbuf, "%d", ++func_nr);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3197 name = vim_strsave((char_u *)numbuf);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3198 if (name == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3199 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3200 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3201
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3202 if (fp == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3203 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3204 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	3205 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3206 int slen, plen;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3207 char_u *scriptname;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3208
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3209 // 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	3210 j = FAIL;
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	3211 if (SOURCING_NAME != NULL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3212 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3213 scriptname = autoload_name(name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3214 if (scriptname != NULL)
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 p = vim_strchr(scriptname, '/');
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3217 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	3218 slen = (int)STRLEN(SOURCING_NAME);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3219 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	3220 SOURCING_NAME + slen - plen) == 0)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3221 j = OK;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3222 vim_free(scriptname);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3223 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3224 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3225 if (j == FAIL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3226 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	3227 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	3228 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3229 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3230 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3231
17659 121bdff812b4 patch 8.1.1827: allocating more memory than needed for extended structs Bram Moolenaar <Bram@vim.org> parents: 17646 diff changeset	3232 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	3233 if (fp == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3234 goto erret;
20943 1693ca876049 patch 8.2.1023: Vim9: redefining a function uses a new index every time Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	3235 fp->uf_def_status = eap->cmdidx == CMD_def ? UF_TO_BE_COMPILED
20528 489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3236 : UF_NOT_COMPILED;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3237
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3238 if (fudi.fd_dict != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3239 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3240 if (fudi.fd_di == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3241 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3242 // add new dict entry
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3243 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	3244 if (fudi.fd_di == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3245 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3246 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	3247 fp = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3248 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3249 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3250 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	3251 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3252 vim_free(fudi.fd_di);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3253 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	3254 fp = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3255 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3256 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3257 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3258 else
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3259 // overwrite existing dict entry
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3260 clear_tv(&fudi.fd_di->di_tv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3261 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	3262 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	3263
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3264 // behave like "dict" was used
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3265 flags \|= FC_DICT;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3266 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3267
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3268 // 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	3269 set_ufunc_name(fp, name);
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3270 if (overwrite)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3271 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3272 hi = hash_find(&func_hashtab, name);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3273 hi->hi_key = UF2HIKEY(fp);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3274 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3275 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	3276 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3277 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	3278 fp = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3279 goto erret;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3280 }
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3281 fp->uf_refcount = 1;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3282 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3283 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	3284 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	3285 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	3286 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	3287
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3288 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	3289 {
19944 3055cd26e139 patch 8.2.0528: Vim9: function arguments insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19934 diff changeset	3290 int lnum_save = SOURCING_LNUM;
19297 84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3291
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	3292 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	3293
19297 84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3294 // 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	3295 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	3296
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3297 // parse the argument types
19912 d4fa9db88d16 patch 8.2.0512: Vim9: no optional arguments in func type Bram Moolenaar <Bram@vim.org> parents: 19900 diff changeset	3298 ga_init2(&fp->uf_type_list, sizeof(type_T *), 10);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3299
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3300 if (argtypes.ga_len > 0)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3301 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3302 // When "varargs" is set the last name/type goes into uf_va_name
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3303 // and uf_va_type.
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3304 int len = argtypes.ga_len - (varargs ? 1 : 0);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3305
19944 3055cd26e139 patch 8.2.0528: Vim9: function arguments insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19934 diff changeset	3306 if (len > 0)
3055cd26e139 patch 8.2.0528: Vim9: function arguments insufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19934 diff changeset	3307 fp->uf_arg_types = ALLOC_CLEAR_MULT(type_T *, len);
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3308 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	3309 {
19297 84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3310 int i;
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3311 type_T *type;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3312
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3313 for (i = 0; i < len; ++ i)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3314 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3315 p = ((char_u **)argtypes.ga_data)[i];
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3316 if (p == NULL)
19946 8466e62a2481 patch 8.2.0529: Vim9: function argument with default not checked Bram Moolenaar <Bram@vim.org> parents: 19944 diff changeset	3317 // will get the type from the default value
8466e62a2481 patch 8.2.0529: Vim9: function argument with default not checked Bram Moolenaar <Bram@vim.org> parents: 19944 diff changeset	3318 type = &t_unknown;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3319 else
19297 84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3320 type = parse_type(&p, &fp->uf_type_list);
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3321 if (type == NULL)
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3322 {
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3323 SOURCING_LNUM = lnum_save;
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3324 goto errret_2;
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3325 }
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3326 fp->uf_arg_types[i] = type;
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3327 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3328 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3329 if (varargs)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3330 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3331 // Move the last argument "...name: type" to uf_va_name and
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3332 // 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	3333 fp->uf_va_name = ((char_u **)fp->uf_args.ga_data)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3334 [fp->uf_args.ga_len - 1];
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3335 --fp->uf_args.ga_len;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3336 p = ((char_u **)argtypes.ga_data)[len];
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3337 if (p == NULL)
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3338 // todo: get type from default value
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3339 fp->uf_va_type = &t_any;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3340 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3341 fp->uf_va_type = parse_type(&p, &fp->uf_type_list);
19297 84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3342 if (fp->uf_va_type == NULL)
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3343 {
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3344 SOURCING_LNUM = lnum_save;
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3345 goto errret_2;
84703c85a583 patch 8.2.0207: crash when missing member type on list argument Bram Moolenaar <Bram@vim.org> parents: 19285 diff changeset	3346 }
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3347 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3348 varargs = FALSE;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3349 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3350
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3351 // 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	3352 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	3353 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	3354 else
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3355 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3356 p = ret_type;
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3357 fp->uf_ret_type = parse_type(&p, &fp->uf_type_list);
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3358 }
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	3359 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	3360 }
20528 489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3361 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	3362 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	3363
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3364 fp->uf_lines = newlines;
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	3365 if ((flags & FC_CLOSURE) != 0)
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	3366 {
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	3367 if (register_closure(fp) == FAIL)
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	3368 goto erret;
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	3369 }
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	3370 else
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	3371 fp->uf_scoped = NULL;
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	3372
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3373 #ifdef FEAT_PROFILE
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3374 if (prof_def_func())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3375 func_do_profile(fp);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3376 #endif
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3377 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	3378 if (sandbox)
9df95cf9ea7e patch 8.1.0177: defining function in sandbox is inconsistent Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	3379 flags \|= FC_SANDBOX;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3380 if (in_vim9script() && !ASCII_ISUPPER(*fp->uf_name))
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3381 flags \|= FC_VIM9;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3382 fp->uf_flags = flags;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3383 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	3384 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	3385 fp->uf_script_ctx = current_sctx;
17251 984eef966002 patch 8.1.1625: script line numbers are not exactly right Bram Moolenaar <Bram@vim.org> parents: 17178 diff changeset	3386 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	3387 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	3388 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3389 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	3390 // 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	3391 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	3392 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3393
20532 cb4831fa7e25 patch 8.2.0820: Vim9: function type isn't set until compiled Bram Moolenaar <Bram@vim.org> parents: 20528 diff changeset	3394 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	3395 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	3396 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	3397 // :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	3398 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	3399
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3400 goto ret_free;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3401
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3402 erret:
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3403 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	3404 ga_clear_strings(&default_args);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3405 errret_2:
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3406 ga_clear_strings(&newlines);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3407 ret_free:
19685 d64f403289db patch 8.2.0399: various memory leaks Bram Moolenaar <Bram@vim.org> parents: 19579 diff changeset	3408 ga_clear_strings(&argtypes);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3409 vim_free(skip_until);
11569 7003f241b6c7 patch 8.0.0667: memory access error when command follows :endfunc Christian Brabandt <cb@256bit.org> parents: 11561 diff changeset	3410 vim_free(line_to_free);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3411 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	3412 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	3413 vim_free(name);
20015 c001ee73519a patch 8.2.0563: Vim9: cannot split a function line Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	3414 vim_free(ret_type);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3415 did_emsg \|= saved_did_emsg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3416 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	3417
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3418 return fp;
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3419 }
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3420
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3421 /*
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3422 * ":function"
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3423 */
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3424 void
49b50843e725 patch 8.2.0695: Vim9: cannot define a function inside a function Bram Moolenaar <Bram@vim.org> parents: 20257 diff changeset	3425 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	3426 {
20528 489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3427 (void)def_function(eap, NULL);
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3428 }
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3429
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3430 /*
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3431 * :defcompile - compile all :def functions in the current script.
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3432 */
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3433 void
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3434 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	3435 {
20544 e8132bec4b0f patch 8.2.0826: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20542 diff changeset	3436 long_u ht_used = func_hashtab.ht_used;
e8132bec4b0f patch 8.2.0826: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20542 diff changeset	3437 int todo = (int)ht_used;
20528 489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3438 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	3439 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	3440
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3441 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	3442 {
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3443 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	3444 {
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3445 --todo;
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3446 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	3447 if (ufunc->uf_script_ctx.sc_sid == current_sctx.sc_sid
20943 1693ca876049 patch 8.2.1023: Vim9: redefining a function uses a new index every time Bram Moolenaar <Bram@vim.org> parents: 20830 diff changeset	3448 && ufunc->uf_def_status == UF_TO_BE_COMPILED)
20544 e8132bec4b0f patch 8.2.0826: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20542 diff changeset	3449 {
20528 489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3450 compile_def_function(ufunc, FALSE, NULL);
20544 e8132bec4b0f patch 8.2.0826: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20542 diff changeset	3451
e8132bec4b0f patch 8.2.0826: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20542 diff changeset	3452 if (func_hashtab.ht_used != ht_used)
e8132bec4b0f patch 8.2.0826: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20542 diff changeset	3453 {
e8132bec4b0f patch 8.2.0826: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20542 diff changeset	3454 // another function has been defined, need to start over
e8132bec4b0f patch 8.2.0826: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20542 diff changeset	3455 hi = func_hashtab.ht_array;
e8132bec4b0f patch 8.2.0826: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20542 diff changeset	3456 ht_used = func_hashtab.ht_used;
e8132bec4b0f patch 8.2.0826: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20542 diff changeset	3457 todo = (int)ht_used;
20546 1ea55bad1234 patch 8.2.0827: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20544 diff changeset	3458 --hi;
20544 e8132bec4b0f patch 8.2.0826: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20542 diff changeset	3459 }
e8132bec4b0f patch 8.2.0826: Vim9: crash in :defcompile Bram Moolenaar <Bram@vim.org> parents: 20542 diff changeset	3460 }
20528 489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3461 }
489cb75c76b6 patch 8.2.0818: Vim9: using a discovery phase doesn't work well Bram Moolenaar <Bram@vim.org> parents: 20433 diff changeset	3462 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3463 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3464
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3465 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3466 * 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	3467 * Return 2 if "p" starts with "s:".
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3468 * Return 0 otherwise.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3469 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3470 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3471 eval_fname_script(char_u *p)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3472 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3473 // 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	3474 // the standard library function.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3475 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	3476 \|\| MB_STRNICMP(p + 1, "SNR>", 4) == 0))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3477 return 5;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3478 if (p[0] == 's' && p[1] == ':')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3479 return 2;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3480 return 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3481 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3482
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3483 int
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3484 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	3485 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3486 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	3487 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	3488 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	3489 }
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3490
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3491 /*
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3492 * 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	3493 * 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	3494 */
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3495 int
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3496 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	3497 {
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3498 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	3499 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3500
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3501 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3502 * 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	3503 * 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	3504 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3505 int
9717 6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	3506 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	3507 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3508 char_u *nm = name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3509 char_u *p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3510 int n = FALSE;
9717 6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	3511 int flag;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3512 int is_global = FALSE;
9717 6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	3513
6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	3514 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	3515 if (no_deref)
6226de5f8137 commit https://github.com/vim/vim/commit/b54c3ff3174dbb5dfbfcabdf95200b047beaa644 Christian Brabandt <cb@256bit.org> parents: 9688 diff changeset	3516 flag \|= TFN_NO_DEREF;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3517 p = trans_function_name(&nm, &is_global, FALSE, flag, NULL, NULL);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3518 nm = skipwhite(nm);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3519
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3520 // 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	3521 // "funcname(...", not "funcname!...".
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3522 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	3523 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	3524 vim_free(p);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3525 return n;
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
15555 d89c5b339c2a patch 8.1.0785: depending on the configuration some functions are unused Bram Moolenaar <Bram@vim.org> parents: 15543 diff changeset	3528 #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	3529 char_u *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3530 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	3531 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3532 char_u *nm = name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3533 char_u *p;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3534 int is_global = FALSE;
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3535
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3536 p = trans_function_name(&nm, &is_global, FALSE,
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3537 TFN_INT\|TFN_QUIET, NULL, NULL);
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3538
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3539 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	3540 && (!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	3541 return p;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3542
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3543 vim_free(p);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3544 return NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3545 }
15555 d89c5b339c2a patch 8.1.0785: depending on the configuration some functions are unused Bram Moolenaar <Bram@vim.org> parents: 15543 diff changeset	3546 #endif
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3547
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3548 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3549 * 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	3550 * function names.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3551 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3552 char_u *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3553 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	3554 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3555 static long_u done;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3556 static hashitem_T *hi;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3557 ufunc_T *fp;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3558
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3559 if (idx == 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3560 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3561 done = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3562 hi = func_hashtab.ht_array;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3563 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3564 if (done < func_hashtab.ht_used)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3565 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3566 if (done++ > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3567 ++hi;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3568 while (HASHITEM_EMPTY(hi))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3569 ++hi;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3570 fp = HI2UF(hi);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3571
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3572 // 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	3573 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	3574 \|\| 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	3575 return (char_u *)"";
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3576
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3577 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	3578 return fp->uf_name; // prevents overflow
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3579
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3580 cat_func_name(IObuff, fp);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3581 if (xp->xp_context != EXPAND_USER_FUNC)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3582 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3583 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	3584 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	3585 STRCAT(IObuff, ")");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3586 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3587 return IObuff;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3588 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3589 return NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3590 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3591
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3592 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3593 * ":delfunction {name}"
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3594 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3595 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3596 ex_delfunction(exarg_T *eap)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3597 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3598 ufunc_T *fp = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3599 char_u *p;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3600 char_u *name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3601 funcdict_T fudi;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3602 int is_global = FALSE;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3603
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3604 p = eap->arg;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3605 name = trans_function_name(&p, &is_global, eap->skip, 0, &fudi, NULL);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3606 vim_free(fudi.fd_newkey);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3607 if (name == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3608 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3609 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	3610 emsg(_(e_funcref));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3611 return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3612 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3613 if (!ends_excmd(*skipwhite(p)))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3614 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3615 vim_free(name);
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	3616 emsg(_(e_trailing));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3617 return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3618 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3619 eap->nextcmd = check_nextcmd(p);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3620 if (eap->nextcmd != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3621 *p = NUL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3622
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3623 if (!eap->skip)
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3624 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	3625 vim_free(name);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3626
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3627 if (!eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3628 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3629 if (fp == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3630 {
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	3631 if (!eap->forceit)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	3632 semsg(_(e_nofunc), eap->arg);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3633 return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3634 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3635 if (fp->uf_calls > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3636 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	3637 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	3638 return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3639 }
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3640 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	3641 {
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3642 semsg(_("E1084: Cannot delete Vim9 script function %s"), eap->arg);
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3643 return;
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3644 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3645
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3646 if (fudi.fd_dict != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3647 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3648 // 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	3649 // 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	3650 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	3651 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3652 else
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3653 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3654 // 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	3655 // 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	3656 // 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	3657 // 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	3658 // one or more.
9733 59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	3659 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	3660 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3661 // 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	3662 // 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	3663 if (func_remove(fp))
59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	3664 fp->uf_refcount--;
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3665 fp->uf_flags \|= FC_DELETED;
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3666 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3667 else
10815 f883a1224396 patch 8.0.0297: double free on exit when using a closure Christian Brabandt <cb@256bit.org> parents: 10795 diff changeset	3668 func_clear_free(fp, FALSE);
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3669 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3670 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3671 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3672
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3673 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3674 * 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	3675 * becomes zero.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3676 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3677 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3678 func_unref(char_u *name)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3679 {
9655 f1920505bc16 commit https://github.com/vim/vim/commit/97baee80f0906ee2f651ee1215ec033e84f866ad Christian Brabandt <cb@256bit.org> parents: 9638 diff changeset	3680 ufunc_T *fp = NULL;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3681
9733 59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	3682 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	3683 return;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3684 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	3685 if (fp == NULL && isdigit(*name))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3686 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3687 #ifdef EXITFREE
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3688 if (!entered_free_all_mem)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3689 #endif
10359 66f1b5bf3fa6 commit https://github.com/vim/vim/commit/95f096030ed1a8afea028f2ea295d6f6a70f466f Christian Brabandt <cb@256bit.org> parents: 10042 diff changeset	3690 internal_error("func_unref()");
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3691 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3692 if (fp != NULL && --fp->uf_refcount <= 0)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3693 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3694 // 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	3695 // when "uf_calls" becomes zero.
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3696 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	3697 func_clear_free(fp, FALSE);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3698 }
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3699 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3700
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3701 /*
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3702 * 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	3703 * becomes zero.
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3704 */
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3705 void
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3706 func_ptr_unref(ufunc_T *fp)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3707 {
9655 f1920505bc16 commit https://github.com/vim/vim/commit/97baee80f0906ee2f651ee1215ec033e84f866ad Christian Brabandt <cb@256bit.org> parents: 9638 diff changeset	3708 if (fp != NULL && --fp->uf_refcount <= 0)
f1920505bc16 commit https://github.com/vim/vim/commit/97baee80f0906ee2f651ee1215ec033e84f866ad Christian Brabandt <cb@256bit.org> parents: 9638 diff changeset	3709 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3710 // 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	3711 // when "uf_calls" becomes zero.
9655 f1920505bc16 commit https://github.com/vim/vim/commit/97baee80f0906ee2f651ee1215ec033e84f866ad Christian Brabandt <cb@256bit.org> parents: 9638 diff changeset	3712 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	3713 func_clear_free(fp, FALSE);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3714 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3715 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3716
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3717 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3718 * Count a reference to a Function.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3719 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3720 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3721 func_ref(char_u *name)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3722 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3723 ufunc_T *fp;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3724
9733 59565cdd7261 commit https://github.com/vim/vim/commit/8dd3a43d75550e9b5736066124c97697564f769e Christian Brabandt <cb@256bit.org> parents: 9731 diff changeset	3725 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	3726 return;
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3727 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	3728 if (fp != NULL)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3729 ++fp->uf_refcount;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3730 else if (isdigit(*name))
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3731 // 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	3732 // 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	3733 internal_error("func_ref()");
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3734 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3735
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3736 /*
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3737 * Count a reference to a Function.
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3738 */
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3739 void
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3740 func_ptr_ref(ufunc_T *fp)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3741 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3742 if (fp != NULL)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	3743 ++fp->uf_refcount;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3744 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3745
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3746 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3747 * 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	3748 * referenced from anywhere that is in use.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3749 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3750 static int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3751 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	3752 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3753 return (fc->l_varlist.lv_copyID != copyID
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3754 && 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	3755 && fc->l_avars.dv_copyID != copyID
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	3756 && fc->fc_copyID != copyID);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3757 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3758
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3759 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3760 * ":return [expr]"
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3761 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3762 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3763 ex_return(exarg_T *eap)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3764 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3765 char_u *arg = eap->arg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3766 typval_T rettv;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3767 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	3768 evalarg_T evalarg;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3769
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3770 if (current_funccal == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3771 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	3772 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	3773 return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3774 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3775
20992 7ee565134d4a patch 8.2.1047: Vim9: script cannot use line continuation like :def function Bram Moolenaar <Bram@vim.org> parents: 20945 diff changeset	3776 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	3777 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	3778
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3779 if (eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3780 ++emsg_skip;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3781
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3782 eap->nextcmd = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3783 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	3784 && eval0(arg, &rettv, eap, &evalarg) != FAIL)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3785 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3786 if (!eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3787 returning = do_return(eap, FALSE, TRUE, &rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3788 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3789 clear_tv(&rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3790 }
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3791 // 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	3792 else if (!eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3793 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3794 // 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	3795 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	3796
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3797 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3798 * 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	3799 * aborting error, an interrupt, or an exception.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3800 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3801 if (!aborting())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3802 returning = do_return(eap, FALSE, TRUE, NULL);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3803 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3804
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3805 // 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	3806 // 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	3807 // 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	3808 if (returning)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3809 eap->nextcmd = NULL;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3810 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	3811 eap->nextcmd = check_nextcmd(arg);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3812
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3813 if (eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3814 --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	3815 clear_evalarg(&evalarg, eap);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3816 }
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 * ":1,25call func(arg1, arg2)" function call.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3820 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3821 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3822 ex_call(exarg_T *eap)
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 char_u *arg = eap->arg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3825 char_u *startarg;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3826 char_u *name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3827 char_u *tofree;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3828 int len;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3829 typval_T rettv;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3830 linenr_T lnum;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3831 int doesrange;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3832 int failed = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3833 funcdict_T fudi;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3834 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	3835 evalarg_T evalarg;
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21066 diff changeset	3836
b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21066 diff changeset	3837 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	3838 if (eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3839 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3840 // 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	3841 // 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	3842 // :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	3843 ++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	3844 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	3845 clear_tv(&rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3846 --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	3847 clear_evalarg(&evalarg, eap);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3848 return;
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
20189 63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3851 tofree = trans_function_name(&arg, NULL, eap->skip,
63cc54100ae4 patch 8.2.0650: Vim9: script function can be deleted Bram Moolenaar <Bram@vim.org> parents: 20144 diff changeset	3852 TFN_INT, &fudi, &partial);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3853 if (fudi.fd_newkey != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3854 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3855 // 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	3856 semsg(_(e_dictkey), fudi.fd_newkey);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3857 vim_free(fudi.fd_newkey);
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 if (tofree == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3860 return;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3861
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3862 // 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	3863 // the arguments.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3864 if (fudi.fd_dict != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3865 ++fudi.fd_dict->dv_refcount;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3866
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3867 // 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	3868 // 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	3869 // from trans_function_name().
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3870 len = (int)STRLEN(tofree);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3871 name = deref_func_name(tofree, &len,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3872 partial != NULL ? NULL : &partial, FALSE);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3873
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3874 // 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	3875 // backward compatibility.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3876 startarg = skipwhite(arg);
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3877 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	3878
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3879 if (*startarg != '(')
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3880 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	3881 semsg(_(e_missing_paren), eap->arg);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3882 goto end;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3883 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3884
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3885 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3886 * 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	3887 * arguments.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3888 * 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	3889 * call, and the loop is broken.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3890 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3891 if (eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3892 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3893 ++emsg_skip;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3894 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	3895 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3896 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3897 lnum = eap->line1;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3898 for ( ; lnum <= eap->line2; ++lnum)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3899 {
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	3900 funcexe_T funcexe;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	3901
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3902 if (!eap->skip && eap->addr_count > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3903 {
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	3904 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	3905 {
32787e326de2 patch 8.1.0511: ml_get error when calling a function with a range Bram Moolenaar <Bram@vim.org> parents: 14968 diff changeset	3906 // 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	3907 // 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	3908 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	3909 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	3910 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3911 curwin->w_cursor.lnum = lnum;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3912 curwin->w_cursor.col = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3913 curwin->w_cursor.coladd = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3914 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3915 arg = startarg;
17606 ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	3916
20007 aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose Bram Moolenaar <Bram@vim.org> parents: 19946 diff changeset	3917 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	3918 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	3919 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	3920 funcexe.doesrange = &doesrange;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	3921 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	3922 funcexe.partial = partial;
ff097edaae89 patch 8.1.1800: function call functions have too many arguments Bram Moolenaar <Bram@vim.org> parents: 17462 diff changeset	3923 funcexe.selfdict = fudi.fd_dict;
21118 b0baa80cb53f patch 8.2.1110: Vim9: line continuation does not work in function arguments Bram Moolenaar <Bram@vim.org> parents: 21066 diff changeset	3924 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	3925 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3926 failed = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3927 break;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3928 }
13262 69278c25429d patch 8.0.1505: debugger can't break on a condition Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	3929 if (has_watchexpr())
69278c25429d patch 8.0.1505: debugger can't break on a condition Christian Brabandt <cb@256bit.org> parents: 13244 diff changeset	3930 dbg_check_breakpoint(eap);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3931
17763 117c7795a979 patch 8.1.1878: negative float before method not parsed correctly Bram Moolenaar <Bram@vim.org> parents: 17732 diff changeset	3932 // 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	3933 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	3934 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	3935 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3936 failed = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3937 break;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3938 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3939
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3940 clear_tv(&rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3941 if (doesrange \|\| eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3942 break;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3943
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3944 // 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	3945 // 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	3946 // 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	3947 // characters below is executed.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3948 if (aborting())
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3949 break;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3950 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3951 if (eap->skip)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3952 --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	3953 clear_evalarg(&evalarg, eap);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3954
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	3955 // 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	3956 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	3957 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3958 // Check for trailing illegal characters and a following command.
20138 d0a9766167ab patch 8.2.0624: Vim9: no check for space before #comment Bram Moolenaar <Bram@vim.org> parents: 20081 diff changeset	3959 if (!ends_excmd2(eap->arg, arg))
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3960 {
19421 208644ebdff8 patch 8.2.0268: trycatch test fails Bram Moolenaar <Bram@vim.org> parents: 19419 diff changeset	3961 if (!failed)
208644ebdff8 patch 8.2.0268: trycatch test fails Bram Moolenaar <Bram@vim.org> parents: 19419 diff changeset	3962 {
208644ebdff8 patch 8.2.0268: trycatch test fails Bram Moolenaar <Bram@vim.org> parents: 19419 diff changeset	3963 emsg_severe = TRUE;
208644ebdff8 patch 8.2.0268: trycatch test fails Bram Moolenaar <Bram@vim.org> parents: 19419 diff changeset	3964 emsg(_(e_trailing));
208644ebdff8 patch 8.2.0268: trycatch test fails Bram Moolenaar <Bram@vim.org> parents: 19419 diff changeset	3965 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3966 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3967 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3968 eap->nextcmd = check_nextcmd(arg);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3969 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3970
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3971 end:
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3972 dict_unref(fudi.fd_dict);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3973 vim_free(tofree);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3974 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3975
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3976 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3977 * 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	3978 * 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	3979 * 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	3980 * 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	3981 * 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	3982 * FALSE when the return gets pending.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3983 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3984 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3985 do_return(
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3986 exarg_T *eap,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3987 int reanimate,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3988 int is_cmd,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3989 void *rettv)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3990 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3991 int idx;
18904 2bdc2e1f6e1f patch 8.2.0013: not using a typedef for condstack Bram Moolenaar <Bram@vim.org> parents: 18816 diff changeset	3992 cstack_T *cstack = eap->cstack;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3993
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3994 if (reanimate)
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	3995 // Undo the return.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3996 current_funccal->returned = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3997
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3998 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	3999 * 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	4000 * 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	4001 * 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	4002 * Otherwise, return normally.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4003 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4004 idx = cleanup_conditionals(eap->cstack, 0, TRUE);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4005 if (idx >= 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4006 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4007 cstack->cs_pending[idx] = CSTP_RETURN;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4008
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4009 if (!is_cmd && !reanimate)
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4010 // 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	4011 // 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	4012 // 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	4013 cstack->cs_rettv[idx] = rettv;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4014 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4015 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4016 // 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	4017 // return rettv.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4018 if (reanimate)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4019 rettv = current_funccal->rettv;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4020
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4021 if (rettv != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4022 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4023 // 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	4024 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	4025 (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	4026 else
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15138 diff changeset	4027 emsg(_(e_outofmem));
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4028 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4029 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4030 cstack->cs_rettv[idx] = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4031
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4032 if (reanimate)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4033 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4034 // 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	4035 // 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	4036 // return value.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4037 current_funccal->rettv->v_type = VAR_NUMBER;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4038 current_funccal->rettv->vval.v_number = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4039 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4040 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4041 report_make_pending(CSTP_RETURN, rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4042 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4043 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4044 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4045 current_funccal->returned = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4046
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4047 // 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	4048 // 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	4049 // there.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4050 if (!reanimate && rettv != NULL)
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 clear_tv(current_funccal->rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4053 current_funccal->rettv = (typval_T *)rettv;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4054 if (!is_cmd)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4055 vim_free(rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4056 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4057 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4058
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4059 return idx < 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4060 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4061
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4062 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4063 * 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	4064 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4065 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4066 discard_pending_return(void *rettv)
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 free_tv((typval_T *)rettv);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4069 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4070
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 * 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	4073 * 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	4074 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4075 char_u *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4076 get_return_cmd(void *rettv)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4077 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4078 char_u *s = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4079 char_u *tofree = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4080 char_u numbuf[NUMBUFLEN];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4081
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4082 if (rettv != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4083 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	4084 if (s == NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4085 s = (char_u *)"";
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 STRCPY(IObuff, ":return ");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4088 STRNCPY(IObuff + 8, s, IOSIZE - 8);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4089 if (STRLEN(s) + 8 >= IOSIZE)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4090 STRCPY(IObuff + IOSIZE - 4, "...");
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4091 vim_free(tofree);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4092 return vim_strsave(IObuff);
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
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4095 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4096 * Get next function line.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4097 * 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	4098 * 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	4099 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4100 char_u *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4101 get_func_line(
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4102 int c UNUSED,
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4103 void *cookie,
17178 40c4cb095d53 patch 8.1.1588: in :let-heredoc line continuation is recognized Bram Moolenaar <Bram@vim.org> parents: 17168 diff changeset	4104 int indent UNUSED,
40c4cb095d53 patch 8.1.1588: in :let-heredoc line continuation is recognized Bram Moolenaar <Bram@vim.org> parents: 17168 diff changeset	4105 int do_concat UNUSED)
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4106 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4107 funccall_T fcp = (funccall_T )cookie;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4108 ufunc_T *fp = fcp->func;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4109 char_u *retval;
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4110 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	4111
15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4112 // 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	4113 if (fcp->dbg_tick != debug_tick)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4114 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4115 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	4116 SOURCING_LNUM);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4117 fcp->dbg_tick = debug_tick;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4118 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4119 #ifdef FEAT_PROFILE
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4120 if (do_profiling == PROF_YES)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4121 func_line_end(cookie);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4122 #endif
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4123
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4124 gap = &fp->uf_lines;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4125 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	4126 \|\| fcp->returned)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4127 retval = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4128 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4129 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4130 // Skip NULL lines (continuation lines).
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4131 while (fcp->linenr < gap->ga_len
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4132 && ((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	4133 ++fcp->linenr;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4134 if (fcp->linenr >= gap->ga_len)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4135 retval = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4136 else
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 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	4139 SOURCING_LNUM = fcp->linenr;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4140 #ifdef FEAT_PROFILE
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4141 if (do_profiling == PROF_YES)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4142 func_line_start(cookie);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4143 #endif
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4144 }
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
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4147 // 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	4148 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	4149 {
18991 847cc7932c42 patch 8.2.0056: execution stack is incomplete and inefficient Bram Moolenaar <Bram@vim.org> parents: 18962 diff changeset	4150 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	4151 // Find next breakpoint.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4152 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	4153 SOURCING_LNUM);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4154 fcp->dbg_tick = debug_tick;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4155 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4156
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4157 return retval;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4158 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4159
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4160 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4161 * 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	4162 * 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	4163 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4164 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4165 func_has_ended(void *cookie)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4166 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4167 funccall_T fcp = (funccall_T )cookie;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4168
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4169 // 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	4170 // an error inside a try conditional.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4171 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	4172 \|\| fcp->returned);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4173 }
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 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4176 * 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	4177 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4178 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4179 func_has_abort(
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4180 void *cookie)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4181 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4182 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	4183 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4184
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4185
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4186 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4187 * 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	4188 * 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	4189 * explicitly (pt_auto is FALSE).
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4190 * Changes "rettv" in-place.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4191 * Returns the updated "selfdict_in".
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4192 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4193 dict_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4194 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	4195 {
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4196 char_u *fname;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4197 char_u *tofree = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4198 ufunc_T *fp;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4199 char_u fname_buf[FLEN_FIXED + 1];
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4200 int error;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4201 dict_T *selfdict = selfdict_in;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4202
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4203 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	4204 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	4205 else
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4206 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4207 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	4208 : 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	4209 // 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	4210 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	4211 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	4212 vim_free(tofree);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4213 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4214
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4215 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	4216 {
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	4217 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	4218
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4219 if (pt != NULL)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4220 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4221 pt->pt_refcount = 1;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4222 pt->pt_dict = selfdict;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4223 pt->pt_auto = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4224 selfdict = NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4225 if (rettv->v_type == VAR_FUNC)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4226 {
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4227 // 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	4228 // selfdict.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4229 pt->pt_name = rettv->vval.v_string;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4230 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4231 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4232 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4233 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	4234 int i;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4235
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4236 // 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	4237 // 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	4238 // be referenced elsewhere.
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4239 if (ret_pt->pt_name != NULL)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4240 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4241 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	4242 func_ref(pt->pt_name);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4243 }
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4244 else
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4245 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4246 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	4247 func_ptr_ref(pt->pt_func);
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4248 }
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4249 if (ret_pt->pt_argc > 0)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4250 {
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	4251 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	4252 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	4253 // out of memory: drop the arguments
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4254 pt->pt_argc = 0;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4255 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4256 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4257 pt->pt_argc = ret_pt->pt_argc;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4258 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	4259 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	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 partial_unref(ret_pt);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4263 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4264 rettv->v_type = VAR_PARTIAL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4265 rettv->vval.v_partial = pt;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4266 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4267 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4268 return selfdict;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4269 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4270
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4271 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4272 * Return the name of the executed function.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4273 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4274 char_u *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4275 func_name(void *cookie)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4276 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4277 return ((funccall_T *)cookie)->func->uf_name;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4278 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4279
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4280 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4281 * 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	4282 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4283 linenr_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4284 func_breakpoint(void *cookie)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4285 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4286 return &((funccall_T *)cookie)->breakpoint;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4287 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4288
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4289 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4290 * 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	4291 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4292 int *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4293 func_dbg_tick(void *cookie)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4294 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4295 return &((funccall_T *)cookie)->dbg_tick;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4296 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4297
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4298 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4299 * 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	4300 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4301 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4302 func_level(void *cookie)
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 return ((funccall_T *)cookie)->level;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4305 }
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 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4308 * 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	4309 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4310 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4311 current_func_returned(void)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4312 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4313 return current_funccal->returned;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4314 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4315
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4316 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4317 free_unref_funccal(int copyID, int testing)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4318 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4319 int did_free = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4320 int did_free_funccal = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4321 funccall_T fc, *pfc;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4322
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4323 for (pfc = &previous_funccal; *pfc != NULL; )
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4324 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4325 if (can_free_funccal(*pfc, copyID))
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4326 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4327 fc = *pfc;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4328 *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	4329 free_funccal_contents(fc);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4330 did_free = TRUE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4331 did_free_funccal = TRUE;
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 else
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4334 pfc = &(*pfc)->caller;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4335 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4336 if (did_free_funccal)
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4337 // 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	4338 // collected, so run again.
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4339 (void)garbage_collect(testing);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4340
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4341 return did_free;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4342 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4343
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4344 /*
9951 d990a4394c9d commit https://github.com/vim/vim/commit/ba2099034f92a2814494f37bddb0c57d034401b4 Christian Brabandt <cb@256bit.org> parents: 9844 diff changeset	4345 * 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	4346 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4347 static funccall_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4348 get_funccal(void)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4349 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4350 int i;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4351 funccall_T *funccal;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4352 funccall_T *temp_funccal;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4353
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4354 funccal = current_funccal;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4355 if (debug_backtrace_level > 0)
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 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	4358 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4359 temp_funccal = funccal->caller;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4360 if (temp_funccal)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4361 funccal = temp_funccal;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4362 else
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4363 // backtrace level overflow. reset to max
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4364 debug_backtrace_level = i;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4365 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4366 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4367 return funccal;
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
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4370 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4371 * 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	4372 * 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	4373 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4374 hashtab_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4375 get_funccal_local_ht()
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4376 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	4377 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	4378 return NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4379 return &get_funccal()->l_vars.dv_hashtab;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4380 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4381
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4382 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4383 * Return the l: scope variable.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4384 * 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	4385 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4386 dictitem_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4387 get_funccal_local_var()
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4388 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	4389 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	4390 return NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4391 return &get_funccal()->l_vars_var;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4392 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4393
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4394 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4395 * Return 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	4396 * 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	4397 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4398 hashtab_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4399 get_funccal_args_ht()
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4400 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	4401 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	4402 return NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4403 return &get_funccal()->l_avars.dv_hashtab;
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 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4407 * Return the a: scope variable.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4408 * 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	4409 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4410 dictitem_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4411 get_funccal_args_var()
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4412 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	4413 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	4414 return NULL;
10795 8afee415119d patch 8.0.0287: debug mode: cannot access function arguments Christian Brabandt <cb@256bit.org> parents: 10722 diff changeset	4415 return &get_funccal()->l_avars_var;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4416 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4417
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4418 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4419 * 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	4420 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4421 void
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4422 list_func_vars(int *first)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4423 {
19181 94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work Bram Moolenaar <Bram@vim.org> parents: 19075 diff changeset	4424 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	4425 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	4426 "l:", FALSE, first);
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4427 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4428
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4429 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4430 * 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	4431 * the dict that contains it.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4432 * Otherwise return NULL.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4433 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4434 dict_T *
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4435 get_current_funccal_dict(hashtab_T *ht)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4436 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4437 if (current_funccal != NULL
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4438 && ht == &current_funccal->l_vars.dv_hashtab)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4439 return &current_funccal->l_vars;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4440 return NULL;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4441 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4442
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4443 /*
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4444 * Search hashitem in parent scope.
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4445 */
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4446 hashitem_T *
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	4447 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	4448 {
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4449 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	4450 hashtab_T *ht;
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4451 hashitem_T *hi = NULL;
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	4452 char_u *varname;
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4453
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4454 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	4455 return NULL;
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4456
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	4457 // 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	4458 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	4459 while (current_funccal != NULL)
9688 2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4460 {
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	4461 ht = find_var_ht(name, &varname);
f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	4462 if (ht != NULL && *varname != NUL)
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	4463 {
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	4464 hi = hash_find(ht, varname);
9721 79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	4465 if (!HASHITEM_EMPTY(hi))
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	4466 {
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	4467 *pht = ht;
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	4468 break;
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	4469 }
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	4470 }
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	4471 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	4472 break;
79862f44c647 commit https://github.com/vim/vim/commit/580164481924ed8611eb79f0247a0eb1ca0b3b9a Christian Brabandt <cb@256bit.org> parents: 9717 diff changeset	4473 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	4474 }
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4475 current_funccal = old_current_funccal;
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4476
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4477 return hi;
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4478 }
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4479
2ea935bdd1a1 commit https://github.com/vim/vim/commit/10ce39a0d52272a3dfff2feb8c631529f29e6740 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	4480 /*
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4481 * Search variable in parent scope.
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4482 */
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4483 dictitem_T *
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	4484 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	4485 {
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4486 dictitem_T *v = NULL;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4487 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	4488 hashtab_T *ht;
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	4489 char_u *varname;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4490
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4491 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	4492 return NULL;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4493
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4494 // 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	4495 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	4496 while (current_funccal)
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4497 {
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	4498 ht = find_var_ht(name, &varname);
f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	4499 if (ht != NULL && *varname != NUL)
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4500 {
9731 f85d94eee05b commit https://github.com/vim/vim/commit/ba96e9af388804364425185b47eed14988302865 Christian Brabandt <cb@256bit.org> parents: 9727 diff changeset	4501 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	4502 if (v != NULL)
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4503 break;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4504 }
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4505 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	4506 break;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4507 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	4508 }
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4509 current_funccal = old_current_funccal;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4510
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4511 return v;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4512 }
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4513
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4514 /*
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4515 * 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	4516 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4517 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4518 set_ref_in_previous_funccal(int copyID)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4519 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4520 int abort = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4521 funccall_T *fc;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4522
17127 d244a9be99db patch 8.1.1563: crash when using closures Bram Moolenaar <Bram@vim.org> parents: 16969 diff changeset	4523 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	4524 {
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4525 fc->fc_copyID = copyID + 1;
17127 d244a9be99db patch 8.1.1563: crash when using closures Bram Moolenaar <Bram@vim.org> parents: 16969 diff changeset	4526 abort = abort
d244a9be99db patch 8.1.1563: crash when using closures Bram Moolenaar <Bram@vim.org> parents: 16969 diff changeset	4527 \|\| 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	4528 \|\| 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	4529 \|\| 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	4530 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4531 return abort;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4532 }
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4533
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4534 static int
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4535 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	4536 {
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4537 int abort = FALSE;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4538
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4539 if (fc->fc_copyID != copyID)
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4540 {
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4541 fc->fc_copyID = copyID;
17127 d244a9be99db patch 8.1.1563: crash when using closures Bram Moolenaar <Bram@vim.org> parents: 16969 diff changeset	4542 abort = abort
d244a9be99db patch 8.1.1563: crash when using closures Bram Moolenaar <Bram@vim.org> parents: 16969 diff changeset	4543 \|\| 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	4544 \|\| 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	4545 \|\| 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	4546 \|\| 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	4547 }
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4548 return abort;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4549 }
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4550
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4551 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4552 * 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	4553 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4554 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4555 set_ref_in_call_stack(int copyID)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4556 {
16969 8c794a694d66 patch 8.1.1485: double free when garbage_collect() is used in autocommand Bram Moolenaar <Bram@vim.org> parents: 16872 diff changeset	4557 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	4558 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	4559 funccal_entry_T *entry;
9562 86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4560
17151 ebe9aab81898 patch 8.1.1575: callbacks may be garbage collected Bram Moolenaar <Bram@vim.org> parents: 17127 diff changeset	4561 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	4562 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	4563
8c794a694d66 patch 8.1.1485: double free when garbage_collect() is used in autocommand Bram Moolenaar <Bram@vim.org> parents: 16872 diff changeset	4564 // 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	4565 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	4566 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	4567 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	4568
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4569 return abort;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4570 }
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4571
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4572 /*
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4573 * 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	4574 */
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4575 int
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4576 set_ref_in_functions(int copyID)
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4577 {
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4578 int todo;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4579 hashitem_T *hi = NULL;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4580 int abort = FALSE;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4581 ufunc_T *fp;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4582
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4583 todo = (int)func_hashtab.ht_used;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4584 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	4585 {
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4586 if (!HASHITEM_EMPTY(hi))
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4587 {
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4588 --todo;
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4589 fp = HI2UF(hi);
8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4590 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	4591 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	4592 }
9562 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 return abort;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4595 }
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 /*
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4598 * Set "copyID" in all function arguments.
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4599 */
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4600 int
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4601 set_ref_in_func_args(int copyID)
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4602 {
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4603 int i;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4604 int abort = FALSE;
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4605
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4606 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	4607 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	4608 copyID, NULL, NULL);
86af4a48c00a commit https://github.com/vim/vim/commit/a9b579f3d7463720a316e11e77a7a9fbb9267986 Christian Brabandt <cb@256bit.org> parents: diff changeset	4609 return abort;
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
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4612 /*
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4613 * 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	4614 * 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	4615 */
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4616 int
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4617 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	4618 {
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4619 ufunc_T *fp = fp_in;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4620 funccall_T *fc;
19013 dd9ab0674eec patch 8.2.0067: ERROR_UNKNOWN clashes on some systems Bram Moolenaar <Bram@vim.org> parents: 18991 diff changeset	4621 int error = FCERR_NONE;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4622 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	4623 char_u *tofree = NULL;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4624 char_u *fname;
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4625 int abort = FALSE;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4626
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4627 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	4628 return FALSE;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4629
9723 80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4630 if (fp_in == NULL)
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4631 {
80ac9cf77c9b commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c Christian Brabandt <cb@256bit.org> parents: 9721 diff changeset	4632 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	4633 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	4634 }
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4635 if (fp != NULL)
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4636 {
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4637 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	4638 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	4639 }
20255 aac52c32a91f patch 8.2.0683: Vim9: parsing type does not always work Bram Moolenaar <Bram@vim.org> parents: 20244 diff changeset	4640
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4641 vim_free(tofree);
9735 8037eb704e93 commit https://github.com/vim/vim/commit/bc7ce675b2d1c9fb58c067eff3edd59abc30aba4 Christian Brabandt <cb@256bit.org> parents: 9733 diff changeset	4642 return abort;
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4643 }
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9655 diff changeset	4644
18816 15539899a112 patch 8.1.2396: using old C style comments Bram Moolenaar <Bram@vim.org> parents: 18576 diff changeset	4645 #endif // FEAT_EVAL

Mercurial > vim

annotate src/userfunc.c @ 21118:b0baa80cb53f v8.2.1110