vim: src/ex_cmds2.c annotate

annotate src/ex_cmds2.c @ 16764:ef00b6bc186b v8.1.1384

patch 8.1.1384: using "int" for alloc() often results in compiler warnings commit https://github.com/vim/vim/commit/964b3746b9c81e65887e2ac9a335f181db2bb592 Author: Bram Moolenaar <Bram@vim.org> Date: Fri May 24 18:54:09 2019 +0200 patch 8.1.1384: using "int" for alloc() often results in compiler warnings Problem: Using "int" for alloc() often results in compiler warnings. Solution: Use "size_t" and remove type casts. Remove alloc_check(), Vim only works with 32 bit ints anyway.

author	Bram Moolenaar <Bram@vim.org>
date	Fri, 24 May 2019 19:00:07 +0200
parents	b52ea9c5f1db
children	fc58fee685e2

rev	line source
10042 4aead6a9b7a9 commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47 Christian Brabandt <cb@256bit.org> parents: 9812 diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2 *
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4 *
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	6 * Do ":help credits" in Vim to see a list of people who contributed.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	7 * See README.txt for an overview of the Vim source code.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	8 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	9
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	10 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	11 * ex_cmds2.c: some more functions for command line commands
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	12 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	13
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	14 #include "vim.h"
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	15 #include "version.h"
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	16
7799 af3c41a3c53f commit https://github.com/vim/vim/commit/f28dbcea371b3a35727d91afc90fb90e0527d78a Christian Brabandt <cb@256bit.org> parents: 7726 diff changeset	17 static void cmd_source(char_u fname, exarg_T eap);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	18
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	19 #ifdef FEAT_EVAL
177 84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	20 /* Growarray to store info about already sourced scripts.
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	21 * For Unix also store the dev/ino, so that we don't have to stat() each
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	22 * script when going through the list. */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	23 typedef struct scriptitem_S
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	24 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	25 char_u *sn_name;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	26 # ifdef UNIX
1882 c8b87fa14d27 updated for version 7.2-179 vimboss parents: 1876 diff changeset	27 int sn_dev_valid;
c8b87fa14d27 updated for version 7.2-179 vimboss parents: 1876 diff changeset	28 dev_t sn_dev;
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	29 ino_t sn_ino;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	30 # endif
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	31 # ifdef FEAT_PROFILE
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	32 int sn_prof_on; /* TRUE when script is/was profiled */
177 84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	33 int sn_pr_force; /* forceit: profile functions in this script */
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	34 proftime_T sn_pr_child; /* time set when going into first child */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	35 int sn_pr_nest; /* nesting for sn_pr_child */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	36 /* profiling the script as a whole */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	37 int sn_pr_count; /* nr of times sourced */
1624 18ee39301b82 updated for version 7.2a vimboss parents: 1517 diff changeset	38 proftime_T sn_pr_total; /* time spent in script + children */
18ee39301b82 updated for version 7.2a vimboss parents: 1517 diff changeset	39 proftime_T sn_pr_self; /* time spent in script itself */
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	40 proftime_T sn_pr_start; /* time at script start */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	41 proftime_T sn_pr_children; /* time in children after script start */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	42 /* profiling the script per line */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	43 garray_T sn_prl_ga; /* things stored for every line */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	44 proftime_T sn_prl_start; /* start time for current line */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	45 proftime_T sn_prl_children; /* time spent in children for this line */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	46 proftime_T sn_prl_wait; /* wait start time for current line */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	47 int sn_prl_idx; /* index of line being timed; -1 if none */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	48 int sn_prl_execed; /* line being timed was executed */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	49 # endif
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	50 } scriptitem_T;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	51
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	52 static garray_T script_items = {0, 0, sizeof(scriptitem_T), 4, NULL};
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	53 #define SCRIPT_ITEM(id) (((scriptitem_T *)script_items.ga_data)[(id) - 1])
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	54
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	55 # ifdef FEAT_PROFILE
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	56 /* Struct used in sn_prl_ga for every line of a script. */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	57 typedef struct sn_prl_S
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	58 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	59 int snp_count; /* nr of times line was executed */
1624 18ee39301b82 updated for version 7.2a vimboss parents: 1517 diff changeset	60 proftime_T sn_prl_total; /* time spent in a line + children */
18ee39301b82 updated for version 7.2a vimboss parents: 1517 diff changeset	61 proftime_T sn_prl_self; /* time spent in a line itself */
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	62 } sn_prl_T;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	63
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	64 # define PRL_ITEM(si, idx) (((sn_prl_T *)(si)->sn_prl_ga.ga_data)[(idx)])
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	65 # endif
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	66 #endif
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	67
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	68 #if defined(FEAT_EVAL) \|\| defined(PROTO)
794 f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	69 # if defined(FEAT_PROFILE) \|\| defined(FEAT_RELTIME) \|\| defined(PROTO)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	70 /*
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	71 * Store the current time in "tm".
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	72 */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	73 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	74 profile_start(proftime_T *tm)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	75 {
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15842 diff changeset	76 # ifdef MSWIN
177 84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	77 QueryPerformanceCounter(tm);
84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	78 # else
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	79 gettimeofday(tm, NULL);
177 84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	80 # endif
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	81 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	82
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	83 /*
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	84 * Compute the elapsed time from "tm" till now and store in "tm".
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	85 */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	86 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	87 profile_end(proftime_T *tm)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	88 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	89 proftime_T now;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	90
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15842 diff changeset	91 # ifdef MSWIN
177 84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	92 QueryPerformanceCounter(&now);
84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	93 tm->QuadPart = now.QuadPart - tm->QuadPart;
84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	94 # else
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	95 gettimeofday(&now, NULL);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	96 tm->tv_usec = now.tv_usec - tm->tv_usec;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	97 tm->tv_sec = now.tv_sec - tm->tv_sec;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	98 if (tm->tv_usec < 0)
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	99 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	100 tm->tv_usec += 1000000;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	101 --tm->tv_sec;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	102 }
177 84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	103 # endif
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	104 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	105
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	106 /*
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	107 * Subtract the time "tm2" from "tm".
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	108 */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	109 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	110 profile_sub(proftime_T tm, proftime_T tm2)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	111 {
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15842 diff changeset	112 # ifdef MSWIN
177 84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	113 tm->QuadPart -= tm2->QuadPart;
84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	114 # else
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	115 tm->tv_usec -= tm2->tv_usec;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	116 tm->tv_sec -= tm2->tv_sec;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	117 if (tm->tv_usec < 0)
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	118 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	119 tm->tv_usec += 1000000;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	120 --tm->tv_sec;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	121 }
177 84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	122 # endif
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	123 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	124
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	125 /*
794 f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	126 * Return a string that represents the time in "tm".
f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	127 * Uses a static buffer!
f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	128 */
f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	129 char *
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	130 profile_msg(proftime_T *tm)
794 f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	131 {
f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	132 static char buf[50];
f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	133
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15842 diff changeset	134 # ifdef MSWIN
794 f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	135 LARGE_INTEGER fr;
f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	136
f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	137 QueryPerformanceFrequency(&fr);
f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	138 sprintf(buf, "%10.6lf", (double)tm->QuadPart / (double)fr.QuadPart);
f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	139 # else
f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	140 sprintf(buf, "%3ld.%06ld", (long)tm->tv_sec, (long)tm->tv_usec);
1496 29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	141 # endif
794 f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	142 return buf;
f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	143 }
f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	144
7979 22367b9f528a commit https://github.com/vim/vim/commit/79c2c881bb7ae1cbdeeff91d4875b4bf2e54df06 Christian Brabandt <cb@256bit.org> parents: 7856 diff changeset	145 # if defined(FEAT_FLOAT) \|\| defined(PROTO)
22367b9f528a commit https://github.com/vim/vim/commit/79c2c881bb7ae1cbdeeff91d4875b4bf2e54df06 Christian Brabandt <cb@256bit.org> parents: 7856 diff changeset	146 /*
22367b9f528a commit https://github.com/vim/vim/commit/79c2c881bb7ae1cbdeeff91d4875b4bf2e54df06 Christian Brabandt <cb@256bit.org> parents: 7856 diff changeset	147 * Return a float that represents the time in "tm".
22367b9f528a commit https://github.com/vim/vim/commit/79c2c881bb7ae1cbdeeff91d4875b4bf2e54df06 Christian Brabandt <cb@256bit.org> parents: 7856 diff changeset	148 */
22367b9f528a commit https://github.com/vim/vim/commit/79c2c881bb7ae1cbdeeff91d4875b4bf2e54df06 Christian Brabandt <cb@256bit.org> parents: 7856 diff changeset	149 float_T
22367b9f528a commit https://github.com/vim/vim/commit/79c2c881bb7ae1cbdeeff91d4875b4bf2e54df06 Christian Brabandt <cb@256bit.org> parents: 7856 diff changeset	150 profile_float(proftime_T *tm)
22367b9f528a commit https://github.com/vim/vim/commit/79c2c881bb7ae1cbdeeff91d4875b4bf2e54df06 Christian Brabandt <cb@256bit.org> parents: 7856 diff changeset	151 {
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15842 diff changeset	152 # ifdef MSWIN
7979 22367b9f528a commit https://github.com/vim/vim/commit/79c2c881bb7ae1cbdeeff91d4875b4bf2e54df06 Christian Brabandt <cb@256bit.org> parents: 7856 diff changeset	153 LARGE_INTEGER fr;
22367b9f528a commit https://github.com/vim/vim/commit/79c2c881bb7ae1cbdeeff91d4875b4bf2e54df06 Christian Brabandt <cb@256bit.org> parents: 7856 diff changeset	154
22367b9f528a commit https://github.com/vim/vim/commit/79c2c881bb7ae1cbdeeff91d4875b4bf2e54df06 Christian Brabandt <cb@256bit.org> parents: 7856 diff changeset	155 QueryPerformanceFrequency(&fr);
22367b9f528a commit https://github.com/vim/vim/commit/79c2c881bb7ae1cbdeeff91d4875b4bf2e54df06 Christian Brabandt <cb@256bit.org> parents: 7856 diff changeset	156 return (float_T)tm->QuadPart / (float_T)fr.QuadPart;
22367b9f528a commit https://github.com/vim/vim/commit/79c2c881bb7ae1cbdeeff91d4875b4bf2e54df06 Christian Brabandt <cb@256bit.org> parents: 7856 diff changeset	157 # else
22367b9f528a commit https://github.com/vim/vim/commit/79c2c881bb7ae1cbdeeff91d4875b4bf2e54df06 Christian Brabandt <cb@256bit.org> parents: 7856 diff changeset	158 return (float_T)tm->tv_sec + (float_T)tm->tv_usec / 1000000.0;
22367b9f528a commit https://github.com/vim/vim/commit/79c2c881bb7ae1cbdeeff91d4875b4bf2e54df06 Christian Brabandt <cb@256bit.org> parents: 7856 diff changeset	159 # endif
22367b9f528a commit https://github.com/vim/vim/commit/79c2c881bb7ae1cbdeeff91d4875b4bf2e54df06 Christian Brabandt <cb@256bit.org> parents: 7856 diff changeset	160 }
22367b9f528a commit https://github.com/vim/vim/commit/79c2c881bb7ae1cbdeeff91d4875b4bf2e54df06 Christian Brabandt <cb@256bit.org> parents: 7856 diff changeset	161 # endif
22367b9f528a commit https://github.com/vim/vim/commit/79c2c881bb7ae1cbdeeff91d4875b4bf2e54df06 Christian Brabandt <cb@256bit.org> parents: 7856 diff changeset	162
794 f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	163 /*
1496 29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	164 * Put the time "msec" past now in "tm".
794 f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	165 */
1496 29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	166 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	167 profile_setlimit(long msec, proftime_T *tm)
1496 29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	168 {
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	169 if (msec <= 0) /* no limit */
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	170 profile_zero(tm);
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	171 else
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	172 {
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15842 diff changeset	173 # ifdef MSWIN
1496 29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	174 LARGE_INTEGER fr;
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	175
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	176 QueryPerformanceCounter(tm);
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	177 QueryPerformanceFrequency(&fr);
1517 066778e39c2a updated for version 7.1-232 vimboss parents: 1515 diff changeset	178 tm->QuadPart += (LONGLONG)((double)msec / 1000.0 * (double)fr.QuadPart);
1496 29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	179 # else
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	180 long usec;
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	181
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	182 gettimeofday(tm, NULL);
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	183 usec = (long)tm->tv_usec + (long)msec * 1000;
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	184 tm->tv_usec = usec % 1000000L;
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	185 tm->tv_sec += usec / 1000000L;
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	186 # endif
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	187 }
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	188 }
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	189
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	190 /*
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	191 * Return TRUE if the current time is past "tm".
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	192 */
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	193 int
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	194 profile_passed_limit(proftime_T *tm)
1496 29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	195 {
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	196 proftime_T now;
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	197
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15842 diff changeset	198 # ifdef MSWIN
1496 29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	199 if (tm->QuadPart == 0) /* timer was not set */
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	200 return FALSE;
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	201 QueryPerformanceCounter(&now);
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	202 return (now.QuadPart > tm->QuadPart);
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	203 # else
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	204 if (tm->tv_sec == 0) /* timer was not set */
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	205 return FALSE;
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	206 gettimeofday(&now, NULL);
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	207 return (now.tv_sec > tm->tv_sec
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	208 \|\| (now.tv_sec == tm->tv_sec && now.tv_usec > tm->tv_usec));
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	209 # endif
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	210 }
794 f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	211
f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	212 /*
f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	213 * Set the time in "tm" to zero.
f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	214 */
f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	215 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	216 profile_zero(proftime_T *tm)
794 f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	217 {
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15842 diff changeset	218 # ifdef MSWIN
794 f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	219 tm->QuadPart = 0;
f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	220 # else
f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	221 tm->tv_usec = 0;
f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	222 tm->tv_sec = 0;
f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	223 # endif
f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	224 }
f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	225
1496 29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	226 # endif /* FEAT_PROFILE \|\| FEAT_RELTIME */
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	227
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	228 # if defined(FEAT_TIMERS) \|\| defined(PROTO)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	229 static timer_T *first_timer = NULL;
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	230 static long last_timer_id = 0;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	231
16594 6f52e82d9d4e patch 8.1.1300: in a terminal 'ballooneval' does not work right away Bram Moolenaar <Bram@vim.org> parents: 16515 diff changeset	232 /*
6f52e82d9d4e patch 8.1.1300: in a terminal 'ballooneval' does not work right away Bram Moolenaar <Bram@vim.org> parents: 16515 diff changeset	233 * Return time left until "due". Negative if past "due".
6f52e82d9d4e patch 8.1.1300: in a terminal 'ballooneval' does not work right away Bram Moolenaar <Bram@vim.org> parents: 16515 diff changeset	234 */
13878 a590029f16a0 patch 8.0.1810: buffer of a terminal only updated in Terminal-Normal mode Christian Brabandt <cb@256bit.org> parents: 13802 diff changeset	235 long
12865 ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	236 proftime_time_left(proftime_T due, proftime_T now)
12495 65f8c6fcfd83 patch 8.0.1127: Test_peek_and_get_char fails on 32 bit system Christian Brabandt <cb@256bit.org> parents: 12477 diff changeset	237 {
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15842 diff changeset	238 # ifdef MSWIN
12495 65f8c6fcfd83 patch 8.0.1127: Test_peek_and_get_char fails on 32 bit system Christian Brabandt <cb@256bit.org> parents: 12477 diff changeset	239 LARGE_INTEGER fr;
65f8c6fcfd83 patch 8.0.1127: Test_peek_and_get_char fails on 32 bit system Christian Brabandt <cb@256bit.org> parents: 12477 diff changeset	240
12865 ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	241 if (now->QuadPart > due->QuadPart)
12495 65f8c6fcfd83 patch 8.0.1127: Test_peek_and_get_char fails on 32 bit system Christian Brabandt <cb@256bit.org> parents: 12477 diff changeset	242 return 0;
65f8c6fcfd83 patch 8.0.1127: Test_peek_and_get_char fails on 32 bit system Christian Brabandt <cb@256bit.org> parents: 12477 diff changeset	243 QueryPerformanceFrequency(&fr);
12865 ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	244 return (long)(((double)(due->QuadPart - now->QuadPart)
12495 65f8c6fcfd83 patch 8.0.1127: Test_peek_and_get_char fails on 32 bit system Christian Brabandt <cb@256bit.org> parents: 12477 diff changeset	245 / (double)fr.QuadPart) * 1000);
65f8c6fcfd83 patch 8.0.1127: Test_peek_and_get_char fails on 32 bit system Christian Brabandt <cb@256bit.org> parents: 12477 diff changeset	246 # else
12865 ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	247 if (now->tv_sec > due->tv_sec)
12495 65f8c6fcfd83 patch 8.0.1127: Test_peek_and_get_char fails on 32 bit system Christian Brabandt <cb@256bit.org> parents: 12477 diff changeset	248 return 0;
12865 ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	249 return (due->tv_sec - now->tv_sec) * 1000
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	250 + (due->tv_usec - now->tv_usec) / 1000;
12495 65f8c6fcfd83 patch 8.0.1127: Test_peek_and_get_char fails on 32 bit system Christian Brabandt <cb@256bit.org> parents: 12477 diff changeset	251 # endif
65f8c6fcfd83 patch 8.0.1127: Test_peek_and_get_char fails on 32 bit system Christian Brabandt <cb@256bit.org> parents: 12477 diff changeset	252 }
10066 dc1610dc910f commit https://github.com/vim/vim/commit/417ccd7138d4d230d328de8b0d3892dd82ff1bee Christian Brabandt <cb@256bit.org> parents: 10042 diff changeset	253
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	254 /*
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	255 * Insert a timer in the list of timers.
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	256 */
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	257 static void
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	258 insert_timer(timer_T *timer)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	259 {
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	260 timer->tr_next = first_timer;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	261 timer->tr_prev = NULL;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	262 if (first_timer != NULL)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	263 first_timer->tr_prev = timer;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	264 first_timer = timer;
9179 5e18efdad322 commit https://github.com/vim/vim/commit/4231da403e3c879dd6ac261e51f4ca60813935e3 Christian Brabandt <cb@256bit.org> parents: 9155 diff changeset	265 did_add_timer = TRUE;
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	266 }
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	267
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	268 /*
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	269 * Take a timer out of the list of timers.
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	270 */
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	271 static void
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	272 remove_timer(timer_T *timer)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	273 {
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	274 if (timer->tr_prev == NULL)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	275 first_timer = timer->tr_next;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	276 else
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	277 timer->tr_prev->tr_next = timer->tr_next;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	278 if (timer->tr_next != NULL)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	279 timer->tr_next->tr_prev = timer->tr_prev;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	280 }
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	281
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	282 static void
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	283 free_timer(timer_T *timer)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	284 {
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	285 free_callback(timer->tr_callback, timer->tr_partial);
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	286 vim_free(timer);
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	287 }
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	288
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	289 /*
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	290 * Create a timer and return it. NULL if out of memory.
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	291 * Caller should set the callback.
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	292 */
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	293 timer_T *
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	294 create_timer(long msec, int repeat)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	295 {
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	296 timer_T timer = (timer_T )alloc_clear(sizeof(timer_T));
10182 40f6ce4fe30e commit https://github.com/vim/vim/commit/ee39ef0b93d31763d05e54ba99801e3f1a254c0d Christian Brabandt <cb@256bit.org> parents: 10122 diff changeset	297 long prev_id = last_timer_id;
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	298
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	299 if (timer == NULL)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	300 return NULL;
10182 40f6ce4fe30e commit https://github.com/vim/vim/commit/ee39ef0b93d31763d05e54ba99801e3f1a254c0d Christian Brabandt <cb@256bit.org> parents: 10122 diff changeset	301 if (++last_timer_id <= prev_id)
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	302 /* Overflow! Might cause duplicates... */
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	303 last_timer_id = 0;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	304 timer->tr_id = last_timer_id;
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	305 insert_timer(timer);
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	306 if (repeat != 0)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	307 timer->tr_repeat = repeat - 1;
9790 34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	308 timer->tr_interval = msec;
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	309
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	310 profile_setlimit(msec, &timer->tr_due);
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	311 return timer;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	312 }
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	313
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	314 /*
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	315 * Invoke the callback of "timer".
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	316 */
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	317 static void
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	318 timer_callback(timer_T *timer)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	319 {
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	320 typval_T rettv;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	321 int dummy;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	322 typval_T argv[2];
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	323
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	324 argv[0].v_type = VAR_NUMBER;
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	325 argv[0].vval.v_number = (varnumber_T)timer->tr_id;
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	326 argv[1].v_type = VAR_UNKNOWN;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	327
16634 a1ba0bd74e7d patch 8.1.1319: computing function length name in many places Bram Moolenaar <Bram@vim.org> parents: 16619 diff changeset	328 call_func(timer->tr_callback, -1,
9626 172131507c85 commit https://github.com/vim/vim/commit/df48fb456fb6bf63d94cad9b302ff01d8ee8d311 Christian Brabandt <cb@256bit.org> parents: 9491 diff changeset	329 &rettv, 1, argv, NULL, 0L, 0L, &dummy, TRUE,
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	330 timer->tr_partial, NULL);
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	331 clear_tv(&rettv);
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	332 }
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	333
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	334 /*
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	335 * Call timers that are due.
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	336 * Return the time in msec until the next timer is due.
11631 3b53bb2a0e39 patch 8.0.0698: crash on exit when using Python function in timer. Christian Brabandt <cb@256bit.org> parents: 11595 diff changeset	337 * Returns -1 if there are no pending timers.
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	338 */
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	339 long
9282 9f97a6290c63 commit https://github.com/vim/vim/commit/cf089463492fab53b2a5d81517829d22f882f82e Christian Brabandt <cb@256bit.org> parents: 9179 diff changeset	340 check_due_timer(void)
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	341 {
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	342 timer_T *timer;
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	343 timer_T *timer_next;
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	344 long this_due;
8587 fb8d7086e99d commit https://github.com/vim/vim/commit/597385ab43093ba27adcb86cdc1b46aba86a0093 Christian Brabandt <cb@256bit.org> parents: 8577 diff changeset	345 long next_due = -1;
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	346 proftime_T now;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	347 int did_one = FALSE;
12244 d0b039e2ed56 patch 8.0.1002: unnecessarily updating screen after timer callback Christian Brabandt <cb@256bit.org> parents: 12206 diff changeset	348 int need_update_screen = FALSE;
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	349 long current_id = last_timer_id;
11639 71d7b5ed08a0 patch 8.0.0702: an error in a timer can make Vim unusable Christian Brabandt <cb@256bit.org> parents: 11631 diff changeset	350
71d7b5ed08a0 patch 8.0.0702: an error in a timer can make Vim unusable Christian Brabandt <cb@256bit.org> parents: 11631 diff changeset	351 /* Don't run any timers while exiting or dealing with an error. */
71d7b5ed08a0 patch 8.0.0702: an error in a timer can make Vim unusable Christian Brabandt <cb@256bit.org> parents: 11631 diff changeset	352 if (exiting \|\| aborting())
11631 3b53bb2a0e39 patch 8.0.0698: crash on exit when using Python function in timer. Christian Brabandt <cb@256bit.org> parents: 11595 diff changeset	353 return next_due;
3b53bb2a0e39 patch 8.0.0698: crash on exit when using Python function in timer. Christian Brabandt <cb@256bit.org> parents: 11595 diff changeset	354
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	355 profile_start(&now);
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	356 for (timer = first_timer; timer != NULL && !got_int; timer = timer_next)
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	357 {
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	358 timer_next = timer->tr_next;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	359
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	360 if (timer->tr_id == -1 \|\| timer->tr_firing \|\| timer->tr_paused)
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	361 continue;
12865 ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	362 this_due = proftime_time_left(&timer->tr_due, &now);
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	363 if (this_due <= 1)
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	364 {
13892 eadecbe4e390 patch 8.0.1817: a timer may change v:count unexpectedly Christian Brabandt <cb@256bit.org> parents: 13878 diff changeset	365 /* Save and restore a lot of flags, because the timer fires while
eadecbe4e390 patch 8.0.1817: a timer may change v:count unexpectedly Christian Brabandt <cb@256bit.org> parents: 13878 diff changeset	366 * waiting for a character, which might be halfway a command. */
11575 0ec755ff1fe2 patch 8.0.0670: can't use input() in a timer callback Christian Brabandt <cb@256bit.org> parents: 11457 diff changeset	367 int save_timer_busy = timer_busy;
0ec755ff1fe2 patch 8.0.0670: can't use input() in a timer callback Christian Brabandt <cb@256bit.org> parents: 11457 diff changeset	368 int save_vgetc_busy = vgetc_busy;
12375 ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped Christian Brabandt <cb@256bit.org> parents: 12244 diff changeset	369 int save_did_emsg = did_emsg;
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped Christian Brabandt <cb@256bit.org> parents: 12244 diff changeset	370 int save_called_emsg = called_emsg;
12244 d0b039e2ed56 patch 8.0.1002: unnecessarily updating screen after timer callback Christian Brabandt <cb@256bit.org> parents: 12206 diff changeset	371 int save_must_redraw = must_redraw;
12375 ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped Christian Brabandt <cb@256bit.org> parents: 12244 diff changeset	372 int save_trylevel = trylevel;
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped Christian Brabandt <cb@256bit.org> parents: 12244 diff changeset	373 int save_did_throw = did_throw;
12459 937356f8f8d6 patch 8.0.1109: timer causes error on exit from Ex mode Christian Brabandt <cb@256bit.org> parents: 12375 diff changeset	374 int save_ex_pressedreturn = get_pressedreturn();
12375 ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped Christian Brabandt <cb@256bit.org> parents: 12244 diff changeset	375 except_T *save_current_exception = current_exception;
13892 eadecbe4e390 patch 8.0.1817: a timer may change v:count unexpectedly Christian Brabandt <cb@256bit.org> parents: 13878 diff changeset	376 vimvars_save_T vvsave;
12375 ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped Christian Brabandt <cb@256bit.org> parents: 12244 diff changeset	377
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped Christian Brabandt <cb@256bit.org> parents: 12244 diff changeset	378 /* Create a scope for running the timer callback, ignoring most of
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped Christian Brabandt <cb@256bit.org> parents: 12244 diff changeset	379 * the current scope, such as being inside a try/catch. */
11575 0ec755ff1fe2 patch 8.0.0670: can't use input() in a timer callback Christian Brabandt <cb@256bit.org> parents: 11457 diff changeset	380 timer_busy = timer_busy > 0 \|\| vgetc_busy > 0;
0ec755ff1fe2 patch 8.0.0670: can't use input() in a timer callback Christian Brabandt <cb@256bit.org> parents: 11457 diff changeset	381 vgetc_busy = 0;
11639 71d7b5ed08a0 patch 8.0.0702: an error in a timer can make Vim unusable Christian Brabandt <cb@256bit.org> parents: 11631 diff changeset	382 called_emsg = FALSE;
12375 ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped Christian Brabandt <cb@256bit.org> parents: 12244 diff changeset	383 did_emsg = FALSE;
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped Christian Brabandt <cb@256bit.org> parents: 12244 diff changeset	384 did_uncaught_emsg = FALSE;
12244 d0b039e2ed56 patch 8.0.1002: unnecessarily updating screen after timer callback Christian Brabandt <cb@256bit.org> parents: 12206 diff changeset	385 must_redraw = 0;
12375 ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped Christian Brabandt <cb@256bit.org> parents: 12244 diff changeset	386 trylevel = 0;
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped Christian Brabandt <cb@256bit.org> parents: 12244 diff changeset	387 did_throw = FALSE;
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped Christian Brabandt <cb@256bit.org> parents: 12244 diff changeset	388 current_exception = NULL;
13892 eadecbe4e390 patch 8.0.1817: a timer may change v:count unexpectedly Christian Brabandt <cb@256bit.org> parents: 13878 diff changeset	389 save_vimvars(&vvsave);
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	390 timer->tr_firing = TRUE;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	391 timer_callback(timer);
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	392 timer->tr_firing = FALSE;
12375 ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped Christian Brabandt <cb@256bit.org> parents: 12244 diff changeset	393
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	394 timer_next = timer->tr_next;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	395 did_one = TRUE;
11575 0ec755ff1fe2 patch 8.0.0670: can't use input() in a timer callback Christian Brabandt <cb@256bit.org> parents: 11457 diff changeset	396 timer_busy = save_timer_busy;
0ec755ff1fe2 patch 8.0.0670: can't use input() in a timer callback Christian Brabandt <cb@256bit.org> parents: 11457 diff changeset	397 vgetc_busy = save_vgetc_busy;
12375 ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped Christian Brabandt <cb@256bit.org> parents: 12244 diff changeset	398 if (did_uncaught_emsg)
11639 71d7b5ed08a0 patch 8.0.0702: an error in a timer can make Vim unusable Christian Brabandt <cb@256bit.org> parents: 11631 diff changeset	399 ++timer->tr_emsg_count;
12375 ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped Christian Brabandt <cb@256bit.org> parents: 12244 diff changeset	400 did_emsg = save_did_emsg;
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped Christian Brabandt <cb@256bit.org> parents: 12244 diff changeset	401 called_emsg = save_called_emsg;
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped Christian Brabandt <cb@256bit.org> parents: 12244 diff changeset	402 trylevel = save_trylevel;
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped Christian Brabandt <cb@256bit.org> parents: 12244 diff changeset	403 did_throw = save_did_throw;
ab0d827151a1 patch 8.0.1067: try/catch in timer does not prevent it from being stopped Christian Brabandt <cb@256bit.org> parents: 12244 diff changeset	404 current_exception = save_current_exception;
13892 eadecbe4e390 patch 8.0.1817: a timer may change v:count unexpectedly Christian Brabandt <cb@256bit.org> parents: 13878 diff changeset	405 restore_vimvars(&vvsave);
12244 d0b039e2ed56 patch 8.0.1002: unnecessarily updating screen after timer callback Christian Brabandt <cb@256bit.org> parents: 12206 diff changeset	406 if (must_redraw != 0)
d0b039e2ed56 patch 8.0.1002: unnecessarily updating screen after timer callback Christian Brabandt <cb@256bit.org> parents: 12206 diff changeset	407 need_update_screen = TRUE;
d0b039e2ed56 patch 8.0.1002: unnecessarily updating screen after timer callback Christian Brabandt <cb@256bit.org> parents: 12206 diff changeset	408 must_redraw = must_redraw > save_must_redraw
d0b039e2ed56 patch 8.0.1002: unnecessarily updating screen after timer callback Christian Brabandt <cb@256bit.org> parents: 12206 diff changeset	409 ? must_redraw : save_must_redraw;
12459 937356f8f8d6 patch 8.0.1109: timer causes error on exit from Ex mode Christian Brabandt <cb@256bit.org> parents: 12375 diff changeset	410 set_pressedreturn(save_ex_pressedreturn);
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	411
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	412 /* Only fire the timer again if it repeats and stop_timer() wasn't
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	413 * called while inside the callback (tr_id == -1). */
11639 71d7b5ed08a0 patch 8.0.0702: an error in a timer can make Vim unusable Christian Brabandt <cb@256bit.org> parents: 11631 diff changeset	414 if (timer->tr_repeat != 0 && timer->tr_id != -1
71d7b5ed08a0 patch 8.0.0702: an error in a timer can make Vim unusable Christian Brabandt <cb@256bit.org> parents: 11631 diff changeset	415 && timer->tr_emsg_count < 3)
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	416 {
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	417 profile_setlimit(timer->tr_interval, &timer->tr_due);
12865 ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	418 this_due = proftime_time_left(&timer->tr_due, &now);
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	419 if (this_due < 1)
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	420 this_due = 1;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	421 if (timer->tr_repeat > 0)
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	422 --timer->tr_repeat;
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	423 }
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	424 else
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	425 {
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	426 this_due = -1;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	427 remove_timer(timer);
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	428 free_timer(timer);
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	429 }
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	430 }
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	431 if (this_due > 0 && (next_due == -1 \|\| next_due > this_due))
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	432 next_due = this_due;
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	433 }
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	434
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	435 if (did_one)
12244 d0b039e2ed56 patch 8.0.1002: unnecessarily updating screen after timer callback Christian Brabandt <cb@256bit.org> parents: 12206 diff changeset	436 redraw_after_callback(need_update_screen);
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	437
12871 1a450ce6980c patch 8.0.1312: balloon_show() only works in terminal when compiled with GUI Christian Brabandt <cb@256bit.org> parents: 12865 diff changeset	438 #ifdef FEAT_BEVAL_TERM
12865 ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	439 if (bevalexpr_due_set)
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	440 {
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	441 this_due = proftime_time_left(&bevalexpr_due, &now);
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	442 if (this_due <= 1)
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	443 {
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	444 bevalexpr_due_set = FALSE;
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	445 if (balloonEval == NULL)
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	446 {
14208 4cb334816bb1 patch 8.1.0121: crash when using ballooneval related to 'vartabstop' Christian Brabandt <cb@256bit.org> parents: 13892 diff changeset	447 balloonEval = (BalloonEval *)alloc_clear(sizeof(BalloonEval));
12865 ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	448 balloonEvalForTerm = TRUE;
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	449 }
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	450 if (balloonEval != NULL)
16594 6f52e82d9d4e patch 8.1.1300: in a terminal 'ballooneval' does not work right away Bram Moolenaar <Bram@vim.org> parents: 16515 diff changeset	451 {
12865 ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	452 general_beval_cb(balloonEval, 0);
16594 6f52e82d9d4e patch 8.1.1300: in a terminal 'ballooneval' does not work right away Bram Moolenaar <Bram@vim.org> parents: 16515 diff changeset	453 setcursor();
6f52e82d9d4e patch 8.1.1300: in a terminal 'ballooneval' does not work right away Bram Moolenaar <Bram@vim.org> parents: 16515 diff changeset	454 out_flush();
6f52e82d9d4e patch 8.1.1300: in a terminal 'ballooneval' does not work right away Bram Moolenaar <Bram@vim.org> parents: 16515 diff changeset	455 }
12865 ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	456 }
13762 9de2b25932eb patch 8.0.1753: various warnings from a static analyser Christian Brabandt <cb@256bit.org> parents: 13736 diff changeset	457 else if (next_due == -1 \|\| next_due > this_due)
12865 ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	458 next_due = this_due;
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	459 }
ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	460 #endif
13878 a590029f16a0 patch 8.0.1810: buffer of a terminal only updated in Terminal-Normal mode Christian Brabandt <cb@256bit.org> parents: 13802 diff changeset	461 #ifdef FEAT_TERMINAL
a590029f16a0 patch 8.0.1810: buffer of a terminal only updated in Terminal-Normal mode Christian Brabandt <cb@256bit.org> parents: 13802 diff changeset	462 /* Some terminal windows may need their buffer updated. */
a590029f16a0 patch 8.0.1810: buffer of a terminal only updated in Terminal-Normal mode Christian Brabandt <cb@256bit.org> parents: 13802 diff changeset	463 next_due = term_check_timers(next_due, &now);
a590029f16a0 patch 8.0.1810: buffer of a terminal only updated in Terminal-Normal mode Christian Brabandt <cb@256bit.org> parents: 13802 diff changeset	464 #endif
12865 ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	465
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	466 return current_id != last_timer_id ? 1 : next_due;
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	467 }
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	468
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	469 /*
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	470 * Find a timer by ID. Returns NULL if not found;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	471 */
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	472 timer_T *
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	473 find_timer(long id)
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	474 {
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	475 timer_T *timer;
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	476
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	477 if (id >= 0)
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	478 {
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	479 for (timer = first_timer; timer != NULL; timer = timer->tr_next)
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	480 if (timer->tr_id == id)
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	481 return timer;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	482 }
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	483 return NULL;
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	484 }
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	485
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	486
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	487 /*
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	488 * Stop a timer and delete it.
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	489 */
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	490 void
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	491 stop_timer(timer_T *timer)
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	492 {
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	493 if (timer->tr_firing)
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	494 /* Free the timer after the callback returns. */
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	495 timer->tr_id = -1;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	496 else
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	497 {
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	498 remove_timer(timer);
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	499 free_timer(timer);
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	500 }
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	501 }
9153 c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3 Christian Brabandt <cb@256bit.org> parents: 9112 diff changeset	502
9790 34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	503 void
9810 6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9792 diff changeset	504 stop_all_timers(void)
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9792 diff changeset	505 {
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	506 timer_T *timer;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	507 timer_T *timer_next;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	508
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	509 for (timer = first_timer; timer != NULL; timer = timer_next)
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	510 {
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	511 timer_next = timer->tr_next;
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	512 stop_timer(timer);
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	513 }
9810 6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9792 diff changeset	514 }
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9792 diff changeset	515
6a28d0c6f929 commit https://github.com/vim/vim/commit/b73598e2f022a22fec512ea681c70d2775e8fd87 Christian Brabandt <cb@256bit.org> parents: 9792 diff changeset	516 void
9790 34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	517 add_timer_info(typval_T rettv, timer_T timer)
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	518 {
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	519 list_T *list = rettv->vval.v_list;
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	520 dict_T *dict = dict_alloc();
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	521 dictitem_T *di;
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	522 long remaining;
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	523 proftime_T now;
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	524
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	525 if (dict == NULL)
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	526 return;
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	527 list_append_dict(list, dict);
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	528
14301 3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14208 diff changeset	529 dict_add_number(dict, "id", timer->tr_id);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14208 diff changeset	530 dict_add_number(dict, "time", (long)timer->tr_interval);
9790 34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	531
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	532 profile_start(&now);
12865 ebb4f6c93598 patch 8.0.1309: cannot use 'balloonexpr' in a terminal Christian Brabandt <cb@256bit.org> parents: 12678 diff changeset	533 remaining = proftime_time_left(&timer->tr_due, &now);
14301 3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14208 diff changeset	534 dict_add_number(dict, "remaining", (long)remaining);
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14208 diff changeset	535
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14208 diff changeset	536 dict_add_number(dict, "repeat",
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14208 diff changeset	537 (long)(timer->tr_repeat < 0 ? -1 : timer->tr_repeat + 1));
3c80092eb211 patch 8.1.0166: using dict_add_nr_str() is clumsy Christian Brabandt <cb@256bit.org> parents: 14208 diff changeset	538 dict_add_number(dict, "paused", (long)(timer->tr_paused));
9790 34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	539
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	540 di = dictitem_alloc((char_u *)"callback");
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	541 if (di != NULL)
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	542 {
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	543 if (dict_add(dict, di) == FAIL)
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	544 vim_free(di);
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	545 else if (timer->tr_partial != NULL)
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	546 {
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	547 di->di_tv.v_type = VAR_PARTIAL;
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	548 di->di_tv.vval.v_partial = timer->tr_partial;
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	549 ++timer->tr_partial->pt_refcount;
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	550 }
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	551 else
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	552 {
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	553 di->di_tv.v_type = VAR_FUNC;
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	554 di->di_tv.vval.v_string = vim_strsave(timer->tr_callback);
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	555 }
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	556 }
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	557 }
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	558
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	559 void
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	560 add_timer_info_all(typval_T *rettv)
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	561 {
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	562 timer_T *timer;
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	563
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	564 for (timer = first_timer; timer != NULL; timer = timer->tr_next)
10122 3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	565 if (timer->tr_id != -1)
3db463d4df25 commit https://github.com/vim/vim/commit/75537a93e985ef32e6c267b06ce93629855dd983 Christian Brabandt <cb@256bit.org> parents: 10078 diff changeset	566 add_timer_info(rettv, timer);
9790 34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	567 }
34cc6a101340 commit https://github.com/vim/vim/commit/8e97bd74b5377753597e3d98e7123d8985c7fffd Christian Brabandt <cb@256bit.org> parents: 9778 diff changeset	568
9153 c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3 Christian Brabandt <cb@256bit.org> parents: 9112 diff changeset	569 /*
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3 Christian Brabandt <cb@256bit.org> parents: 9112 diff changeset	570 * Mark references in partials of timers.
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3 Christian Brabandt <cb@256bit.org> parents: 9112 diff changeset	571 */
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3 Christian Brabandt <cb@256bit.org> parents: 9112 diff changeset	572 int
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3 Christian Brabandt <cb@256bit.org> parents: 9112 diff changeset	573 set_ref_in_timer(int copyID)
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3 Christian Brabandt <cb@256bit.org> parents: 9112 diff changeset	574 {
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3 Christian Brabandt <cb@256bit.org> parents: 9112 diff changeset	575 int abort = FALSE;
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3 Christian Brabandt <cb@256bit.org> parents: 9112 diff changeset	576 timer_T *timer;
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3 Christian Brabandt <cb@256bit.org> parents: 9112 diff changeset	577 typval_T tv;
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3 Christian Brabandt <cb@256bit.org> parents: 9112 diff changeset	578
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3 Christian Brabandt <cb@256bit.org> parents: 9112 diff changeset	579 for (timer = first_timer; timer != NULL; timer = timer->tr_next)
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3 Christian Brabandt <cb@256bit.org> parents: 9112 diff changeset	580 {
9686 8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9649 diff changeset	581 if (timer->tr_partial != NULL)
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9649 diff changeset	582 {
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9649 diff changeset	583 tv.v_type = VAR_PARTIAL;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9649 diff changeset	584 tv.vval.v_partial = timer->tr_partial;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9649 diff changeset	585 }
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9649 diff changeset	586 else
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9649 diff changeset	587 {
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9649 diff changeset	588 tv.v_type = VAR_FUNC;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9649 diff changeset	589 tv.vval.v_string = timer->tr_callback;
8c2553beff0f commit https://github.com/vim/vim/commit/1e96d9bf98f9ab84d5af7f98d6a961d91b17364f Christian Brabandt <cb@256bit.org> parents: 9649 diff changeset	590 }
9153 c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3 Christian Brabandt <cb@256bit.org> parents: 9112 diff changeset	591 abort = abort \|\| set_ref_in_item(&tv, copyID, NULL, NULL);
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3 Christian Brabandt <cb@256bit.org> parents: 9112 diff changeset	592 }
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3 Christian Brabandt <cb@256bit.org> parents: 9112 diff changeset	593 return abort;
c2fe86f2bda1 commit https://github.com/vim/vim/commit/e3188e261569ae512fb1ae2653b57fdd9e259ca3 Christian Brabandt <cb@256bit.org> parents: 9112 diff changeset	594 }
9709 cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	595
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	596 # if defined(EXITFREE) \|\| defined(PROTO)
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	597 void
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	598 timer_free_all()
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	599 {
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	600 timer_T *timer;
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	601
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	602 while (first_timer != NULL)
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	603 {
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	604 timer = first_timer;
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	605 remove_timer(timer);
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	606 free_timer(timer);
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	607 }
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	608 }
cce76af1cc6a commit https://github.com/vim/vim/commit/623e263ffb998acacd6fd0de18c44e03af2a47d1 Christian Brabandt <cb@256bit.org> parents: 9686 diff changeset	609 # endif
8577 63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	610 # endif
63dc856bd13d commit https://github.com/vim/vim/commit/975b5271eed4fa0500c24a8f37be0b1797cb9db7 Christian Brabandt <cb@256bit.org> parents: 8526 diff changeset	611
15555 d89c5b339c2a patch 8.1.0785: depending on the configuration some functions are unused Bram Moolenaar <Bram@vim.org> parents: 15543 diff changeset	612 #if defined(FEAT_SYN_HL) && defined(FEAT_RELTIME) && defined(FEAT_FLOAT) && defined(FEAT_PROFILE)
4764 f824cb97eb92 updated for version 7.3.1129 Bram Moolenaar <bram@vim.org> parents: 4354 diff changeset	613 # if defined(HAVE_MATH_H)
f824cb97eb92 updated for version 7.3.1129 Bram Moolenaar <bram@vim.org> parents: 4354 diff changeset	614 # include <math.h>
f824cb97eb92 updated for version 7.3.1129 Bram Moolenaar <bram@vim.org> parents: 4354 diff changeset	615 # endif
f824cb97eb92 updated for version 7.3.1129 Bram Moolenaar <bram@vim.org> parents: 4354 diff changeset	616
f824cb97eb92 updated for version 7.3.1129 Bram Moolenaar <bram@vim.org> parents: 4354 diff changeset	617 /*
f824cb97eb92 updated for version 7.3.1129 Bram Moolenaar <bram@vim.org> parents: 4354 diff changeset	618 * Divide the time "tm" by "count" and store in "tm2".
f824cb97eb92 updated for version 7.3.1129 Bram Moolenaar <bram@vim.org> parents: 4354 diff changeset	619 */
f824cb97eb92 updated for version 7.3.1129 Bram Moolenaar <bram@vim.org> parents: 4354 diff changeset	620 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	621 profile_divide(proftime_T tm, int count, proftime_T tm2)
4764 f824cb97eb92 updated for version 7.3.1129 Bram Moolenaar <bram@vim.org> parents: 4354 diff changeset	622 {
f824cb97eb92 updated for version 7.3.1129 Bram Moolenaar <bram@vim.org> parents: 4354 diff changeset	623 if (count == 0)
f824cb97eb92 updated for version 7.3.1129 Bram Moolenaar <bram@vim.org> parents: 4354 diff changeset	624 profile_zero(tm2);
f824cb97eb92 updated for version 7.3.1129 Bram Moolenaar <bram@vim.org> parents: 4354 diff changeset	625 else
f824cb97eb92 updated for version 7.3.1129 Bram Moolenaar <bram@vim.org> parents: 4354 diff changeset	626 {
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15842 diff changeset	627 # ifdef MSWIN
4764 f824cb97eb92 updated for version 7.3.1129 Bram Moolenaar <bram@vim.org> parents: 4354 diff changeset	628 tm2->QuadPart = tm->QuadPart / count;
f824cb97eb92 updated for version 7.3.1129 Bram Moolenaar <bram@vim.org> parents: 4354 diff changeset	629 # else
f824cb97eb92 updated for version 7.3.1129 Bram Moolenaar <bram@vim.org> parents: 4354 diff changeset	630 double usec = (tm->tv_sec * 1000000.0 + tm->tv_usec) / count;
f824cb97eb92 updated for version 7.3.1129 Bram Moolenaar <bram@vim.org> parents: 4354 diff changeset	631
f824cb97eb92 updated for version 7.3.1129 Bram Moolenaar <bram@vim.org> parents: 4354 diff changeset	632 tm2->tv_sec = floor(usec / 1000000.0);
4825 208a6c04e6b8 updated for version 7.3.1159 Bram Moolenaar <bram@vim.org> parents: 4805 diff changeset	633 tm2->tv_usec = vim_round(usec - (tm2->tv_sec * 1000000.0));
4764 f824cb97eb92 updated for version 7.3.1129 Bram Moolenaar <bram@vim.org> parents: 4354 diff changeset	634 # endif
f824cb97eb92 updated for version 7.3.1129 Bram Moolenaar <bram@vim.org> parents: 4354 diff changeset	635 }
f824cb97eb92 updated for version 7.3.1129 Bram Moolenaar <bram@vim.org> parents: 4354 diff changeset	636 }
f824cb97eb92 updated for version 7.3.1129 Bram Moolenaar <bram@vim.org> parents: 4354 diff changeset	637 #endif
f824cb97eb92 updated for version 7.3.1129 Bram Moolenaar <bram@vim.org> parents: 4354 diff changeset	638
1496 29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	639 # if defined(FEAT_PROFILE) \|\| defined(PROTO)
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	640 /*
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	641 * Functions for profiling.
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	642 */
7799 af3c41a3c53f commit https://github.com/vim/vim/commit/f28dbcea371b3a35727d91afc90fb90e0527d78a Christian Brabandt <cb@256bit.org> parents: 7726 diff changeset	643 static void script_dump_profile(FILE *fd);
1496 29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	644 static proftime_T prof_wait_time;
29c09fa57168 updated for version 7.1-211 vimboss parents: 1485 diff changeset	645
794 f19994020dad updated for version 7.0231 vimboss parents: 790 diff changeset	646 /*
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	647 * Add the time "tm2" to "tm".
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	648 */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	649 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	650 profile_add(proftime_T tm, proftime_T tm2)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	651 {
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15842 diff changeset	652 # ifdef MSWIN
177 84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	653 tm->QuadPart += tm2->QuadPart;
84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	654 # else
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	655 tm->tv_usec += tm2->tv_usec;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	656 tm->tv_sec += tm2->tv_sec;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	657 if (tm->tv_usec >= 1000000)
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	658 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	659 tm->tv_usec -= 1000000;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	660 ++tm->tv_sec;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	661 }
177 84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	662 # endif
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	663 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	664
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	665 /*
720 e180933b876a updated for version 7.0219 vimboss parents: 716 diff changeset	666 * Add the "self" time from the total time and the children's time.
e180933b876a updated for version 7.0219 vimboss parents: 716 diff changeset	667 */
e180933b876a updated for version 7.0219 vimboss parents: 716 diff changeset	668 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	669 profile_self(proftime_T self, proftime_T total, proftime_T *children)
720 e180933b876a updated for version 7.0219 vimboss parents: 716 diff changeset	670 {
e180933b876a updated for version 7.0219 vimboss parents: 716 diff changeset	671 /* Check that the result won't be negative. Can happen with recursive
e180933b876a updated for version 7.0219 vimboss parents: 716 diff changeset	672 * calls. */
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15842 diff changeset	673 #ifdef MSWIN
720 e180933b876a updated for version 7.0219 vimboss parents: 716 diff changeset	674 if (total->QuadPart <= children->QuadPart)
e180933b876a updated for version 7.0219 vimboss parents: 716 diff changeset	675 return;
e180933b876a updated for version 7.0219 vimboss parents: 716 diff changeset	676 #else
e180933b876a updated for version 7.0219 vimboss parents: 716 diff changeset	677 if (total->tv_sec < children->tv_sec
e180933b876a updated for version 7.0219 vimboss parents: 716 diff changeset	678 \|\| (total->tv_sec == children->tv_sec
e180933b876a updated for version 7.0219 vimboss parents: 716 diff changeset	679 && total->tv_usec <= children->tv_usec))
e180933b876a updated for version 7.0219 vimboss parents: 716 diff changeset	680 return;
e180933b876a updated for version 7.0219 vimboss parents: 716 diff changeset	681 #endif
e180933b876a updated for version 7.0219 vimboss parents: 716 diff changeset	682 profile_add(self, total);
e180933b876a updated for version 7.0219 vimboss parents: 716 diff changeset	683 profile_sub(self, children);
e180933b876a updated for version 7.0219 vimboss parents: 716 diff changeset	684 }
e180933b876a updated for version 7.0219 vimboss parents: 716 diff changeset	685
e180933b876a updated for version 7.0219 vimboss parents: 716 diff changeset	686 /*
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	687 * Get the current waittime.
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	688 */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	689 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	690 profile_get_wait(proftime_T *tm)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	691 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	692 *tm = prof_wait_time;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	693 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	694
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	695 /*
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	696 * Subtract the passed waittime since "tm" from "tma".
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	697 */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	698 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	699 profile_sub_wait(proftime_T tm, proftime_T tma)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	700 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	701 proftime_T tm3 = prof_wait_time;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	702
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	703 profile_sub(&tm3, tm);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	704 profile_sub(tma, &tm3);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	705 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	706
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	707 /*
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	708 * Return TRUE if "tm1" and "tm2" are equal.
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	709 */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	710 int
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	711 profile_equal(proftime_T tm1, proftime_T tm2)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	712 {
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15842 diff changeset	713 # ifdef MSWIN
177 84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	714 return (tm1->QuadPart == tm2->QuadPart);
84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	715 # else
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	716 return (tm1->tv_usec == tm2->tv_usec && tm1->tv_sec == tm2->tv_sec);
177 84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	717 # endif
84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	718 }
84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	719
84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	720 /*
84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	721 * Return <0, 0 or >0 if "tm1" < "tm2", "tm1" == "tm2" or "tm1" > "tm2"
84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	722 */
84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	723 int
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	724 profile_cmp(const proftime_T tm1, const proftime_T tm2)
177 84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	725 {
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15842 diff changeset	726 # ifdef MSWIN
177 84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	727 return (int)(tm2->QuadPart - tm1->QuadPart);
84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	728 # else
84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	729 if (tm1->tv_sec == tm2->tv_sec)
84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	730 return tm2->tv_usec - tm1->tv_usec;
84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	731 return tm2->tv_sec - tm1->tv_sec;
84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	732 # endif
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	733 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	734
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	735 static char_u *profile_fname = NULL;
790 c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	736 static proftime_T pause_time;
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	737
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	738 /*
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	739 * ":profile cmd args"
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	740 */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	741 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	742 ex_profile(exarg_T *eap)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	743 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	744 char_u *e;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	745 int len;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	746
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	747 e = skiptowhite(eap->arg);
835 8bebcabccc2c updated for version 7.0e01 vimboss parents: 823 diff changeset	748 len = (int)(e - eap->arg);
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	749 e = skipwhite(e);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	750
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	751 if (len == 5 && STRNCMP(eap->arg, "start", 5) == 0 && *e != NUL)
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	752 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	753 vim_free(profile_fname);
6749 57e81ce74c06 patch 7.4.697 Bram Moolenaar <bram@vim.org> parents: 6641 diff changeset	754 profile_fname = expand_env_save_opt(e, TRUE);
790 c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	755 do_profiling = PROF_YES;
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	756 profile_zero(&prof_wait_time);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	757 set_vim_var_nr(VV_PROFILING, 1L);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	758 }
790 c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	759 else if (do_profiling == PROF_NONE)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	760 emsg(_("E750: First use \":profile start {fname}\""));
790 c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	761 else if (STRCMP(eap->arg, "pause") == 0)
c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	762 {
c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	763 if (do_profiling == PROF_YES)
c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	764 profile_start(&pause_time);
c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	765 do_profiling = PROF_PAUSED;
c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	766 }
c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	767 else if (STRCMP(eap->arg, "continue") == 0)
c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	768 {
c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	769 if (do_profiling == PROF_PAUSED)
c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	770 {
c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	771 profile_end(&pause_time);
c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	772 profile_add(&prof_wait_time, &pause_time);
c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	773 }
c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	774 do_profiling = PROF_YES;
c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	775 }
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	776 else
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	777 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	778 /* The rest is similar to ":breakadd". */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	779 ex_breakadd(eap);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	780 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	781 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	782
2068 98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	783 /* Command line expansion for :profile. */
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	784 static enum
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	785 {
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	786 PEXP_SUBCMD, /* expand :profile sub-commands */
2711 0c39ff7a90a8 updated for version 7.3.127 Bram Moolenaar <bram@vim.org> parents: 2666 diff changeset	787 PEXP_FUNC /* expand :profile func {funcname} */
2068 98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	788 } pexpand_what;
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	789
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	790 static char *pexpand_cmds[] = {
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	791 "start",
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	792 #define PROFCMD_START 0
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	793 "pause",
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	794 #define PROFCMD_PAUSE 1
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	795 "continue",
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	796 #define PROFCMD_CONTINUE 2
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	797 "func",
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	798 #define PROFCMD_FUNC 3
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	799 "file",
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	800 #define PROFCMD_FILE 4
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	801 NULL
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	802 #define PROFCMD_LAST 5
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	803 };
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	804
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	805 /*
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	806 * Function given to ExpandGeneric() to obtain the profile command
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	807 * specific expansion.
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	808 */
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	809 char_u *
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	810 get_profile_name(expand_T *xp UNUSED, int idx)
2068 98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	811 {
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	812 switch (pexpand_what)
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	813 {
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	814 case PEXP_SUBCMD:
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	815 return (char_u *)pexpand_cmds[idx];
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	816 /* case PEXP_FUNC: TODO */
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	817 default:
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	818 return NULL;
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	819 }
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	820 }
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	821
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	822 /*
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	823 * Handle command line completion for :profile command.
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	824 */
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	825 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	826 set_context_in_profile_cmd(expand_T xp, char_u arg)
2068 98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	827 {
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	828 char_u *end_subcmd;
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	829
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	830 /* Default: expand subcommands. */
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	831 xp->xp_context = EXPAND_PROFILE;
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	832 pexpand_what = PEXP_SUBCMD;
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	833 xp->xp_pattern = arg;
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	834
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	835 end_subcmd = skiptowhite(arg);
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	836 if (*end_subcmd == NUL)
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	837 return;
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	838
2100 7d121c69f540 updated for version 7.2.383 Bram Moolenaar <bram@zimbu.org> parents: 2085 diff changeset	839 if (end_subcmd - arg == 5 && STRNCMP(arg, "start", 5) == 0)
2068 98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	840 {
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	841 xp->xp_context = EXPAND_FILES;
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	842 xp->xp_pattern = skipwhite(end_subcmd);
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	843 return;
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	844 }
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	845
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	846 /* TODO: expand function names after "func" */
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	847 xp->xp_context = EXPAND_NOTHING;
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	848 }
98a2a6e6b966 updated for version 7.2.353 Bram Moolenaar <bram@zimbu.org> parents: 2058 diff changeset	849
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	850 /*
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	851 * Dump the profiling info.
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	852 */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	853 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	854 profile_dump(void)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	855 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	856 FILE *fd;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	857
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	858 if (profile_fname != NULL)
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	859 {
531 da9142bd190a updated for version 7.0149 vimboss parents: 480 diff changeset	860 fd = mch_fopen((char *)profile_fname, "w");
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	861 if (fd == NULL)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	862 semsg(_(e_notopen), profile_fname);
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	863 else
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	864 {
177 84c21eb4fc40 updated for version 7.0054 vimboss parents: 170 diff changeset	865 script_dump_profile(fd);
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	866 func_dump_profile(fd);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	867 fclose(fd);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	868 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	869 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	870 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	871
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	872 /*
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	873 * Start profiling script "fp".
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	874 */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	875 static void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	876 script_do_profile(scriptitem_T *si)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	877 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	878 si->sn_pr_count = 0;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	879 profile_zero(&si->sn_pr_total);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	880 profile_zero(&si->sn_pr_self);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	881
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	882 ga_init2(&si->sn_prl_ga, sizeof(sn_prl_T), 100);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	883 si->sn_prl_idx = -1;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	884 si->sn_prof_on = TRUE;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	885 si->sn_pr_nest = 0;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	886 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	887
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	888 /*
12658 20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	889 * Save time when starting to invoke another script or function.
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	890 */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	891 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	892 script_prof_save(
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	893 proftime_T tm) / place to store wait time */
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	894 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	895 scriptitem_T *si;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	896
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	897 if (current_sctx.sc_sid > 0 && current_sctx.sc_sid <= script_items.ga_len)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	898 {
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	899 si = &SCRIPT_ITEM(current_sctx.sc_sid);
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	900 if (si->sn_prof_on && si->sn_pr_nest++ == 0)
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	901 profile_start(&si->sn_pr_child);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	902 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	903 profile_get_wait(tm);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	904 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	905
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	906 /*
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	907 * Count time spent in children after invoking another script or function.
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	908 */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	909 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	910 script_prof_restore(proftime_T *tm)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	911 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	912 scriptitem_T *si;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	913
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	914 if (current_sctx.sc_sid > 0 && current_sctx.sc_sid <= script_items.ga_len)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	915 {
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	916 si = &SCRIPT_ITEM(current_sctx.sc_sid);
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	917 if (si->sn_prof_on && --si->sn_pr_nest == 0)
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	918 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	919 profile_end(&si->sn_pr_child);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	920 profile_sub_wait(tm, &si->sn_pr_child); /* don't count wait time */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	921 profile_add(&si->sn_pr_children, &si->sn_pr_child);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	922 profile_add(&si->sn_prl_children, &si->sn_pr_child);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	923 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	924 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	925 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	926
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	927 static proftime_T inchar_time;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	928
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	929 /*
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	930 * Called when starting to wait for the user to type a character.
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	931 */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	932 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	933 prof_inchar_enter(void)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	934 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	935 profile_start(&inchar_time);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	936 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	937
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	938 /*
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	939 * Called when finished waiting for the user to type a character.
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	940 */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	941 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	942 prof_inchar_exit(void)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	943 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	944 profile_end(&inchar_time);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	945 profile_add(&prof_wait_time, &inchar_time);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	946 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	947
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	948 /*
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	949 * Dump the profiling results for all scripts in file "fd".
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	950 */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	951 static void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	952 script_dump_profile(FILE *fd)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	953 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	954 int id;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	955 scriptitem_T *si;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	956 int i;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	957 FILE *sfd;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	958 sn_prl_T *pp;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	959
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	960 for (id = 1; id <= script_items.ga_len; ++id)
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	961 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	962 si = &SCRIPT_ITEM(id);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	963 if (si->sn_prof_on)
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	964 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	965 fprintf(fd, "SCRIPT %s\n", si->sn_name);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	966 if (si->sn_pr_count == 1)
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	967 fprintf(fd, "Sourced 1 time\n");
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	968 else
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	969 fprintf(fd, "Sourced %d times\n", si->sn_pr_count);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	970 fprintf(fd, "Total time: %s\n", profile_msg(&si->sn_pr_total));
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	971 fprintf(fd, " Self time: %s\n", profile_msg(&si->sn_pr_self));
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	972 fprintf(fd, "\n");
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	973 fprintf(fd, "count total (s) self (s)\n");
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	974
531 da9142bd190a updated for version 7.0149 vimboss parents: 480 diff changeset	975 sfd = mch_fopen((char *)si->sn_name, "r");
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	976 if (sfd == NULL)
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	977 fprintf(fd, "Cannot open file!\n");
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	978 else
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	979 {
12658 20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	980 /* Keep going till the end of file, so that trailing
20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	981 * continuation lines are listed. */
20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	982 for (i = 0; ; ++i)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	983 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	984 if (vim_fgets(IObuff, IOSIZE, sfd))
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	985 break;
12992 5532b5176870 patch 8.0.1372: profile log may be truncated halfway a character Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	986 /* When a line has been truncated, append NL, taking care
5532b5176870 patch 8.0.1372: profile log may be truncated halfway a character Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	987 * of multi-byte characters . */
5532b5176870 patch 8.0.1372: profile log may be truncated halfway a character Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	988 if (IObuff[IOSIZE - 2] != NUL && IObuff[IOSIZE - 2] != NL)
5532b5176870 patch 8.0.1372: profile log may be truncated halfway a character Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	989 {
5532b5176870 patch 8.0.1372: profile log may be truncated halfway a character Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	990 int n = IOSIZE - 2;
15595 1ec942f1b648 patch 8.1.0805: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15555 diff changeset	991
12992 5532b5176870 patch 8.0.1372: profile log may be truncated halfway a character Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	992 if (enc_utf8)
5532b5176870 patch 8.0.1372: profile log may be truncated halfway a character Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	993 {
5532b5176870 patch 8.0.1372: profile log may be truncated halfway a character Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	994 /* Move to the first byte of this char.
5532b5176870 patch 8.0.1372: profile log may be truncated halfway a character Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	995 * utf_head_off() doesn't work, because it checks
5532b5176870 patch 8.0.1372: profile log may be truncated halfway a character Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	996 * for a truncated character. */
5532b5176870 patch 8.0.1372: profile log may be truncated halfway a character Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	997 while (n > 0 && (IObuff[n] & 0xc0) == 0x80)
5532b5176870 patch 8.0.1372: profile log may be truncated halfway a character Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	998 --n;
5532b5176870 patch 8.0.1372: profile log may be truncated halfway a character Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	999 }
5532b5176870 patch 8.0.1372: profile log may be truncated halfway a character Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1000 else if (has_mbyte)
5532b5176870 patch 8.0.1372: profile log may be truncated halfway a character Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1001 n -= mb_head_off(IObuff, IObuff + n);
5532b5176870 patch 8.0.1372: profile log may be truncated halfway a character Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1002 IObuff[n] = NL;
5532b5176870 patch 8.0.1372: profile log may be truncated halfway a character Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1003 IObuff[n + 1] = NUL;
5532b5176870 patch 8.0.1372: profile log may be truncated halfway a character Christian Brabandt <cb@256bit.org> parents: 12871 diff changeset	1004 }
12658 20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	1005 if (i < si->sn_prl_ga.ga_len
20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	1006 && (pp = &PRL_ITEM(si, i))->snp_count > 0)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1007 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1008 fprintf(fd, "%5d ", pp->snp_count);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1009 if (profile_equal(&pp->sn_prl_total, &pp->sn_prl_self))
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1010 fprintf(fd, " ");
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1011 else
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1012 fprintf(fd, "%s ", profile_msg(&pp->sn_prl_total));
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1013 fprintf(fd, "%s ", profile_msg(&pp->sn_prl_self));
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1014 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1015 else
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1016 fprintf(fd, " ");
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1017 fprintf(fd, "%s", IObuff);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1018 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1019 fclose(sfd);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1020 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1021 fprintf(fd, "\n");
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1022 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1023 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1024 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1025
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1026 /*
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1027 * Return TRUE when a function defined in the current script should be
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1028 * profiled.
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1029 */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1030 int
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1031 prof_def_func(void)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1032 {
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	1033 if (current_sctx.sc_sid > 0)
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	1034 return SCRIPT_ITEM(current_sctx.sc_sid).sn_pr_force;
391 289b19a6f2ed updated for version 7.0103 vimboss parents: 378 diff changeset	1035 return FALSE;
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1036 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1037
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	1038 # endif
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1039 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1040
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1041 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1042 * If 'autowrite' option set, try to write the file.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1043 * Careful: autocommands may make "buf" invalid!
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1044 *
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1045 * return FAIL for failure, OK otherwise
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1046 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1047 int
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1048 autowrite(buf_T *buf, int forceit)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1049 {
1069 f628d19361d9 updated for version 7.0-195 vimboss parents: 1061 diff changeset	1050 int r;
9487 69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1051 bufref_T bufref;
1069 f628d19361d9 updated for version 7.0-195 vimboss parents: 1061 diff changeset	1052
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1053 if (!(p_aw \|\| p_awa) \|\| !p_write
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1054 #ifdef FEAT_QUICKFIX
1069 f628d19361d9 updated for version 7.0-195 vimboss parents: 1061 diff changeset	1055 /* never autowrite a "nofile" or "nowrite" buffer */
f628d19361d9 updated for version 7.0-195 vimboss parents: 1061 diff changeset	1056 \|\| bt_dontwrite(buf)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1057 #endif
1069 f628d19361d9 updated for version 7.0-195 vimboss parents: 1061 diff changeset	1058 \|\| (!forceit && buf->b_p_ro) \|\| buf->b_ffname == NULL)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1059 return FAIL;
9487 69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1060 set_bufref(&bufref, buf);
1069 f628d19361d9 updated for version 7.0-195 vimboss parents: 1061 diff changeset	1061 r = buf_write_all(buf, forceit);
f628d19361d9 updated for version 7.0-195 vimboss parents: 1061 diff changeset	1062
f628d19361d9 updated for version 7.0-195 vimboss parents: 1061 diff changeset	1063 /* Writing may succeed but the buffer still changed, e.g., when there is a
f628d19361d9 updated for version 7.0-195 vimboss parents: 1061 diff changeset	1064 * conversion error. We do want to return FAIL then. */
9487 69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1065 if (bufref_valid(&bufref) && bufIsChanged(buf))
1069 f628d19361d9 updated for version 7.0-195 vimboss parents: 1061 diff changeset	1066 r = FAIL;
f628d19361d9 updated for version 7.0-195 vimboss parents: 1061 diff changeset	1067 return r;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1068 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1069
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1070 /*
14642 96858d612aff patch 8.1.0334: 'autowrite' takes effect when buffer is not to be written Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1071 * Flush all buffers, except the ones that are readonly or are never written.
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1072 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1073 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1074 autowrite_all(void)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1075 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1076 buf_T *buf;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1077
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1078 if (!(p_aw \|\| p_awa) \|\| !p_write)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1079 return;
9649 fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07 Christian Brabandt <cb@256bit.org> parents: 9626 diff changeset	1080 FOR_ALL_BUFFERS(buf)
14642 96858d612aff patch 8.1.0334: 'autowrite' takes effect when buffer is not to be written Christian Brabandt <cb@256bit.org> parents: 14303 diff changeset	1081 if (bufIsChanged(buf) && !buf->b_p_ro && !bt_dontwrite(buf))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1082 {
9487 69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1083 bufref_T bufref;
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1084
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1085 set_bufref(&bufref, buf);
13380 69517d67421f patch 8.0.1564: too many #ifdefs Christian Brabandt <cb@256bit.org> parents: 13302 diff changeset	1086
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1087 (void)buf_write_all(buf, FALSE);
13380 69517d67421f patch 8.0.1564: too many #ifdefs Christian Brabandt <cb@256bit.org> parents: 13302 diff changeset	1088
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1089 /* an autocommand may have deleted the buffer */
9487 69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1090 if (!bufref_valid(&bufref))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1091 buf = firstbuf;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1092 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1093 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1094
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1095 /*
5464 9c777e2c7024 updated for version 7.4.082 Bram Moolenaar <bram@vim.org> parents: 5027 diff changeset	1096 * Return TRUE if buffer was changed and cannot be abandoned.
9c777e2c7024 updated for version 7.4.082 Bram Moolenaar <bram@vim.org> parents: 5027 diff changeset	1097 * For flags use the CCGD_ values.
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1098 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1099 int
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1100 check_changed(buf_T *buf, int flags)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1101 {
9487 69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1102 int forceit = (flags & CCGD_FORCEIT);
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1103 bufref_T bufref;
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1104
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1105 set_bufref(&bufref, buf);
5464 9c777e2c7024 updated for version 7.4.082 Bram Moolenaar <bram@vim.org> parents: 5027 diff changeset	1106
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1107 if ( !forceit
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1108 && bufIsChanged(buf)
5464 9c777e2c7024 updated for version 7.4.082 Bram Moolenaar <bram@vim.org> parents: 5027 diff changeset	1109 && ((flags & CCGD_MULTWIN) \|\| buf->b_nwindows <= 1)
9c777e2c7024 updated for version 7.4.082 Bram Moolenaar <bram@vim.org> parents: 5027 diff changeset	1110 && (!(flags & CCGD_AW) \|\| autowrite(buf, forceit) == FAIL))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1111 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1112 #if defined(FEAT_GUI_DIALOG) \|\| defined(FEAT_CON_DIALOG)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1113 if ((p_confirm \|\| cmdmod.confirm) && p_write)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1114 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1115 buf_T *buf2;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1116 int count = 0;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1117
5464 9c777e2c7024 updated for version 7.4.082 Bram Moolenaar <bram@vim.org> parents: 5027 diff changeset	1118 if (flags & CCGD_ALLBUF)
9649 fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07 Christian Brabandt <cb@256bit.org> parents: 9626 diff changeset	1119 FOR_ALL_BUFFERS(buf2)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1120 if (bufIsChanged(buf2)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1121 && (buf2->b_ffname != NULL
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1122 # ifdef FEAT_BROWSE
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1123 \|\| cmdmod.browse
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1124 # endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1125 ))
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1126 ++count;
9487 69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1127 if (!bufref_valid(&bufref))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1128 /* Autocommand deleted buffer, oops! It's not changed now. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1129 return FALSE;
13380 69517d67421f patch 8.0.1564: too many #ifdefs Christian Brabandt <cb@256bit.org> parents: 13302 diff changeset	1130
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1131 dialog_changed(buf, count > 1);
13380 69517d67421f patch 8.0.1564: too many #ifdefs Christian Brabandt <cb@256bit.org> parents: 13302 diff changeset	1132
9487 69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1133 if (!bufref_valid(&bufref))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1134 /* Autocommand deleted buffer, oops! It's not changed now. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1135 return FALSE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1136 return bufIsChanged(buf);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1137 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1138 #endif
5464 9c777e2c7024 updated for version 7.4.082 Bram Moolenaar <bram@vim.org> parents: 5027 diff changeset	1139 if (flags & CCGD_EXCMD)
12146 59c1e09cf1a9 patch 8.0.0953: get "no write since last change" error in terminal window Christian Brabandt <cb@256bit.org> parents: 12039 diff changeset	1140 no_write_message();
5464 9c777e2c7024 updated for version 7.4.082 Bram Moolenaar <bram@vim.org> parents: 5027 diff changeset	1141 else
13302 b5806be0b36d patch 8.0.1525: using :wqa exits even if a job runs in a terminal window Christian Brabandt <cb@256bit.org> parents: 13274 diff changeset	1142 no_write_message_nobang(curbuf);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1143 return TRUE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1144 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1145 return FALSE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1146 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1147
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1148 #if defined(FEAT_GUI_DIALOG) \|\| defined(FEAT_CON_DIALOG) \|\| defined(PROTO)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1149
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1150 #if defined(FEAT_BROWSE) \|\| defined(PROTO)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1151 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1152 * When wanting to write a file without a file name, ask the user for a name.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1153 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1154 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1155 browse_save_fname(buf_T *buf)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1156 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1157 if (buf->b_fname == NULL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1158 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1159 char_u *fname;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1160
29 ac33b7c03fac updated for version 7.0018 vimboss parents: 22 diff changeset	1161 fname = do_browse(BROWSE_SAVE, (char_u *)_("Save As"),
ac33b7c03fac updated for version 7.0018 vimboss parents: 22 diff changeset	1162 NULL, NULL, NULL, NULL, buf);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1163 if (fname != NULL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1164 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1165 if (setfname(buf, fname, NULL, TRUE) == OK)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1166 buf->b_flags \|= BF_NOTEDITED;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1167 vim_free(fname);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1168 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1169 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1170 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1171 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1172
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1173 /*
2849 b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	1174 * Ask the user what to do when abandoning a changed buffer.
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1175 * Must check 'write' option first!
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1176 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1177 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1178 dialog_changed(
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1179 buf_T *buf,
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1180 int checkall) /* may abandon all changed buffers */
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1181 {
2770 25672ad7f377 updated for version 7.3.161 Bram Moolenaar <bram@vim.org> parents: 2711 diff changeset	1182 char_u buff[DIALOG_MSG_SIZE];
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1183 int ret;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1184 buf_T *buf2;
3486 f9a865d97614 updated for version 7.3.507 Bram Moolenaar <bram@vim.org> parents: 3429 diff changeset	1185 exarg_T ea;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1186
12206 bd8d767fb36f patch 8.0.0983: unnecessary check for NULL pointer Christian Brabandt <cb@256bit.org> parents: 12146 diff changeset	1187 dialog_msg(buff, _("Save changes to \"%s\"?"), buf->b_fname);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1188 if (checkall)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1189 ret = vim_dialog_yesnoallcancel(VIM_QUESTION, NULL, buff, 1);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1190 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1191 ret = vim_dialog_yesnocancel(VIM_QUESTION, NULL, buff, 1);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1192
16619 8f0ea605ec96 patch 8.1.1312: Coverity warning for using uninitialized variable Bram Moolenaar <Bram@vim.org> parents: 16594 diff changeset	1193 // Init ea pseudo-structure, this is needed for the check_overwrite()
8f0ea605ec96 patch 8.1.1312: Coverity warning for using uninitialized variable Bram Moolenaar <Bram@vim.org> parents: 16594 diff changeset	1194 // function.
8f0ea605ec96 patch 8.1.1312: Coverity warning for using uninitialized variable Bram Moolenaar <Bram@vim.org> parents: 16594 diff changeset	1195 vim_memset(&ea, 0, sizeof(ea));
3486 f9a865d97614 updated for version 7.3.507 Bram Moolenaar <bram@vim.org> parents: 3429 diff changeset	1196
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1197 if (ret == VIM_YES)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1198 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1199 #ifdef FEAT_BROWSE
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1200 /* May get file name, when there is none */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1201 browse_save_fname(buf);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1202 #endif
3486 f9a865d97614 updated for version 7.3.507 Bram Moolenaar <bram@vim.org> parents: 3429 diff changeset	1203 if (buf->b_fname != NULL && check_overwrite(&ea, buf,
f9a865d97614 updated for version 7.3.507 Bram Moolenaar <bram@vim.org> parents: 3429 diff changeset	1204 buf->b_fname, buf->b_ffname, FALSE) == OK)
f9a865d97614 updated for version 7.3.507 Bram Moolenaar <bram@vim.org> parents: 3429 diff changeset	1205 /* didn't hit Cancel */
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1206 (void)buf_write_all(buf, FALSE);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1207 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1208 else if (ret == VIM_NO)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1209 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1210 unchanged(buf, TRUE);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1211 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1212 else if (ret == VIM_ALL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1213 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1214 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1215 * Write all modified files that can be written.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1216 * Skip readonly buffers, these need to be confirmed
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1217 * individually.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1218 */
9649 fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07 Christian Brabandt <cb@256bit.org> parents: 9626 diff changeset	1219 FOR_ALL_BUFFERS(buf2)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1220 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1221 if (bufIsChanged(buf2)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1222 && (buf2->b_ffname != NULL
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1223 #ifdef FEAT_BROWSE
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1224 \|\| cmdmod.browse
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1225 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1226 )
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1227 && !buf2->b_p_ro)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1228 {
9487 69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1229 bufref_T bufref;
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1230
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1231 set_bufref(&bufref, buf2);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1232 #ifdef FEAT_BROWSE
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1233 /* May get file name, when there is none */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1234 browse_save_fname(buf2);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1235 #endif
3486 f9a865d97614 updated for version 7.3.507 Bram Moolenaar <bram@vim.org> parents: 3429 diff changeset	1236 if (buf2->b_fname != NULL && check_overwrite(&ea, buf2,
f9a865d97614 updated for version 7.3.507 Bram Moolenaar <bram@vim.org> parents: 3429 diff changeset	1237 buf2->b_fname, buf2->b_ffname, FALSE) == OK)
f9a865d97614 updated for version 7.3.507 Bram Moolenaar <bram@vim.org> parents: 3429 diff changeset	1238 /* didn't hit Cancel */
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1239 (void)buf_write_all(buf2, FALSE);
13380 69517d67421f patch 8.0.1564: too many #ifdefs Christian Brabandt <cb@256bit.org> parents: 13302 diff changeset	1240
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1241 /* an autocommand may have deleted the buffer */
9487 69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1242 if (!bufref_valid(&bufref))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1243 buf2 = firstbuf;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1244 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1245 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1246 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1247 else if (ret == VIM_DISCARDALL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1248 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1249 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1250 * mark all buffers as unchanged
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1251 */
9649 fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07 Christian Brabandt <cb@256bit.org> parents: 9626 diff changeset	1252 FOR_ALL_BUFFERS(buf2)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1253 unchanged(buf2, TRUE);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1254 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1255 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1256 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1257
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1258 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1259 * Return TRUE if the buffer "buf" can be abandoned, either by making it
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1260 * hidden, autowriting it or unloading it.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1261 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1262 int
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1263 can_abandon(buf_T *buf, int forceit)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1264 {
11957 bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job Christian Brabandt <cb@256bit.org> parents: 11935 diff changeset	1265 return ( buf_hide(buf)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1266 \|\| !bufIsChanged(buf)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1267 \|\| buf->b_nwindows > 1
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1268 \|\| autowrite(buf, forceit) == OK
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1269 \|\| forceit);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1270 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1271
3429 b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1272 /*
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1273 * Add a buffer number to "bufnrs", unless it's already there.
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1274 */
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1275 static void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1276 add_bufnum(int bufnrs, int bufnump, int nr)
3429 b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1277 {
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1278 int i;
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1279
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1280 for (i = 0; i < *bufnump; ++i)
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1281 if (bufnrs[i] == nr)
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1282 return;
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1283 bufnrs[*bufnump] = nr;
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1284 bufnump = bufnump + 1;
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1285 }
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1286
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1287 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1288 * Return TRUE if any buffer was changed and cannot be abandoned.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1289 * That changed buffer becomes the current buffer.
13438 33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window Christian Brabandt <cb@256bit.org> parents: 13384 diff changeset	1290 * When "unload" is TRUE the current buffer is unloaded instead of making it
7469 15eefe1b0dad commit https://github.com/vim/vim/commit/027387f70c671f62e3e08e0bdd09ec05b0232735 Christian Brabandt <cb@256bit.org> parents: 7107 diff changeset	1291 * hidden. This is used for ":q!".
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1292 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1293 int
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1294 check_changed_any(
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1295 int hidden, /* Only check hidden buffers */
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1296 int unload)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1297 {
3429 b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1298 int ret = FALSE;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1299 buf_T *buf;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1300 int save;
3429 b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1301 int i;
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1302 int bufnum = 0;
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1303 int bufcount = 0;
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1304 int *bufnrs;
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1305 tabpage_T *tp;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1306 win_T *wp;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1307
13438 33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window Christian Brabandt <cb@256bit.org> parents: 13384 diff changeset	1308 /* Make a list of all buffers, with the most important ones first. */
9649 fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07 Christian Brabandt <cb@256bit.org> parents: 9626 diff changeset	1309 FOR_ALL_BUFFERS(buf)
3429 b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1310 ++bufcount;
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1311
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1312 if (bufcount == 0)
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1313 return FALSE;
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1314
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1315 bufnrs = (int )alloc(sizeof(int) bufcount);
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1316 if (bufnrs == NULL)
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1317 return FALSE;
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1318
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1319 /* curbuf */
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1320 bufnrs[bufnum++] = curbuf->b_fnum;
13438 33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window Christian Brabandt <cb@256bit.org> parents: 13384 diff changeset	1321
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window Christian Brabandt <cb@256bit.org> parents: 13384 diff changeset	1322 /* buffers in current tab */
3429 b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1323 FOR_ALL_WINDOWS(wp)
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1324 if (wp->w_buffer != curbuf)
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1325 add_bufnum(bufnrs, &bufnum, wp->w_buffer->b_fnum);
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1326
13438 33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window Christian Brabandt <cb@256bit.org> parents: 13384 diff changeset	1327 /* buffers in other tabs */
9649 fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07 Christian Brabandt <cb@256bit.org> parents: 9626 diff changeset	1328 FOR_ALL_TABPAGES(tp)
3429 b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1329 if (tp != curtab)
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1330 for (wp = tp->tp_firstwin; wp != NULL; wp = wp->w_next)
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1331 add_bufnum(bufnrs, &bufnum, wp->w_buffer->b_fnum);
13438 33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window Christian Brabandt <cb@256bit.org> parents: 13384 diff changeset	1332
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window Christian Brabandt <cb@256bit.org> parents: 13384 diff changeset	1333 /* any other buffer */
9649 fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07 Christian Brabandt <cb@256bit.org> parents: 9626 diff changeset	1334 FOR_ALL_BUFFERS(buf)
3429 b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1335 add_bufnum(bufnrs, &bufnum, buf->b_fnum);
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1336
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1337 for (i = 0; i < bufnum; ++i)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1338 {
3429 b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1339 buf = buflist_findnr(bufnrs[i]);
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1340 if (buf == NULL)
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1341 continue;
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1342 if ((!hidden \|\| buf->b_nwindows == 0) && bufIsChanged(buf))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1343 {
9487 69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1344 bufref_T bufref;
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1345
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1346 set_bufref(&bufref, buf);
13438 33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window Christian Brabandt <cb@256bit.org> parents: 13384 diff changeset	1347 #ifdef FEAT_TERMINAL
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window Christian Brabandt <cb@256bit.org> parents: 13384 diff changeset	1348 if (term_job_running(buf->b_term))
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window Christian Brabandt <cb@256bit.org> parents: 13384 diff changeset	1349 {
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window Christian Brabandt <cb@256bit.org> parents: 13384 diff changeset	1350 if (term_try_stop_job(buf) == FAIL)
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window Christian Brabandt <cb@256bit.org> parents: 13384 diff changeset	1351 break;
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window Christian Brabandt <cb@256bit.org> parents: 13384 diff changeset	1352 }
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window Christian Brabandt <cb@256bit.org> parents: 13384 diff changeset	1353 else
33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window Christian Brabandt <cb@256bit.org> parents: 13384 diff changeset	1354 #endif
3429 b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1355 /* Try auto-writing the buffer. If this fails but the buffer no
16223 abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	1356 * longer exists it's not changed, that's OK. */
5464 9c777e2c7024 updated for version 7.4.082 Bram Moolenaar <bram@vim.org> parents: 5027 diff changeset	1357 if (check_changed(buf, (p_awa ? CCGD_AW : 0)
9c777e2c7024 updated for version 7.4.082 Bram Moolenaar <bram@vim.org> parents: 5027 diff changeset	1358 \| CCGD_MULTWIN
9487 69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1359 \| CCGD_ALLBUF) && bufref_valid(&bufref))
3429 b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1360 break; /* didn't save - still changes */
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1361 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1362 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1363
3429 b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1364 if (i >= bufnum)
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1365 goto theend;
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1366
13438 33eea5ce5415 patch 8.0.1593: :qall never exits with an active terminal window Christian Brabandt <cb@256bit.org> parents: 13384 diff changeset	1367 /* Get here if "buf" cannot be abandoned. */
3429 b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1368 ret = TRUE;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1369 exiting = FALSE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1370 #if defined(FEAT_GUI_DIALOG) \|\| defined(FEAT_CON_DIALOG)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1371 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1372 * When ":confirm" used, don't give an error message.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1373 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1374 if (!(p_confirm \|\| cmdmod.confirm))
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1375 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1376 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1377 /* There must be a wait_return for this message, do_buffer()
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1378 * may cause a redraw. But wait_return() is a no-op when vgetc()
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1379 * is busy (Quit used from window menu), then make sure we don't
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1380 * cause a scroll up. */
823 9ab23f1e137f updated for version 7.0c12 vimboss parents: 819 diff changeset	1381 if (vgetc_busy > 0)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1382 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1383 msg_row = cmdline_row;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1384 msg_col = 0;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1385 msg_didout = FALSE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1386 }
11957 bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job Christian Brabandt <cb@256bit.org> parents: 11935 diff changeset	1387 if (
bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job Christian Brabandt <cb@256bit.org> parents: 11935 diff changeset	1388 #ifdef FEAT_TERMINAL
bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job Christian Brabandt <cb@256bit.org> parents: 11935 diff changeset	1389 term_job_running(buf->b_term)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	1390 ? semsg(_("E947: Job still running in buffer \"%s\""),
11957 bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job Christian Brabandt <cb@256bit.org> parents: 11935 diff changeset	1391 buf->b_fname)
bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job Christian Brabandt <cb@256bit.org> parents: 11935 diff changeset	1392 :
bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job Christian Brabandt <cb@256bit.org> parents: 11935 diff changeset	1393 #endif
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	1394 semsg(_("E162: No write since last change for buffer \"%s\""),
3839 8115f449a574 updated for version 7.3.677 Bram Moolenaar <bram@vim.org> parents: 3620 diff changeset	1395 buf_spname(buf) != NULL ? buf_spname(buf) : buf->b_fname))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1396 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1397 save = no_wait_return;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1398 no_wait_return = FALSE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1399 wait_return(FALSE);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1400 no_wait_return = save;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1401 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1402 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1403
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1404 /* Try to find a window that contains the buffer. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1405 if (buf != curbuf)
3429 b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1406 FOR_ALL_TAB_WINDOWS(tp, wp)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1407 if (wp->w_buffer == buf)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1408 {
9487 69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1409 bufref_T bufref;
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1410
69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1411 set_bufref(&bufref, buf);
13380 69517d67421f patch 8.0.1564: too many #ifdefs Christian Brabandt <cb@256bit.org> parents: 13302 diff changeset	1412
3429 b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1413 goto_tabpage_win(tp, wp);
13380 69517d67421f patch 8.0.1564: too many #ifdefs Christian Brabandt <cb@256bit.org> parents: 13302 diff changeset	1414
15967 ddd82b1c9e9d patch 8.1.0989: various small code ugliness Bram Moolenaar <Bram@vim.org> parents: 15868 diff changeset	1415 // Paranoia: did autocmd wipe out the buffer with changes?
9487 69ed2c9d34a6 commit https://github.com/vim/vim/commit/7c0a2f367f2507669560b1a66423155c70d2e75b Christian Brabandt <cb@256bit.org> parents: 9410 diff changeset	1416 if (!bufref_valid(&bufref))
3429 b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1417 goto theend;
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1418 goto buf_found;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1419 }
3429 b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1420 buf_found:
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1421
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1422 /* Open the changed buffer in the current window. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1423 if (buf != curbuf)
7469 15eefe1b0dad commit https://github.com/vim/vim/commit/027387f70c671f62e3e08e0bdd09ec05b0232735 Christian Brabandt <cb@256bit.org> parents: 7107 diff changeset	1424 set_curbuf(buf, unload ? DOBUF_UNLOAD : DOBUF_GOTO);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1425
3429 b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1426 theend:
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1427 vim_free(bufnrs);
b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	1428 return ret;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1429 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1430
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1431 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1432 * return FAIL if there is no file name, OK if there is one
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1433 * give error message for FAIL
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1434 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1435 int
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1436 check_fname(void)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1437 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1438 if (curbuf->b_ffname == NULL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1439 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	1440 emsg(_(e_noname));
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1441 return FAIL;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1442 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1443 return OK;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1444 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1445
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1446 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1447 * flush the contents of a buffer, unless it has no file name
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1448 *
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1449 * return FAIL for failure, OK otherwise
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1450 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1451 int
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1452 buf_write_all(buf_T *buf, int forceit)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1453 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1454 int retval;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1455 buf_T *old_curbuf = curbuf;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1456
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1457 retval = (buf_write(buf, buf->b_ffname, buf->b_fname,
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1458 (linenr_T)1, buf->b_ml.ml_line_count, NULL,
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1459 FALSE, forceit, TRUE, FALSE));
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1460 if (curbuf != old_curbuf)
16 3ba373b54370 updated for version 7.0008 vimboss parents: 15 diff changeset	1461 {
11158 501f46f7644c patch 8.0.0466: still macros that should be all-caps Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	1462 msg_source(HL_ATTR(HLF_W));
15543 dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	1463 msg(_("Warning: Entered other buffer unexpectedly (check autocommands)"));
16 3ba373b54370 updated for version 7.0008 vimboss parents: 15 diff changeset	1464 }
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1465 return retval;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1466 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1467
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1468 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1469 * Code to handle the argument list.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1470 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1471
14656 0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name Christian Brabandt <cb@256bit.org> parents: 14642 diff changeset	1472 static int do_arglist(char_u *str, int what, int after, int will_edit);
7799 af3c41a3c53f commit https://github.com/vim/vim/commit/f28dbcea371b3a35727d91afc90fb90e0527d78a Christian Brabandt <cb@256bit.org> parents: 7726 diff changeset	1473 static void alist_check_arg_idx(void);
14656 0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name Christian Brabandt <cb@256bit.org> parents: 14642 diff changeset	1474 static void alist_add_list(int count, char_u **files, int after, int will_edit);
39 410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	1475 #define AL_SET 1
410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	1476 #define AL_ADD 2
410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	1477 #define AL_DEL 3
410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	1478
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1479 /*
39 410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	1480 * Isolate one argument, taking backticks.
410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	1481 * Changes the argument in-place, puts a NUL after it. Backticks remain.
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1482 * Return a pointer to the start of the next argument.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1483 */
39 410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	1484 static char_u *
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1485 do_one_arg(char_u *str)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1486 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1487 char_u *p;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1488 int inbacktick;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1489
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1490 inbacktick = FALSE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1491 for (p = str; *str; ++str)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1492 {
39 410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	1493 /* When the backslash is used for escaping the special meaning of a
410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	1494 * character we need to keep it until wildcard expansion. */
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1495 if (rem_backslash(str))
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1496 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1497 p++ = str++;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1498 p++ = str;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1499 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1500 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1501 {
39 410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	1502 /* An item ends at a space not in backticks */
410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	1503 if (!inbacktick && vim_isspace(*str))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1504 break;
39 410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	1505 if (*str == '`')
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1506 inbacktick ^= TRUE;
39 410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	1507 p++ = str;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1508 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1509 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1510 str = skipwhite(str);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1511 *p = NUL;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1512
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1513 return str;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1514 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1515
41 f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	1516 /*
f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	1517 * Separate the arguments in "str" and return a list of pointers in the
f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	1518 * growarray "gap".
f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	1519 */
11935 976b480ced9a patch 8.0.0847: :argadd without argument can't handle space in file name Christian Brabandt <cb@256bit.org> parents: 11676 diff changeset	1520 static int
976b480ced9a patch 8.0.0847: :argadd without argument can't handle space in file name Christian Brabandt <cb@256bit.org> parents: 11676 diff changeset	1521 get_arglist(garray_T gap, char_u str, int escaped)
41 f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	1522 {
f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	1523 ga_init2(gap, (int)sizeof(char_u *), 20);
f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	1524 while (*str != NUL)
f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	1525 {
f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	1526 if (ga_grow(gap, 1) == FAIL)
f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	1527 {
f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	1528 ga_clear(gap);
f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	1529 return FAIL;
f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	1530 }
f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	1531 ((char_u **)gap->ga_data)[gap->ga_len++] = str;
f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	1532
11935 976b480ced9a patch 8.0.0847: :argadd without argument can't handle space in file name Christian Brabandt <cb@256bit.org> parents: 11676 diff changeset	1533 /* If str is escaped, don't handle backslashes or spaces */
976b480ced9a patch 8.0.0847: :argadd without argument can't handle space in file name Christian Brabandt <cb@256bit.org> parents: 11676 diff changeset	1534 if (!escaped)
976b480ced9a patch 8.0.0847: :argadd without argument can't handle space in file name Christian Brabandt <cb@256bit.org> parents: 11676 diff changeset	1535 return OK;
976b480ced9a patch 8.0.0847: :argadd without argument can't handle space in file name Christian Brabandt <cb@256bit.org> parents: 11676 diff changeset	1536
41 f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	1537 /* Isolate one argument, change it in-place, put a NUL after it. */
f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	1538 str = do_one_arg(str);
f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	1539 }
f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	1540 return OK;
f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	1541 }
f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	1542
642 2392a6da4aa4 updated for version 7.0186 vimboss parents: 574 diff changeset	1543 #if defined(FEAT_QUICKFIX) \|\| defined(FEAT_SYN_HL) \|\| defined(PROTO)
237 73354c21f1e4 updated for version 7.0066 vimboss parents: 205 diff changeset	1544 /*
73354c21f1e4 updated for version 7.0066 vimboss parents: 205 diff changeset	1545 * Parse a list of arguments (file names), expand them and return in
3620 4f1c511e71f8 updated for version 7.3.570 Bram Moolenaar <bram@vim.org> parents: 3604 diff changeset	1546 * "fnames[fcountp]". When "wig" is TRUE, removes files matching 'wildignore'.
237 73354c21f1e4 updated for version 7.0066 vimboss parents: 205 diff changeset	1547 * Return FAIL or OK.
73354c21f1e4 updated for version 7.0066 vimboss parents: 205 diff changeset	1548 */
73354c21f1e4 updated for version 7.0066 vimboss parents: 205 diff changeset	1549 int
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1550 get_arglist_exp(
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1551 char_u *str,
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1552 int *fcountp,
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1553 char_u ***fnamesp,
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1554 int wig)
237 73354c21f1e4 updated for version 7.0066 vimboss parents: 205 diff changeset	1555 {
73354c21f1e4 updated for version 7.0066 vimboss parents: 205 diff changeset	1556 garray_T ga;
73354c21f1e4 updated for version 7.0066 vimboss parents: 205 diff changeset	1557 int i;
73354c21f1e4 updated for version 7.0066 vimboss parents: 205 diff changeset	1558
11935 976b480ced9a patch 8.0.0847: :argadd without argument can't handle space in file name Christian Brabandt <cb@256bit.org> parents: 11676 diff changeset	1559 if (get_arglist(&ga, str, TRUE) == FAIL)
237 73354c21f1e4 updated for version 7.0066 vimboss parents: 205 diff changeset	1560 return FAIL;
3620 4f1c511e71f8 updated for version 7.3.570 Bram Moolenaar <bram@vim.org> parents: 3604 diff changeset	1561 if (wig == TRUE)
4f1c511e71f8 updated for version 7.3.570 Bram Moolenaar <bram@vim.org> parents: 3604 diff changeset	1562 i = expand_wildcards(ga.ga_len, (char_u **)ga.ga_data,
4f1c511e71f8 updated for version 7.3.570 Bram Moolenaar <bram@vim.org> parents: 3604 diff changeset	1563 fcountp, fnamesp, EW_FILE\|EW_NOTFOUND);
4f1c511e71f8 updated for version 7.3.570 Bram Moolenaar <bram@vim.org> parents: 3604 diff changeset	1564 else
4f1c511e71f8 updated for version 7.3.570 Bram Moolenaar <bram@vim.org> parents: 3604 diff changeset	1565 i = gen_expand_wildcards(ga.ga_len, (char_u **)ga.ga_data,
4f1c511e71f8 updated for version 7.3.570 Bram Moolenaar <bram@vim.org> parents: 3604 diff changeset	1566 fcountp, fnamesp, EW_FILE\|EW_NOTFOUND);
4f1c511e71f8 updated for version 7.3.570 Bram Moolenaar <bram@vim.org> parents: 3604 diff changeset	1567
237 73354c21f1e4 updated for version 7.0066 vimboss parents: 205 diff changeset	1568 ga_clear(&ga);
73354c21f1e4 updated for version 7.0066 vimboss parents: 205 diff changeset	1569 return i;
73354c21f1e4 updated for version 7.0066 vimboss parents: 205 diff changeset	1570 }
73354c21f1e4 updated for version 7.0066 vimboss parents: 205 diff changeset	1571 #endif
73354c21f1e4 updated for version 7.0066 vimboss parents: 205 diff changeset	1572
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1573 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1574 * Redefine the argument list.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1575 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1576 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1577 set_arglist(char_u *str)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1578 {
14656 0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name Christian Brabandt <cb@256bit.org> parents: 14642 diff changeset	1579 do_arglist(str, AL_SET, 0, FALSE);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1580 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1581
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1582 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1583 * "what" == AL_SET: Redefine the argument list to 'str'.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1584 * "what" == AL_ADD: add files in 'str' to the argument list after "after".
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1585 * "what" == AL_DEL: remove files in 'str' from the argument list.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1586 *
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1587 * Return FAIL for failure, OK otherwise.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1588 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1589 static int
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1590 do_arglist(
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1591 char_u *str,
8368 db2a07b710ed commit https://github.com/vim/vim/commit/f1d2501ebe33e148886c2914acd33140e20ee222 Christian Brabandt <cb@256bit.org> parents: 8281 diff changeset	1592 int what,
14656 0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name Christian Brabandt <cb@256bit.org> parents: 14642 diff changeset	1593 int after UNUSED, // 0 means before first one
0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name Christian Brabandt <cb@256bit.org> parents: 14642 diff changeset	1594 int will_edit) // will edit added argument
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1595 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1596 garray_T new_ga;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1597 int exp_count;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1598 char_u **exp_files;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1599 int i;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1600 char_u *p;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1601 int match;
11935 976b480ced9a patch 8.0.0847: :argadd without argument can't handle space in file name Christian Brabandt <cb@256bit.org> parents: 11676 diff changeset	1602 int arg_escaped = TRUE;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1603
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1604 /*
7726 f6311c321411 commit https://github.com/vim/vim/commit/2faa29f896252073b53f387406109e331fbbe5f8 Christian Brabandt <cb@256bit.org> parents: 7647 diff changeset	1605 * Set default argument for ":argadd" command.
f6311c321411 commit https://github.com/vim/vim/commit/2faa29f896252073b53f387406109e331fbbe5f8 Christian Brabandt <cb@256bit.org> parents: 7647 diff changeset	1606 */
f6311c321411 commit https://github.com/vim/vim/commit/2faa29f896252073b53f387406109e331fbbe5f8 Christian Brabandt <cb@256bit.org> parents: 7647 diff changeset	1607 if (what == AL_ADD && *str == NUL)
f6311c321411 commit https://github.com/vim/vim/commit/2faa29f896252073b53f387406109e331fbbe5f8 Christian Brabandt <cb@256bit.org> parents: 7647 diff changeset	1608 {
f6311c321411 commit https://github.com/vim/vim/commit/2faa29f896252073b53f387406109e331fbbe5f8 Christian Brabandt <cb@256bit.org> parents: 7647 diff changeset	1609 if (curbuf->b_ffname == NULL)
f6311c321411 commit https://github.com/vim/vim/commit/2faa29f896252073b53f387406109e331fbbe5f8 Christian Brabandt <cb@256bit.org> parents: 7647 diff changeset	1610 return FAIL;
f6311c321411 commit https://github.com/vim/vim/commit/2faa29f896252073b53f387406109e331fbbe5f8 Christian Brabandt <cb@256bit.org> parents: 7647 diff changeset	1611 str = curbuf->b_fname;
11935 976b480ced9a patch 8.0.0847: :argadd without argument can't handle space in file name Christian Brabandt <cb@256bit.org> parents: 11676 diff changeset	1612 arg_escaped = FALSE;
7726 f6311c321411 commit https://github.com/vim/vim/commit/2faa29f896252073b53f387406109e331fbbe5f8 Christian Brabandt <cb@256bit.org> parents: 7647 diff changeset	1613 }
f6311c321411 commit https://github.com/vim/vim/commit/2faa29f896252073b53f387406109e331fbbe5f8 Christian Brabandt <cb@256bit.org> parents: 7647 diff changeset	1614
f6311c321411 commit https://github.com/vim/vim/commit/2faa29f896252073b53f387406109e331fbbe5f8 Christian Brabandt <cb@256bit.org> parents: 7647 diff changeset	1615 /*
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1616 * Collect all file name arguments in "new_ga".
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1617 */
11935 976b480ced9a patch 8.0.0847: :argadd without argument can't handle space in file name Christian Brabandt <cb@256bit.org> parents: 11676 diff changeset	1618 if (get_arglist(&new_ga, str, arg_escaped) == FAIL)
41 f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	1619 return FAIL;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1620
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1621 if (what == AL_DEL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1622 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1623 regmatch_T regmatch;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1624 int didone;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1625
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1626 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1627 * Delete the items: use each item as a regexp and find a match in the
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1628 * argument list.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1629 */
4242 edd0bc1f26bd updated for version 7.3.872 Bram Moolenaar <bram@vim.org> parents: 3839 diff changeset	1630 regmatch.rm_ic = p_fic; /* ignore case when 'fileignorecase' is set */
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1631 for (i = 0; i < new_ga.ga_len && !got_int; ++i)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1632 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1633 p = ((char_u **)new_ga.ga_data)[i];
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1634 p = file_pat_to_reg_pat(p, NULL, NULL, FALSE);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1635 if (p == NULL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1636 break;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1637 regmatch.regprog = vim_regcomp(p, p_magic ? RE_MAGIC : 0);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1638 if (regmatch.regprog == NULL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1639 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1640 vim_free(p);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1641 break;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1642 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1643
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1644 didone = FALSE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1645 for (match = 0; match < ARGCOUNT; ++match)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1646 if (vim_regexec(&regmatch, alist_name(&ARGLIST[match]),
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1647 (colnr_T)0))
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1648 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1649 didone = TRUE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1650 vim_free(ARGLIST[match].ae_fname);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1651 mch_memmove(ARGLIST + match, ARGLIST + match + 1,
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1652 (ARGCOUNT - match - 1) * sizeof(aentry_T));
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1653 --ALIST(curwin)->al_ga.ga_len;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1654 if (curwin->w_arg_idx > match)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1655 --curwin->w_arg_idx;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1656 --match;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1657 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1658
4805 66803af09906 updated for version 7.3.1149 Bram Moolenaar <bram@vim.org> parents: 4764 diff changeset	1659 vim_regfree(regmatch.regprog);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1660 vim_free(p);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1661 if (!didone)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	1662 semsg(_(e_nomatch2), ((char_u **)new_ga.ga_data)[i]);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1663 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1664 ga_clear(&new_ga);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1665 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1666 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1667 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1668 i = expand_wildcards(new_ga.ga_len, (char_u **)new_ga.ga_data,
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1669 &exp_count, &exp_files, EW_DIR\|EW_FILE\|EW_ADDSLASH\|EW_NOTFOUND);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1670 ga_clear(&new_ga);
7625 b4384c581806 commit https://github.com/vim/vim/commit/2db5c3b3ceeaded7fb5a64dc5cb22b0cb95b78a1 Christian Brabandt <cb@256bit.org> parents: 7605 diff changeset	1671 if (i == FAIL \|\| exp_count == 0)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1672 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	1673 emsg(_(e_nomatch));
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1674 return FAIL;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1675 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1676
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1677 if (what == AL_ADD)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1678 {
14656 0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name Christian Brabandt <cb@256bit.org> parents: 14642 diff changeset	1679 alist_add_list(exp_count, exp_files, after, will_edit);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1680 vim_free(exp_files);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1681 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1682 else /* what == AL_SET */
14656 0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name Christian Brabandt <cb@256bit.org> parents: 14642 diff changeset	1683 alist_set(ALIST(curwin), exp_count, exp_files, will_edit, NULL, 0);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1684 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1685
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1686 alist_check_arg_idx();
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1687
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1688 return OK;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1689 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1690
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1691 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1692 * Check the validity of the arg_idx for each other window.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1693 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1694 static void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1695 alist_check_arg_idx(void)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1696 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1697 win_T *win;
671 83a006f81bac updated for version 7.0199 vimboss parents: 642 diff changeset	1698 tabpage_T *tp;
83a006f81bac updated for version 7.0199 vimboss parents: 642 diff changeset	1699
83a006f81bac updated for version 7.0199 vimboss parents: 642 diff changeset	1700 FOR_ALL_TAB_WINDOWS(tp, win)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1701 if (win->w_alist == curwin->w_alist)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1702 check_arg_idx(win);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1703 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1704
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1705 /*
3312 b7811ab264bf updated for version 7.3.423 Bram Moolenaar <bram@vim.org> parents: 3149 diff changeset	1706 * Return TRUE if window "win" is editing the file at the current argument
22 cc049b00ee70 updated for version 7.0014 vimboss parents: 20 diff changeset	1707 * index.
cc049b00ee70 updated for version 7.0014 vimboss parents: 20 diff changeset	1708 */
cc049b00ee70 updated for version 7.0014 vimboss parents: 20 diff changeset	1709 static int
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1710 editing_arg_idx(win_T *win)
22 cc049b00ee70 updated for version 7.0014 vimboss parents: 20 diff changeset	1711 {
cc049b00ee70 updated for version 7.0014 vimboss parents: 20 diff changeset	1712 return !(win->w_arg_idx >= WARGCOUNT(win)
cc049b00ee70 updated for version 7.0014 vimboss parents: 20 diff changeset	1713 \|\| (win->w_buffer->b_fnum
cc049b00ee70 updated for version 7.0014 vimboss parents: 20 diff changeset	1714 != WARGLIST(win)[win->w_arg_idx].ae_fnum
cc049b00ee70 updated for version 7.0014 vimboss parents: 20 diff changeset	1715 && (win->w_buffer->b_ffname == NULL
cc049b00ee70 updated for version 7.0014 vimboss parents: 20 diff changeset	1716 \|\| !(fullpathcmp(
cc049b00ee70 updated for version 7.0014 vimboss parents: 20 diff changeset	1717 alist_name(&WARGLIST(win)[win->w_arg_idx]),
16738 b52ea9c5f1db patch 8.1.1371: cannot recover from a swap file Bram Moolenaar <Bram@vim.org> parents: 16722 diff changeset	1718 win->w_buffer->b_ffname, TRUE, TRUE) & FPC_SAME))));
22 cc049b00ee70 updated for version 7.0014 vimboss parents: 20 diff changeset	1719 }
cc049b00ee70 updated for version 7.0014 vimboss parents: 20 diff changeset	1720
cc049b00ee70 updated for version 7.0014 vimboss parents: 20 diff changeset	1721 /*
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1722 * Check if window "win" is editing the w_arg_idx file in its argument list.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1723 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1724 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1725 check_arg_idx(win_T *win)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1726 {
22 cc049b00ee70 updated for version 7.0014 vimboss parents: 20 diff changeset	1727 if (WARGCOUNT(win) > 1 && !editing_arg_idx(win))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1728 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1729 /* We are not editing the current entry in the argument list.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1730 * Set "arg_had_last" if we are editing the last one. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1731 win->w_arg_idx_invalid = TRUE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1732 if (win->w_arg_idx != WARGCOUNT(win) - 1
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1733 && arg_had_last == FALSE
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1734 && ALIST(win) == &global_alist
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1735 && GARGCOUNT > 0
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1736 && win->w_arg_idx < GARGCOUNT
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1737 && (win->w_buffer->b_fnum == GARGLIST[GARGCOUNT - 1].ae_fnum
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1738 \|\| (win->w_buffer->b_ffname != NULL
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1739 && (fullpathcmp(alist_name(&GARGLIST[GARGCOUNT - 1]),
16738 b52ea9c5f1db patch 8.1.1371: cannot recover from a swap file Bram Moolenaar <Bram@vim.org> parents: 16722 diff changeset	1740 win->w_buffer->b_ffname, TRUE, TRUE) & FPC_SAME))))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1741 arg_had_last = TRUE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1742 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1743 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1744 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1745 /* We are editing the current entry in the argument list.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1746 * Set "arg_had_last" if it's also the last one */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1747 win->w_arg_idx_invalid = FALSE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1748 if (win->w_arg_idx == WARGCOUNT(win) - 1
12477 68d7bc045dbe patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs Christian Brabandt <cb@256bit.org> parents: 12459 diff changeset	1749 && win->w_alist == &global_alist)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1750 arg_had_last = TRUE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1751 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1752 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1753
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1754 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1755 * ":args", ":argslocal" and ":argsglobal".
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1756 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1757 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1758 ex_args(exarg_T *eap)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1759 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1760 int i;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1761
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1762 if (eap->cmdidx != CMD_args)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1763 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1764 alist_unlink(ALIST(curwin));
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1765 if (eap->cmdidx == CMD_argglobal)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1766 ALIST(curwin) = &global_alist;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1767 else /* eap->cmdidx == CMD_arglocal */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1768 alist_new();
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1769 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1770
15286 d2a162896a2a patch 8.1.0651: :args "foo works like :args without argument Bram Moolenaar <Bram@vim.org> parents: 15085 diff changeset	1771 if (*eap->arg != NUL)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1772 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1773 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1774 * ":args file ..": define new argument list, handle like ":next"
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1775 * Also for ":argslocal file .." and ":argsglobal file ..".
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1776 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1777 ex_next(eap);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1778 }
13553 04019fc3de93 patch 8.0.1650: too many #ifdefs Christian Brabandt <cb@256bit.org> parents: 13551 diff changeset	1779 else if (eap->cmdidx == CMD_args)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1780 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1781 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1782 * ":args": list arguments.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1783 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1784 if (ARGCOUNT > 0)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1785 {
13736 f340b53422c2 patch 8.0.1740: warning for signed-unsigned incompatibility Christian Brabandt <cb@256bit.org> parents: 13732 diff changeset	1786 char_u items = (char_u )alloc(sizeof(char_u ) ARGCOUNT);
13732 8ca1da2a043b patch 8.0.1738: ":args" output is hard to read Christian Brabandt <cb@256bit.org> parents: 13724 diff changeset	1787
8ca1da2a043b patch 8.0.1738: ":args" output is hard to read Christian Brabandt <cb@256bit.org> parents: 13724 diff changeset	1788 if (items != NULL)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1789 {
13732 8ca1da2a043b patch 8.0.1738: ":args" output is hard to read Christian Brabandt <cb@256bit.org> parents: 13724 diff changeset	1790 /* Overwrite the command, for a short list there is no
8ca1da2a043b patch 8.0.1738: ":args" output is hard to read Christian Brabandt <cb@256bit.org> parents: 13724 diff changeset	1791 * scrolling required and no wait_return(). */
8ca1da2a043b patch 8.0.1738: ":args" output is hard to read Christian Brabandt <cb@256bit.org> parents: 13724 diff changeset	1792 gotocmdline(TRUE);
8ca1da2a043b patch 8.0.1738: ":args" output is hard to read Christian Brabandt <cb@256bit.org> parents: 13724 diff changeset	1793
8ca1da2a043b patch 8.0.1738: ":args" output is hard to read Christian Brabandt <cb@256bit.org> parents: 13724 diff changeset	1794 for (i = 0; i < ARGCOUNT; ++i)
13736 f340b53422c2 patch 8.0.1740: warning for signed-unsigned incompatibility Christian Brabandt <cb@256bit.org> parents: 13732 diff changeset	1795 items[i] = alist_name(&ARGLIST[i]);
13732 8ca1da2a043b patch 8.0.1738: ":args" output is hard to read Christian Brabandt <cb@256bit.org> parents: 13724 diff changeset	1796 list_in_columns(items, ARGCOUNT, curwin->w_arg_idx);
8ca1da2a043b patch 8.0.1738: ":args" output is hard to read Christian Brabandt <cb@256bit.org> parents: 13724 diff changeset	1797 vim_free(items);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1798 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1799 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1800 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1801 else if (eap->cmdidx == CMD_arglocal)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1802 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1803 garray_T *gap = &curwin->w_alist->al_ga;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1804
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1805 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1806 * ":argslocal": make a local copy of the global argument list.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1807 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1808 if (ga_grow(gap, GARGCOUNT) == OK)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1809 for (i = 0; i < GARGCOUNT; ++i)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1810 if (GARGLIST[i].ae_fname != NULL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1811 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1812 AARGLIST(curwin->w_alist)[gap->ga_len].ae_fname =
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1813 vim_strsave(GARGLIST[i].ae_fname);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1814 AARGLIST(curwin->w_alist)[gap->ga_len].ae_fnum =
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1815 GARGLIST[i].ae_fnum;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1816 ++gap->ga_len;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1817 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1818 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1819 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1820
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1821 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1822 * ":previous", ":sprevious", ":Next" and ":sNext".
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1823 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1824 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1825 ex_previous(exarg_T *eap)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1826 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1827 /* If past the last one already, go to the last one. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1828 if (curwin->w_arg_idx - (int)eap->line2 >= ARGCOUNT)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1829 do_argfile(eap, ARGCOUNT - 1);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1830 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1831 do_argfile(eap, curwin->w_arg_idx - (int)eap->line2);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1832 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1833
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1834 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1835 * ":rewind", ":first", ":sfirst" and ":srewind".
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1836 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1837 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1838 ex_rewind(exarg_T *eap)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1839 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1840 do_argfile(eap, 0);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1841 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1842
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1843 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1844 * ":last" and ":slast".
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1845 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1846 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1847 ex_last(exarg_T *eap)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1848 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1849 do_argfile(eap, ARGCOUNT - 1);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1850 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1851
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1852 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1853 * ":argument" and ":sargument".
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1854 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1855 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1856 ex_argument(exarg_T *eap)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1857 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1858 int i;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1859
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1860 if (eap->addr_count > 0)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1861 i = eap->line2 - 1;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1862 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1863 i = curwin->w_arg_idx;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1864 do_argfile(eap, i);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1865 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1866
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1867 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1868 * Edit file "argn" of the argument lists.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1869 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1870 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1871 do_argfile(exarg_T *eap, int argn)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1872 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1873 int other;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1874 char_u *p;
271 8d34af900bae updated for version 7.0072 vimboss parents: 253 diff changeset	1875 int old_arg_idx = curwin->w_arg_idx;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1876
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1877 if (argn < 0 \|\| argn >= ARGCOUNT)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1878 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1879 if (ARGCOUNT <= 1)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	1880 emsg(_("E163: There is only one file to edit"));
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1881 else if (argn < 0)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	1882 emsg(_("E164: Cannot go before first file"));
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1883 else
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	1884 emsg(_("E165: Cannot go beyond last file"));
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1885 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1886 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1887 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1888 setpcmark();
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1889 #ifdef FEAT_GUI
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1890 need_mouse_correct = TRUE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1891 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1892
683 a39b8af64334 updated for version 7.0205 vimboss parents: 681 diff changeset	1893 /* split window or create new tab page first */
a39b8af64334 updated for version 7.0205 vimboss parents: 681 diff changeset	1894 if (*eap->cmd == 's' \|\| cmdmod.tab != 0)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1895 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1896 if (win_split(0, 0) == FAIL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1897 return;
2583 7c2e6ba1d702 updated for version 7.3.008 Bram Moolenaar <bram@vim.org> parents: 2419 diff changeset	1898 RESET_BINDING(curwin);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1899 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1900 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1901 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1902 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1903 * if 'hidden' set, only check for changed file when re-editing
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1904 * the same buffer
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1905 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1906 other = TRUE;
11957 bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job Christian Brabandt <cb@256bit.org> parents: 11935 diff changeset	1907 if (buf_hide(curbuf))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1908 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1909 p = fix_fname(alist_name(&ARGLIST[argn]));
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1910 other = otherfile(p);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1911 vim_free(p);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1912 }
11957 bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job Christian Brabandt <cb@256bit.org> parents: 11935 diff changeset	1913 if ((!buf_hide(curbuf) \|\| !other)
5464 9c777e2c7024 updated for version 7.4.082 Bram Moolenaar <bram@vim.org> parents: 5027 diff changeset	1914 && check_changed(curbuf, CCGD_AW
9c777e2c7024 updated for version 7.4.082 Bram Moolenaar <bram@vim.org> parents: 5027 diff changeset	1915 \| (other ? 0 : CCGD_MULTWIN)
9c777e2c7024 updated for version 7.4.082 Bram Moolenaar <bram@vim.org> parents: 5027 diff changeset	1916 \| (eap->forceit ? CCGD_FORCEIT : 0)
9c777e2c7024 updated for version 7.4.082 Bram Moolenaar <bram@vim.org> parents: 5027 diff changeset	1917 \| CCGD_EXCMD))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1918 return;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1919 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1920
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1921 curwin->w_arg_idx = argn;
12477 68d7bc045dbe patch 8.0.1118: FEAT_WINDOWS adds a lot of #ifdefs Christian Brabandt <cb@256bit.org> parents: 12459 diff changeset	1922 if (argn == ARGCOUNT - 1 && curwin->w_alist == &global_alist)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1923 arg_had_last = TRUE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1924
271 8d34af900bae updated for version 7.0072 vimboss parents: 253 diff changeset	1925 /* Edit the file; always use the last known line number.
8d34af900bae updated for version 7.0072 vimboss parents: 253 diff changeset	1926 * When it fails (e.g. Abort for already edited file) restore the
8d34af900bae updated for version 7.0072 vimboss parents: 253 diff changeset	1927 * argument index. */
8d34af900bae updated for version 7.0072 vimboss parents: 253 diff changeset	1928 if (do_ecmd(0, alist_name(&ARGLIST[curwin->w_arg_idx]), NULL,
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1929 eap, ECMD_LAST,
11957 bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job Christian Brabandt <cb@256bit.org> parents: 11935 diff changeset	1930 (buf_hide(curwin->w_buffer) ? ECMD_HIDE : 0)
1743 734d5bdae499 updated for version 7.2-041 vimboss parents: 1714 diff changeset	1931 + (eap->forceit ? ECMD_FORCEIT : 0), curwin) == FAIL)
271 8d34af900bae updated for version 7.0072 vimboss parents: 253 diff changeset	1932 curwin->w_arg_idx = old_arg_idx;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1933 /* like Vi: set the mark where the cursor is in the file. */
271 8d34af900bae updated for version 7.0072 vimboss parents: 253 diff changeset	1934 else if (eap->cmdidx != CMD_argdo)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1935 setmark('\'');
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1936 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1937 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1938
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1939 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1940 * ":next", and commands that behave like it.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1941 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1942 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1943 ex_next(exarg_T *eap)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1944 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1945 int i;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1946
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1947 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1948 * check for changed buffer now, if this fails the argument list is not
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1949 * redefined.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1950 */
11957 bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job Christian Brabandt <cb@256bit.org> parents: 11935 diff changeset	1951 if ( buf_hide(curbuf)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1952 \|\| eap->cmdidx == CMD_snext
5464 9c777e2c7024 updated for version 7.4.082 Bram Moolenaar <bram@vim.org> parents: 5027 diff changeset	1953 \|\| !check_changed(curbuf, CCGD_AW
9c777e2c7024 updated for version 7.4.082 Bram Moolenaar <bram@vim.org> parents: 5027 diff changeset	1954 \| (eap->forceit ? CCGD_FORCEIT : 0)
9c777e2c7024 updated for version 7.4.082 Bram Moolenaar <bram@vim.org> parents: 5027 diff changeset	1955 \| CCGD_EXCMD))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1956 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1957 if (eap->arg != NUL) / redefine file list */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1958 {
14656 0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name Christian Brabandt <cb@256bit.org> parents: 14642 diff changeset	1959 if (do_arglist(eap->arg, AL_SET, 0, TRUE) == FAIL)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1960 return;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1961 i = 0;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1962 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1963 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1964 i = curwin->w_arg_idx + (int)eap->line2;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1965 do_argfile(eap, i);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1966 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1967 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1968
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1969 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1970 * ":argedit"
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1971 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1972 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1973 ex_argedit(exarg_T *eap)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1974 {
11676 f87c43fca41d patch 8.0.0721: :argedit can only have one argument Christian Brabandt <cb@256bit.org> parents: 11645 diff changeset	1975 int i = eap->addr_count ? (int)eap->line2 : curwin->w_arg_idx + 1;
13782 3be5e8306a3e patch 8.0.1763: :argedit does not reuse an empty unnamed buffer Christian Brabandt <cb@256bit.org> parents: 13762 diff changeset	1976 // Whether curbuf will be reused, curbuf->b_ffname will be set.
3be5e8306a3e patch 8.0.1763: :argedit does not reuse an empty unnamed buffer Christian Brabandt <cb@256bit.org> parents: 13762 diff changeset	1977 int curbuf_is_reusable = curbuf_reusable();
11676 f87c43fca41d patch 8.0.0721: :argedit can only have one argument Christian Brabandt <cb@256bit.org> parents: 11645 diff changeset	1978
14656 0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name Christian Brabandt <cb@256bit.org> parents: 14642 diff changeset	1979 if (do_arglist(eap->arg, AL_ADD, i, TRUE) == FAIL)
11676 f87c43fca41d patch 8.0.0721: :argedit can only have one argument Christian Brabandt <cb@256bit.org> parents: 11645 diff changeset	1980 return;
f87c43fca41d patch 8.0.0721: :argedit can only have one argument Christian Brabandt <cb@256bit.org> parents: 11645 diff changeset	1981 #ifdef FEAT_TITLE
f87c43fca41d patch 8.0.0721: :argedit can only have one argument Christian Brabandt <cb@256bit.org> parents: 11645 diff changeset	1982 maketitle();
f87c43fca41d patch 8.0.0721: :argedit can only have one argument Christian Brabandt <cb@256bit.org> parents: 11645 diff changeset	1983 #endif
f87c43fca41d patch 8.0.0721: :argedit can only have one argument Christian Brabandt <cb@256bit.org> parents: 11645 diff changeset	1984
13782 3be5e8306a3e patch 8.0.1763: :argedit does not reuse an empty unnamed buffer Christian Brabandt <cb@256bit.org> parents: 13762 diff changeset	1985 if (curwin->w_arg_idx == 0
3be5e8306a3e patch 8.0.1763: :argedit does not reuse an empty unnamed buffer Christian Brabandt <cb@256bit.org> parents: 13762 diff changeset	1986 && (curbuf->b_ml.ml_flags & ML_EMPTY)
3be5e8306a3e patch 8.0.1763: :argedit does not reuse an empty unnamed buffer Christian Brabandt <cb@256bit.org> parents: 13762 diff changeset	1987 && (curbuf->b_ffname == NULL \|\| curbuf_is_reusable))
11676 f87c43fca41d patch 8.0.0721: :argedit can only have one argument Christian Brabandt <cb@256bit.org> parents: 11645 diff changeset	1988 i = 0;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1989 /* Edit the argument. */
11676 f87c43fca41d patch 8.0.0721: :argedit can only have one argument Christian Brabandt <cb@256bit.org> parents: 11645 diff changeset	1990 if (i < ARGCOUNT)
f87c43fca41d patch 8.0.0721: :argedit can only have one argument Christian Brabandt <cb@256bit.org> parents: 11645 diff changeset	1991 do_argfile(eap, i);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1992 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1993
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1994 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1995 * ":argadd"
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1996 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1997 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	1998 ex_argadd(exarg_T *eap)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	1999 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2000 do_arglist(eap->arg, AL_ADD,
14656 0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name Christian Brabandt <cb@256bit.org> parents: 14642 diff changeset	2001 eap->addr_count > 0 ? (int)eap->line2 : curwin->w_arg_idx + 1,
0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name Christian Brabandt <cb@256bit.org> parents: 14642 diff changeset	2002 FALSE);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2003 #ifdef FEAT_TITLE
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2004 maketitle();
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2005 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2006 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2007
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2008 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2009 * ":argdelete"
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2010 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2011 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	2012 ex_argdelete(exarg_T *eap)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2013 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2014 int i;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2015 int n;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2016
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2017 if (eap->addr_count > 0)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2018 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2019 /* ":1,4argdel": Delete all arguments in the range. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2020 if (eap->line2 > ARGCOUNT)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2021 eap->line2 = ARGCOUNT;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2022 n = eap->line2 - eap->line1 + 1;
11103 3335c3c75611 patch 8.0.0439: ":%argdel" gives an error for an empty arglist Christian Brabandt <cb@256bit.org> parents: 10837 diff changeset	2023 if (*eap->arg != NUL)
3335c3c75611 patch 8.0.0439: ":%argdel" gives an error for an empty arglist Christian Brabandt <cb@256bit.org> parents: 10837 diff changeset	2024 /* Can't have both a range and an argument. */
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	2025 emsg(_(e_invarg));
11103 3335c3c75611 patch 8.0.0439: ":%argdel" gives an error for an empty arglist Christian Brabandt <cb@256bit.org> parents: 10837 diff changeset	2026 else if (n <= 0)
3335c3c75611 patch 8.0.0439: ":%argdel" gives an error for an empty arglist Christian Brabandt <cb@256bit.org> parents: 10837 diff changeset	2027 {
3335c3c75611 patch 8.0.0439: ":%argdel" gives an error for an empty arglist Christian Brabandt <cb@256bit.org> parents: 10837 diff changeset	2028 /* Don't give an error for ":%argdel" if the list is empty. */
3335c3c75611 patch 8.0.0439: ":%argdel" gives an error for an empty arglist Christian Brabandt <cb@256bit.org> parents: 10837 diff changeset	2029 if (eap->line1 != 1 \|\| eap->line2 != 0)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	2030 emsg(_(e_invrange));
11103 3335c3c75611 patch 8.0.0439: ":%argdel" gives an error for an empty arglist Christian Brabandt <cb@256bit.org> parents: 10837 diff changeset	2031 }
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2032 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2033 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2034 for (i = eap->line1; i <= eap->line2; ++i)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2035 vim_free(ARGLIST[i - 1].ae_fname);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2036 mch_memmove(ARGLIST + eap->line1 - 1, ARGLIST + eap->line2,
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2037 (size_t)((ARGCOUNT - eap->line2) * sizeof(aentry_T)));
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2038 ALIST(curwin)->al_ga.ga_len -= n;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2039 if (curwin->w_arg_idx >= eap->line2)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2040 curwin->w_arg_idx -= n;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2041 else if (curwin->w_arg_idx > eap->line1)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2042 curwin->w_arg_idx = eap->line1;
7639 0ecb62a66a7a commit https://github.com/vim/vim/commit/72defda84eb26be9e2ade56c7877b912f818026e Christian Brabandt <cb@256bit.org> parents: 7625 diff changeset	2043 if (ARGCOUNT == 0)
0ecb62a66a7a commit https://github.com/vim/vim/commit/72defda84eb26be9e2ade56c7877b912f818026e Christian Brabandt <cb@256bit.org> parents: 7625 diff changeset	2044 curwin->w_arg_idx = 0;
0ecb62a66a7a commit https://github.com/vim/vim/commit/72defda84eb26be9e2ade56c7877b912f818026e Christian Brabandt <cb@256bit.org> parents: 7625 diff changeset	2045 else if (curwin->w_arg_idx >= ARGCOUNT)
0ecb62a66a7a commit https://github.com/vim/vim/commit/72defda84eb26be9e2ade56c7877b912f818026e Christian Brabandt <cb@256bit.org> parents: 7625 diff changeset	2046 curwin->w_arg_idx = ARGCOUNT - 1;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2047 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2048 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2049 else if (*eap->arg == NUL)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	2050 emsg(_(e_argreq));
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2051 else
14656 0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name Christian Brabandt <cb@256bit.org> parents: 14642 diff changeset	2052 do_arglist(eap->arg, AL_DEL, 0, FALSE);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2053 #ifdef FEAT_TITLE
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2054 maketitle();
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2055 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2056 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2057
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2058 /*
7092 64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2059 * ":argdo", ":windo", ":bufdo", ":tabdo", ":cdo", ":ldo", ":cfdo" and ":lfdo"
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2060 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2061 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	2062 ex_listdo(exarg_T *eap)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2063 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2064 int i;
685 d7e33248b9c8 updated for version 7.0206 vimboss parents: 683 diff changeset	2065 win_T *wp;
d7e33248b9c8 updated for version 7.0206 vimboss parents: 683 diff changeset	2066 tabpage_T *tp;
6641 ceda6d8af447 updated for version 7.4.646 Bram Moolenaar <bram@vim.org> parents: 6474 diff changeset	2067 buf_T *buf = curbuf;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2068 int next_fnum = 0;
13380 69517d67421f patch 8.0.1564: too many #ifdefs Christian Brabandt <cb@256bit.org> parents: 13302 diff changeset	2069 #if defined(FEAT_SYN_HL)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2070 char_u *save_ei = NULL;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2071 #endif
39 410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	2072 char_u *p_shm_save;
7092 64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2073 #ifdef FEAT_QUICKFIX
7107 84efaf06f195 commit https://github.com/vim/vim/commit/ed84b76021df763619cabaedddc44eb5ee849136 Christian Brabandt <cb@256bit.org> parents: 7092 diff changeset	2074 int qf_size = 0;
7092 64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2075 int qf_idx;
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2076 #endif
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2077
8220 ad9edad64d22 commit https://github.com/vim/vim/commit/0106e3d0bf8a38351af45331cbf3b9172a6bb90b Christian Brabandt <cb@256bit.org> parents: 8212 diff changeset	2078 #ifndef FEAT_QUICKFIX
ad9edad64d22 commit https://github.com/vim/vim/commit/0106e3d0bf8a38351af45331cbf3b9172a6bb90b Christian Brabandt <cb@256bit.org> parents: 8212 diff changeset	2079 if (eap->cmdidx == CMD_cdo \|\| eap->cmdidx == CMD_ldo \|\|
ad9edad64d22 commit https://github.com/vim/vim/commit/0106e3d0bf8a38351af45331cbf3b9172a6bb90b Christian Brabandt <cb@256bit.org> parents: 8212 diff changeset	2080 eap->cmdidx == CMD_cfdo \|\| eap->cmdidx == CMD_lfdo)
ad9edad64d22 commit https://github.com/vim/vim/commit/0106e3d0bf8a38351af45331cbf3b9172a6bb90b Christian Brabandt <cb@256bit.org> parents: 8212 diff changeset	2081 {
ad9edad64d22 commit https://github.com/vim/vim/commit/0106e3d0bf8a38351af45331cbf3b9172a6bb90b Christian Brabandt <cb@256bit.org> parents: 8212 diff changeset	2082 ex_ni(eap);
ad9edad64d22 commit https://github.com/vim/vim/commit/0106e3d0bf8a38351af45331cbf3b9172a6bb90b Christian Brabandt <cb@256bit.org> parents: 8212 diff changeset	2083 return;
ad9edad64d22 commit https://github.com/vim/vim/commit/0106e3d0bf8a38351af45331cbf3b9172a6bb90b Christian Brabandt <cb@256bit.org> parents: 8212 diff changeset	2084 }
ad9edad64d22 commit https://github.com/vim/vim/commit/0106e3d0bf8a38351af45331cbf3b9172a6bb90b Christian Brabandt <cb@256bit.org> parents: 8212 diff changeset	2085 #endif
ad9edad64d22 commit https://github.com/vim/vim/commit/0106e3d0bf8a38351af45331cbf3b9172a6bb90b Christian Brabandt <cb@256bit.org> parents: 8212 diff changeset	2086
13380 69517d67421f patch 8.0.1564: too many #ifdefs Christian Brabandt <cb@256bit.org> parents: 13302 diff changeset	2087 #if defined(FEAT_SYN_HL)
819 23f82b5d2814 updated for version 7.0c10 vimboss parents: 794 diff changeset	2088 if (eap->cmdidx != CMD_windo && eap->cmdidx != CMD_tabdo)
123 f67f8a8d81ba updated for version 7.0043 vimboss parents: 45 diff changeset	2089 /* Don't do syntax HL autocommands. Skipping the syntax file is a
f67f8a8d81ba updated for version 7.0043 vimboss parents: 45 diff changeset	2090 * great speed improvement. */
f67f8a8d81ba updated for version 7.0043 vimboss parents: 45 diff changeset	2091 save_ei = au_event_disable(",Syntax");
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2092 #endif
6116 7766142fc7d3 updated for version 7.4.396 Bram Moolenaar <bram@vim.org> parents: 5808 diff changeset	2093 #ifdef FEAT_CLIPBOARD
7766142fc7d3 updated for version 7.4.396 Bram Moolenaar <bram@vim.org> parents: 5808 diff changeset	2094 start_global_changes();
7766142fc7d3 updated for version 7.4.396 Bram Moolenaar <bram@vim.org> parents: 5808 diff changeset	2095 #endif
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2096
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2097 if (eap->cmdidx == CMD_windo
685 d7e33248b9c8 updated for version 7.0206 vimboss parents: 683 diff changeset	2098 \|\| eap->cmdidx == CMD_tabdo
11957 bc0fee081e1e patch 8.0.0858: can exit while a terminal is still running a job Christian Brabandt <cb@256bit.org> parents: 11935 diff changeset	2099 \|\| buf_hide(curbuf)
5464 9c777e2c7024 updated for version 7.4.082 Bram Moolenaar <bram@vim.org> parents: 5027 diff changeset	2100 \|\| !check_changed(curbuf, CCGD_AW
9c777e2c7024 updated for version 7.4.082 Bram Moolenaar <bram@vim.org> parents: 5027 diff changeset	2101 \| (eap->forceit ? CCGD_FORCEIT : 0)
9c777e2c7024 updated for version 7.4.082 Bram Moolenaar <bram@vim.org> parents: 5027 diff changeset	2102 \| CCGD_EXCMD))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2103 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2104 i = 0;
6474 a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2105 /* start at the eap->line1 argument/window/buffer */
685 d7e33248b9c8 updated for version 7.0206 vimboss parents: 683 diff changeset	2106 wp = firstwin;
d7e33248b9c8 updated for version 7.0206 vimboss parents: 683 diff changeset	2107 tp = first_tabpage;
6474 a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2108 switch (eap->cmdidx)
a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2109 {
a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2110 case CMD_windo:
a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2111 for ( ; wp != NULL && i + 1 < eap->line1; wp = wp->w_next)
a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2112 i++;
a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2113 break;
a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2114 case CMD_tabdo:
a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2115 for( ; tp != NULL && i + 1 < eap->line1; tp = tp->tp_next)
a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2116 i++;
a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2117 break;
a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2118 case CMD_argdo:
a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2119 i = eap->line1 - 1;
a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2120 break;
a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2121 default:
a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2122 break;
a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2123 }
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2124 /* set pcmark now */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2125 if (eap->cmdidx == CMD_bufdo)
7092 64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2126 {
6641 ceda6d8af447 updated for version 7.4.646 Bram Moolenaar <bram@vim.org> parents: 6474 diff changeset	2127 /* Advance to the first listed buffer after "eap->line1". */
7092 64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2128 for (buf = firstbuf; buf != NULL && (buf->b_fnum < eap->line1
6641 ceda6d8af447 updated for version 7.4.646 Bram Moolenaar <bram@vim.org> parents: 6474 diff changeset	2129 \|\| !buf->b_p_bl); buf = buf->b_next)
ceda6d8af447 updated for version 7.4.646 Bram Moolenaar <bram@vim.org> parents: 6474 diff changeset	2130 if (buf->b_fnum > eap->line2)
ceda6d8af447 updated for version 7.4.646 Bram Moolenaar <bram@vim.org> parents: 6474 diff changeset	2131 {
ceda6d8af447 updated for version 7.4.646 Bram Moolenaar <bram@vim.org> parents: 6474 diff changeset	2132 buf = NULL;
ceda6d8af447 updated for version 7.4.646 Bram Moolenaar <bram@vim.org> parents: 6474 diff changeset	2133 break;
ceda6d8af447 updated for version 7.4.646 Bram Moolenaar <bram@vim.org> parents: 6474 diff changeset	2134 }
7092 64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2135 if (buf != NULL)
6641 ceda6d8af447 updated for version 7.4.646 Bram Moolenaar <bram@vim.org> parents: 6474 diff changeset	2136 goto_buffer(eap, DOBUF_FIRST, FORWARD, buf->b_fnum);
7092 64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2137 }
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2138 #ifdef FEAT_QUICKFIX
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2139 else if (eap->cmdidx == CMD_cdo \|\| eap->cmdidx == CMD_ldo
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2140 \|\| eap->cmdidx == CMD_cfdo \|\| eap->cmdidx == CMD_lfdo)
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2141 {
16515 6e87a69b8e0c patch 8.1.1261: no error for quickfix commands with negative range Bram Moolenaar <Bram@vim.org> parents: 16381 diff changeset	2142 qf_size = qf_get_valid_size(eap);
7092 64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2143 if (qf_size <= 0 \|\| eap->line1 > qf_size)
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2144 buf = NULL;
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2145 else
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2146 {
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2147 ex_cc(eap);
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2148
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2149 buf = curbuf;
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2150 i = eap->line1 - 1;
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2151 if (eap->addr_count <= 0)
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2152 /* default is all the quickfix/location list entries */
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2153 eap->line2 = qf_size;
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2154 }
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2155 }
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2156 #endif
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2157 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2158 setpcmark();
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2159 listcmd_busy = TRUE; /* avoids setting pcmark below */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2160
6641 ceda6d8af447 updated for version 7.4.646 Bram Moolenaar <bram@vim.org> parents: 6474 diff changeset	2161 while (!got_int && buf != NULL)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2162 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2163 if (eap->cmdidx == CMD_argdo)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2164 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2165 /* go to argument "i" */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2166 if (i == ARGCOUNT)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2167 break;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2168 /* Don't call do_argfile() when already there, it will try
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2169 * reloading the file. */
22 cc049b00ee70 updated for version 7.0014 vimboss parents: 20 diff changeset	2170 if (curwin->w_arg_idx != i \|\| !editing_arg_idx(curwin))
39 410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	2171 {
410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	2172 /* Clear 'shm' to avoid that the file message overwrites
410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	2173 * any output from the command. */
410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	2174 p_shm_save = vim_strsave(p_shm);
410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	2175 set_option_value((char_u )"shm", 0L, (char_u )"", 0);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2176 do_argfile(eap, i);
39 410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	2177 set_option_value((char_u *)"shm", 0L, p_shm_save, 0);
410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	2178 vim_free(p_shm_save);
410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	2179 }
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2180 if (curwin->w_arg_idx != i)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2181 break;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2182 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2183 else if (eap->cmdidx == CMD_windo)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2184 {
685 d7e33248b9c8 updated for version 7.0206 vimboss parents: 683 diff changeset	2185 /* go to window "wp" */
d7e33248b9c8 updated for version 7.0206 vimboss parents: 683 diff changeset	2186 if (!win_valid(wp))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2187 break;
685 d7e33248b9c8 updated for version 7.0206 vimboss parents: 683 diff changeset	2188 win_goto(wp);
1115 11c004cc1a4d updated for version 7.0-241 vimboss parents: 1069 diff changeset	2189 if (curwin != wp)
11c004cc1a4d updated for version 7.0-241 vimboss parents: 1069 diff changeset	2190 break; /* something must be wrong */
685 d7e33248b9c8 updated for version 7.0206 vimboss parents: 683 diff changeset	2191 wp = curwin->w_next;
d7e33248b9c8 updated for version 7.0206 vimboss parents: 683 diff changeset	2192 }
d7e33248b9c8 updated for version 7.0206 vimboss parents: 683 diff changeset	2193 else if (eap->cmdidx == CMD_tabdo)
d7e33248b9c8 updated for version 7.0206 vimboss parents: 683 diff changeset	2194 {
d7e33248b9c8 updated for version 7.0206 vimboss parents: 683 diff changeset	2195 /* go to window "tp" */
d7e33248b9c8 updated for version 7.0206 vimboss parents: 683 diff changeset	2196 if (!valid_tabpage(tp))
d7e33248b9c8 updated for version 7.0206 vimboss parents: 683 diff changeset	2197 break;
4354 c80838526eeb updated for version 7.3.926 Bram Moolenaar <bram@vim.org> parents: 4352 diff changeset	2198 goto_tabpage_tp(tp, TRUE, TRUE);
685 d7e33248b9c8 updated for version 7.0206 vimboss parents: 683 diff changeset	2199 tp = tp->tp_next;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2200 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2201 else if (eap->cmdidx == CMD_bufdo)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2202 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2203 /* Remember the number of the next listed buffer, in case
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2204 * ":bwipe" is used or autocommands do something strange. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2205 next_fnum = -1;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2206 for (buf = curbuf->b_next; buf != NULL; buf = buf->b_next)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2207 if (buf->b_p_bl)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2208 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2209 next_fnum = buf->b_fnum;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2210 break;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2211 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2212 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2213
6474 a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2214 ++i;
a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2215
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2216 /* execute the command */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2217 do_cmdline(eap->arg, eap->getline, eap->cookie,
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2218 DOCMD_VERBOSE + DOCMD_NOWAIT);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2219
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2220 if (eap->cmdidx == CMD_bufdo)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2221 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2222 /* Done? */
6474 a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2223 if (next_fnum < 0 \|\| next_fnum > eap->line2)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2224 break;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2225 /* Check if the buffer still exists. */
9649 fd9727ae3c49 commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07 Christian Brabandt <cb@256bit.org> parents: 9626 diff changeset	2226 FOR_ALL_BUFFERS(buf)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2227 if (buf->b_fnum == next_fnum)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2228 break;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2229 if (buf == NULL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2230 break;
39 410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	2231
410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	2232 /* Go to the next buffer. Clear 'shm' to avoid that the file
410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	2233 * message overwrites any output from the command. */
410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	2234 p_shm_save = vim_strsave(p_shm);
410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	2235 set_option_value((char_u )"shm", 0L, (char_u )"", 0);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2236 goto_buffer(eap, DOBUF_FIRST, FORWARD, next_fnum);
39 410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	2237 set_option_value((char_u *)"shm", 0L, p_shm_save, 0);
410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	2238 vim_free(p_shm_save);
410fa1a31baf updated for version 7.0023 vimboss parents: 29 diff changeset	2239
7092 64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2240 /* If autocommands took us elsewhere, quit here. */
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2241 if (curbuf->b_fnum != next_fnum)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2242 break;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2243 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2244
7092 64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2245 #ifdef FEAT_QUICKFIX
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2246 if (eap->cmdidx == CMD_cdo \|\| eap->cmdidx == CMD_ldo
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2247 \|\| eap->cmdidx == CMD_cfdo \|\| eap->cmdidx == CMD_lfdo)
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2248 {
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2249 if (i >= qf_size \|\| i >= eap->line2)
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2250 break;
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2251
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2252 qf_idx = qf_get_cur_idx(eap);
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2253
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2254 ex_cnext(eap);
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2255
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2256 /* If jumping to the next quickfix entry fails, quit here */
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2257 if (qf_get_cur_idx(eap) == qf_idx)
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2258 break;
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2259 }
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2260 #endif
64e30831fa42 commit https://github.com/vim/vim/commit/aa23b379421aa214e6543b06c974594a25799b09 Christian Brabandt <cb@256bit.org> parents: 7009 diff changeset	2261
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2262 if (eap->cmdidx == CMD_windo)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2263 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2264 validate_cursor(); /* cursor may have moved */
13384 6740c499de13 patch 8.0.1566: too many #ifdefs Christian Brabandt <cb@256bit.org> parents: 13380 diff changeset	2265
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2266 /* required when 'scrollbind' has been set */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2267 if (curwin->w_p_scb)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2268 do_check_scrollbind(TRUE);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2269 }
6474 a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2270
a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2271 if (eap->cmdidx == CMD_windo \|\| eap->cmdidx == CMD_tabdo)
a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2272 if (i+1 > eap->line2)
a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2273 break;
a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2274 if (eap->cmdidx == CMD_argdo && i >= eap->line2)
a88d4dc02bf4 updated for version 7.4.566 Bram Moolenaar <bram@vim.org> parents: 6375 diff changeset	2275 break;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2276 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2277 listcmd_busy = FALSE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2278 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2279
13380 69517d67421f patch 8.0.1564: too many #ifdefs Christian Brabandt <cb@256bit.org> parents: 13302 diff changeset	2280 #if defined(FEAT_SYN_HL)
154 1a145815483e updated for version 7.0047 vimboss parents: 148 diff changeset	2281 if (save_ei != NULL)
1a145815483e updated for version 7.0047 vimboss parents: 148 diff changeset	2282 {
1a145815483e updated for version 7.0047 vimboss parents: 148 diff changeset	2283 au_event_restore(save_ei);
1a145815483e updated for version 7.0047 vimboss parents: 148 diff changeset	2284 apply_autocmds(EVENT_SYNTAX, curbuf->b_p_syn,
1a145815483e updated for version 7.0047 vimboss parents: 148 diff changeset	2285 curbuf->b_fname, TRUE, curbuf);
1a145815483e updated for version 7.0047 vimboss parents: 148 diff changeset	2286 }
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2287 #endif
6116 7766142fc7d3 updated for version 7.4.396 Bram Moolenaar <bram@vim.org> parents: 5808 diff changeset	2288 #ifdef FEAT_CLIPBOARD
7766142fc7d3 updated for version 7.4.396 Bram Moolenaar <bram@vim.org> parents: 5808 diff changeset	2289 end_global_changes();
7766142fc7d3 updated for version 7.4.396 Bram Moolenaar <bram@vim.org> parents: 5808 diff changeset	2290 #endif
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2291 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2292
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2293 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2294 * Add files[count] to the arglist of the current window after arg "after".
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2295 * The file names in files[count] must have been allocated and are taken over.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2296 * Files[] itself is not taken over.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2297 */
14656 0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name Christian Brabandt <cb@256bit.org> parents: 14642 diff changeset	2298 static void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	2299 alist_add_list(
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	2300 int count,
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	2301 char_u **files,
14656 0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name Christian Brabandt <cb@256bit.org> parents: 14642 diff changeset	2302 int after, // where to add: 0 = before first one
0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name Christian Brabandt <cb@256bit.org> parents: 14642 diff changeset	2303 int will_edit) // will edit adding argument
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2304 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2305 int i;
7647 65b2d593c203 commit https://github.com/vim/vim/commit/a24f0a550fed3d9773800cf6be4efd072fff20ec Christian Brabandt <cb@256bit.org> parents: 7639 diff changeset	2306 int old_argcount = ARGCOUNT;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2307
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2308 if (ga_grow(&ALIST(curwin)->al_ga, count) == OK)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2309 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2310 if (after < 0)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2311 after = 0;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2312 if (after > ARGCOUNT)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2313 after = ARGCOUNT;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2314 if (after < ARGCOUNT)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2315 mch_memmove(&(ARGLIST[after + count]), &(ARGLIST[after]),
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2316 (ARGCOUNT - after) * sizeof(aentry_T));
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2317 for (i = 0; i < count; ++i)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2318 {
14656 0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name Christian Brabandt <cb@256bit.org> parents: 14642 diff changeset	2319 int flags = BLN_LISTED \| (will_edit ? BLN_CURBUF : 0);
0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name Christian Brabandt <cb@256bit.org> parents: 14642 diff changeset	2320
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2321 ARGLIST[after + i].ae_fname = files[i];
14656 0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name Christian Brabandt <cb@256bit.org> parents: 14642 diff changeset	2322 ARGLIST[after + i].ae_fnum = buflist_add(files[i], flags);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2323 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2324 ALIST(curwin)->al_ga.ga_len += count;
7647 65b2d593c203 commit https://github.com/vim/vim/commit/a24f0a550fed3d9773800cf6be4efd072fff20ec Christian Brabandt <cb@256bit.org> parents: 7639 diff changeset	2325 if (old_argcount > 0 && curwin->w_arg_idx >= after)
65b2d593c203 commit https://github.com/vim/vim/commit/a24f0a550fed3d9773800cf6be4efd072fff20ec Christian Brabandt <cb@256bit.org> parents: 7639 diff changeset	2326 curwin->w_arg_idx += count;
14656 0d5726f2913b patch 8.1.0341: :argadd in empty buffer changes the buffer name Christian Brabandt <cb@256bit.org> parents: 14642 diff changeset	2327 return;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2328 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2329
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2330 for (i = 0; i < count; ++i)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2331 vim_free(files[i]);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2332 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2333
13551 1fd0f8392946 patch 8.0.1649: no completion for argument list commands Christian Brabandt <cb@256bit.org> parents: 13438 diff changeset	2334 #if defined(FEAT_CMDL_COMPL) \|\| defined(PROTO)
1fd0f8392946 patch 8.0.1649: no completion for argument list commands Christian Brabandt <cb@256bit.org> parents: 13438 diff changeset	2335 /*
1fd0f8392946 patch 8.0.1649: no completion for argument list commands Christian Brabandt <cb@256bit.org> parents: 13438 diff changeset	2336 * Function given to ExpandGeneric() to obtain the possible arguments of the
1fd0f8392946 patch 8.0.1649: no completion for argument list commands Christian Brabandt <cb@256bit.org> parents: 13438 diff changeset	2337 * argedit and argdelete commands.
1fd0f8392946 patch 8.0.1649: no completion for argument list commands Christian Brabandt <cb@256bit.org> parents: 13438 diff changeset	2338 */
1fd0f8392946 patch 8.0.1649: no completion for argument list commands Christian Brabandt <cb@256bit.org> parents: 13438 diff changeset	2339 char_u *
1fd0f8392946 patch 8.0.1649: no completion for argument list commands Christian Brabandt <cb@256bit.org> parents: 13438 diff changeset	2340 get_arglist_name(expand_T *xp UNUSED, int idx)
1fd0f8392946 patch 8.0.1649: no completion for argument list commands Christian Brabandt <cb@256bit.org> parents: 13438 diff changeset	2341 {
1fd0f8392946 patch 8.0.1649: no completion for argument list commands Christian Brabandt <cb@256bit.org> parents: 13438 diff changeset	2342 if (idx >= ARGCOUNT)
1fd0f8392946 patch 8.0.1649: no completion for argument list commands Christian Brabandt <cb@256bit.org> parents: 13438 diff changeset	2343 return NULL;
1fd0f8392946 patch 8.0.1649: no completion for argument list commands Christian Brabandt <cb@256bit.org> parents: 13438 diff changeset	2344
1fd0f8392946 patch 8.0.1649: no completion for argument list commands Christian Brabandt <cb@256bit.org> parents: 13438 diff changeset	2345 return alist_name(&ARGLIST[idx]);
1fd0f8392946 patch 8.0.1649: no completion for argument list commands Christian Brabandt <cb@256bit.org> parents: 13438 diff changeset	2346 }
1fd0f8392946 patch 8.0.1649: no completion for argument list commands Christian Brabandt <cb@256bit.org> parents: 13438 diff changeset	2347 #endif
1fd0f8392946 patch 8.0.1649: no completion for argument list commands Christian Brabandt <cb@256bit.org> parents: 13438 diff changeset	2348
13553 04019fc3de93 patch 8.0.1650: too many #ifdefs Christian Brabandt <cb@256bit.org> parents: 13551 diff changeset	2349
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2350 #ifdef FEAT_EVAL
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2351 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2352 * ":compiler[!] {name}"
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2353 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2354 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	2355 ex_compiler(exarg_T *eap)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2356 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2357 char_u *buf;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2358 char_u *old_cur_comp = NULL;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2359 char_u *p;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2360
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2361 if (*eap->arg == NUL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2362 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2363 /* List all compiler scripts. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2364 do_cmdline_cmd((char_u )"echo globpath(&rtp, 'compiler/.vim')");
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2365 /* ) keep the indenter happy... */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2366 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2367 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2368 {
16764 ef00b6bc186b patch 8.1.1384: using "int" for alloc() often results in compiler warnings Bram Moolenaar <Bram@vim.org> parents: 16738 diff changeset	2369 buf = alloc(STRLEN(eap->arg) + 14);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2370 if (buf != NULL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2371 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2372 if (eap->forceit)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2373 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2374 /* ":compiler! {name}" sets global options */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2375 do_cmdline_cmd((char_u *)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2376 "command -nargs=* CompilerSet set <args>");
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2377 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2378 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2379 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2380 /* ":compiler! {name}" sets local options.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2381 * To remain backwards compatible "current_compiler" is always
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2382 * used. A user's compiler plugin may set it, the distributed
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2383 * plugin will then skip the settings. Afterwards set
2051 ef2890033e88 updated for version 7.2.337 Bram Moolenaar <bram@zimbu.org> parents: 1882 diff changeset	2384 * "b:current_compiler" and restore "current_compiler".
ef2890033e88 updated for version 7.2.337 Bram Moolenaar <bram@zimbu.org> parents: 1882 diff changeset	2385 * Explicitly prepend "g:" to make it work in a function. */
ef2890033e88 updated for version 7.2.337 Bram Moolenaar <bram@zimbu.org> parents: 1882 diff changeset	2386 old_cur_comp = get_var_value((char_u *)"g:current_compiler");
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2387 if (old_cur_comp != NULL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2388 old_cur_comp = vim_strsave(old_cur_comp);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2389 do_cmdline_cmd((char_u *)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2390 "command -nargs=* CompilerSet setlocal <args>");
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2391 }
2051 ef2890033e88 updated for version 7.2.337 Bram Moolenaar <bram@zimbu.org> parents: 1882 diff changeset	2392 do_unlet((char_u *)"g:current_compiler", TRUE);
148 72aefd4c1e0d updated for version 7.0046 vimboss parents: 123 diff changeset	2393 do_unlet((char_u *)"b:current_compiler", TRUE);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2394
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2395 sprintf((char *)buf, "compiler/%s.vim", eap->arg);
8524 2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2396 if (source_runtime(buf, DIP_ALL) == FAIL)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	2397 semsg(_("E666: compiler not supported: %s"), eap->arg);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2398 vim_free(buf);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2399
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2400 do_cmdline_cmd((char_u *)":delcommand CompilerSet");
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2401
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2402 /* Set "b:current_compiler" from "current_compiler". */
2051 ef2890033e88 updated for version 7.2.337 Bram Moolenaar <bram@zimbu.org> parents: 1882 diff changeset	2403 p = get_var_value((char_u *)"g:current_compiler");
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2404 if (p != NULL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2405 set_internal_string_var((char_u *)"b:current_compiler", p);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2406
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2407 /* Restore "current_compiler" for ":compiler {name}". */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2408 if (!eap->forceit)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2409 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2410 if (old_cur_comp != NULL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2411 {
2051 ef2890033e88 updated for version 7.2.337 Bram Moolenaar <bram@zimbu.org> parents: 1882 diff changeset	2412 set_internal_string_var((char_u *)"g:current_compiler",
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2413 old_cur_comp);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2414 vim_free(old_cur_comp);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2415 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2416 else
2051 ef2890033e88 updated for version 7.2.337 Bram Moolenaar <bram@zimbu.org> parents: 1882 diff changeset	2417 do_unlet((char_u *)"g:current_compiler", TRUE);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2418 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2419 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2420 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2421 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2422 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2423
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2424 /*
8526 981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2425 * ":runtime [what] {name}"
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2426 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2427 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	2428 ex_runtime(exarg_T *eap)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2429 {
8526 981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2430 char_u *arg = eap->arg;
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2431 char_u *p = skiptowhite(arg);
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2432 int len = (int)(p - arg);
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2433 int flags = eap->forceit ? DIP_ALL : 0;
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2434
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2435 if (STRNCMP(arg, "START", len) == 0)
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2436 {
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2437 flags += DIP_START + DIP_NORTP;
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2438 arg = skipwhite(arg + len);
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2439 }
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2440 else if (STRNCMP(arg, "OPT", len) == 0)
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2441 {
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2442 flags += DIP_OPT + DIP_NORTP;
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2443 arg = skipwhite(arg + len);
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2444 }
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2445 else if (STRNCMP(arg, "PACK", len) == 0)
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2446 {
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2447 flags += DIP_START + DIP_OPT + DIP_NORTP;
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2448 arg = skipwhite(arg + len);
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2449 }
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2450 else if (STRNCMP(arg, "ALL", len) == 0)
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2451 {
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2452 flags += DIP_START + DIP_OPT;
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2453 arg = skipwhite(arg + len);
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2454 }
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2455
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2456 source_runtime(arg, flags);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2457 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2458
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2459 static void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	2460 source_callback(char_u fname, void cookie UNUSED)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2461 {
819 23f82b5d2814 updated for version 7.0c10 vimboss parents: 794 diff changeset	2462 (void)do_source(fname, FALSE, DOSO_NONE);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2463 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2464
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2465 /*
8416 1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0 Christian Brabandt <cb@256bit.org> parents: 8388 diff changeset	2466 * Find the file "name" in all directories in "path" and invoke
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0 Christian Brabandt <cb@256bit.org> parents: 8388 diff changeset	2467 * "callback(fname, cookie)".
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0 Christian Brabandt <cb@256bit.org> parents: 8388 diff changeset	2468 * "name" can contain wildcards.
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0 Christian Brabandt <cb@256bit.org> parents: 8388 diff changeset	2469 * When "flags" has DIP_ALL: source all files, otherwise only the first one.
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0 Christian Brabandt <cb@256bit.org> parents: 8388 diff changeset	2470 * When "flags" has DIP_DIR: find directories instead of files.
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0 Christian Brabandt <cb@256bit.org> parents: 8388 diff changeset	2471 * When "flags" has DIP_ERR: give an error message if there is no match.
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0 Christian Brabandt <cb@256bit.org> parents: 8388 diff changeset	2472 *
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0 Christian Brabandt <cb@256bit.org> parents: 8388 diff changeset	2473 * return FAIL when no file could be sourced, OK otherwise.
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0 Christian Brabandt <cb@256bit.org> parents: 8388 diff changeset	2474 */
8522 721e8d6cb7b5 commit https://github.com/vim/vim/commit/6bef5306e4f2cacb3a93667992c2312d4b293c9d Christian Brabandt <cb@256bit.org> parents: 8520 diff changeset	2475 int
8182 95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2476 do_in_path(
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2477 char_u *path,
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	2478 char_u *name,
8376 e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd Christian Brabandt <cb@256bit.org> parents: 8374 diff changeset	2479 int flags,
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	2480 void (callback)(char_u fname, void *ck),
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	2481 void *cookie)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2482 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2483 char_u *rtp;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2484 char_u *np;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2485 char_u *buf;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2486 char_u *rtp_copy;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2487 char_u *tail;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2488 int num_files;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2489 char_u **files;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2490 int i;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2491 int did_one = FALSE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2492 #ifdef AMIGA
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2493 struct Process proc = (struct Process )FindTask(0L);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2494 APTR save_winptr = proc->pr_WindowPtr;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2495
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2496 /* Avoid a requester here for a volume that doesn't exist. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2497 proc->pr_WindowPtr = (APTR)-1L;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2498 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2499
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2500 /* Make a copy of 'runtimepath'. Invoking the callback may change the
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2501 * value. */
8182 95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2502 rtp_copy = vim_strsave(path);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2503 buf = alloc(MAXPATHL);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2504 if (buf != NULL && rtp_copy != NULL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2505 {
4833 70b1178dec79 updated for version 7.3.1163 Bram Moolenaar <bram@vim.org> parents: 4825 diff changeset	2506 if (p_verbose > 1 && name != NULL)
294 1c1cbdc42f75 updated for version 7.0077 vimboss parents: 274 diff changeset	2507 {
1c1cbdc42f75 updated for version 7.0077 vimboss parents: 274 diff changeset	2508 verbose_enter();
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	2509 smsg(_("Searching for \"%s\" in \"%s\""),
8182 95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2510 (char )name, (char )path);
294 1c1cbdc42f75 updated for version 7.0077 vimboss parents: 274 diff changeset	2511 verbose_leave();
1c1cbdc42f75 updated for version 7.0077 vimboss parents: 274 diff changeset	2512 }
271 8d34af900bae updated for version 7.0072 vimboss parents: 253 diff changeset	2513
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2514 /* Loop over all entries in 'runtimepath'. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2515 rtp = rtp_copy;
8376 e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd Christian Brabandt <cb@256bit.org> parents: 8374 diff changeset	2516 while (*rtp != NUL && ((flags & DIP_ALL) \|\| !did_one))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2517 {
9778 4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359 Christian Brabandt <cb@256bit.org> parents: 9709 diff changeset	2518 size_t buflen;
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359 Christian Brabandt <cb@256bit.org> parents: 9709 diff changeset	2519
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2520 /* Copy the path from 'runtimepath' to buf[]. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2521 copy_option_part(&rtp, buf, MAXPATHL, ",");
9778 4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359 Christian Brabandt <cb@256bit.org> parents: 9709 diff changeset	2522 buflen = STRLEN(buf);
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359 Christian Brabandt <cb@256bit.org> parents: 9709 diff changeset	2523
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359 Christian Brabandt <cb@256bit.org> parents: 9709 diff changeset	2524 /* Skip after or non-after directories. */
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359 Christian Brabandt <cb@256bit.org> parents: 9709 diff changeset	2525 if (flags & (DIP_NOAFTER \| DIP_AFTER))
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359 Christian Brabandt <cb@256bit.org> parents: 9709 diff changeset	2526 {
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359 Christian Brabandt <cb@256bit.org> parents: 9709 diff changeset	2527 int is_after = buflen >= 5
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359 Christian Brabandt <cb@256bit.org> parents: 9709 diff changeset	2528 && STRCMP(buf + buflen - 5, "after") == 0;
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359 Christian Brabandt <cb@256bit.org> parents: 9709 diff changeset	2529
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359 Christian Brabandt <cb@256bit.org> parents: 9709 diff changeset	2530 if ((is_after && (flags & DIP_NOAFTER))
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359 Christian Brabandt <cb@256bit.org> parents: 9709 diff changeset	2531 \|\| (!is_after && (flags & DIP_AFTER)))
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359 Christian Brabandt <cb@256bit.org> parents: 9709 diff changeset	2532 continue;
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359 Christian Brabandt <cb@256bit.org> parents: 9709 diff changeset	2533 }
4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359 Christian Brabandt <cb@256bit.org> parents: 9709 diff changeset	2534
4833 70b1178dec79 updated for version 7.3.1163 Bram Moolenaar <bram@vim.org> parents: 4825 diff changeset	2535 if (name == NULL)
70b1178dec79 updated for version 7.3.1163 Bram Moolenaar <bram@vim.org> parents: 4825 diff changeset	2536 {
70b1178dec79 updated for version 7.3.1163 Bram Moolenaar <bram@vim.org> parents: 4825 diff changeset	2537 (callback)(buf, (void ) &cookie);
70b1178dec79 updated for version 7.3.1163 Bram Moolenaar <bram@vim.org> parents: 4825 diff changeset	2538 if (!did_one)
70b1178dec79 updated for version 7.3.1163 Bram Moolenaar <bram@vim.org> parents: 4825 diff changeset	2539 did_one = (cookie == NULL);
70b1178dec79 updated for version 7.3.1163 Bram Moolenaar <bram@vim.org> parents: 4825 diff changeset	2540 }
9778 4360b2b46125 commit https://github.com/vim/vim/commit/66459b7c98c67f8a9d39de8f08e8e8f1fca0e359 Christian Brabandt <cb@256bit.org> parents: 9709 diff changeset	2541 else if (buflen + STRLEN(name) + 2 < MAXPATHL)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2542 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2543 add_pathsep(buf);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2544 tail = buf + STRLEN(buf);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2545
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2546 /* Loop over all patterns in "name" */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2547 np = name;
8376 e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd Christian Brabandt <cb@256bit.org> parents: 8374 diff changeset	2548 while (*np != NUL && ((flags & DIP_ALL) \|\| !did_one))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2549 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2550 /* Append the pattern from "name" to buf[]. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2551 copy_option_part(&np, tail, (int)(MAXPATHL - (tail - buf)),
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2552 "\t ");
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2553
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2554 if (p_verbose > 2)
294 1c1cbdc42f75 updated for version 7.0077 vimboss parents: 274 diff changeset	2555 {
1c1cbdc42f75 updated for version 7.0077 vimboss parents: 274 diff changeset	2556 verbose_enter();
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	2557 smsg(_("Searching for \"%s\""), buf);
294 1c1cbdc42f75 updated for version 7.0077 vimboss parents: 274 diff changeset	2558 verbose_leave();
1c1cbdc42f75 updated for version 7.0077 vimboss parents: 274 diff changeset	2559 }
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2560
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2561 /* Expand wildcards, invoke the callback for each match. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2562 if (gen_expand_wildcards(1, &buf, &num_files, &files,
8376 e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd Christian Brabandt <cb@256bit.org> parents: 8374 diff changeset	2563 (flags & DIP_DIR) ? EW_DIR : EW_FILE) == OK)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2564 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2565 for (i = 0; i < num_files; ++i)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2566 {
237 73354c21f1e4 updated for version 7.0066 vimboss parents: 205 diff changeset	2567 (*callback)(files[i], cookie);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2568 did_one = TRUE;
8376 e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd Christian Brabandt <cb@256bit.org> parents: 8374 diff changeset	2569 if (!(flags & DIP_ALL))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2570 break;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2571 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2572 FreeWild(num_files, files);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2573 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2574 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2575 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2576 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2577 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2578 vim_free(buf);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2579 vim_free(rtp_copy);
8416 1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0 Christian Brabandt <cb@256bit.org> parents: 8388 diff changeset	2580 if (!did_one && name != NULL)
294 1c1cbdc42f75 updated for version 7.0077 vimboss parents: 274 diff changeset	2581 {
8416 1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0 Christian Brabandt <cb@256bit.org> parents: 8388 diff changeset	2582 char *basepath = path == p_rtp ? "runtimepath" : "packpath";
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0 Christian Brabandt <cb@256bit.org> parents: 8388 diff changeset	2583
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0 Christian Brabandt <cb@256bit.org> parents: 8388 diff changeset	2584 if (flags & DIP_ERR)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	2585 semsg(_(e_dirnotf), basepath, name);
8416 1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0 Christian Brabandt <cb@256bit.org> parents: 8388 diff changeset	2586 else if (p_verbose > 0)
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0 Christian Brabandt <cb@256bit.org> parents: 8388 diff changeset	2587 {
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0 Christian Brabandt <cb@256bit.org> parents: 8388 diff changeset	2588 verbose_enter();
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	2589 smsg(_("not found in '%s': \"%s\""), basepath, name);
8416 1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0 Christian Brabandt <cb@256bit.org> parents: 8388 diff changeset	2590 verbose_leave();
1a6527cce675 commit https://github.com/vim/vim/commit/be82c254862e475a582c0717455e1db6bf96b0d0 Christian Brabandt <cb@256bit.org> parents: 8388 diff changeset	2591 }
294 1c1cbdc42f75 updated for version 7.0077 vimboss parents: 274 diff changeset	2592 }
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2593
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2594 #ifdef AMIGA
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2595 proc->pr_WindowPtr = save_winptr;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2596 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2597
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2598 return did_one ? OK : FAIL;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2599 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	2600
8182 95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2601 /*
11595 42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2602 * Find "name" in "path". When found, invoke the callback function for
8182 95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2603 * it: callback(fname, "cookie")
8524 2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2604 * When "flags" has DIP_ALL repeat for all matches, otherwise only the first
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2605 * one is used.
8182 95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2606 * Returns OK when at least one match found, FAIL otherwise.
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2607 *
11595 42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2608 * If "name" is NULL calls callback for each entry in "path". Cookie is
8182 95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2609 * passed by reference in this case, setting it to NULL indicates that callback
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2610 * has done its job.
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2611 */
11595 42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2612 static int
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2613 do_in_path_and_pp(
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2614 char_u *path,
8182 95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2615 char_u *name,
8524 2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2616 int flags,
8182 95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2617 void (callback)(char_u fname, void *ck),
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2618 void *cookie)
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2619 {
8526 981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2620 int done = FAIL;
8524 2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2621 char_u *s;
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2622 int len;
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2623 char start_dir = "pack//start/*/%s";
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2624 char opt_dir = "pack//opt/*/%s";
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2625
8526 981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2626 if ((flags & DIP_NORTP) == 0)
11595 42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2627 done = do_in_path(path, name, flags, callback, cookie);
8526 981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2628
981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2629 if ((done == FAIL \|\| (flags & DIP_ALL)) && (flags & DIP_START))
8524 2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2630 {
8595 887b378f29d1 commit https://github.com/vim/vim/commit/1c8b4edb9b6cd5248925f3f06ec82486be9fb4ea Christian Brabandt <cb@256bit.org> parents: 8587 diff changeset	2631 len = (int)(STRLEN(start_dir) + STRLEN(name));
8524 2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2632 s = alloc(len);
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2633 if (s == NULL)
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2634 return FAIL;
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2635 vim_snprintf((char *)s, len, start_dir, name);
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2636 done = do_in_path(p_pp, s, flags, callback, cookie);
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2637 vim_free(s);
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2638 }
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2639
8526 981cc3bef9f3 commit https://github.com/vim/vim/commit/8dcf259d904cfb965d31841dc74a5cfaf5a351d9 Christian Brabandt <cb@256bit.org> parents: 8524 diff changeset	2640 if ((done == FAIL \|\| (flags & DIP_ALL)) && (flags & DIP_OPT))
8524 2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2641 {
8595 887b378f29d1 commit https://github.com/vim/vim/commit/1c8b4edb9b6cd5248925f3f06ec82486be9fb4ea Christian Brabandt <cb@256bit.org> parents: 8587 diff changeset	2642 len = (int)(STRLEN(opt_dir) + STRLEN(name));
8524 2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2643 s = alloc(len);
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2644 if (s == NULL)
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2645 return FAIL;
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2646 vim_snprintf((char *)s, len, opt_dir, name);
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2647 done = do_in_path(p_pp, s, flags, callback, cookie);
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2648 vim_free(s);
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2649 }
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2650
2f57bbe870ea commit https://github.com/vim/vim/commit/7f8989dd8a627af2185df381195351a913f3777f Christian Brabandt <cb@256bit.org> parents: 8522 diff changeset	2651 return done;
8182 95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2652 }
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2653
8372 ce791ff9e0da commit https://github.com/vim/vim/commit/1bdd42627d619258d0e847f217cfc1c2795f1ac5 Christian Brabandt <cb@256bit.org> parents: 8368 diff changeset	2654 /*
11595 42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2655 * Just like do_in_path_and_pp(), using 'runtimepath' for "path".
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2656 */
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2657 int
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2658 do_in_runtimepath(
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2659 char_u *name,
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2660 int flags,
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2661 void (callback)(char_u fname, void *ck),
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2662 void *cookie)
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2663 {
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2664 return do_in_path_and_pp(p_rtp, name, flags, callback, cookie);
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2665 }
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2666
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2667 /*
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2668 * Source the file "name" from all directories in 'runtimepath'.
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2669 * "name" can contain wildcards.
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2670 * When "flags" has DIP_ALL: source all files, otherwise only the first one.
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2671 *
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2672 * return FAIL when no file could be sourced, OK otherwise.
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2673 */
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2674 int
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2675 source_runtime(char_u *name, int flags)
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2676 {
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2677 return source_in_path(p_rtp, name, flags);
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2678 }
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2679
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2680 /*
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2681 * Just like source_runtime(), but use "path" instead of 'runtimepath'.
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2682 */
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2683 int
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2684 source_in_path(char_u path, char_u name, int flags)
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2685 {
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2686 return do_in_path_and_pp(path, name, flags, source_callback, NULL);
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2687 }
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2688
42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2689
13380 69517d67421f patch 8.0.1564: too many #ifdefs Christian Brabandt <cb@256bit.org> parents: 13302 diff changeset	2690 #if defined(FEAT_EVAL) \|\| defined(PROTO)
69517d67421f patch 8.0.1564: too many #ifdefs Christian Brabandt <cb@256bit.org> parents: 13302 diff changeset	2691
11595 42cd59477698 patch 8.0.0680: plugins in start packages are sourced twice Christian Brabandt <cb@256bit.org> parents: 11575 diff changeset	2692 /*
8388 f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02 Christian Brabandt <cb@256bit.org> parents: 8378 diff changeset	2693 * Expand wildcards in "pat" and invoke do_source() for each match.
8372 ce791ff9e0da commit https://github.com/vim/vim/commit/1bdd42627d619258d0e847f217cfc1c2795f1ac5 Christian Brabandt <cb@256bit.org> parents: 8368 diff changeset	2694 */
ce791ff9e0da commit https://github.com/vim/vim/commit/1bdd42627d619258d0e847f217cfc1c2795f1ac5 Christian Brabandt <cb@256bit.org> parents: 8368 diff changeset	2695 static void
8388 f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02 Christian Brabandt <cb@256bit.org> parents: 8378 diff changeset	2696 source_all_matches(char_u *pat)
8372 ce791ff9e0da commit https://github.com/vim/vim/commit/1bdd42627d619258d0e847f217cfc1c2795f1ac5 Christian Brabandt <cb@256bit.org> parents: 8368 diff changeset	2697 {
8388 f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02 Christian Brabandt <cb@256bit.org> parents: 8378 diff changeset	2698 int num_files;
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02 Christian Brabandt <cb@256bit.org> parents: 8378 diff changeset	2699 char_u **files;
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02 Christian Brabandt <cb@256bit.org> parents: 8378 diff changeset	2700 int i;
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02 Christian Brabandt <cb@256bit.org> parents: 8378 diff changeset	2701
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02 Christian Brabandt <cb@256bit.org> parents: 8378 diff changeset	2702 if (gen_expand_wildcards(1, &pat, &num_files, &files, EW_FILE) == OK)
8372 ce791ff9e0da commit https://github.com/vim/vim/commit/1bdd42627d619258d0e847f217cfc1c2795f1ac5 Christian Brabandt <cb@256bit.org> parents: 8368 diff changeset	2703 {
8388 f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02 Christian Brabandt <cb@256bit.org> parents: 8378 diff changeset	2704 for (i = 0; i < num_files; ++i)
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02 Christian Brabandt <cb@256bit.org> parents: 8378 diff changeset	2705 (void)do_source(files[i], FALSE, DOSO_NONE);
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02 Christian Brabandt <cb@256bit.org> parents: 8378 diff changeset	2706 FreeWild(num_files, files);
8372 ce791ff9e0da commit https://github.com/vim/vim/commit/1bdd42627d619258d0e847f217cfc1c2795f1ac5 Christian Brabandt <cb@256bit.org> parents: 8368 diff changeset	2707 }
ce791ff9e0da commit https://github.com/vim/vim/commit/1bdd42627d619258d0e847f217cfc1c2795f1ac5 Christian Brabandt <cb@256bit.org> parents: 8368 diff changeset	2708 }
ce791ff9e0da commit https://github.com/vim/vim/commit/1bdd42627d619258d0e847f217cfc1c2795f1ac5 Christian Brabandt <cb@256bit.org> parents: 8368 diff changeset	2709
13190 9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2710 /*
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2711 * Add the package directory to 'runtimepath'.
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2712 */
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2713 static int
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2714 add_pack_dir_to_rtp(char_u *fname)
8182 95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2715 {
8388 f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02 Christian Brabandt <cb@256bit.org> parents: 8378 diff changeset	2716 char_u p4, p3, p2, p1, *p;
14681 285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2717 char_u *entry;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2718 char_u *insp = NULL;
8376 e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd Christian Brabandt <cb@256bit.org> parents: 8374 diff changeset	2719 int c;
e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd Christian Brabandt <cb@256bit.org> parents: 8374 diff changeset	2720 char_u *new_rtp;
e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd Christian Brabandt <cb@256bit.org> parents: 8374 diff changeset	2721 int keep;
9155 e4d7e6d1a0f1 commit https://github.com/vim/vim/commit/b055066a1daf12c349d6c575aff22ae4d999a157 Christian Brabandt <cb@256bit.org> parents: 9153 diff changeset	2722 size_t oldlen;
e4d7e6d1a0f1 commit https://github.com/vim/vim/commit/b055066a1daf12c349d6c575aff22ae4d999a157 Christian Brabandt <cb@256bit.org> parents: 9153 diff changeset	2723 size_t addlen;
14681 285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2724 size_t new_rtp_len;
13190 9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2725 char_u *afterdir = NULL;
9155 e4d7e6d1a0f1 commit https://github.com/vim/vim/commit/b055066a1daf12c349d6c575aff22ae4d999a157 Christian Brabandt <cb@256bit.org> parents: 9153 diff changeset	2726 size_t afterlen = 0;
14681 285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2727 char_u *after_insp = NULL;
13190 9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2728 char_u *ffname = NULL;
9410 5a095f9e77ed commit https://github.com/vim/vim/commit/fef524bbff9aa186838c35212b2f89f61d627cf8 Christian Brabandt <cb@256bit.org> parents: 9387 diff changeset	2729 size_t fname_len;
10837 437cf0fe2138 patch 8.0.0308: 'runtimepath' not update correctly when using symbolic link Christian Brabandt <cb@256bit.org> parents: 10722 diff changeset	2730 char_u *buf = NULL;
437cf0fe2138 patch 8.0.0308: 'runtimepath' not update correctly when using symbolic link Christian Brabandt <cb@256bit.org> parents: 10722 diff changeset	2731 char_u *rtp_ffname;
437cf0fe2138 patch 8.0.0308: 'runtimepath' not update correctly when using symbolic link Christian Brabandt <cb@256bit.org> parents: 10722 diff changeset	2732 int match;
13190 9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2733 int retval = FAIL;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2734
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2735 p4 = p3 = p2 = p1 = get_past_head(fname);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2736 for (p = p1; *p; MB_PTR_ADV(p))
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2737 if (vim_ispathsep_nocolon(*p))
9383 2547ef419123 commit https://github.com/vim/vim/commit/4c5717ed8a81f5ae9dfe4f38b17a61fc8421054b Christian Brabandt <cb@256bit.org> parents: 9282 diff changeset	2738 {
13190 9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2739 p4 = p3; p3 = p2; p2 = p1; p1 = p;
9383 2547ef419123 commit https://github.com/vim/vim/commit/4c5717ed8a81f5ae9dfe4f38b17a61fc8421054b Christian Brabandt <cb@256bit.org> parents: 9282 diff changeset	2740 }
2547ef419123 commit https://github.com/vim/vim/commit/4c5717ed8a81f5ae9dfe4f38b17a61fc8421054b Christian Brabandt <cb@256bit.org> parents: 9282 diff changeset	2741
13190 9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2742 /* now we have:
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2743 * rtp/pack/name/start/name
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2744 * p4 p3 p2 p1
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2745 *
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2746 * find the part up to "pack" in 'runtimepath' */
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2747 c = ++p4; / append pathsep in order to expand symlink */
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2748 *p4 = NUL;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2749 ffname = fix_fname(fname);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2750 *p4 = c;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2751 if (ffname == NULL)
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2752 return FAIL;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2753
14681 285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2754 // Find "ffname" in "p_rtp", ignoring '/' vs '\' differences.
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2755 // Also stop at the first "after" directory.
13190 9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2756 fname_len = STRLEN(ffname);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2757 buf = alloc(MAXPATHL);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2758 if (buf == NULL)
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2759 goto theend;
14681 285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2760 for (entry = p_rtp; *entry != NUL; )
13190 9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2761 {
14681 285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2762 char_u *cur_entry = entry;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2763
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2764 copy_option_part(&entry, buf, MAXPATHL, ",");
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2765 if (insp == NULL)
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2766 {
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2767 add_pathsep(buf);
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2768 rtp_ffname = fix_fname(buf);
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2769 if (rtp_ffname == NULL)
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2770 goto theend;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2771 match = vim_fnamencmp(rtp_ffname, ffname, fname_len) == 0;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2772 vim_free(rtp_ffname);
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2773 if (match)
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2774 // Insert "ffname" after this entry (and comma).
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2775 insp = entry;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2776 }
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2777
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2778 if ((p = (char_u )strstr((char )buf, "after")) != NULL
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2779 && p > buf
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2780 && vim_ispathsep(p[-1])
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2781 && (vim_ispathsep(p[5]) \|\| p[5] == NUL \|\| p[5] == ','))
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2782 {
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2783 if (insp == NULL)
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2784 // Did not find "ffname" before the first "after" directory,
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2785 // insert it before this entry.
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2786 insp = cur_entry;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2787 after_insp = cur_entry;
13190 9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2788 break;
14681 285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2789 }
8182 95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2790 }
8388 f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02 Christian Brabandt <cb@256bit.org> parents: 8378 diff changeset	2791
14681 285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2792 if (insp == NULL)
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2793 // Both "fname" and "after" not found, append at the end.
13190 9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2794 insp = p_rtp + STRLEN(p_rtp);
14681 285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2795
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2796 // check if rtp/pack/name/start/name/after exists
13190 9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2797 afterdir = concat_fnames(fname, (char_u *)"after", TRUE);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2798 if (afterdir != NULL && mch_isdir(afterdir))
14681 285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2799 afterlen = STRLEN(afterdir) + 1; // add one for comma
13190 9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2800
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2801 oldlen = STRLEN(p_rtp);
14681 285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2802 addlen = STRLEN(fname) + 1; // add one for comma
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2803 new_rtp = alloc((int)(oldlen + addlen + afterlen + 1)); // add one for NUL
13190 9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2804 if (new_rtp == NULL)
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2805 goto theend;
14681 285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2806
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2807 // We now have 'rtp' parts: {keep}{keep_after}{rest}.
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2808 // Create new_rtp, first: {keep},{fname}
13190 9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2809 keep = (int)(insp - p_rtp);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2810 mch_memmove(new_rtp, p_rtp, keep);
14681 285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2811 new_rtp_len = keep;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2812 if (*insp == NUL)
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2813 new_rtp[new_rtp_len++] = ','; // add comma before
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2814 mch_memmove(new_rtp + new_rtp_len, fname, addlen - 1);
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2815 new_rtp_len += addlen - 1;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2816 if (*insp != NUL)
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2817 new_rtp[new_rtp_len++] = ','; // add comma after
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2818
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2819 if (afterlen > 0 && after_insp != NULL)
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2820 {
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2821 int keep_after = (int)(after_insp - p_rtp);
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2822
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2823 // Add to new_rtp: {keep},{fname}{keep_after},{afterdir}
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2824 mch_memmove(new_rtp + new_rtp_len, p_rtp + keep,
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2825 keep_after - keep);
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2826 new_rtp_len += keep_after - keep;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2827 mch_memmove(new_rtp + new_rtp_len, afterdir, afterlen - 1);
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2828 new_rtp_len += afterlen - 1;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2829 new_rtp[new_rtp_len++] = ',';
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2830 keep = keep_after;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2831 }
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2832
13190 9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2833 if (p_rtp[keep] != NUL)
14681 285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2834 // Append rest: {keep},{fname}{keep_after},{afterdir}{rest}
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2835 mch_memmove(new_rtp + new_rtp_len, p_rtp + keep, oldlen - keep + 1);
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2836 else
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2837 new_rtp[new_rtp_len] = NUL;
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2838
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2839 if (afterlen > 0 && after_insp == NULL)
8388 f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02 Christian Brabandt <cb@256bit.org> parents: 8378 diff changeset	2840 {
14681 285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2841 // Append afterdir when "after" was not found:
285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2842 // {keep},{fname}{rest},{afterdir}
13190 9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2843 STRCAT(new_rtp, ",");
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2844 STRCAT(new_rtp, afterdir);
8388 f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02 Christian Brabandt <cb@256bit.org> parents: 8378 diff changeset	2845 }
14681 285b051979a6 patch 8.1.0353: an "after" directory of a package is appended to 'rtp' Christian Brabandt <cb@256bit.org> parents: 14656 diff changeset	2846
13190 9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2847 set_option_value((char_u *)"rtp", 0L, new_rtp, 0);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2848 vim_free(new_rtp);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2849 retval = OK;
8388 f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02 Christian Brabandt <cb@256bit.org> parents: 8378 diff changeset	2850
f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02 Christian Brabandt <cb@256bit.org> parents: 8378 diff changeset	2851 theend:
10837 437cf0fe2138 patch 8.0.0308: 'runtimepath' not update correctly when using symbolic link Christian Brabandt <cb@256bit.org> parents: 10722 diff changeset	2852 vim_free(buf);
8376 e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd Christian Brabandt <cb@256bit.org> parents: 8374 diff changeset	2853 vim_free(ffname);
13190 9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2854 vim_free(afterdir);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2855 return retval;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2856 }
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2857
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2858 /*
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2859 * Load scripts in "plugin" and "ftdetect" directories of the package.
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2860 */
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2861 static int
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2862 load_pack_plugin(char_u *fname)
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2863 {
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2864 static char plugpat = "%s/plugin//.vim";
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2865 static char ftpat = "%s/ftdetect/.vim";
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2866 int len;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2867 char_u *ffname = fix_fname(fname);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2868 char_u *pat = NULL;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2869 int retval = FAIL;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2870
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2871 if (ffname == NULL)
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2872 return FAIL;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2873 len = (int)STRLEN(ffname) + (int)STRLEN(ftpat);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2874 pat = alloc(len);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2875 if (pat == NULL)
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2876 goto theend;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2877 vim_snprintf((char *)pat, len, plugpat, ffname);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2878 source_all_matches(pat);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2879
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2880 {
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2881 char_u cmd = vim_strsave((char_u )"g:did_load_filetypes");
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2882
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2883 /* If runtime/filetype.vim wasn't loaded yet, the scripts will be
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2884 * found when it loads. */
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2885 if (cmd != NULL && eval_to_number(cmd) > 0)
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2886 {
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2887 do_cmdline_cmd((char_u *)"augroup filetypedetect");
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2888 vim_snprintf((char *)pat, len, ftpat, ffname);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2889 source_all_matches(pat);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2890 do_cmdline_cmd((char_u *)"augroup END");
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2891 }
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2892 vim_free(cmd);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2893 }
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2894 vim_free(pat);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2895 retval = OK;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2896
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2897 theend:
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2898 vim_free(ffname);
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2899 return retval;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2900 }
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2901
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2902 /* used for "cookie" of add_pack_plugin() */
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2903 static int APP_ADD_DIR;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2904 static int APP_LOAD;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2905 static int APP_BOTH;
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2906
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2907 static void
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2908 add_pack_plugin(char_u fname, void cookie)
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2909 {
13724 5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches Christian Brabandt <cb@256bit.org> parents: 13553 diff changeset	2910 if (cookie != &APP_LOAD)
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches Christian Brabandt <cb@256bit.org> parents: 13553 diff changeset	2911 {
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches Christian Brabandt <cb@256bit.org> parents: 13553 diff changeset	2912 char_u *buf = alloc(MAXPATHL);
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches Christian Brabandt <cb@256bit.org> parents: 13553 diff changeset	2913 char_u *p;
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches Christian Brabandt <cb@256bit.org> parents: 13553 diff changeset	2914 int found = FALSE;
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches Christian Brabandt <cb@256bit.org> parents: 13553 diff changeset	2915
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches Christian Brabandt <cb@256bit.org> parents: 13553 diff changeset	2916 if (buf == NULL)
13190 9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2917 return;
13724 5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches Christian Brabandt <cb@256bit.org> parents: 13553 diff changeset	2918 p = p_rtp;
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches Christian Brabandt <cb@256bit.org> parents: 13553 diff changeset	2919 while (*p != NUL)
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches Christian Brabandt <cb@256bit.org> parents: 13553 diff changeset	2920 {
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches Christian Brabandt <cb@256bit.org> parents: 13553 diff changeset	2921 copy_option_part(&p, buf, MAXPATHL, ",");
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches Christian Brabandt <cb@256bit.org> parents: 13553 diff changeset	2922 if (pathcmp((char )buf, (char )fname, -1) == 0)
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches Christian Brabandt <cb@256bit.org> parents: 13553 diff changeset	2923 {
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches Christian Brabandt <cb@256bit.org> parents: 13553 diff changeset	2924 found = TRUE;
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches Christian Brabandt <cb@256bit.org> parents: 13553 diff changeset	2925 break;
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches Christian Brabandt <cb@256bit.org> parents: 13553 diff changeset	2926 }
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches Christian Brabandt <cb@256bit.org> parents: 13553 diff changeset	2927 }
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches Christian Brabandt <cb@256bit.org> parents: 13553 diff changeset	2928 vim_free(buf);
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches Christian Brabandt <cb@256bit.org> parents: 13553 diff changeset	2929 if (!found)
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches Christian Brabandt <cb@256bit.org> parents: 13553 diff changeset	2930 /* directory is not yet in 'runtimepath', add it */
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches Christian Brabandt <cb@256bit.org> parents: 13553 diff changeset	2931 if (add_pack_dir_to_rtp(fname) == FAIL)
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches Christian Brabandt <cb@256bit.org> parents: 13553 diff changeset	2932 return;
5ef1e6170589 patch 8.0.1734: package directory not added to 'rtp' if prefix matches Christian Brabandt <cb@256bit.org> parents: 13553 diff changeset	2933 }
13190 9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2934
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2935 if (cookie != &APP_ADD_DIR)
9fccd578ce1f patch 8.0.1469: when package path is a symlink 'runtimepath' is wrong Christian Brabandt <cb@256bit.org> parents: 13045 diff changeset	2936 load_pack_plugin(fname);
8182 95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2937 }
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2938
11457 5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2939 /*
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2940 * Add all packages in the "start" directory to 'runtimepath'.
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2941 */
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2942 void
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2943 add_pack_start_dirs(void)
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2944 {
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2945 do_in_path(p_pp, (char_u )"pack//start/*", DIP_ALL + DIP_DIR,
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2946 add_pack_plugin, &APP_ADD_DIR);
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2947 }
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2948
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2949 /*
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2950 * Load plugins from all packages in the "start" directory.
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2951 */
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2952 void
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2953 load_start_packages(void)
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2954 {
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2955 did_source_packages = TRUE;
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2956 do_in_path(p_pp, (char_u )"pack//start/*", DIP_ALL + DIP_DIR,
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2957 add_pack_plugin, &APP_LOAD);
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2958 }
8520 b4350a4d1e01 commit https://github.com/vim/vim/commit/2d8f56acb32428d0f965d42dd13b27100b46fa15 Christian Brabandt <cb@256bit.org> parents: 8475 diff changeset	2959
8182 95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2960 /*
8520 b4350a4d1e01 commit https://github.com/vim/vim/commit/2d8f56acb32428d0f965d42dd13b27100b46fa15 Christian Brabandt <cb@256bit.org> parents: 8475 diff changeset	2961 * ":packloadall"
8388 f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02 Christian Brabandt <cb@256bit.org> parents: 8378 diff changeset	2962 * Find plugins in the package directories and source them.
8182 95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2963 */
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2964 void
8520 b4350a4d1e01 commit https://github.com/vim/vim/commit/2d8f56acb32428d0f965d42dd13b27100b46fa15 Christian Brabandt <cb@256bit.org> parents: 8475 diff changeset	2965 ex_packloadall(exarg_T *eap)
8182 95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2966 {
11457 5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2967 if (!did_source_packages \|\| eap->forceit)
8520 b4350a4d1e01 commit https://github.com/vim/vim/commit/2d8f56acb32428d0f965d42dd13b27100b46fa15 Christian Brabandt <cb@256bit.org> parents: 8475 diff changeset	2968 {
8849 9f40a379ff1e commit https://github.com/vim/vim/commit/49b27326447d0827c59c6cd201d58f65c1163086 Christian Brabandt <cb@256bit.org> parents: 8823 diff changeset	2969 /* First do a round to add all directories to 'runtimepath', then load
9f40a379ff1e commit https://github.com/vim/vim/commit/49b27326447d0827c59c6cd201d58f65c1163086 Christian Brabandt <cb@256bit.org> parents: 8823 diff changeset	2970 * the plugins. This allows for plugins to use an autoload directory
9f40a379ff1e commit https://github.com/vim/vim/commit/49b27326447d0827c59c6cd201d58f65c1163086 Christian Brabandt <cb@256bit.org> parents: 8823 diff changeset	2971 * of another plugin. */
11457 5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2972 add_pack_start_dirs();
5a1656d79707 patch 8.0.0612: pack dirs are added to 'runtimepath' too late Christian Brabandt <cb@256bit.org> parents: 11158 diff changeset	2973 load_start_packages();
8520 b4350a4d1e01 commit https://github.com/vim/vim/commit/2d8f56acb32428d0f965d42dd13b27100b46fa15 Christian Brabandt <cb@256bit.org> parents: 8475 diff changeset	2974 }
8182 95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2975 }
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2976
95d59081580f commit https://github.com/vim/vim/commit/f6fee0e2d4341c0c2f5339c1268e5877fafd07cf Christian Brabandt <cb@256bit.org> parents: 8080 diff changeset	2977 /*
8388 f5972de59001 commit https://github.com/vim/vim/commit/f3654827368e6204608036353a0360e9e7c21e02 Christian Brabandt <cb@256bit.org> parents: 8378 diff changeset	2978 * ":packadd[!] {name}"
8376 e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd Christian Brabandt <cb@256bit.org> parents: 8374 diff changeset	2979 */
e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd Christian Brabandt <cb@256bit.org> parents: 8374 diff changeset	2980 void
e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd Christian Brabandt <cb@256bit.org> parents: 8374 diff changeset	2981 ex_packadd(exarg_T *eap)
e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd Christian Brabandt <cb@256bit.org> parents: 8374 diff changeset	2982 {
13045 afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory Christian Brabandt <cb@256bit.org> parents: 12992 diff changeset	2983 static char plugpat = "pack//%s/%s";
8376 e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd Christian Brabandt <cb@256bit.org> parents: 8374 diff changeset	2984 int len;
e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd Christian Brabandt <cb@256bit.org> parents: 8374 diff changeset	2985 char *pat;
13045 afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory Christian Brabandt <cb@256bit.org> parents: 12992 diff changeset	2986 int round;
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory Christian Brabandt <cb@256bit.org> parents: 12992 diff changeset	2987 int res = OK;
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory Christian Brabandt <cb@256bit.org> parents: 12992 diff changeset	2988
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory Christian Brabandt <cb@256bit.org> parents: 12992 diff changeset	2989 /* Round 1: use "start", round 2: use "opt". */
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory Christian Brabandt <cb@256bit.org> parents: 12992 diff changeset	2990 for (round = 1; round <= 2; ++round)
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory Christian Brabandt <cb@256bit.org> parents: 12992 diff changeset	2991 {
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory Christian Brabandt <cb@256bit.org> parents: 12992 diff changeset	2992 /* Only look under "start" when loading packages wasn't done yet. */
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory Christian Brabandt <cb@256bit.org> parents: 12992 diff changeset	2993 if (round == 1 && did_source_packages)
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory Christian Brabandt <cb@256bit.org> parents: 12992 diff changeset	2994 continue;
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory Christian Brabandt <cb@256bit.org> parents: 12992 diff changeset	2995
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory Christian Brabandt <cb@256bit.org> parents: 12992 diff changeset	2996 len = (int)STRLEN(plugpat) + (int)STRLEN(eap->arg) + 5;
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory Christian Brabandt <cb@256bit.org> parents: 12992 diff changeset	2997 pat = (char *)alloc(len);
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory Christian Brabandt <cb@256bit.org> parents: 12992 diff changeset	2998 if (pat == NULL)
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory Christian Brabandt <cb@256bit.org> parents: 12992 diff changeset	2999 return;
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory Christian Brabandt <cb@256bit.org> parents: 12992 diff changeset	3000 vim_snprintf(pat, len, plugpat, round == 1 ? "start" : "opt", eap->arg);
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory Christian Brabandt <cb@256bit.org> parents: 12992 diff changeset	3001 /* The first round don't give a "not found" error, in the second round
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory Christian Brabandt <cb@256bit.org> parents: 12992 diff changeset	3002 * only when nothing was found in the first round. */
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory Christian Brabandt <cb@256bit.org> parents: 12992 diff changeset	3003 res = do_in_path(p_pp, (char_u *)pat,
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory Christian Brabandt <cb@256bit.org> parents: 12992 diff changeset	3004 DIP_ALL + DIP_DIR + (round == 2 && res == FAIL ? DIP_ERR : 0),
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory Christian Brabandt <cb@256bit.org> parents: 12992 diff changeset	3005 add_pack_plugin, eap->forceit ? &APP_ADD_DIR : &APP_BOTH);
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory Christian Brabandt <cb@256bit.org> parents: 12992 diff changeset	3006 vim_free(pat);
afd60028f7b7 patch 8.0.1398: :packadd does not load packages from the "start" directory Christian Brabandt <cb@256bit.org> parents: 12992 diff changeset	3007 }
8376 e448f2a5d45b commit https://github.com/vim/vim/commit/91715873d19a1859c08eeded7848113596e2f2bd Christian Brabandt <cb@256bit.org> parents: 8374 diff changeset	3008 }
13380 69517d67421f patch 8.0.1564: too many #ifdefs Christian Brabandt <cb@256bit.org> parents: 13302 diff changeset	3009 #endif
69517d67421f patch 8.0.1564: too many #ifdefs Christian Brabandt <cb@256bit.org> parents: 13302 diff changeset	3010
69517d67421f patch 8.0.1564: too many #ifdefs Christian Brabandt <cb@256bit.org> parents: 13302 diff changeset	3011 #if defined(FEAT_EVAL) \|\| defined(PROTO)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3012 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3013 * ":options"
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3014 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3015 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	3016 ex_options(
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	3017 exarg_T *eap UNUSED)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3018 {
16722 19ca17f9e155 patch 8.1.1363: ":vert options" does not make a vertical split Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3019 vim_setenv((char_u *)"OPTWIN_CMD",
19ca17f9e155 patch 8.1.1363: ":vert options" does not make a vertical split Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3020 (char_u *)(cmdmod.tab ? "tab"
19ca17f9e155 patch 8.1.1363: ":vert options" does not make a vertical split Bram Moolenaar <Bram@vim.org> parents: 16634 diff changeset	3021 : (cmdmod.split & WSP_VERT) ? "vert" : ""));
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3022 cmd_source((char_u *)SYS_OPTWIN_FILE, NULL);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3023 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3024 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3025
10722 7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3026 #if defined(FEAT_PYTHON3) \|\| defined(FEAT_PYTHON) \|\| defined(PROTO)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3027
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3028 # if (defined(FEAT_PYTHON) && defined(FEAT_PYTHON3)) \|\| defined(PROTO)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3029 /*
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3030 * Detect Python 3 or 2, and initialize 'pyxversion'.
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3031 */
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3032 void
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3033 init_pyxversion(void)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3034 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3035 if (p_pyx == 0)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3036 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3037 if (python3_enabled(FALSE))
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3038 p_pyx = 3;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3039 else if (python_enabled(FALSE))
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3040 p_pyx = 2;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3041 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3042 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3043 # endif
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3044
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3045 /*
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3046 * Does a file contain one of the following strings at the beginning of any
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3047 * line?
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3048 * "#!(any string)python2" => returns 2
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3049 * "#!(any string)python3" => returns 3
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3050 * "# requires python 2.x" => returns 2
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3051 * "# requires python 3.x" => returns 3
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3052 * otherwise return 0.
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3053 */
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3054 static int
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3055 requires_py_version(char_u *filename)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3056 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3057 FILE *file;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3058 int requires_py_version = 0;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3059 int i, lines;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3060
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3061 lines = (int)p_mls;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3062 if (lines < 0)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3063 lines = 5;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3064
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3065 file = mch_fopen((char *)filename, "r");
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3066 if (file != NULL)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3067 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3068 for (i = 0; i < lines; i++)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3069 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3070 if (vim_fgets(IObuff, IOSIZE, file))
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3071 break;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3072 if (i == 0 && IObuff[0] == '#' && IObuff[1] == '!')
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3073 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3074 /* Check shebang. */
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3075 if (strstr((char *)IObuff + 2, "python2") != NULL)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3076 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3077 requires_py_version = 2;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3078 break;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3079 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3080 if (strstr((char *)IObuff + 2, "python3") != NULL)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3081 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3082 requires_py_version = 3;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3083 break;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3084 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3085 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3086 IObuff[21] = '\0';
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3087 if (STRCMP("# requires python 2.x", IObuff) == 0)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3088 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3089 requires_py_version = 2;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3090 break;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3091 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3092 if (STRCMP("# requires python 3.x", IObuff) == 0)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3093 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3094 requires_py_version = 3;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3095 break;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3096 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3097 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3098 fclose(file);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3099 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3100 return requires_py_version;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3101 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3102
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3103
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3104 /*
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3105 * Source a python file using the requested python version.
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3106 */
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3107 static void
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3108 source_pyx_file(exarg_T eap, char_u fname)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3109 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3110 exarg_T ex;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3111 int v = requires_py_version(fname);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3112
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3113 # if defined(FEAT_PYTHON) && defined(FEAT_PYTHON3)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3114 init_pyxversion();
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3115 # endif
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3116 if (v == 0)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3117 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3118 # if defined(FEAT_PYTHON) && defined(FEAT_PYTHON3)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3119 /* user didn't choose a preference, 'pyx' is used */
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3120 v = p_pyx;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3121 # elif defined(FEAT_PYTHON)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3122 v = 2;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3123 # elif defined(FEAT_PYTHON3)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3124 v = 3;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3125 # endif
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3126 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3127
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3128 /*
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3129 * now source, if required python version is not supported show
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3130 * unobtrusive message.
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3131 */
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3132 if (eap == NULL)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3133 vim_memset(&ex, 0, sizeof(ex));
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3134 else
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3135 ex = *eap;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3136 ex.arg = fname;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3137 ex.cmd = (char_u *)(v == 2 ? "pyfile" : "pyfile3");
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3138
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3139 if (v == 2)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3140 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3141 # ifdef FEAT_PYTHON
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3142 ex_pyfile(&ex);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3143 # else
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3144 vim_snprintf((char *)IObuff, IOSIZE,
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3145 _("W20: Required python version 2.x not supported, ignoring file: %s"),
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3146 fname);
15543 dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	3147 msg((char *)IObuff);
10722 7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3148 # endif
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3149 return;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3150 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3151 else
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3152 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3153 # ifdef FEAT_PYTHON3
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3154 ex_py3file(&ex);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3155 # else
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3156 vim_snprintf((char *)IObuff, IOSIZE,
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3157 _("W21: Required python version 3.x not supported, ignoring file: %s"),
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3158 fname);
15543 dd725a8ab112 patch 8.1.0779: argument for message functions is inconsistent Bram Moolenaar <Bram@vim.org> parents: 15470 diff changeset	3159 msg((char *)IObuff);
10722 7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3160 # endif
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3161 return;
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3162 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3163 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3164
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3165 /*
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3166 * ":pyxfile {fname}"
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3167 */
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3168 void
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3169 ex_pyxfile(exarg_T *eap)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3170 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3171 source_pyx_file(eap, eap->arg);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3172 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3173
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3174 /*
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3175 * ":pyx"
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3176 */
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3177 void
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3178 ex_pyx(exarg_T *eap)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3179 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3180 # if defined(FEAT_PYTHON) && defined(FEAT_PYTHON3)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3181 init_pyxversion();
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3182 if (p_pyx == 2)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3183 ex_python(eap);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3184 else
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3185 ex_py3(eap);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3186 # elif defined(FEAT_PYTHON)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3187 ex_python(eap);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3188 # elif defined(FEAT_PYTHON3)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3189 ex_py3(eap);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3190 # endif
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3191 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3192
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3193 /*
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3194 * ":pyxdo"
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3195 */
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3196 void
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3197 ex_pyxdo(exarg_T *eap)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3198 {
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3199 # if defined(FEAT_PYTHON) && defined(FEAT_PYTHON3)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3200 init_pyxversion();
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3201 if (p_pyx == 2)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3202 ex_pydo(eap);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3203 else
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3204 ex_py3do(eap);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3205 # elif defined(FEAT_PYTHON)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3206 ex_pydo(eap);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3207 # elif defined(FEAT_PYTHON3)
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3208 ex_py3do(eap);
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3209 # endif
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3210 }
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3211
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3212 #endif
7598ce51bf2a patch 8.0.0251: not easy to select Python 2 or 3 Christian Brabandt <cb@256bit.org> parents: 10569 diff changeset	3213
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3214 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3215 * ":source {fname}"
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3216 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3217 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	3218 ex_source(exarg_T *eap)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3219 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3220 #ifdef FEAT_BROWSE
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3221 if (cmdmod.browse)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3222 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3223 char_u *fname = NULL;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3224
29 ac33b7c03fac updated for version 7.0018 vimboss parents: 22 diff changeset	3225 fname = do_browse(0, (char_u *)_("Source Vim script"), eap->arg,
13802 378f9f8e6d8f patch 8.0.1773: dialog messages are not translated Christian Brabandt <cb@256bit.org> parents: 13782 diff changeset	3226 NULL, NULL,
378f9f8e6d8f patch 8.0.1773: dialog messages are not translated Christian Brabandt <cb@256bit.org> parents: 13782 diff changeset	3227 (char_u *)_(BROWSE_FILTER_MACROS), NULL);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3228 if (fname != NULL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3229 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3230 cmd_source(fname, eap);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3231 vim_free(fname);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3232 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3233 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3234 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3235 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3236 cmd_source(eap->arg, eap);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3237 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3238
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3239 static void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	3240 cmd_source(char_u fname, exarg_T eap)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3241 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3242 if (*fname == NUL)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	3243 emsg(_(e_argreq));
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3244
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3245 else if (eap != NULL && eap->forceit)
4352 04736b4030ec updated for version 7.3.925 Bram Moolenaar <bram@vim.org> parents: 4242 diff changeset	3246 /* ":source!": read Normal mode commands
716 8ae24f338cab updated for version 7.0217 vimboss parents: 714 diff changeset	3247 * Need to execute the commands directly. This is required at least
8ae24f338cab updated for version 7.0217 vimboss parents: 714 diff changeset	3248 * for:
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3249 * - ":g" command busy
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3250 * - after ":argdo", ":windo" or ":bufdo"
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3251 * - another command follows
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3252 * - inside a loop
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3253 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3254 openscript(fname, global_busy \|\| listcmd_busy \|\| eap->nextcmd != NULL
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3255 #ifdef FEAT_EVAL
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3256 \|\| eap->cstack->cs_idx >= 0
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3257 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3258 );
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3259
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3260 /* ":source" read ex commands */
819 23f82b5d2814 updated for version 7.0c10 vimboss parents: 794 diff changeset	3261 else if (do_source(fname, FALSE, DOSO_NONE) == FAIL)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	3262 semsg(_(e_notopen), fname);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3263 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3264
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3265 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3266 * ":source" and associated commands.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3267 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3268 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3269 * Structure used to store info for each sourced file.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3270 * It is shared between do_source() and getsourceline().
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3271 * This is required, because it needs to be handed to do_cmdline() and
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3272 * sourcing can be done recursively.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3273 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3274 struct source_cookie
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3275 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3276 FILE fp; / opened file for sourcing */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3277 char_u nextline; / if not NULL: line that was read ahead */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3278 int finished; /* ":finish" used */
15840 734b1928a5aa patch 8.1.0927: USE_CR is never defined Bram Moolenaar <Bram@vim.org> parents: 15597 diff changeset	3279 #ifdef USE_CRNL
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3280 int fileformat; /* EOL_UNKNOWN, EOL_UNIX or EOL_DOS */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3281 int error; /* TRUE if LF found after CR-LF */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3282 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3283 #ifdef FEAT_EVAL
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3284 linenr_T breakpoint; /* next line with breakpoint or zero */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3285 char_u fname; / name of sourced file */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3286 int dbg_tick; /* debug_tick when breakpoint was set */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3287 int level; /* top nesting level of sourced file */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3288 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3289 vimconv_T conv; /* type of conversion */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3290 };
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3291
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3292 #ifdef FEAT_EVAL
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3293 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3294 * Return the address holding the next breakpoint line for a source cookie.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3295 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3296 linenr_T *
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	3297 source_breakpoint(void *cookie)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3298 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3299 return &((struct source_cookie *)cookie)->breakpoint;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3300 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3301
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3302 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3303 * Return the address holding the debug tick for a source cookie.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3304 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3305 int *
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	3306 source_dbg_tick(void *cookie)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3307 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3308 return &((struct source_cookie *)cookie)->dbg_tick;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3309 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3310
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3311 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3312 * Return the nesting level for a source cookie.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3313 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3314 int
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	3315 source_level(void *cookie)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3316 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3317 return ((struct source_cookie *)cookie)->level;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3318 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3319 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3320
7799 af3c41a3c53f commit https://github.com/vim/vim/commit/f28dbcea371b3a35727d91afc90fb90e0527d78a Christian Brabandt <cb@256bit.org> parents: 7726 diff changeset	3321 static char_u get_one_sourceline(struct source_cookie sp);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3322
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15842 diff changeset	3323 #if (defined(MSWIN) && defined(FEAT_CSCOPE)) \|\| defined(HAVE_FD_CLOEXEC)
2052 057029bf3470 updated for version 7.2.338 Bram Moolenaar <bram@zimbu.org> parents: 2051 diff changeset	3324 # define USE_FOPEN_NOINH
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3325 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3326 * Special function to open a file without handle inheritance.
2052 057029bf3470 updated for version 7.2.338 Bram Moolenaar <bram@zimbu.org> parents: 2051 diff changeset	3327 * When possible the handle is closed on exec().
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3328 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3329 static FILE *
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	3330 fopen_noinh_readbin(char *filename)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3331 {
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15842 diff changeset	3332 # ifdef MSWIN
2058 fb1222c880fc updated for version 7.2.344 Bram Moolenaar <bram@zimbu.org> parents: 2057 diff changeset	3333 int fd_tmp = mch_open(filename, O_RDONLY \| O_BINARY \| O_NOINHERIT, 0);
fb1222c880fc updated for version 7.2.344 Bram Moolenaar <bram@zimbu.org> parents: 2057 diff changeset	3334 # else
fb1222c880fc updated for version 7.2.344 Bram Moolenaar <bram@zimbu.org> parents: 2057 diff changeset	3335 int fd_tmp = mch_open(filename, O_RDONLY, 0);
2052 057029bf3470 updated for version 7.2.338 Bram Moolenaar <bram@zimbu.org> parents: 2051 diff changeset	3336 # endif
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3337
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3338 if (fd_tmp == -1)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3339 return NULL;
2052 057029bf3470 updated for version 7.2.338 Bram Moolenaar <bram@zimbu.org> parents: 2051 diff changeset	3340
057029bf3470 updated for version 7.2.338 Bram Moolenaar <bram@zimbu.org> parents: 2051 diff changeset	3341 # ifdef HAVE_FD_CLOEXEC
057029bf3470 updated for version 7.2.338 Bram Moolenaar <bram@zimbu.org> parents: 2051 diff changeset	3342 {
057029bf3470 updated for version 7.2.338 Bram Moolenaar <bram@zimbu.org> parents: 2051 diff changeset	3343 int fdflags = fcntl(fd_tmp, F_GETFD);
057029bf3470 updated for version 7.2.338 Bram Moolenaar <bram@zimbu.org> parents: 2051 diff changeset	3344 if (fdflags >= 0 && (fdflags & FD_CLOEXEC) == 0)
7009 286fd54c7ae3 patch 7.4.822 Bram Moolenaar <bram@vim.org> parents: 6749 diff changeset	3345 (void)fcntl(fd_tmp, F_SETFD, fdflags \| FD_CLOEXEC);
2052 057029bf3470 updated for version 7.2.338 Bram Moolenaar <bram@zimbu.org> parents: 2051 diff changeset	3346 }
057029bf3470 updated for version 7.2.338 Bram Moolenaar <bram@zimbu.org> parents: 2051 diff changeset	3347 # endif
057029bf3470 updated for version 7.2.338 Bram Moolenaar <bram@zimbu.org> parents: 2051 diff changeset	3348
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3349 return fdopen(fd_tmp, READBIN);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3350 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3351 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3352
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3353
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3354 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3355 * do_source: Read the file "fname" and execute its lines as EX commands.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3356 *
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3357 * This function may be called recursively!
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3358 *
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3359 * return FAIL if file could not be opened, OK otherwise
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3360 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3361 int
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	3362 do_source(
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	3363 char_u *fname,
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	3364 int check_other, /* check for .vimrc and _vimrc */
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	3365 int is_vimrc) /* DOSO_ value */
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3366 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3367 struct source_cookie cookie;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3368 char_u *save_sourcing_name;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3369 linenr_T save_sourcing_lnum;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3370 char_u *p;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3371 char_u *fname_exp;
1802 8978513bb5e3 updated for version 7.2-100 vimboss parents: 1743 diff changeset	3372 char_u *firstline = NULL;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3373 int retval = FAIL;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3374 #ifdef FEAT_EVAL
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	3375 sctx_T save_current_sctx;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3376 static scid_T last_current_SID = 0;
15008 67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15002 diff changeset	3377 static int last_current_SID_seq = 0;
14927 162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14862 diff changeset	3378 funccal_entry_T funccalp_entry;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3379 int save_debug_break_level = debug_break_level;
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3380 scriptitem_T *si = NULL;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3381 # ifdef UNIX
9387 f094d4085014 commit https://github.com/vim/vim/commit/8767f52fbfd4f053ce00a978227c95f1d7d323fe Christian Brabandt <cb@256bit.org> parents: 9383 diff changeset	3382 stat_T st;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3383 int stat_ok;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3384 # endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3385 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3386 #ifdef STARTUPTIME
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3387 struct timeval tv_rel;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3388 struct timeval tv_start;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3389 #endif
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3390 #ifdef FEAT_PROFILE
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3391 proftime_T wait_start;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3392 #endif
15442 3e2e1608efa4 patch 8.1.0729: there is a SourcePre autocommand event but not a SourcePost Bram Moolenaar <Bram@vim.org> parents: 15286 diff changeset	3393 int trigger_source_post = FALSE;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3394
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3395 p = expand_env_save(fname);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3396 if (p == NULL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3397 return retval;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3398 fname_exp = fix_fname(p);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3399 vim_free(p);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3400 if (fname_exp == NULL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3401 return retval;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3402 if (mch_isdir(fname_exp))
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3403 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	3404 smsg(_("Cannot source a directory: \"%s\""), fname);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3405 goto theend;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3406 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3407
1061 b4d11ddb7303 updated for version 7.0-187 vimboss parents: 944 diff changeset	3408 /* Apply SourceCmd autocommands, they should get the file and source it. */
b4d11ddb7303 updated for version 7.0-187 vimboss parents: 944 diff changeset	3409 if (has_autocmd(EVENT_SOURCECMD, fname_exp, NULL)
b4d11ddb7303 updated for version 7.0-187 vimboss parents: 944 diff changeset	3410 && apply_autocmds(EVENT_SOURCECMD, fname_exp, fname_exp,
b4d11ddb7303 updated for version 7.0-187 vimboss parents: 944 diff changeset	3411 FALSE, curbuf))
1515 8d8dc7e07999 updated for version 7.1-230 vimboss parents: 1496 diff changeset	3412 {
13380 69517d67421f patch 8.0.1564: too many #ifdefs Christian Brabandt <cb@256bit.org> parents: 13302 diff changeset	3413 #ifdef FEAT_EVAL
1515 8d8dc7e07999 updated for version 7.1-230 vimboss parents: 1496 diff changeset	3414 retval = aborting() ? FAIL : OK;
13380 69517d67421f patch 8.0.1564: too many #ifdefs Christian Brabandt <cb@256bit.org> parents: 13302 diff changeset	3415 #else
1515 8d8dc7e07999 updated for version 7.1-230 vimboss parents: 1496 diff changeset	3416 retval = OK;
13380 69517d67421f patch 8.0.1564: too many #ifdefs Christian Brabandt <cb@256bit.org> parents: 13302 diff changeset	3417 #endif
15442 3e2e1608efa4 patch 8.1.0729: there is a SourcePre autocommand event but not a SourcePost Bram Moolenaar <Bram@vim.org> parents: 15286 diff changeset	3418 if (retval == OK)
3e2e1608efa4 patch 8.1.0729: there is a SourcePre autocommand event but not a SourcePost Bram Moolenaar <Bram@vim.org> parents: 15286 diff changeset	3419 // Apply SourcePost autocommands.
3e2e1608efa4 patch 8.1.0729: there is a SourcePre autocommand event but not a SourcePost Bram Moolenaar <Bram@vim.org> parents: 15286 diff changeset	3420 apply_autocmds(EVENT_SOURCEPOST, fname_exp, fname_exp,
3e2e1608efa4 patch 8.1.0729: there is a SourcePre autocommand event but not a SourcePost Bram Moolenaar <Bram@vim.org> parents: 15286 diff changeset	3421 FALSE, curbuf);
1515 8d8dc7e07999 updated for version 7.1-230 vimboss parents: 1496 diff changeset	3422 goto theend;
8d8dc7e07999 updated for version 7.1-230 vimboss parents: 1496 diff changeset	3423 }
1061 b4d11ddb7303 updated for version 7.0-187 vimboss parents: 944 diff changeset	3424
b4d11ddb7303 updated for version 7.0-187 vimboss parents: 944 diff changeset	3425 /* Apply SourcePre autocommands, they may get the file. */
716 8ae24f338cab updated for version 7.0217 vimboss parents: 714 diff changeset	3426 apply_autocmds(EVENT_SOURCEPRE, fname_exp, fname_exp, FALSE, curbuf);
8ae24f338cab updated for version 7.0217 vimboss parents: 714 diff changeset	3427
2052 057029bf3470 updated for version 7.2.338 Bram Moolenaar <bram@zimbu.org> parents: 2051 diff changeset	3428 #ifdef USE_FOPEN_NOINH
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3429 cookie.fp = fopen_noinh_readbin((char *)fname_exp);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3430 #else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3431 cookie.fp = mch_fopen((char *)fname_exp, READBIN);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3432 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3433 if (cookie.fp == NULL && check_other)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3434 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3435 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3436 * Try again, replacing file name ".vimrc" by "_vimrc" or vice versa,
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3437 * and ".exrc" by "_exrc" or vice versa.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3438 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3439 p = gettail(fname_exp);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3440 if ((p == '.' \|\| p == '_')
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3441 && (STRICMP(p + 1, "vimrc") == 0
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3442 \|\| STRICMP(p + 1, "gvimrc") == 0
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3443 \|\| STRICMP(p + 1, "exrc") == 0))
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3444 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3445 if (*p == '_')
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3446 *p = '.';
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3447 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3448 *p = '_';
2052 057029bf3470 updated for version 7.2.338 Bram Moolenaar <bram@zimbu.org> parents: 2051 diff changeset	3449 #ifdef USE_FOPEN_NOINH
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3450 cookie.fp = fopen_noinh_readbin((char *)fname_exp);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3451 #else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3452 cookie.fp = mch_fopen((char *)fname_exp, READBIN);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3453 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3454 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3455 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3456
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3457 if (cookie.fp == NULL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3458 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3459 if (p_verbose > 0)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3460 {
294 1c1cbdc42f75 updated for version 7.0077 vimboss parents: 274 diff changeset	3461 verbose_enter();
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3462 if (sourcing_name == NULL)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	3463 smsg(_("could not source \"%s\""), fname);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3464 else
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	3465 smsg(_("line %ld: could not source \"%s\""),
274 8fa8d7964cf1 updated for version 7.0073 vimboss parents: 271 diff changeset	3466 sourcing_lnum, fname);
294 1c1cbdc42f75 updated for version 7.0077 vimboss parents: 274 diff changeset	3467 verbose_leave();
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3468 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3469 goto theend;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3470 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3471
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3472 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3473 * The file exists.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3474 * - In verbose mode, give a message.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3475 * - For a vimrc file, may want to set 'compatible', call vimrc_found().
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3476 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3477 if (p_verbose > 1)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3478 {
294 1c1cbdc42f75 updated for version 7.0077 vimboss parents: 274 diff changeset	3479 verbose_enter();
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3480 if (sourcing_name == NULL)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	3481 smsg(_("sourcing \"%s\""), fname);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3482 else
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	3483 smsg(_("line %ld: sourcing \"%s\""),
274 8fa8d7964cf1 updated for version 7.0073 vimboss parents: 271 diff changeset	3484 sourcing_lnum, fname);
294 1c1cbdc42f75 updated for version 7.0077 vimboss parents: 274 diff changeset	3485 verbose_leave();
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3486 }
819 23f82b5d2814 updated for version 7.0c10 vimboss parents: 794 diff changeset	3487 if (is_vimrc == DOSO_VIMRC)
23f82b5d2814 updated for version 7.0c10 vimboss parents: 794 diff changeset	3488 vimrc_found(fname_exp, (char_u *)"MYVIMRC");
23f82b5d2814 updated for version 7.0c10 vimboss parents: 794 diff changeset	3489 else if (is_vimrc == DOSO_GVIMRC)
23f82b5d2814 updated for version 7.0c10 vimboss parents: 794 diff changeset	3490 vimrc_found(fname_exp, (char_u *)"MYGVIMRC");
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3491
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3492 #ifdef USE_CRNL
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3493 /* If no automatic file format: Set default to CR-NL. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3494 if (*p_ffs == NUL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3495 cookie.fileformat = EOL_DOS;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3496 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3497 cookie.fileformat = EOL_UNKNOWN;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3498 cookie.error = FALSE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3499 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3500
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3501 cookie.nextline = NULL;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3502 cookie.finished = FALSE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3503
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3504 #ifdef FEAT_EVAL
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3505 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3506 * Check if this script has a breakpoint.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3507 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3508 cookie.breakpoint = dbg_find_breakpoint(TRUE, fname_exp, (linenr_T)0);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3509 cookie.fname = fname_exp;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3510 cookie.dbg_tick = debug_tick;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3511
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3512 cookie.level = ex_nesting_level;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3513 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3514
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3515 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3516 * Keep the sourcing name/lnum, for recursive calls.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3517 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3518 save_sourcing_name = sourcing_name;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3519 sourcing_name = fname_exp;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3520 save_sourcing_lnum = sourcing_lnum;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3521 sourcing_lnum = 0;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3522
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3523 #ifdef STARTUPTIME
2053 94f44da44d2e updated for version 7.2.339 Bram Moolenaar <bram@zimbu.org> parents: 2052 diff changeset	3524 if (time_fd != NULL)
94f44da44d2e updated for version 7.2.339 Bram Moolenaar <bram@zimbu.org> parents: 2052 diff changeset	3525 time_push(&tv_rel, &tv_start);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3526 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3527
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3528 #ifdef FEAT_EVAL
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3529 # ifdef FEAT_PROFILE
790 c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	3530 if (do_profiling == PROF_YES)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3531 prof_child_enter(&wait_start); /* entering a child now */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3532 # endif
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3533
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3534 /* Don't use local function variables, if called from a function.
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3535 * Also starts profiling timer for nested script. */
14927 162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14862 diff changeset	3536 save_funccal(&funccalp_entry);
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3537
16223 abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	3538 save_current_sctx = current_sctx;
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	3539 current_sctx.sc_lnum = 0;
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	3540 current_sctx.sc_version = 1;
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	3541
15008 67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15002 diff changeset	3542 // Check if this script was sourced before to finds its SID.
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15002 diff changeset	3543 // If it's new, generate a new SID.
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15002 diff changeset	3544 // Always use a new sequence number.
67e3103d6e18 patch 8.1.0515: reloading a script gives errors for existing functions Bram Moolenaar <Bram@vim.org> parents: 15002 diff changeset	3545 current_sctx.sc_seq = ++last_current_SID_seq;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3546 # ifdef UNIX
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3547 stat_ok = (mch_stat((char *)fname_exp, &st) >= 0);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3548 # endif
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	3549 for (current_sctx.sc_sid = script_items.ga_len; current_sctx.sc_sid > 0;
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	3550 --current_sctx.sc_sid)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3551 {
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	3552 si = &SCRIPT_ITEM(current_sctx.sc_sid);
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3553 if (si->sn_name != NULL
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3554 && (
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3555 # ifdef UNIX
161 6df0106fc595 updated for version 7.0049 vimboss parents: 154 diff changeset	3556 /* Compare dev/ino when possible, it catches symbolic
6df0106fc595 updated for version 7.0049 vimboss parents: 154 diff changeset	3557 * links. Also compare file names, the inode may change
6df0106fc595 updated for version 7.0049 vimboss parents: 154 diff changeset	3558 * when the file was edited. */
1882 c8b87fa14d27 updated for version 7.2-179 vimboss parents: 1876 diff changeset	3559 ((stat_ok && si->sn_dev_valid)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3560 && (si->sn_dev == st.st_dev
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3561 && si->sn_ino == st.st_ino)) \|\|
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3562 # endif
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3563 fnamecmp(si->sn_name, fname_exp) == 0))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3564 break;
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3565 }
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	3566 if (current_sctx.sc_sid == 0)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3567 {
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	3568 current_sctx.sc_sid = ++last_current_SID;
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	3569 if (ga_grow(&script_items,
0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	3570 (int)(current_sctx.sc_sid - script_items.ga_len)) == FAIL)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3571 goto almosttheend;
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	3572 while (script_items.ga_len < current_sctx.sc_sid)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3573 {
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3574 ++script_items.ga_len;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3575 SCRIPT_ITEM(script_items.ga_len).sn_name = NULL;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3576 # ifdef FEAT_PROFILE
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3577 SCRIPT_ITEM(script_items.ga_len).sn_prof_on = FALSE;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3578 # endif
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3579 }
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	3580 si = &SCRIPT_ITEM(current_sctx.sc_sid);
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3581 si->sn_name = fname_exp;
15448 4880dc2ccc3f patch 8.1.0732: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 15442 diff changeset	3582 fname_exp = vim_strsave(si->sn_name); // used for autocmd
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3583 # ifdef UNIX
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3584 if (stat_ok)
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3585 {
1882 c8b87fa14d27 updated for version 7.2-179 vimboss parents: 1876 diff changeset	3586 si->sn_dev_valid = TRUE;
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3587 si->sn_dev = st.st_dev;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3588 si->sn_ino = st.st_ino;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3589 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3590 else
1882 c8b87fa14d27 updated for version 7.2-179 vimboss parents: 1876 diff changeset	3591 si->sn_dev_valid = FALSE;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3592 # endif
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3593
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3594 /* Allocate the local script variables to use for this script. */
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	3595 new_script_vars(current_sctx.sc_sid);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3596 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3597
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3598 # ifdef FEAT_PROFILE
790 c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	3599 if (do_profiling == PROF_YES)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3600 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3601 int forceit;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3602
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3603 /* Check if we do profiling for this script. */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3604 if (!si->sn_prof_on && has_profiling(TRUE, si->sn_name, &forceit))
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3605 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3606 script_do_profile(si);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3607 si->sn_pr_force = forceit;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3608 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3609 if (si->sn_prof_on)
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3610 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3611 ++si->sn_pr_count;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3612 profile_start(&si->sn_pr_start);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3613 profile_zero(&si->sn_pr_children);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3614 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3615 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3616 # endif
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3617 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3618
12658 20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	3619 cookie.conv.vc_type = CONV_NONE; /* no conversion */
20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	3620
20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	3621 /* Read the first line so we can check for a UTF-8 BOM. */
20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	3622 firstline = getsourceline(0, (void *)&cookie, 0);
20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	3623 if (firstline != NULL && STRLEN(firstline) >= 3 && firstline[0] == 0xef
20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	3624 && firstline[1] == 0xbb && firstline[2] == 0xbf)
20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	3625 {
20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	3626 /* Found BOM; setup conversion, skip over BOM and recode the line. */
20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	3627 convert_setup(&cookie.conv, (char_u *)"utf-8", p_enc);
20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	3628 p = string_convert(&cookie.conv, firstline + 3, NULL);
20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	3629 if (p == NULL)
20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	3630 p = vim_strsave(firstline + 3);
20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	3631 if (p != NULL)
20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	3632 {
20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	3633 vim_free(firstline);
20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	3634 firstline = p;
20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	3635 }
20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	3636 }
20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	3637
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3638 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3639 * Call do_cmdline, which will call getsourceline() to get the lines.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3640 */
1802 8978513bb5e3 updated for version 7.2-100 vimboss parents: 1743 diff changeset	3641 do_cmdline(firstline, getsourceline, (void *)&cookie,
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3642 DOCMD_VERBOSE\|DOCMD_NOWAIT\|DOCMD_REPEAT);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3643 retval = OK;
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3644
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3645 #ifdef FEAT_PROFILE
790 c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	3646 if (do_profiling == PROF_YES)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3647 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3648 /* Get "si" again, "script_items" may have been reallocated. */
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	3649 si = &SCRIPT_ITEM(current_sctx.sc_sid);
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3650 if (si->sn_prof_on)
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3651 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3652 profile_end(&si->sn_pr_start);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3653 profile_sub_wait(&wait_start, &si->sn_pr_start);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3654 profile_add(&si->sn_pr_total, &si->sn_pr_start);
720 e180933b876a updated for version 7.0219 vimboss parents: 716 diff changeset	3655 profile_self(&si->sn_pr_self, &si->sn_pr_start,
e180933b876a updated for version 7.0219 vimboss parents: 716 diff changeset	3656 &si->sn_pr_children);
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3657 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3658 }
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3659 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3660
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3661 if (got_int)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	3662 emsg(_(e_interr));
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3663 sourcing_name = save_sourcing_name;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3664 sourcing_lnum = save_sourcing_lnum;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3665 if (p_verbose > 1)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3666 {
294 1c1cbdc42f75 updated for version 7.0077 vimboss parents: 274 diff changeset	3667 verbose_enter();
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	3668 smsg(_("finished sourcing %s"), fname);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3669 if (sourcing_name != NULL)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	3670 smsg(_("continuing in %s"), sourcing_name);
294 1c1cbdc42f75 updated for version 7.0077 vimboss parents: 274 diff changeset	3671 verbose_leave();
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3672 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3673 #ifdef STARTUPTIME
2053 94f44da44d2e updated for version 7.2.339 Bram Moolenaar <bram@zimbu.org> parents: 2052 diff changeset	3674 if (time_fd != NULL)
94f44da44d2e updated for version 7.2.339 Bram Moolenaar <bram@zimbu.org> parents: 2052 diff changeset	3675 {
94f44da44d2e updated for version 7.2.339 Bram Moolenaar <bram@zimbu.org> parents: 2052 diff changeset	3676 vim_snprintf((char *)IObuff, IOSIZE, "sourcing %s", fname);
94f44da44d2e updated for version 7.2.339 Bram Moolenaar <bram@zimbu.org> parents: 2052 diff changeset	3677 time_msg((char *)IObuff, &tv_start);
94f44da44d2e updated for version 7.2.339 Bram Moolenaar <bram@zimbu.org> parents: 2052 diff changeset	3678 time_pop(&tv_rel);
94f44da44d2e updated for version 7.2.339 Bram Moolenaar <bram@zimbu.org> parents: 2052 diff changeset	3679 }
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3680 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3681
15442 3e2e1608efa4 patch 8.1.0729: there is a SourcePre autocommand event but not a SourcePost Bram Moolenaar <Bram@vim.org> parents: 15286 diff changeset	3682 if (!got_int)
3e2e1608efa4 patch 8.1.0729: there is a SourcePre autocommand event but not a SourcePost Bram Moolenaar <Bram@vim.org> parents: 15286 diff changeset	3683 trigger_source_post = TRUE;
3e2e1608efa4 patch 8.1.0729: there is a SourcePre autocommand event but not a SourcePost Bram Moolenaar <Bram@vim.org> parents: 15286 diff changeset	3684
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3685 #ifdef FEAT_EVAL
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3686 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3687 * After a "finish" in debug mode, need to break at first command of next
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3688 * sourced file.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3689 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3690 if (save_debug_break_level > ex_nesting_level
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3691 && debug_break_level == ex_nesting_level)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3692 ++debug_break_level;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3693 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3694
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3695 #ifdef FEAT_EVAL
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3696 almosttheend:
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	3697 current_sctx = save_current_sctx;
14927 162d79d273e6 patch 8.1.0475: memory not freed on exit when quit in autocmd Bram Moolenaar <Bram@vim.org> parents: 14862 diff changeset	3698 restore_funccal();
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3699 # ifdef FEAT_PROFILE
790 c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	3700 if (do_profiling == PROF_YES)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3701 prof_child_exit(&wait_start); /* leaving a child now */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3702 # endif
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3703 #endif
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3704 fclose(cookie.fp);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3705 vim_free(cookie.nextline);
1802 8978513bb5e3 updated for version 7.2-100 vimboss parents: 1743 diff changeset	3706 vim_free(firstline);
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3707 convert_setup(&cookie.conv, NULL, NULL);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3708
15442 3e2e1608efa4 patch 8.1.0729: there is a SourcePre autocommand event but not a SourcePost Bram Moolenaar <Bram@vim.org> parents: 15286 diff changeset	3709 if (trigger_source_post)
15448 4880dc2ccc3f patch 8.1.0732: cannot build without the eval feature Bram Moolenaar <Bram@vim.org> parents: 15442 diff changeset	3710 apply_autocmds(EVENT_SOURCEPOST, fname_exp, fname_exp, FALSE, curbuf);
15442 3e2e1608efa4 patch 8.1.0729: there is a SourcePre autocommand event but not a SourcePost Bram Moolenaar <Bram@vim.org> parents: 15286 diff changeset	3711
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3712 theend:
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3713 vim_free(fname_exp);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3714 return retval;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3715 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3716
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3717 #if defined(FEAT_EVAL) \|\| defined(PROTO)
356 0f2b5d1b8117 updated for version 7.0092 vimboss parents: 314 diff changeset	3718
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3719 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3720 * ":scriptnames"
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3721 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3722 void
15085 1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced Bram Moolenaar <Bram@vim.org> parents: 15008 diff changeset	3723 ex_scriptnames(exarg_T *eap)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3724 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3725 int i;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3726
15085 1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced Bram Moolenaar <Bram@vim.org> parents: 15008 diff changeset	3727 if (eap->addr_count > 0)
1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced Bram Moolenaar <Bram@vim.org> parents: 15008 diff changeset	3728 {
1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced Bram Moolenaar <Bram@vim.org> parents: 15008 diff changeset	3729 // :script {scriptId}: edit the script
1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced Bram Moolenaar <Bram@vim.org> parents: 15008 diff changeset	3730 if (eap->line2 < 1 \|\| eap->line2 > script_items.ga_len)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	3731 emsg(_(e_invarg));
15085 1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced Bram Moolenaar <Bram@vim.org> parents: 15008 diff changeset	3732 else
1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced Bram Moolenaar <Bram@vim.org> parents: 15008 diff changeset	3733 {
1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced Bram Moolenaar <Bram@vim.org> parents: 15008 diff changeset	3734 eap->arg = SCRIPT_ITEM(eap->line2).sn_name;
1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced Bram Moolenaar <Bram@vim.org> parents: 15008 diff changeset	3735 do_exedit(eap, NULL);
1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced Bram Moolenaar <Bram@vim.org> parents: 15008 diff changeset	3736 }
1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced Bram Moolenaar <Bram@vim.org> parents: 15008 diff changeset	3737 return;
1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced Bram Moolenaar <Bram@vim.org> parents: 15008 diff changeset	3738 }
1783c0b6bc2e patch 8.1.0553: it is not easy to edit a script that was sourced Bram Moolenaar <Bram@vim.org> parents: 15008 diff changeset	3739
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3740 for (i = 1; i <= script_items.ga_len && !got_int; ++i)
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3741 if (SCRIPT_ITEM(i).sn_name != NULL)
2921 69b90e43b728 updated for version 7.3.233 Bram Moolenaar <bram@vim.org> parents: 2849 diff changeset	3742 {
69b90e43b728 updated for version 7.3.233 Bram Moolenaar <bram@vim.org> parents: 2849 diff changeset	3743 home_replace(NULL, SCRIPT_ITEM(i).sn_name,
69b90e43b728 updated for version 7.3.233 Bram Moolenaar <bram@vim.org> parents: 2849 diff changeset	3744 NameBuff, MAXPATHL, TRUE);
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	3745 smsg("%3d: %s", i, NameBuff);
3429 b35844f3eb49 updated for version 7.3.480 Bram Moolenaar <bram@vim.org> parents: 3378 diff changeset	3746 }
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3747 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3748
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3749 # if defined(BACKSLASH_IN_FILENAME) \|\| defined(PROTO)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3750 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3751 * Fix slashes in the list of script names for 'shellslash'.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3752 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3753 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	3754 scriptnames_slash_adjust(void)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3755 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3756 int i;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3757
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3758 for (i = 1; i <= script_items.ga_len; ++i)
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3759 if (SCRIPT_ITEM(i).sn_name != NULL)
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3760 slash_adjust(SCRIPT_ITEM(i).sn_name);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3761 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3762 # endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3763
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3764 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3765 * Get a pointer to a script name. Used for ":verbose set".
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3766 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3767 char_u *
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	3768 get_scriptname(scid_T id)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3769 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3770 if (id == SID_MODELINE)
681 9364d114ed8d updated for version 7.0204 vimboss parents: 673 diff changeset	3771 return (char_u *)_("modeline");
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3772 if (id == SID_CMDARG)
681 9364d114ed8d updated for version 7.0204 vimboss parents: 673 diff changeset	3773 return (char_u *)_("--cmd argument");
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3774 if (id == SID_CARG)
681 9364d114ed8d updated for version 7.0204 vimboss parents: 673 diff changeset	3775 return (char_u *)_("-c argument");
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3776 if (id == SID_ENV)
681 9364d114ed8d updated for version 7.0204 vimboss parents: 673 diff changeset	3777 return (char_u *)_("environment variable");
9364d114ed8d updated for version 7.0204 vimboss parents: 673 diff changeset	3778 if (id == SID_ERROR)
9364d114ed8d updated for version 7.0204 vimboss parents: 673 diff changeset	3779 return (char_u *)_("error handler");
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3780 return SCRIPT_ITEM(id).sn_name;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3781 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3782
356 0f2b5d1b8117 updated for version 7.0092 vimboss parents: 314 diff changeset	3783 # if defined(EXITFREE) \|\| defined(PROTO)
0f2b5d1b8117 updated for version 7.0092 vimboss parents: 314 diff changeset	3784 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	3785 free_scriptnames(void)
356 0f2b5d1b8117 updated for version 7.0092 vimboss parents: 314 diff changeset	3786 {
0f2b5d1b8117 updated for version 7.0092 vimboss parents: 314 diff changeset	3787 int i;
0f2b5d1b8117 updated for version 7.0092 vimboss parents: 314 diff changeset	3788
0f2b5d1b8117 updated for version 7.0092 vimboss parents: 314 diff changeset	3789 for (i = script_items.ga_len; i > 0; --i)
0f2b5d1b8117 updated for version 7.0092 vimboss parents: 314 diff changeset	3790 vim_free(SCRIPT_ITEM(i).sn_name);
0f2b5d1b8117 updated for version 7.0092 vimboss parents: 314 diff changeset	3791 ga_clear(&script_items);
0f2b5d1b8117 updated for version 7.0092 vimboss parents: 314 diff changeset	3792 }
0f2b5d1b8117 updated for version 7.0092 vimboss parents: 314 diff changeset	3793 # endif
0f2b5d1b8117 updated for version 7.0092 vimboss parents: 314 diff changeset	3794
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3795 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3796
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3797 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3798 * Get one full line from a sourced file.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3799 * Called by do_cmdline() when it's called from do_source().
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3800 *
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3801 * Return a pointer to the line in allocated memory.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3802 * Return NULL for end-of-file or some error.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3803 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3804 char_u *
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	3805 getsourceline(int c UNUSED, void *cookie, int indent UNUSED)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3806 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3807 struct source_cookie sp = (struct source_cookie )cookie;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3808 char_u *line;
3336 afbf45d85496 updated for version 7.3.435 Bram Moolenaar <bram@vim.org> parents: 3332 diff changeset	3809 char_u *p;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3810
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3811 #ifdef FEAT_EVAL
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3812 /* If breakpoints have been added/deleted need to check for it. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3813 if (sp->dbg_tick < debug_tick)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3814 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3815 sp->breakpoint = dbg_find_breakpoint(TRUE, sp->fname, sourcing_lnum);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3816 sp->dbg_tick = debug_tick;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3817 }
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3818 # ifdef FEAT_PROFILE
790 c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	3819 if (do_profiling == PROF_YES)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3820 script_line_end();
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3821 # endif
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3822 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3823 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3824 * Get current line. If there is a read-ahead line, use it, otherwise get
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3825 * one now.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3826 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3827 if (sp->finished)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3828 line = NULL;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3829 else if (sp->nextline == NULL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3830 line = get_one_sourceline(sp);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3831 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3832 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3833 line = sp->nextline;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3834 sp->nextline = NULL;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3835 ++sourcing_lnum;
205 d292c40ca788 updated for version 7.0060 vimboss parents: 177 diff changeset	3836 }
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	3837 #ifdef FEAT_PROFILE
790 c8680debe1cc updated for version 7.0230 vimboss parents: 720 diff changeset	3838 if (line != NULL && do_profiling == PROF_YES)
205 d292c40ca788 updated for version 7.0060 vimboss parents: 177 diff changeset	3839 script_line_start();
d292c40ca788 updated for version 7.0060 vimboss parents: 177 diff changeset	3840 #endif
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3841
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3842 /* Only concatenate lines starting with a \ when 'cpoptions' doesn't
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3843 * contain the 'C' flag. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3844 if (line != NULL && (vim_strchr(p_cpo, CPO_CONCAT) == NULL))
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3845 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3846 /* compensate for the one line read-ahead */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3847 --sourcing_lnum;
3332 8a731d7f0664 updated for version 7.3.433 Bram Moolenaar <bram@vim.org> parents: 3312 diff changeset	3848
14714 bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	3849 // Get the next line and concatenate it when it starts with a
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	3850 // backslash. We always need to read the next line, keep it in
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	3851 // sp->nextline.
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	3852 /* Also check for a comment in between continuation lines: "\ */
3332 8a731d7f0664 updated for version 7.3.433 Bram Moolenaar <bram@vim.org> parents: 3312 diff changeset	3853 sp->nextline = get_one_sourceline(sp);
14714 bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	3854 if (sp->nextline != NULL
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	3855 && (*(p = skipwhite(sp->nextline)) == '\\'
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	3856 \|\| (p[0] == '"' && p[1] == '\\' && p[2] == ' ')))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3857 {
3332 8a731d7f0664 updated for version 7.3.433 Bram Moolenaar <bram@vim.org> parents: 3312 diff changeset	3858 garray_T ga;
8a731d7f0664 updated for version 7.3.433 Bram Moolenaar <bram@vim.org> parents: 3312 diff changeset	3859
3378 e6392f2aed4c updated for version 7.3.455 Bram Moolenaar <bram@vim.org> parents: 3336 diff changeset	3860 ga_init2(&ga, (int)sizeof(char_u), 400);
3332 8a731d7f0664 updated for version 7.3.433 Bram Moolenaar <bram@vim.org> parents: 3312 diff changeset	3861 ga_concat(&ga, line);
14714 bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	3862 if (*p == '\\')
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	3863 ga_concat(&ga, p + 1);
3332 8a731d7f0664 updated for version 7.3.433 Bram Moolenaar <bram@vim.org> parents: 3312 diff changeset	3864 for (;;)
8a731d7f0664 updated for version 7.3.433 Bram Moolenaar <bram@vim.org> parents: 3312 diff changeset	3865 {
8a731d7f0664 updated for version 7.3.433 Bram Moolenaar <bram@vim.org> parents: 3312 diff changeset	3866 vim_free(sp->nextline);
8a731d7f0664 updated for version 7.3.433 Bram Moolenaar <bram@vim.org> parents: 3312 diff changeset	3867 sp->nextline = get_one_sourceline(sp);
8a731d7f0664 updated for version 7.3.433 Bram Moolenaar <bram@vim.org> parents: 3312 diff changeset	3868 if (sp->nextline == NULL)
8a731d7f0664 updated for version 7.3.433 Bram Moolenaar <bram@vim.org> parents: 3312 diff changeset	3869 break;
8a731d7f0664 updated for version 7.3.433 Bram Moolenaar <bram@vim.org> parents: 3312 diff changeset	3870 p = skipwhite(sp->nextline);
14714 bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	3871 if (*p == '\\')
3378 e6392f2aed4c updated for version 7.3.455 Bram Moolenaar <bram@vim.org> parents: 3336 diff changeset	3872 {
14714 bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	3873 // Adjust the growsize to the current length to speed up
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	3874 // concatenating many lines.
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	3875 if (ga.ga_len > 400)
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	3876 {
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	3877 if (ga.ga_len > 8000)
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	3878 ga.ga_growsize = 8000;
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	3879 else
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	3880 ga.ga_growsize = ga.ga_len;
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	3881 }
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	3882 ga_concat(&ga, p + 1);
3378 e6392f2aed4c updated for version 7.3.455 Bram Moolenaar <bram@vim.org> parents: 3336 diff changeset	3883 }
14714 bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	3884 else if (p[0] != '"' \|\| p[1] != '\\' \|\| p[2] != ' ')
bdbb049c2aa8 patch 8.1.0369: continuation lines cannot contain comments Christian Brabandt <cb@256bit.org> parents: 14700 diff changeset	3885 break;
3332 8a731d7f0664 updated for version 7.3.433 Bram Moolenaar <bram@vim.org> parents: 3312 diff changeset	3886 }
8a731d7f0664 updated for version 7.3.433 Bram Moolenaar <bram@vim.org> parents: 3312 diff changeset	3887 ga_append(&ga, NUL);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3888 vim_free(line);
3332 8a731d7f0664 updated for version 7.3.433 Bram Moolenaar <bram@vim.org> parents: 3312 diff changeset	3889 line = ga.ga_data;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3890 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3891 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3892
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3893 if (line != NULL && sp->conv.vc_type != CONV_NONE)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3894 {
3336 afbf45d85496 updated for version 7.3.435 Bram Moolenaar <bram@vim.org> parents: 3332 diff changeset	3895 char_u *s;
afbf45d85496 updated for version 7.3.435 Bram Moolenaar <bram@vim.org> parents: 3332 diff changeset	3896
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3897 /* Convert the encoding of the script line. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3898 s = string_convert(&sp->conv, line, NULL);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3899 if (s != NULL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3900 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3901 vim_free(line);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3902 line = s;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3903 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3904 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3905
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3906 #ifdef FEAT_EVAL
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3907 /* Did we encounter a breakpoint? */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3908 if (sp->breakpoint != 0 && sp->breakpoint <= sourcing_lnum)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3909 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3910 dbg_breakpoint(sp->fname, sourcing_lnum);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3911 /* Find next breakpoint. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3912 sp->breakpoint = dbg_find_breakpoint(TRUE, sp->fname, sourcing_lnum);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3913 sp->dbg_tick = debug_tick;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3914 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3915 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3916
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3917 return line;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3918 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3919
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3920 static char_u *
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	3921 get_one_sourceline(struct source_cookie *sp)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3922 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3923 garray_T ga;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3924 int len;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3925 int c;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3926 char_u *buf;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3927 #ifdef USE_CRNL
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3928 int has_cr; /* CR-LF found */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3929 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3930 int have_read = FALSE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3931
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3932 /* use a growarray to store the sourced line */
154 1a145815483e updated for version 7.0047 vimboss parents: 148 diff changeset	3933 ga_init2(&ga, 1, 250);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3934
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3935 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3936 * Loop until there is a finished line (or end-of-file).
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3937 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3938 sourcing_lnum++;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3939 for (;;)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3940 {
154 1a145815483e updated for version 7.0047 vimboss parents: 148 diff changeset	3941 /* make room to read at least 120 (more) characters */
1a145815483e updated for version 7.0047 vimboss parents: 148 diff changeset	3942 if (ga_grow(&ga, 120) == FAIL)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3943 break;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3944 buf = (char_u *)ga.ga_data;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3945
15840 734b1928a5aa patch 8.1.0927: USE_CR is never defined Bram Moolenaar <Bram@vim.org> parents: 15597 diff changeset	3946 if (fgets((char *)buf + ga.ga_len, ga.ga_maxlen - ga.ga_len,
41 f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	3947 sp->fp) == NULL)
15840 734b1928a5aa patch 8.1.0927: USE_CR is never defined Bram Moolenaar <Bram@vim.org> parents: 15597 diff changeset	3948 break;
154 1a145815483e updated for version 7.0047 vimboss parents: 148 diff changeset	3949 len = ga.ga_len + (int)STRLEN(buf + ga.ga_len);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3950 #ifdef USE_CRNL
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3951 /* Ignore a trailing CTRL-Z, when in Dos mode. Only recognize the
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3952 * CTRL-Z by its own, or after a NL. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3953 if ( (len == 1 \|\| (len >= 2 && buf[len - 2] == '\n'))
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3954 && sp->fileformat == EOL_DOS
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3955 && buf[len - 1] == Ctrl_Z)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3956 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3957 buf[len - 1] = NUL;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3958 break;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3959 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3960 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3961
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3962 have_read = TRUE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3963 ga.ga_len = len;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3964
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3965 /* If the line was longer than the buffer, read more. */
41 f529edb9bab3 updated for version 7.0025 vimboss parents: 40 diff changeset	3966 if (ga.ga_maxlen - ga.ga_len == 1 && buf[len - 1] != '\n')
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3967 continue;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3968
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3969 if (len >= 1 && buf[len - 1] == '\n') /* remove trailing NL */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3970 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3971 #ifdef USE_CRNL
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3972 has_cr = (len >= 2 && buf[len - 2] == '\r');
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3973 if (sp->fileformat == EOL_UNKNOWN)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3974 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3975 if (has_cr)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3976 sp->fileformat = EOL_DOS;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3977 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3978 sp->fileformat = EOL_UNIX;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3979 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3980
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3981 if (sp->fileformat == EOL_DOS)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3982 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3983 if (has_cr) /* replace trailing CR */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3984 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3985 buf[len - 2] = '\n';
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3986 --len;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3987 --ga.ga_len;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3988 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3989 else /* lines like ":map xx yy^M" will have failed */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3990 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3991 if (!sp->error)
16 3ba373b54370 updated for version 7.0008 vimboss parents: 15 diff changeset	3992 {
11158 501f46f7644c patch 8.0.0466: still macros that should be all-caps Christian Brabandt <cb@256bit.org> parents: 11129 diff changeset	3993 msg_source(HL_ATTR(HLF_W));
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	3994 emsg(_("W15: Warning: Wrong line separator, ^M may be missing"));
16 3ba373b54370 updated for version 7.0008 vimboss parents: 15 diff changeset	3995 }
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3996 sp->error = TRUE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3997 sp->fileformat = EOL_UNIX;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3998 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	3999 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4000 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4001 /* The '\n' is escaped if there is an odd number of ^V's just
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4002 * before it, first set "c" just before the 'V's and then check
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4003 * len&c parities (is faster than ((len-c)%2 == 0)) -- Acevedo */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4004 for (c = len - 2; c >= 0 && buf[c] == Ctrl_V; c--)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4005 ;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4006 if ((len & 1) != (c & 1)) /* escaped NL, read more */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4007 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4008 sourcing_lnum++;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4009 continue;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4010 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4011
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4012 buf[len - 1] = NUL; /* remove the NL */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4013 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4014
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4015 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4016 * Check for ^C here now and then, so recursive :so can be broken.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4017 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4018 line_breakcheck();
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4019 break;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4020 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4021
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4022 if (have_read)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4023 return (char_u *)ga.ga_data;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4024
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4025 vim_free(ga.ga_data);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4026 return NULL;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4027 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4028
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4029 #if defined(FEAT_PROFILE) \|\| defined(PROTO)
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4030 /*
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4031 * Called when starting to read a script line.
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4032 * "sourcing_lnum" must be correct!
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4033 * When skipping lines it may not actually be executed, but we won't find out
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4034 * until later and we need to store the time now.
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4035 */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4036 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	4037 script_line_start(void)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4038 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4039 scriptitem_T *si;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4040 sn_prl_T *pp;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4041
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	4042 if (current_sctx.sc_sid <= 0 \|\| current_sctx.sc_sid > script_items.ga_len)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4043 return;
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	4044 si = &SCRIPT_ITEM(current_sctx.sc_sid);
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4045 if (si->sn_prof_on && sourcing_lnum >= 1)
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4046 {
1624 18ee39301b82 updated for version 7.2a vimboss parents: 1517 diff changeset	4047 /* Grow the array before starting the timer, so that the time spent
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4048 * here isn't counted. */
12658 20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	4049 (void)ga_grow(&si->sn_prl_ga,
20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	4050 (int)(sourcing_lnum - si->sn_prl_ga.ga_len));
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4051 si->sn_prl_idx = sourcing_lnum - 1;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4052 while (si->sn_prl_ga.ga_len <= si->sn_prl_idx
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4053 && si->sn_prl_ga.ga_len < si->sn_prl_ga.ga_maxlen)
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4054 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4055 /* Zero counters for a line that was not used before. */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4056 pp = &PRL_ITEM(si, si->sn_prl_ga.ga_len);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4057 pp->snp_count = 0;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4058 profile_zero(&pp->sn_prl_total);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4059 profile_zero(&pp->sn_prl_self);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4060 ++si->sn_prl_ga.ga_len;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4061 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4062 si->sn_prl_execed = FALSE;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4063 profile_start(&si->sn_prl_start);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4064 profile_zero(&si->sn_prl_children);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4065 profile_get_wait(&si->sn_prl_wait);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4066 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4067 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4068
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4069 /*
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4070 * Called when actually executing a function line.
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4071 */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4072 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	4073 script_line_exec(void)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4074 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4075 scriptitem_T *si;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4076
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	4077 if (current_sctx.sc_sid <= 0 \|\| current_sctx.sc_sid > script_items.ga_len)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4078 return;
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	4079 si = &SCRIPT_ITEM(current_sctx.sc_sid);
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4080 if (si->sn_prof_on && si->sn_prl_idx >= 0)
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4081 si->sn_prl_execed = TRUE;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4082 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4083
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4084 /*
12658 20aacdca367d patch 8.0.1207: profiling skips the first and last script line Christian Brabandt <cb@256bit.org> parents: 12495 diff changeset	4085 * Called when done with a script line.
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4086 */
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4087 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	4088 script_line_end(void)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4089 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4090 scriptitem_T *si;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4091 sn_prl_T *pp;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4092
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	4093 if (current_sctx.sc_sid <= 0 \|\| current_sctx.sc_sid > script_items.ga_len)
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4094 return;
14700 0a3b9ecf7cb8 patch 8.1.0362: cannot get the script line number when executing a function Christian Brabandt <cb@256bit.org> parents: 14681 diff changeset	4095 si = &SCRIPT_ITEM(current_sctx.sc_sid);
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4096 if (si->sn_prof_on && si->sn_prl_idx >= 0
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4097 && si->sn_prl_idx < si->sn_prl_ga.ga_len)
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4098 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4099 if (si->sn_prl_execed)
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4100 {
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4101 pp = &PRL_ITEM(si, si->sn_prl_idx);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4102 ++pp->snp_count;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4103 profile_end(&si->sn_prl_start);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4104 profile_sub_wait(&si->sn_prl_wait, &si->sn_prl_start);
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4105 profile_add(&pp->sn_prl_total, &si->sn_prl_start);
720 e180933b876a updated for version 7.0219 vimboss parents: 716 diff changeset	4106 profile_self(&pp->sn_prl_self, &si->sn_prl_start,
e180933b876a updated for version 7.0219 vimboss parents: 716 diff changeset	4107 &si->sn_prl_children);
170 8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4108 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4109 si->sn_prl_idx = -1;
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4110 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4111 }
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4112 #endif
8c60f65311fa updated for version 7.0052 vimboss parents: 161 diff changeset	4113
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4114 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4115 * ":scriptencoding": Set encoding conversion for a sourced script.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4116 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4117 void
16223 abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	4118 ex_scriptencoding(exarg_T *eap)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4119 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4120 struct source_cookie *sp;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4121 char_u *name;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4122
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4123 if (!getline_equal(eap->getline, eap->cookie, getsourceline))
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4124 {
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	4125 emsg(_("E167: :scriptencoding used outside of a sourced file"));
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4126 return;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4127 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4128
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4129 if (*eap->arg != NUL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4130 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4131 name = enc_canonize(eap->arg);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4132 if (name == NULL) /* out of memory */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4133 return;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4134 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4135 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4136 name = eap->arg;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4137
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4138 /* Setup for conversion from the specified encoding to 'encoding'. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4139 sp = (struct source_cookie *)getline_cookie(eap->getline, eap->cookie);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4140 convert_setup(&sp->conv, name, p_enc);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4141
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4142 if (name != eap->arg)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4143 vim_free(name);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4144 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4145
16223 abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	4146 /*
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	4147 * ":scriptversion": Set Vim script version for a sourced script.
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	4148 */
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	4149 void
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	4150 ex_scriptversion(exarg_T *eap UNUSED)
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	4151 {
16225 9cbc5ff516ee patch 8.1.1117: build failure without the +eval feature Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	4152 #ifdef FEAT_EVAL
16223 abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	4153 int nr;
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	4154
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	4155 if (!getline_equal(eap->getline, eap->cookie, getsourceline))
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	4156 {
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	4157 emsg(_("E984: :scriptversion used outside of a sourced file"));
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	4158 return;
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	4159 }
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	4160
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	4161 nr = getdigits(&eap->arg);
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	4162 if (nr == 0 \|\| *eap->arg != NUL)
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	4163 emsg(_(e_invarg));
16366 6ee80f3b5ea9 patch 8.1.1188: not all Vim variables require the v: prefix Bram Moolenaar <Bram@vim.org> parents: 16225 diff changeset	4164 else if (nr > 3)
16223 abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	4165 semsg(_("E999: scriptversion not supported: %d"), nr);
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	4166 else
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	4167 current_sctx.sc_version = nr;
16225 9cbc5ff516ee patch 8.1.1117: build failure without the +eval feature Bram Moolenaar <Bram@vim.org> parents: 16223 diff changeset	4168 #endif
16223 abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	4169 }
abb67309c1ca patch 8.1.1116: cannot enforce a Vim script style Bram Moolenaar <Bram@vim.org> parents: 15967 diff changeset	4170
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4171 #if defined(FEAT_EVAL) \|\| defined(PROTO)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4172 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4173 * ":finish": Mark a sourced file as finished.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4174 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4175 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	4176 ex_finish(exarg_T *eap)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4177 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4178 if (getline_equal(eap->getline, eap->cookie, getsourceline))
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4179 do_finish(eap, FALSE);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4180 else
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	4181 emsg(_("E168: :finish used outside of a sourced file"));
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4182 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4183
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4184 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4185 * Mark a sourced file as finished. Possibly makes the ":finish" pending.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4186 * Also called for a pending finish at the ":endtry" or after returning from
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4187 * an extra do_cmdline(). "reanimate" is used in the latter case.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4188 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4189 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	4190 do_finish(exarg_T *eap, int reanimate)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4191 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4192 int idx;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4193
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4194 if (reanimate)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4195 ((struct source_cookie *)getline_cookie(eap->getline,
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4196 eap->cookie))->finished = FALSE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4197
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4198 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4199 * Cleanup (and inactivate) conditionals, but stop when a try conditional
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4200 * not in its finally clause (which then is to be executed next) is found.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4201 * In this case, make the ":finish" pending for execution at the ":endtry".
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4202 * Otherwise, finish normally.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4203 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4204 idx = cleanup_conditionals(eap->cstack, 0, TRUE);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4205 if (idx >= 0)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4206 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4207 eap->cstack->cs_pending[idx] = CSTP_FINISH;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4208 report_make_pending(CSTP_FINISH, NULL);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4209 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4210 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4211 ((struct source_cookie *)getline_cookie(eap->getline,
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4212 eap->cookie))->finished = TRUE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4213 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4214
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4215
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4216 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4217 * Return TRUE when a sourced file had the ":finish" command: Don't give error
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4218 * message for missing ":endif".
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4219 * Return FALSE when not sourcing a file.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4220 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4221 int
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	4222 source_finished(
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	4223 char_u (fgetline)(int, void *, int),
f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	4224 void *cookie)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4225 {
944 b2dcb8457067 updated for version 7.0-070 vimboss parents: 835 diff changeset	4226 return (getline_equal(fgetline, cookie, getsourceline)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4227 && ((struct source_cookie *)getline_cookie(
944 b2dcb8457067 updated for version 7.0-070 vimboss parents: 835 diff changeset	4228 fgetline, cookie))->finished);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4229 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4230 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4231
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4232 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4233 * ":checktime [buffer]"
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4234 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4235 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	4236 ex_checktime(exarg_T *eap)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4237 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4238 buf_T *buf;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4239 int save_no_check_timestamps = no_check_timestamps;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4240
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4241 no_check_timestamps = 0;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4242 if (eap->addr_count == 0) /* default is all buffers */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4243 check_timestamps(FALSE);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4244 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4245 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4246 buf = buflist_findnr((int)eap->line2);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4247 if (buf != NULL) /* cannot happen? */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4248 (void)buf_check_timestamp(buf, FALSE);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4249 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4250 no_check_timestamps = save_no_check_timestamps;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4251 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4252
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4253 #if (defined(HAVE_LOCALE_H) \|\| defined(X_LOCALE)) \
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4254 && (defined(FEAT_EVAL) \|\| defined(FEAT_MULTI_LANG))
2419 f579b934f51d Fix build warnings and problems for tiny/small Win32 build. (Mike Williams) Bram Moolenaar <bram@vim.org> parents: 2250 diff changeset	4255 # define HAVE_GET_LOCALE_VAL
8080 b6cb94ad97a4 commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c Christian Brabandt <cb@256bit.org> parents: 7979 diff changeset	4256 static char_u *
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	4257 get_locale_val(int what)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4258 {
8080 b6cb94ad97a4 commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c Christian Brabandt <cb@256bit.org> parents: 7979 diff changeset	4259 char_u *loc;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4260
8212 05b88224cea1 commit https://github.com/vim/vim/commit/48e330aff911be1c798c88a973af6437a8141fce Christian Brabandt <cb@256bit.org> parents: 8206 diff changeset	4261 /* Obtain the locale value from the libraries. */
8080 b6cb94ad97a4 commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c Christian Brabandt <cb@256bit.org> parents: 7979 diff changeset	4262 loc = (char_u *)setlocale(what, NULL);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4263
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15842 diff changeset	4264 # ifdef MSWIN
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4265 if (loc != NULL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4266 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4267 char_u *p;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4268
823 9ab23f1e137f updated for version 7.0c12 vimboss parents: 819 diff changeset	4269 /* setocale() returns something like "LC_COLLATE=<name>;LC_..." when
9ab23f1e137f updated for version 7.0c12 vimboss parents: 819 diff changeset	4270 * one of the values (e.g., LC_CTYPE) differs. */
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4271 p = vim_strchr(loc, '=');
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4272 if (p != NULL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4273 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4274 loc = ++p;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4275 while (p != NUL) / remove trailing newline */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4276 {
823 9ab23f1e137f updated for version 7.0c12 vimboss parents: 819 diff changeset	4277 if (p < ' ' \|\| p == ';')
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4278 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4279 *p = NUL;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4280 break;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4281 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4282 ++p;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4283 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4284 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4285 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4286 # endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4287
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4288 return loc;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4289 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4290 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4291
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4292
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15842 diff changeset	4293 #ifdef MSWIN
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4294 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4295 * On MS-Windows locale names are strings like "German_Germany.1252", but
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4296 * gettext expects "de". Try to translate one into another here for a few
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4297 * supported languages.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4298 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4299 static char_u *
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4300 gettext_lang(char_u *name)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4301 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4302 int i;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4303 static char *(mtable[]) = {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4304 "afrikaans", "af",
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4305 "czech", "cs",
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4306 "dutch", "nl",
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4307 "german", "de",
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4308 "english_united kingdom", "en_GB",
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4309 "spanish", "es",
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4310 "french", "fr",
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4311 "italian", "it",
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4312 "japanese", "ja",
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4313 "korean", "ko",
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4314 "norwegian", "no",
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4315 "polish", "pl",
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4316 "russian", "ru",
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4317 "slovak", "sk",
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4318 "swedish", "sv",
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4319 "ukrainian", "uk",
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4320 "chinese_china", "zh_CN",
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4321 "chinese_taiwan", "zh_TW",
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4322 NULL};
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4323
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4324 for (i = 0; mtable[i] != NULL; i += 2)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4325 if (STRNICMP(mtable[i], name, STRLEN(mtable[i])) == 0)
8080 b6cb94ad97a4 commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c Christian Brabandt <cb@256bit.org> parents: 7979 diff changeset	4326 return (char_u *)mtable[i + 1];
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4327 return name;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4328 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4329 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4330
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4331 #if defined(FEAT_MULTI_LANG) \|\| defined(PROTO)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4332 /*
15002 9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8 Bram Moolenaar <Bram@vim.org> parents: 14927 diff changeset	4333 * Return TRUE when "lang" starts with a valid language name.
9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8 Bram Moolenaar <Bram@vim.org> parents: 14927 diff changeset	4334 * Rejects NULL, empty string, "C", "C.UTF-8" and others.
9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8 Bram Moolenaar <Bram@vim.org> parents: 14927 diff changeset	4335 */
9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8 Bram Moolenaar <Bram@vim.org> parents: 14927 diff changeset	4336 static int
9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8 Bram Moolenaar <Bram@vim.org> parents: 14927 diff changeset	4337 is_valid_mess_lang(char_u *lang)
9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8 Bram Moolenaar <Bram@vim.org> parents: 14927 diff changeset	4338 {
9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8 Bram Moolenaar <Bram@vim.org> parents: 14927 diff changeset	4339 return lang != NULL && ASCII_ISALPHA(lang[0]) && ASCII_ISALPHA(lang[1]);
9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8 Bram Moolenaar <Bram@vim.org> parents: 14927 diff changeset	4340 }
9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8 Bram Moolenaar <Bram@vim.org> parents: 14927 diff changeset	4341
9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8 Bram Moolenaar <Bram@vim.org> parents: 14927 diff changeset	4342 /*
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4343 * Obtain the current messages language. Used to set the default for
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4344 * 'helplang'. May return NULL or an empty string.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4345 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4346 char_u *
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	4347 get_mess_lang(void)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4348 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4349 char_u *p;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4350
2419 f579b934f51d Fix build warnings and problems for tiny/small Win32 build. (Mike Williams) Bram Moolenaar <bram@vim.org> parents: 2250 diff changeset	4351 # ifdef HAVE_GET_LOCALE_VAL
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4352 # if defined(LC_MESSAGES)
8080 b6cb94ad97a4 commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c Christian Brabandt <cb@256bit.org> parents: 7979 diff changeset	4353 p = get_locale_val(LC_MESSAGES);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4354 # else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4355 /* This is necessary for Win32, where LC_MESSAGES is not defined and $LANG
823 9ab23f1e137f updated for version 7.0c12 vimboss parents: 819 diff changeset	4356 * may be set to the LCID number. LC_COLLATE is the best guess, LC_TIME
9ab23f1e137f updated for version 7.0c12 vimboss parents: 819 diff changeset	4357 * and LC_MONETARY may be set differently for a Japanese working in the
9ab23f1e137f updated for version 7.0c12 vimboss parents: 819 diff changeset	4358 * US. */
8080 b6cb94ad97a4 commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c Christian Brabandt <cb@256bit.org> parents: 7979 diff changeset	4359 p = get_locale_val(LC_COLLATE);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4360 # endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4361 # else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4362 p = mch_getenv((char_u *)"LC_ALL");
15002 9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8 Bram Moolenaar <Bram@vim.org> parents: 14927 diff changeset	4363 if (!is_valid_mess_lang(p))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4364 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4365 p = mch_getenv((char_u *)"LC_MESSAGES");
15002 9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8 Bram Moolenaar <Bram@vim.org> parents: 14927 diff changeset	4366 if (!is_valid_mess_lang(p))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4367 p = mch_getenv((char_u *)"LANG");
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4368 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4369 # endif
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15842 diff changeset	4370 # ifdef MSWIN
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4371 p = gettext_lang(p);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4372 # endif
15002 9ae60773dd03 patch 8.1.0512: 'helplang' default is inconsistent for C and C.UTF-8 Bram Moolenaar <Bram@vim.org> parents: 14927 diff changeset	4373 return is_valid_mess_lang(p) ? p : NULL;
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4374 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4375 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4376
45 e474bae3795f updated for version 7.0027 vimboss parents: 41 diff changeset	4377 /* Complicated #if; matches with where get_mess_env() is used below. */
e474bae3795f updated for version 7.0027 vimboss parents: 41 diff changeset	4378 #if (defined(FEAT_EVAL) && !((defined(HAVE_LOCALE_H) \|\| defined(X_LOCALE)) \
e474bae3795f updated for version 7.0027 vimboss parents: 41 diff changeset	4379 && defined(LC_MESSAGES))) \
e474bae3795f updated for version 7.0027 vimboss parents: 41 diff changeset	4380 \|\| ((defined(HAVE_LOCALE_H) \|\| defined(X_LOCALE)) \
e474bae3795f updated for version 7.0027 vimboss parents: 41 diff changeset	4381 && !defined(LC_MESSAGES))
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4382 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4383 * Get the language used for messages from the environment.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4384 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4385 static char_u *
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	4386 get_mess_env(void)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4387 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4388 char_u *p;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4389
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4390 p = mch_getenv((char_u *)"LC_ALL");
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4391 if (p == NULL \|\| *p == NUL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4392 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4393 p = mch_getenv((char_u *)"LC_MESSAGES");
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4394 if (p == NULL \|\| *p == NUL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4395 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4396 p = mch_getenv((char_u *)"LANG");
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4397 if (p != NULL && VIM_ISDIGIT(*p))
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4398 p = NULL; /* ignore something like "1043" */
2419 f579b934f51d Fix build warnings and problems for tiny/small Win32 build. (Mike Williams) Bram Moolenaar <bram@vim.org> parents: 2250 diff changeset	4399 # ifdef HAVE_GET_LOCALE_VAL
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4400 if (p == NULL \|\| *p == NUL)
8080 b6cb94ad97a4 commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c Christian Brabandt <cb@256bit.org> parents: 7979 diff changeset	4401 p = get_locale_val(LC_CTYPE);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4402 # endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4403 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4404 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4405 return p;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4406 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4407 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4408
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4409 #if defined(FEAT_EVAL) \|\| defined(PROTO)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4410
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4411 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4412 * Set the "v:lang" variable according to the current locale setting.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4413 * Also do "v:lc_time"and "v:ctype".
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4414 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4415 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	4416 set_lang_var(void)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4417 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4418 char_u *loc;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4419
2419 f579b934f51d Fix build warnings and problems for tiny/small Win32 build. (Mike Williams) Bram Moolenaar <bram@vim.org> parents: 2250 diff changeset	4420 # ifdef HAVE_GET_LOCALE_VAL
8080 b6cb94ad97a4 commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c Christian Brabandt <cb@256bit.org> parents: 7979 diff changeset	4421 loc = get_locale_val(LC_CTYPE);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4422 # else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4423 /* setlocale() not supported: use the default value */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4424 loc = (char_u *)"C";
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4425 # endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4426 set_vim_var_string(VV_CTYPE, loc, -1);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4427
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4428 /* When LC_MESSAGES isn't defined use the value from $LC_MESSAGES, fall
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4429 * back to LC_CTYPE if it's empty. */
2419 f579b934f51d Fix build warnings and problems for tiny/small Win32 build. (Mike Williams) Bram Moolenaar <bram@vim.org> parents: 2250 diff changeset	4430 # if defined(HAVE_GET_LOCALE_VAL) && defined(LC_MESSAGES)
8080 b6cb94ad97a4 commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c Christian Brabandt <cb@256bit.org> parents: 7979 diff changeset	4431 loc = get_locale_val(LC_MESSAGES);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4432 # else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4433 loc = get_mess_env();
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4434 # endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4435 set_vim_var_string(VV_LANG, loc, -1);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4436
2419 f579b934f51d Fix build warnings and problems for tiny/small Win32 build. (Mike Williams) Bram Moolenaar <bram@vim.org> parents: 2250 diff changeset	4437 # ifdef HAVE_GET_LOCALE_VAL
8080 b6cb94ad97a4 commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c Christian Brabandt <cb@256bit.org> parents: 7979 diff changeset	4438 loc = get_locale_val(LC_TIME);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4439 # endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4440 set_vim_var_string(VV_LC_TIME, loc, -1);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4441 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4442 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4443
15597 536dd2bc5ac9 patch 8.1.0806: too many #ifdefs Bram Moolenaar <Bram@vim.org> parents: 15595 diff changeset	4444 #if defined(HAVE_LOCALE_H) \|\| defined(X_LOCALE) \
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4445 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4446 * ":language": Set the language (locale).
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4447 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4448 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	4449 ex_language(exarg_T *eap)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4450 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4451 char *loc;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4452 char_u *p;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4453 char_u *name;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4454 int what = LC_ALL;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4455 char *whatstr = "";
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4456 #ifdef LC_MESSAGES
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4457 # define VIM_LC_MESSAGES LC_MESSAGES
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4458 #else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4459 # define VIM_LC_MESSAGES 6789
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4460 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4461
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4462 name = eap->arg;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4463
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4464 /* Check for "messages {name}", "ctype {name}" or "time {name}" argument.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4465 * Allow abbreviation, but require at least 3 characters to avoid
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4466 * confusion with a two letter language name "me" or "ct". */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4467 p = skiptowhite(eap->arg);
11129 f4ea50924c6d patch 8.0.0452: some macros are in lower case Christian Brabandt <cb@256bit.org> parents: 11127 diff changeset	4468 if ((p == NUL \|\| VIM_ISWHITE(p)) && p - eap->arg >= 3)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4469 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4470 if (STRNICMP(eap->arg, "messages", p - eap->arg) == 0)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4471 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4472 what = VIM_LC_MESSAGES;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4473 name = skipwhite(p);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4474 whatstr = "messages ";
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4475 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4476 else if (STRNICMP(eap->arg, "ctype", p - eap->arg) == 0)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4477 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4478 what = LC_CTYPE;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4479 name = skipwhite(p);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4480 whatstr = "ctype ";
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4481 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4482 else if (STRNICMP(eap->arg, "time", p - eap->arg) == 0)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4483 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4484 what = LC_TIME;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4485 name = skipwhite(p);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4486 whatstr = "time ";
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4487 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4488 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4489
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4490 if (*name == NUL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4491 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4492 #ifndef LC_MESSAGES
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4493 if (what == VIM_LC_MESSAGES)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4494 p = get_mess_env();
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4495 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4496 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4497 p = (char_u *)setlocale(what, NULL);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4498 if (p == NULL \|\| *p == NUL)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4499 p = (char_u *)"Unknown";
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	4500 smsg(_("Current %slanguage: \"%s\""), whatstr, p);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4501 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4502 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4503 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4504 #ifndef LC_MESSAGES
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4505 if (what == VIM_LC_MESSAGES)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4506 loc = "";
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4507 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4508 #endif
1624 18ee39301b82 updated for version 7.2a vimboss parents: 1517 diff changeset	4509 {
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4510 loc = setlocale(what, (char *)name);
1624 18ee39301b82 updated for version 7.2a vimboss parents: 1517 diff changeset	4511 #if defined(FEAT_FLOAT) && defined(LC_NUMERIC)
18ee39301b82 updated for version 7.2a vimboss parents: 1517 diff changeset	4512 /* Make sure strtod() uses a decimal point, not a comma. */
18ee39301b82 updated for version 7.2a vimboss parents: 1517 diff changeset	4513 setlocale(LC_NUMERIC, "C");
18ee39301b82 updated for version 7.2a vimboss parents: 1517 diff changeset	4514 #endif
18ee39301b82 updated for version 7.2a vimboss parents: 1517 diff changeset	4515 }
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4516 if (loc == NULL)
15470 55ccc2d353bd patch 8.1.0743: giving error messages is not flexible Bram Moolenaar <Bram@vim.org> parents: 15448 diff changeset	4517 semsg(_("E197: Cannot set language to \"%s\""), name);
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4518 else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4519 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4520 #ifdef HAVE_NL_MSG_CAT_CNTR
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4521 /* Need to do this for GNU gettext, otherwise cached translations
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4522 * will be used again. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4523 extern int _nl_msg_cat_cntr;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4524
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4525 ++_nl_msg_cat_cntr;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4526 #endif
1222 756bed568f5d updated for version 7.1b vimboss parents: 1115 diff changeset	4527 /* Reset $LC_ALL, otherwise it would overrule everything. */
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4528 vim_setenv((char_u )"LC_ALL", (char_u )"");
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4529
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4530 if (what != LC_TIME)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4531 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4532 /* Tell gettext() what to translate to. It apparently doesn't
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4533 * use the currently effective locale. Also do this when
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4534 * FEAT_GETTEXT isn't defined, so that shell commands use this
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4535 * value. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4536 if (what == LC_ALL)
534 c6296b0ad9ea updated for version 7.0151 vimboss parents: 531 diff changeset	4537 {
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4538 vim_setenv((char_u *)"LANG", name);
5027 5751284311f3 updated for version 7.3.1257 Bram Moolenaar <bram@vim.org> parents: 4833 diff changeset	4539
5751284311f3 updated for version 7.3.1257 Bram Moolenaar <bram@vim.org> parents: 4833 diff changeset	4540 /* Clear $LANGUAGE because GNU gettext uses it. */
5751284311f3 updated for version 7.3.1257 Bram Moolenaar <bram@vim.org> parents: 4833 diff changeset	4541 vim_setenv((char_u )"LANGUAGE", (char_u )"");
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15842 diff changeset	4542 # ifdef MSWIN
534 c6296b0ad9ea updated for version 7.0151 vimboss parents: 531 diff changeset	4543 /* Apparently MS-Windows printf() may cause a crash when
c6296b0ad9ea updated for version 7.0151 vimboss parents: 531 diff changeset	4544 * we give it 8-bit text while it's expecting text in the
c6296b0ad9ea updated for version 7.0151 vimboss parents: 531 diff changeset	4545 * current locale. This call avoids that. */
c6296b0ad9ea updated for version 7.0151 vimboss parents: 531 diff changeset	4546 setlocale(LC_CTYPE, "C");
c6296b0ad9ea updated for version 7.0151 vimboss parents: 531 diff changeset	4547 # endif
c6296b0ad9ea updated for version 7.0151 vimboss parents: 531 diff changeset	4548 }
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4549 if (what != LC_CTYPE)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4550 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4551 char_u *mname;
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15842 diff changeset	4552 #ifdef MSWIN
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4553 mname = gettext_lang(name);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4554 #else
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4555 mname = name;
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4556 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4557 vim_setenv((char_u *)"LC_MESSAGES", mname);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4558 #ifdef FEAT_MULTI_LANG
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4559 set_helplang_default(mname);
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4560 #endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4561 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4562 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4563
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4564 # ifdef FEAT_EVAL
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4565 /* Set v:lang, v:lc_time and v:ctype to the final result. */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4566 set_lang_var();
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4567 # endif
3149 35f098371af6 updated for version 7.3.345 Bram Moolenaar <bram@vim.org> parents: 2921 diff changeset	4568 # ifdef FEAT_TITLE
35f098371af6 updated for version 7.3.345 Bram Moolenaar <bram@vim.org> parents: 2921 diff changeset	4569 maketitle();
35f098371af6 updated for version 7.3.345 Bram Moolenaar <bram@vim.org> parents: 2921 diff changeset	4570 # endif
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4571 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4572 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4573 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4574
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4575 # if defined(FEAT_CMDL_COMPL) \|\| defined(PROTO)
2849 b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4576
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4577 static char_u *locales = NULL; / Array of all available locales */
10569 0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly Christian Brabandt <cb@256bit.org> parents: 10262 diff changeset	4578
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15842 diff changeset	4579 # ifndef MSWIN
2849 b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4580 static int did_init_locales = FALSE;
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4581
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4582 /* Return an array of strings for all available locales + NULL for the
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4583 * last element. Return NULL in case of error. */
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4584 static char_u **
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	4585 find_locales(void)
2849 b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4586 {
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4587 garray_T locales_ga;
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4588 char_u *loc;
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4589
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4590 /* Find all available locales by running command "locale -a". If this
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4591 * doesn't work we won't have completion. */
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4592 char_u locale_a = get_cmd_output((char_u )"locale -a",
5808 e5f1f2ea0b4a updated for version 7.4.248 Bram Moolenaar <bram@vim.org> parents: 5464 diff changeset	4593 NULL, SHELL_SILENT, NULL);
2849 b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4594 if (locale_a == NULL)
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4595 return NULL;
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4596 ga_init2(&locales_ga, sizeof(char_u *), 20);
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4597
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4598 /* Transform locale_a string where each locale is separated by "\n"
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4599 * into an array of locale strings. */
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4600 loc = (char_u )strtok((char )locale_a, "\n");
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4601
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4602 while (loc != NULL)
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4603 {
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4604 if (ga_grow(&locales_ga, 1) == FAIL)
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4605 break;
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4606 loc = vim_strsave(loc);
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4607 if (loc == NULL)
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4608 break;
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4609
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4610 ((char_u **)locales_ga.ga_data)[locales_ga.ga_len++] = loc;
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4611 loc = (char_u *)strtok(NULL, "\n");
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4612 }
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4613 vim_free(locale_a);
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4614 if (ga_grow(&locales_ga, 1) == FAIL)
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4615 {
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4616 ga_clear(&locales_ga);
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4617 return NULL;
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4618 }
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4619 ((char_u **)locales_ga.ga_data)[locales_ga.ga_len] = NULL;
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4620 return (char_u **)locales_ga.ga_data;
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4621 }
10569 0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly Christian Brabandt <cb@256bit.org> parents: 10262 diff changeset	4622 # endif
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly Christian Brabandt <cb@256bit.org> parents: 10262 diff changeset	4623
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly Christian Brabandt <cb@256bit.org> parents: 10262 diff changeset	4624 /*
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly Christian Brabandt <cb@256bit.org> parents: 10262 diff changeset	4625 * Lazy initialization of all available locales.
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly Christian Brabandt <cb@256bit.org> parents: 10262 diff changeset	4626 */
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly Christian Brabandt <cb@256bit.org> parents: 10262 diff changeset	4627 static void
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly Christian Brabandt <cb@256bit.org> parents: 10262 diff changeset	4628 init_locales(void)
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly Christian Brabandt <cb@256bit.org> parents: 10262 diff changeset	4629 {
15868 7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent Bram Moolenaar <Bram@vim.org> parents: 15842 diff changeset	4630 # ifndef MSWIN
10569 0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly Christian Brabandt <cb@256bit.org> parents: 10262 diff changeset	4631 if (!did_init_locales)
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly Christian Brabandt <cb@256bit.org> parents: 10262 diff changeset	4632 {
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly Christian Brabandt <cb@256bit.org> parents: 10262 diff changeset	4633 did_init_locales = TRUE;
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly Christian Brabandt <cb@256bit.org> parents: 10262 diff changeset	4634 locales = find_locales();
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly Christian Brabandt <cb@256bit.org> parents: 10262 diff changeset	4635 }
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly Christian Brabandt <cb@256bit.org> parents: 10262 diff changeset	4636 # endif
0bf064e7917a patch 8.0.0174: executing "locale -a" on MS-Windows needlessly Christian Brabandt <cb@256bit.org> parents: 10262 diff changeset	4637 }
2849 b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4638
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4639 # if defined(EXITFREE) \|\| defined(PROTO)
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4640 void
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	4641 free_locales(void)
2849 b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4642 {
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4643 int i;
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4644 if (locales != NULL)
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4645 {
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4646 for (i = 0; locales[i] != NULL; i++)
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4647 vim_free(locales[i]);
13244 ac42c4b11dbc patch 8.0.1496: clearing a pointer takes two lines Christian Brabandt <cb@256bit.org> parents: 13190 diff changeset	4648 VIM_CLEAR(locales);
2849 b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4649 }
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4650 }
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4651 # endif
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4652
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4653 /*
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4654 * Function given to ExpandGeneric() to obtain the possible arguments of the
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4655 * ":language" command.
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4656 */
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4657 char_u *
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	4658 get_lang_arg(expand_T *xp UNUSED, int idx)
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4659 {
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4660 if (idx == 0)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4661 return (char_u *)"messages";
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4662 if (idx == 1)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4663 return (char_u *)"ctype";
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4664 if (idx == 2)
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4665 return (char_u *)"time";
2849 b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4666
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4667 init_locales();
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4668 if (locales == NULL)
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4669 return NULL;
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4670 return locales[idx - 3];
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4671 }
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4672
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4673 /*
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4674 * Function given to ExpandGeneric() to obtain the available locales.
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4675 */
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4676 char_u *
7819 f86adafb28d4 commit https://github.com/vim/vim/commit/78c0b7d43e5048fd71d12816659667834170c76d Christian Brabandt <cb@256bit.org> parents: 7807 diff changeset	4677 get_locales(expand_T *xp UNUSED, int idx)
2849 b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4678 {
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4679 init_locales();
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4680 if (locales == NULL)
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4681 return NULL;
b0190e93e601 updated for version 7.3.198 Bram Moolenaar <bram@vim.org> parents: 2823 diff changeset	4682 return locales[idx];
7 3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4683 }
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4684 # endif
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4685
3fc0f57ecb91 updated for version 7.0001 vimboss parents: diff changeset	4686 #endif

Mercurial > vim

annotate src/ex_cmds2.c @ 16764:ef00b6bc186b v8.1.1384