vim: src/scriptfile.c annotate

author	Christian Brabandt <cb@256bit.org>
date	Mon, 26 Jun 2023 09:54:34 +0200
parents	b8e9ea3c1ed0
children	695b50472e85

rev	line source
32669 448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	2 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	4 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	6 * Do ":help credits" in Vim to see a list of people who contributed.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	7 * See README.txt for an overview of the Vim source code.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	8 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	9
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	10 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	11 * scriptfile.c: functions for dealing with the runtime directories/files
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	12 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	13
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	14 #include "vim.h"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	15
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	16 #if defined(FEAT_EVAL) \|\| defined(PROTO)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	17 // The names of packages that once were loaded are remembered.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	18 static garray_T ga_loaded = {0, 0, sizeof(char_u *), 4, NULL};
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	19 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	20
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	21 // last used sequence number for sourcing scripts (current_sctx.sc_seq)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	22 #ifdef FEAT_EVAL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	23 static int last_current_SID_seq = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	24 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	25
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	26 static int do_source_ext(char_u fname, int check_other, int is_vimrc, int ret_sid, exarg_T *eap, int clearvars);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	27
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	28 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	29 * Initialize the execution stack.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	30 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	31 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	32 estack_init(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	33 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	34 estack_T *entry;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	35
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	36 if (ga_grow(&exestack, 10) == FAIL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	37 mch_exit(0);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	38 entry = ((estack_T *)exestack.ga_data) + exestack.ga_len;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	39 entry->es_type = ETYPE_TOP;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	40 entry->es_name = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	41 entry->es_lnum = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	42 #ifdef FEAT_EVAL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	43 entry->es_info.ufunc = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	44 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	45 ++exestack.ga_len;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	46 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	47
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	48 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	49 * Add an item to the execution stack.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	50 * Returns the new entry or NULL when out of memory.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	51 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	52 estack_T *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	53 estack_push(etype_T type, char_u *name, long lnum)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	54 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	55 estack_T *entry;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	56
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	57 // If memory allocation fails then we'll pop more than we push, eventually
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	58 // at the top level it will be OK again.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	59 if (ga_grow(&exestack, 1) == FAIL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	60 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	61
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	62 entry = ((estack_T *)exestack.ga_data) + exestack.ga_len;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	63 entry->es_type = type;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	64 entry->es_name = name;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	65 entry->es_lnum = lnum;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	66 #ifdef FEAT_EVAL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	67 entry->es_info.ufunc = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	68 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	69 ++exestack.ga_len;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	70 return entry;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	71 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	72
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	73 #if defined(FEAT_EVAL) \|\| defined(PROTO)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	74 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	75 * Add a user function to the execution stack.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	76 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	77 estack_T *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	78 estack_push_ufunc(ufunc_T *ufunc, long lnum)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	79 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	80 estack_T *entry = estack_push(ETYPE_UFUNC,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	81 ufunc->uf_name_exp != NULL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	82 ? ufunc->uf_name_exp : ufunc->uf_name, lnum);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	83 if (entry != NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	84 entry->es_info.ufunc = ufunc;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	85 return entry;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	86 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	87
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	88 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	89 * Return TRUE if "ufunc" with "lnum" is already at the top of the exe stack.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	90 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	91 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	92 estack_top_is_ufunc(ufunc_T *ufunc, long lnum)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	93 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	94 estack_T *entry;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	95
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	96 if (exestack.ga_len == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	97 return FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	98 entry = ((estack_T *)exestack.ga_data) + exestack.ga_len - 1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	99 return entry->es_type == ETYPE_UFUNC
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	100 && STRCMP( entry->es_name, ufunc->uf_name_exp != NULL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	101 ? ufunc->uf_name_exp : ufunc->uf_name) == 0
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	102 && entry->es_lnum == lnum;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	103 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	104 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	105
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	106 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	107 * Take an item off of the execution stack and return it.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	108 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	109 estack_T *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	110 estack_pop(void)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	111 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	112 if (exestack.ga_len == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	113 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	114 --exestack.ga_len;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	115 return ((estack_T *)exestack.ga_data) + exestack.ga_len;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	116 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	117
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	118 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	119 * Get the current value for "which" in allocated memory.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	120 * "which" is ESTACK_SFILE for <sfile>, ESTACK_STACK for <stack> or
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	121 * ESTACK_SCRIPT for <script>.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	122 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	123 char_u *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	124 estack_sfile(estack_arg_T which UNUSED)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	125 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	126 estack_T *entry;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	127 #ifdef FEAT_EVAL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	128 garray_T ga;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	129 size_t len;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	130 int idx;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	131 etype_T last_type = ETYPE_SCRIPT;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	132 char *type_name;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	133 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	134
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	135 entry = ((estack_T *)exestack.ga_data) + exestack.ga_len - 1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	136 #ifdef FEAT_EVAL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	137 if (which == ESTACK_SFILE && entry->es_type != ETYPE_UFUNC)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	138 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	139 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	140 if (entry->es_name == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	141 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	142 return vim_strsave(entry->es_name);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	143 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	144 #ifdef FEAT_EVAL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	145 // expand('<sfile>') works in a function for backwards compatibility, but
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	146 // may give an unexpected result. Disallow it in Vim 9 script.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	147 if (which == ESTACK_SFILE && in_vim9script())
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	148 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	149 int save_emsg_off = emsg_off;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	150
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	151 if (emsg_off == 1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	152 // f_expand() silences errors but we do want this one
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	153 emsg_off = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	154 emsg(_(e_cannot_expand_sfile_in_vim9_function));
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	155 emsg_off = save_emsg_off;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	156 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	157 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	158
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	159 // If evaluated in a function or autocommand, return the path of the script
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	160 // where it is defined, at script level the current script path is returned
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	161 // instead.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	162 if (which == ESTACK_SCRIPT)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	163 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	164 // Walk the stack backwards, starting from the current frame.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	165 for (idx = exestack.ga_len - 1; idx >= 0; --idx, --entry)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	166 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	167 if (entry->es_type == ETYPE_UFUNC \|\| entry->es_type == ETYPE_AUCMD)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	168 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	169 sctx_T *def_ctx = entry->es_type == ETYPE_UFUNC
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	170 ? &entry->es_info.ufunc->uf_script_ctx
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	171 : acp_script_ctx(entry->es_info.aucmd);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	172
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	173 return def_ctx->sc_sid > 0
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	174 ? vim_strsave(SCRIPT_ITEM(def_ctx->sc_sid)->sn_name)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	175 : NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	176 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	177 else if (entry->es_type == ETYPE_SCRIPT)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	178 return vim_strsave(entry->es_name);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	179 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	180 return NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	181 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	182
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	183 // Give information about each stack entry up to the root.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	184 // For a function we compose the call stack, as it was done in the past:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	185 // "function One[123]..Two[456]..Three"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	186 ga_init2(&ga, sizeof(char), 100);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	187 for (idx = 0; idx < exestack.ga_len; ++idx)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	188 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	189 entry = ((estack_T *)exestack.ga_data) + idx;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	190 if (entry->es_name != NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	191 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	192 long lnum = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	193 char *dots;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	194
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	195 len = STRLEN(entry->es_name) + 15;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	196 type_name = "";
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	197 if (entry->es_type != last_type)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	198 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	199 switch (entry->es_type)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	200 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	201 case ETYPE_SCRIPT: type_name = "script "; break;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	202 case ETYPE_UFUNC: type_name = "function "; break;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	203 default: type_name = ""; break;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	204 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	205 last_type = entry->es_type;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	206 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	207 len += STRLEN(type_name);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	208 if (ga_grow(&ga, (int)len) == FAIL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	209 break;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	210 if (idx == exestack.ga_len - 1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	211 lnum = which == ESTACK_STACK ? SOURCING_LNUM : 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	212 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	213 lnum = entry->es_lnum;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	214 dots = idx == exestack.ga_len - 1 ? "" : "..";
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	215 if (lnum == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	216 // For the bottom entry of <sfile>: do not add the line number,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	217 // it is used in <slnum>. Also leave it out when the number is
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	218 // not set.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	219 vim_snprintf((char *)ga.ga_data + ga.ga_len, len, "%s%s%s",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	220 type_name, entry->es_name, dots);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	221 else
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	222 vim_snprintf((char *)ga.ga_data + ga.ga_len, len, "%s%s[%ld]%s",
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	223 type_name, entry->es_name, lnum, dots);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	224 ga.ga_len += (int)STRLEN((char *)ga.ga_data + ga.ga_len);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	225 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	226 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	227
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	228 return (char_u *)ga.ga_data;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	229 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	230 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	231
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	232 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	233 * Get DIP_ flags from the [where] argument of a :runtime command.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	234 * "*argp" is advanced to after the [where] argument if it is found.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	235 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	236 static int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	237 get_runtime_cmd_flags(char_u **argp, size_t where_len)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	238 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	239 char_u arg = argp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	240
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	241 if (where_len == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	242 return 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	243
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	244 if (STRNCMP(arg, "START", where_len) == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	245 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	246 *argp = skipwhite(arg + where_len);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	247 return DIP_START + DIP_NORTP;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	248 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	249 if (STRNCMP(arg, "OPT", where_len) == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	250 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	251 *argp = skipwhite(arg + where_len);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	252 return DIP_OPT + DIP_NORTP;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	253 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	254 if (STRNCMP(arg, "PACK", where_len) == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	255 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	256 *argp = skipwhite(arg + where_len);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	257 return DIP_START + DIP_OPT + DIP_NORTP;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	258 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	259 if (STRNCMP(arg, "ALL", where_len) == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	260 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	261 *argp = skipwhite(arg + where_len);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	262 return DIP_START + DIP_OPT;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	263 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	264
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	265 return 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	266 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	267
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	268 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	269 * ":runtime [where] {name}"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	270 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	271 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	272 ex_runtime(exarg_T *eap)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	273 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	274 char_u *arg = eap->arg;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	275 int flags = eap->forceit ? DIP_ALL : 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	276 char_u *p = skiptowhite(arg);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	277 flags += get_runtime_cmd_flags(&arg, p - arg);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	278 source_runtime(arg, flags);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	279 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	280
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	281 static int runtime_expand_flags;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	282
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	283 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	284 * Set the completion context for the :runtime command.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	285 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	286 void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	287 set_context_in_runtime_cmd(expand_T xp, char_u arg)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	288 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	289 char_u *p = skiptowhite(arg);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	290 runtime_expand_flags
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	291 = *p != NUL ? get_runtime_cmd_flags(&arg, p - arg) : 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	292 xp->xp_context = EXPAND_RUNTIME;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	293 xp->xp_pattern = arg;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	294 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	295
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	296 static void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	297 source_callback(char_u fname, void cookie)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	298 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	299 (void)do_source(fname, FALSE, DOSO_NONE, cookie);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	300 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	301
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	302 #ifdef FEAT_EVAL
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	303 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	304 * Find an already loaded script "name".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	305 * If found returns its script ID. If not found returns -1.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	306 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	307 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	308 find_script_by_name(char_u *name)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	309 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	310 int sid;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	311 scriptitem_T *si;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	312
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	313 for (sid = script_items.ga_len; sid > 0; --sid)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	314 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	315 // We used to check inode here, but that doesn't work:
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	316 // - If a script is edited and written, it may get a different
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	317 // inode number, even though to the user it is the same script.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	318 // - If a script is deleted and another script is written, with a
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	319 // different name, the inode may be re-used.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	320 si = SCRIPT_ITEM(sid);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	321 if (si->sn_name != NULL && fnamecmp(si->sn_name, name) == 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	322 return sid;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	323 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	324 return -1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	325 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	326
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	327 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	328 * Add a new scriptitem with all items initialized.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	329 * When running out of memory "error" is set to FAIL.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	330 * Returns the script ID.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	331 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	332 static int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	333 get_new_scriptitem(int *error)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	334 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	335 static scid_T last_current_SID = 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	336 int sid = ++last_current_SID;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	337 scriptitem_T *si = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	338
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	339 if (ga_grow(&script_items, (int)(sid - script_items.ga_len)) == FAIL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	340 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	341 *error = FAIL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	342 return sid;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	343 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	344 while (script_items.ga_len < sid)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	345 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	346 si = ALLOC_CLEAR_ONE(scriptitem_T);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	347 if (si == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	348 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	349 *error = FAIL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	350 return sid;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	351 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	352 ++script_items.ga_len;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	353 SCRIPT_ITEM(script_items.ga_len) = si;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	354 si->sn_name = NULL;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	355 si->sn_version = 1;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	356
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	357 // Allocate the local script variables to use for this script.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	358 new_script_vars(script_items.ga_len);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	359 ga_init2(&si->sn_var_vals, sizeof(svar_T), 10);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	360 hash_init(&si->sn_all_vars.dv_hashtab);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	361 ga_init2(&si->sn_imports, sizeof(imported_T), 10);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	362 ga_init2(&si->sn_type_list, sizeof(type_T), 10);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	363 # ifdef FEAT_PROFILE
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	364 si->sn_prof_on = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	365 # endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	366 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	367
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	368 // "si" can't be NULL, check only to avoid a compiler warning
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	369 if (si != NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	370 // Used to check script variable index is still valid.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	371 si->sn_script_seq = current_sctx.sc_seq;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	372
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	373 return sid;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	374 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	375
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	376 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	377 get_new_scriptitem_for_fname(int error, char_u fname)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	378 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	379 int sid = get_new_scriptitem(error);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	380
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	381 if (*error == OK)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	382 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	383 scriptitem_T *si = SCRIPT_ITEM(sid);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	384
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	385 si->sn_name = vim_strsave(fname);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	386 si->sn_state = SN_STATE_NOT_LOADED;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	387 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	388 return sid;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	389 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	390
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	391 static void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	392 find_script_callback(char_u fname, void cookie)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	393 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	394 int sid;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	395 int error = OK;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	396 int *ret_sid = cookie;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	397
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	398 sid = find_script_by_name(fname);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	399 if (sid < 0)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	400 // script does not exist yet, create a new scriptitem
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	401 sid = get_new_scriptitem_for_fname(&error, fname);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	402 *ret_sid = sid;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	403 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	404 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	405
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	406 /*
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	407 * Find the file "name" in all directories in "path" and invoke
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	408 * "callback(fname, cookie)".
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	409 * "name" can contain wildcards.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	410 * When "flags" has DIP_ALL: source all files, otherwise only the first one.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	411 * When "flags" has DIP_DIR: find directories instead of files.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	412 * When "flags" has DIP_ERR: give an error message if there is no match.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	413 *
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	414 * return FAIL when no file could be sourced, OK otherwise.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	415 */
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	416 int
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	417 do_in_path(
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	418 char_u *path,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	419 char_u *name,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	420 int flags,
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	421 void (callback)(char_u fname, void *ck),
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	422 void *cookie)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	423 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	424 char_u *rtp;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	425 char_u *np;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	426 char_u *buf;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	427 char_u *rtp_copy;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	428 char_u *tail;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	429 int num_files;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	430 char_u **files;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	431 int i;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	432 int did_one = FALSE;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	433 #ifdef AMIGA
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	434 struct Process proc = (struct Process )FindTask(0L);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	435 APTR save_winptr = proc->pr_WindowPtr;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	436
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	437 // Avoid a requester here for a volume that doesn't exist.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	438 proc->pr_WindowPtr = (APTR)-1L;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	439 #endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	440
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	441 // Make a copy of 'runtimepath'. Invoking the callback may change the
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	442 // value.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	443 rtp_copy = vim_strsave(path);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	444 buf = alloc(MAXPATHL);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	445 if (buf != NULL && rtp_copy != NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	446 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	447 if (p_verbose > 10 && name != NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	448 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	449 verbose_enter();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	450 smsg(_("Searching for \"%s\" in \"%s\""),
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	451 (char )name, (char )path);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	452 verbose_leave();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	453 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	454
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	455 // Loop over all entries in 'runtimepath'.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	456 rtp = rtp_copy;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	457 while (*rtp != NUL && ((flags & DIP_ALL) \|\| !did_one))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	458 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	459 size_t buflen;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	460
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	461 // Copy the path from 'runtimepath' to buf[].
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	462 copy_option_part(&rtp, buf, MAXPATHL, ",");
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	463 buflen = STRLEN(buf);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	464
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	465 // Skip after or non-after directories.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	466 if (flags & (DIP_NOAFTER \| DIP_AFTER))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	467 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	468 int is_after = buflen >= 5
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	469 && STRCMP(buf + buflen - 5, "after") == 0;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	470
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	471 if ((is_after && (flags & DIP_NOAFTER))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	472 \|\| (!is_after && (flags & DIP_AFTER)))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	473 continue;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	474 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	475
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	476 if (name == NULL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	477 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	478 (callback)(buf, (void ) &cookie);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	479 if (!did_one)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	480 did_one = (cookie == NULL);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	481 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	482 else if (buflen + STRLEN(name) + 2 < MAXPATHL)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	483 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	484 add_pathsep(buf);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	485 tail = buf + STRLEN(buf);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	486
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	487 // Loop over all patterns in "name"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	488 np = name;
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	489 while (*np != NUL && ((flags & DIP_ALL) \|\| !did_one))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	490 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	491 // Append the pattern from "name" to buf[].
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	492 copy_option_part(&np, tail, (int)(MAXPATHL - (tail - buf)),
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	493 "\t ");
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	494
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	495 if (p_verbose > 10)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	496 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	497 verbose_enter();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	498 smsg(_("Searching for \"%s\""), buf);
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	499 verbose_leave();
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32383 diff changeset	500 }

32669

448aef880252 normalize line endings