annotate src/macros.h @ 20433:5950284a517f v8.2.0771

patch 8.2.0771: Vim9: cannot call a compiled closure from not compiled code Commit: https://github.com/vim/vim/commit/6f5b6dfb16228c0ce1e4379b7bafed02eaddbab2 Author: Bram Moolenaar <Bram@vim.org> Date: Sat May 16 21:20:12 2020 +0200 patch 8.2.0771: Vim9: cannot call a compiled closure from not compiled code Problem: Vim9: cannot call a compiled closure from not compiled code. Solution: Pass funcexe to call_user_func().
author Bram Moolenaar <Bram@vim.org>
date Sat, 16 May 2020 21:30:10 +0200
parents 4c317d8c1051
children 8a2b86a39ef4
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
10042
4aead6a9b7a9 commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47
Christian Brabandt <cb@256bit.org>
parents: 9925
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 */
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 * macros.h: macro definitions for often used code
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11121
diff changeset
11 *
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11121
diff changeset
12 * Macros should be ALL_CAPS. An exception is for where a function is
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11121
diff changeset
13 * replaced and an argument is not used more than once.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
14 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
15
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
16 /*
14216
12bdbf9f7e20 patch 8.1.0125: virtual edit replace with multi-byte fails at end of line
Christian Brabandt <cb@256bit.org>
parents: 13632
diff changeset
17 * PBYTE(lp, c) - put byte 'c' at position 'lp'
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
18 */
14216
12bdbf9f7e20 patch 8.1.0125: virtual edit replace with multi-byte fails at end of line
Christian Brabandt <cb@256bit.org>
parents: 13632
diff changeset
19 #define PBYTE(lp, c) (*(ml_get_buf(curbuf, (lp).lnum, TRUE) + (lp).col) = (c))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
20
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
21 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
22 * Position comparisons
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
23 */
15636
6f1c7e9a6393 patch 8.1.0826: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 15605
diff changeset
24 #define LT_POS(a, b) (((a).lnum != (b).lnum) \
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
25 ? (a).lnum < (b).lnum \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
26 : (a).col != (b).col \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
27 ? (a).col < (b).col \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
28 : (a).coladd < (b).coladd)
15636
6f1c7e9a6393 patch 8.1.0826: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 15605
diff changeset
29 #define LT_POSP(a, b) (((a)->lnum != (b)->lnum) \
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
30 ? (a)->lnum < (b)->lnum \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
31 : (a)->col != (b)->col \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
32 ? (a)->col < (b)->col \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
33 : (a)->coladd < (b)->coladd)
15636
6f1c7e9a6393 patch 8.1.0826: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 15605
diff changeset
34 #define EQUAL_POS(a, b) (((a).lnum == (b).lnum) && ((a).col == (b).col) && ((a).coladd == (b).coladd))
16162
cd5c83115ec6 patch 8.1.1086: too many curly braces
Bram Moolenaar <Bram@vim.org>
parents: 16066
diff changeset
35 #define CLEAR_POS(a) do {(a)->lnum = 0; (a)->col = 0; (a)->coladd = 0;} while (0)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
36
11121
778c10516955 patch 8.0.0448: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 10344
diff changeset
37 #define LTOREQ_POS(a, b) (LT_POS(a, b) || EQUAL_POS(a, b))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
38
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
39 /*
20013
bf377a9ffccb patch 8.2.0562: Vim9: cannot split an expression into multiple lines
Bram Moolenaar <Bram@vim.org>
parents: 19629
diff changeset
40 * VIM_ISWHITE() differs from isspace() because it doesn't include <CR> and
bf377a9ffccb patch 8.2.0562: Vim9: cannot split an expression into multiple lines
Bram Moolenaar <Bram@vim.org>
parents: 19629
diff changeset
41 * <LF> and the like.
11129
f4ea50924c6d patch 8.0.0452: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11127
diff changeset
42 */
20013
bf377a9ffccb patch 8.2.0562: Vim9: cannot split an expression into multiple lines
Bram Moolenaar <Bram@vim.org>
parents: 19629
diff changeset
43 #define VIM_ISWHITE(x) ((x) == ' ' || (x) == '\t')
bf377a9ffccb patch 8.2.0562: Vim9: cannot split an expression into multiple lines
Bram Moolenaar <Bram@vim.org>
parents: 19629
diff changeset
44 #define IS_WHITE_OR_NUL(x) ((x) == ' ' || (x) == '\t' || (x) == NUL)
11129
f4ea50924c6d patch 8.0.0452: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11127
diff changeset
45
f4ea50924c6d patch 8.0.0452: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11127
diff changeset
46 /*
11121
778c10516955 patch 8.0.0448: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 10344
diff changeset
47 * LINEEMPTY() - return TRUE if the line is empty
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
48 */
11121
778c10516955 patch 8.0.0448: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 10344
diff changeset
49 #define LINEEMPTY(p) (*ml_get(p) == NUL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
50
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
51 /*
11121
778c10516955 patch 8.0.0448: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 10344
diff changeset
52 * BUFEMPTY() - return TRUE if the current buffer is empty
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
53 */
11121
778c10516955 patch 8.0.0448: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 10344
diff changeset
54 #define BUFEMPTY() (curbuf->b_ml.ml_line_count == 1 && *ml_get((linenr_T)1) == NUL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
55
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
56 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
57 * toupper() and tolower() that use the current locale.
1365
79a23c19108a updated for version 7.1-079
vimboss
parents: 1199
diff changeset
58 * On some systems toupper()/tolower() only work on lower/uppercase
79a23c19108a updated for version 7.1-079
vimboss
parents: 1199
diff changeset
59 * characters, first use islower() or isupper() then.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
60 * Careful: Only call TOUPPER_LOC() and TOLOWER_LOC() with a character in the
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
61 * range 0 - 255. toupper()/tolower() on some systems can't handle others.
1365
79a23c19108a updated for version 7.1-079
vimboss
parents: 1199
diff changeset
62 * Note: It is often better to use MB_TOLOWER() and MB_TOUPPER(), because many
79a23c19108a updated for version 7.1-079
vimboss
parents: 1199
diff changeset
63 * toupper() and tolower() implementations only work for ASCII.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
64 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
65 #ifdef MSWIN
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
66 # define TOUPPER_LOC(c) toupper_tab[(c) & 255]
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
67 # define TOLOWER_LOC(c) tolower_tab[(c) & 255]
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
68 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
69 # ifdef BROKEN_TOUPPER
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
70 # define TOUPPER_LOC(c) (islower(c) ? toupper(c) : (c))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
71 # define TOLOWER_LOC(c) (isupper(c) ? tolower(c) : (c))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
72 # else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
73 # define TOUPPER_LOC toupper
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
74 # define TOLOWER_LOC tolower
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
75 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
76 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
77
18753
6e3dc2d630c2 patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18498
diff changeset
78 // toupper() and tolower() for ASCII only and ignore the current locale.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
79 #ifdef EBCDIC
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
80 # define TOUPPER_ASC(c) (islower(c) ? toupper(c) : (c))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
81 # define TOLOWER_ASC(c) (isupper(c) ? tolower(c) : (c))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
82 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
83 # define TOUPPER_ASC(c) (((c) < 'a' || (c) > 'z') ? (c) : (c) - ('a' - 'A'))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
84 # define TOLOWER_ASC(c) (((c) < 'A' || (c) > 'Z') ? (c) : (c) + ('a' - 'A'))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
85 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
86
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
87 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
88 * MB_ISLOWER() and MB_ISUPPER() are to be used on multi-byte characters. But
492
81c06952fb1d updated for version 7.0135
vimboss
parents: 474
diff changeset
89 * don't use them for negative values!
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
90 */
15605
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 15034
diff changeset
91 #define MB_ISLOWER(c) vim_islower(c)
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 15034
diff changeset
92 #define MB_ISUPPER(c) vim_isupper(c)
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 15034
diff changeset
93 #define MB_TOLOWER(c) vim_tolower(c)
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 15034
diff changeset
94 #define MB_TOUPPER(c) vim_toupper(c)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
95
18753
6e3dc2d630c2 patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18498
diff changeset
96 // Use our own isdigit() replacement, because on MS-Windows isdigit() returns
6e3dc2d630c2 patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18498
diff changeset
97 // non-zero for superscript 1. Also avoids that isdigit() crashes for numbers
6e3dc2d630c2 patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18498
diff changeset
98 // below 0 and above 255.
4857
84a8d1ba81c3 updated for version 7.3.1175
Bram Moolenaar <bram@vim.org>
parents: 4849
diff changeset
99 #define VIM_ISDIGIT(c) ((unsigned)(c) - '0' < 10)
84a8d1ba81c3 updated for version 7.3.1175
Bram Moolenaar <bram@vim.org>
parents: 4849
diff changeset
100
18753
6e3dc2d630c2 patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18498
diff changeset
101 // Like isalpha() but reject non-ASCII characters. Can't be used with a
6e3dc2d630c2 patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18498
diff changeset
102 // special key (negative value).
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
103 #ifdef EBCDIC
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
104 # define ASCII_ISALPHA(c) isalpha(c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
105 # define ASCII_ISALNUM(c) isalnum(c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
106 # define ASCII_ISLOWER(c) islower(c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
107 # define ASCII_ISUPPER(c) isupper(c)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
108 #else
4849
fc7f985df537 updated for version 7.3.1171
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
109 # define ASCII_ISLOWER(c) ((unsigned)(c) - 'a' < 26)
fc7f985df537 updated for version 7.3.1171
Bram Moolenaar <bram@vim.org>
parents: 4805
diff changeset
110 # define ASCII_ISUPPER(c) ((unsigned)(c) - 'A' < 26)
4857
84a8d1ba81c3 updated for version 7.3.1175
Bram Moolenaar <bram@vim.org>
parents: 4849
diff changeset
111 # define ASCII_ISALPHA(c) (ASCII_ISUPPER(c) || ASCII_ISLOWER(c))
84a8d1ba81c3 updated for version 7.3.1175
Bram Moolenaar <bram@vim.org>
parents: 4849
diff changeset
112 # define ASCII_ISALNUM(c) (ASCII_ISALPHA(c) || VIM_ISDIGIT(c))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
113 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
114
18753
6e3dc2d630c2 patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18498
diff changeset
115 // Returns empty string if it is NULL.
8247
6ee794dc950e commit https://github.com/vim/vim/commit/669cac0a805333e69b9e1176425083914eada659
Christian Brabandt <cb@256bit.org>
parents: 8212
diff changeset
116 #define EMPTY_IF_NULL(x) ((x) ? (x) : (char_u *)"")
6909
676906c33768 patch 7.4.774
Bram Moolenaar <bram@vim.org>
parents: 6339
diff changeset
117
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
118 #ifdef FEAT_LANGMAP
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
119 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
120 * Adjust chars in a language according to 'langmap' option.
1811
d88bdbabfbc6 updated for version 7.2-109
vimboss
parents: 1365
diff changeset
121 * NOTE that there is no noticeable overhead if 'langmap' is not set.
d88bdbabfbc6 updated for version 7.2-109
vimboss
parents: 1365
diff changeset
122 * When set the overhead for characters < 256 is small.
6339
7b28dc1d756e updated for version 7.4.502
Bram Moolenaar <bram@vim.org>
parents: 5905
diff changeset
123 * Don't apply 'langmap' if the character comes from the Stuff buffer or from
7b28dc1d756e updated for version 7.4.502
Bram Moolenaar <bram@vim.org>
parents: 5905
diff changeset
124 * a mapping and the langnoremap option was set.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
125 * The do-while is just to ignore a ';' after the macro.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
126 */
15605
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 15034
diff changeset
127 # define LANGMAP_ADJUST(c, condition) \
1811
d88bdbabfbc6 updated for version 7.2-109
vimboss
parents: 1365
diff changeset
128 do { \
6339
7b28dc1d756e updated for version 7.4.502
Bram Moolenaar <bram@vim.org>
parents: 5905
diff changeset
129 if (*p_langmap \
7b28dc1d756e updated for version 7.4.502
Bram Moolenaar <bram@vim.org>
parents: 5905
diff changeset
130 && (condition) \
9925
3fba3e8326a7 commit https://github.com/vim/vim/commit/920694c1b60fac8017b8909efcc24f189804a9bb
Christian Brabandt <cb@256bit.org>
parents: 9898
diff changeset
131 && (p_lrm || (!p_lrm && KeyTyped)) \
6339
7b28dc1d756e updated for version 7.4.502
Bram Moolenaar <bram@vim.org>
parents: 5905
diff changeset
132 && !KeyStuffed \
7b28dc1d756e updated for version 7.4.502
Bram Moolenaar <bram@vim.org>
parents: 5905
diff changeset
133 && (c) >= 0) \
1811
d88bdbabfbc6 updated for version 7.2-109
vimboss
parents: 1365
diff changeset
134 { \
d88bdbabfbc6 updated for version 7.2-109
vimboss
parents: 1365
diff changeset
135 if ((c) < 256) \
d88bdbabfbc6 updated for version 7.2-109
vimboss
parents: 1365
diff changeset
136 c = langmap_mapchar[c]; \
d88bdbabfbc6 updated for version 7.2-109
vimboss
parents: 1365
diff changeset
137 else \
d88bdbabfbc6 updated for version 7.2-109
vimboss
parents: 1365
diff changeset
138 c = langmap_adjust_mb(c); \
d88bdbabfbc6 updated for version 7.2-109
vimboss
parents: 1365
diff changeset
139 } \
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
140 } while (0)
1811
d88bdbabfbc6 updated for version 7.2-109
vimboss
parents: 1365
diff changeset
141 #else
18753
6e3dc2d630c2 patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18498
diff changeset
142 # define LANGMAP_ADJUST(c, condition) // nop
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
143 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
144
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
145 /*
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11121
diff changeset
146 * VIM_ISBREAK() is used very often if 'linebreak' is set, use a macro to make
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11121
diff changeset
147 * it work fast. Only works for single byte characters!
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
148 */
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11121
diff changeset
149 #define VIM_ISBREAK(c) ((c) < 256 && breakat_flags[(char_u)(c)])
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
150
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
151 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
152 * On VMS file names are different and require a translation.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
153 * On the Mac open() has only two arguments.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
154 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
155 #ifdef VMS
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
156 # define mch_access(n, p) access(vms_fixfilename(n), (p))
18753
6e3dc2d630c2 patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18498
diff changeset
157 // see mch_open() comment
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
158 # define mch_fopen(n, p) fopen(vms_fixfilename(n), (p))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
159 # define mch_fstat(n, p) fstat(vms_fixfilename(n), (p))
18753
6e3dc2d630c2 patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18498
diff changeset
160 // VMS does not have lstat()
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
161 # define mch_stat(n, p) stat(vms_fixfilename(n), (p))
10328
299f1669c20e commit https://github.com/vim/vim/commit/de5e2c219b99895445fb75ae3541ee69282a5846
Christian Brabandt <cb@256bit.org>
parents: 10042
diff changeset
162 # define mch_rmdir(n) rmdir(vms_fixfilename(n))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
163 #else
15868
7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15636
diff changeset
164 # ifndef MSWIN
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
165 # define mch_access(n, p) access((n), (p))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
166 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
167 # define mch_fstat(n, p) fstat((n), (p))
15868
7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15636
diff changeset
168 # ifdef MSWIN // has its own mch_stat() function
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
169 # define mch_stat(n, p) vim_stat((n), (p))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
170 # else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
171 # ifdef STAT_IGNORES_SLASH
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11121
diff changeset
172 # define mch_stat(n, p) vim_stat((n), (p))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
173 # else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
174 # define mch_stat(n, p) stat((n), (p))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
175 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
176 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
177 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
178
21
db5102f7e29f updated for version 7.0013
vimboss
parents: 13
diff changeset
179 #ifdef HAVE_LSTAT
db5102f7e29f updated for version 7.0013
vimboss
parents: 13
diff changeset
180 # define mch_lstat(n, p) lstat((n), (p))
db5102f7e29f updated for version 7.0013
vimboss
parents: 13
diff changeset
181 #else
db5102f7e29f updated for version 7.0013
vimboss
parents: 13
diff changeset
182 # define mch_lstat(n, p) mch_stat((n), (p))
db5102f7e29f updated for version 7.0013
vimboss
parents: 13
diff changeset
183 #endif
db5102f7e29f updated for version 7.0013
vimboss
parents: 13
diff changeset
184
12716
351cf7c67bbe patch 8.0.1236: Mac features are confusing
Christian Brabandt <cb@256bit.org>
parents: 11921
diff changeset
185 #ifdef VMS
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
186 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
187 * It is possible to force some record format with:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
188 * # define mch_open(n, m, p) open(vms_fixfilename(n), (m), (p)), "rat=cr", "rfm=stmlf", "mrs=0")
1199
3acf7c922a04 updated for version 7.1b
vimboss
parents: 961
diff changeset
189 * but it is not recommended, because it can destroy indexes etc.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
190 */
12716
351cf7c67bbe patch 8.0.1236: Mac features are confusing
Christian Brabandt <cb@256bit.org>
parents: 11921
diff changeset
191 # define mch_open(n, m, p) open(vms_fixfilename(n), (m), (p))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
192 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
193
18753
6e3dc2d630c2 patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18498
diff changeset
194 // mch_open_rw(): invoke mch_open() with third argument for user R/W.
6e3dc2d630c2 patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18498
diff changeset
195 #if defined(UNIX) || defined(VMS) // open in rw------- mode
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
196 # define mch_open_rw(n, f) mch_open((n), (f), (mode_t)0600)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
197 #else
15868
7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15636
diff changeset
198 # if defined(MSWIN) // open read/write
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
199 # define mch_open_rw(n, f) mch_open((n), (f), S_IREAD | S_IWRITE)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
200 # else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
201 # define mch_open_rw(n, f) mch_open((n), (f), 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
202 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
203 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
204
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
205 #ifdef STARTUPTIME
13632
cec5137d5332 patch 8.0.1688: some macros are used without a semicolon
Christian Brabandt <cb@256bit.org>
parents: 13384
diff changeset
206 # define TIME_MSG(s) do { if (time_fd != NULL) time_msg(s, NULL); } while (0)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
207 #else
13632
cec5137d5332 patch 8.0.1688: some macros are used without a semicolon
Christian Brabandt <cb@256bit.org>
parents: 13384
diff changeset
208 # define TIME_MSG(s) do { /**/ } while (0)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
209 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
210
14424
0a69e6e708f9 patch 8.1.0226: too many #ifdefs
Christian Brabandt <cb@256bit.org>
parents: 14216
diff changeset
211 #define REPLACE_NORMAL(s) (((s) & REPLACE_FLAG) && !((s) & VREPLACE_FLAG))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
212
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
213 #ifdef FEAT_ARABIC
16066
473fbdb2717c patch 8.1.1038: Arabic support excludes Farsi
Bram Moolenaar <Bram@vim.org>
parents: 15868
diff changeset
214 # define ARABIC_CHAR(ch) (((ch) & 0xFF00) == 0x0600)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
215 # define UTF_COMPOSINGLIKE(p1, p2) utf_composinglike((p1), (p2))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
216 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
217 # define UTF_COMPOSINGLIKE(p1, p2) utf_iscomposing(utf_ptr2char(p2))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
218 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
219
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
220 #ifdef FEAT_RIGHTLEFT
18753
6e3dc2d630c2 patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18498
diff changeset
221 // Whether to draw the vertical bar on the right side of the cell.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
222 # define CURSOR_BAR_RIGHT (curwin->w_p_rl && (!(State & CMDLINE) || cmdmsg_rl))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
223 #endif
13
24d5189d3956 updated for version 7.0005
vimboss
parents: 7
diff changeset
224
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 21
diff changeset
225 /*
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11121
diff changeset
226 * MB_PTR_ADV(): advance a pointer to the next character, taking care of
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 21
diff changeset
227 * multi-byte characters if needed.
11127
506f5d8b7d8b patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents: 11121
diff changeset
228 * MB_PTR_BACK(): backup a pointer to the previous character, taking care of
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 21
diff changeset
229 * multi-byte characters if needed.
98
98435a8ddb09 updated for version 7.0038
vimboss
parents: 39
diff changeset
230 * MB_COPY_CHAR(f, t): copy one char from "f" to "t" and advance the pointers.
456
c4d200412ae9 updated for version 7.0121
vimboss
parents: 377
diff changeset
231 * PTR2CHAR(): get character from pointer.
39
410fa1a31baf updated for version 7.0023
vimboss
parents: 21
diff changeset
232 */
18753
6e3dc2d630c2 patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18498
diff changeset
233 // Advance multi-byte pointer, skip over composing chars.
18251
c8a53c0daeed patch 8.1.2120: some MB_ macros are more complicated than necessary
Bram Moolenaar <Bram@vim.org>
parents: 18249
diff changeset
234 #define MB_PTR_ADV(p) p += (*mb_ptr2len)(p)
18753
6e3dc2d630c2 patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18498
diff changeset
235 // Advance multi-byte pointer, do not skip over composing chars.
18251
c8a53c0daeed patch 8.1.2120: some MB_ macros are more complicated than necessary
Bram Moolenaar <Bram@vim.org>
parents: 18249
diff changeset
236 #define MB_CPTR_ADV(p) p += enc_utf8 ? utf_ptr2len(p) : (*mb_ptr2len)(p)
18753
6e3dc2d630c2 patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18498
diff changeset
237 // Backup multi-byte pointer. Only use with "p" > "s" !
15605
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 15034
diff changeset
238 #define MB_PTR_BACK(s, p) p -= has_mbyte ? ((*mb_head_off)(s, p - 1) + 1) : 1
18753
6e3dc2d630c2 patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18498
diff changeset
239 // get length of multi-byte char, not including composing chars
15605
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 15034
diff changeset
240 #define MB_CPTR2LEN(p) (enc_utf8 ? utf_ptr2len(p) : (*mb_ptr2len)(p))
474
a5fcf36ef512 updated for version 7.0127
vimboss
parents: 456
diff changeset
241
16162
cd5c83115ec6 patch 8.1.1086: too many curly braces
Bram Moolenaar <Bram@vim.org>
parents: 16066
diff changeset
242 #define MB_COPY_CHAR(f, t) do { if (has_mbyte) mb_copy_char(&f, &t); else *t++ = *f++; } while (0)
15605
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 15034
diff changeset
243 #define MB_CHARLEN(p) (has_mbyte ? mb_charlen(p) : (int)STRLEN(p))
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 15034
diff changeset
244 #define MB_CHAR2LEN(c) (has_mbyte ? mb_char2len(c) : 1)
62b3805506b3 patch 8.1.0810: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents: 15034
diff changeset
245 #define PTR2CHAR(p) (has_mbyte ? mb_ptr2char(p) : (int)*(p))
961
c06c658691e2 updated for version 7.0-087
vimboss
parents: 698
diff changeset
246
c06c658691e2 updated for version 7.0-087
vimboss
parents: 698
diff changeset
247 #ifdef FEAT_AUTOCHDIR
13632
cec5137d5332 patch 8.0.1688: some macros are used without a semicolon
Christian Brabandt <cb@256bit.org>
parents: 13384
diff changeset
248 # define DO_AUTOCHDIR do { if (p_acd) do_autochdir(); } while (0)
961
c06c658691e2 updated for version 7.0-087
vimboss
parents: 698
diff changeset
249 #else
13632
cec5137d5332 patch 8.0.1688: some macros are used without a semicolon
Christian Brabandt <cb@256bit.org>
parents: 13384
diff changeset
250 # define DO_AUTOCHDIR do { /**/ } while (0)
961
c06c658691e2 updated for version 7.0-087
vimboss
parents: 698
diff changeset
251 #endif
2583
7c2e6ba1d702 updated for version 7.3.008
Bram Moolenaar <bram@vim.org>
parents: 2330
diff changeset
252
16162
cd5c83115ec6 patch 8.1.1086: too many curly braces
Bram Moolenaar <Bram@vim.org>
parents: 16066
diff changeset
253 #define RESET_BINDING(wp) do { (wp)->w_p_scb = FALSE; (wp)->w_p_crb = FALSE; \
cd5c83115ec6 patch 8.1.1086: too many curly braces
Bram Moolenaar <Bram@vim.org>
parents: 16066
diff changeset
254 } while (0)
7103
84d318257a45 commit https://github.com/vim/vim/commit/43335ea394fe247132b9701c55cccf51e6c36425
Christian Brabandt <cb@256bit.org>
parents: 6909
diff changeset
255
84d318257a45 commit https://github.com/vim/vim/commit/43335ea394fe247132b9701c55cccf51e6c36425
Christian Brabandt <cb@256bit.org>
parents: 6909
diff changeset
256 #ifdef FEAT_DIFF
84d318257a45 commit https://github.com/vim/vim/commit/43335ea394fe247132b9701c55cccf51e6c36425
Christian Brabandt <cb@256bit.org>
parents: 6909
diff changeset
257 # define PLINES_NOFILL(x) plines_nofill(x)
84d318257a45 commit https://github.com/vim/vim/commit/43335ea394fe247132b9701c55cccf51e6c36425
Christian Brabandt <cb@256bit.org>
parents: 6909
diff changeset
258 #else
84d318257a45 commit https://github.com/vim/vim/commit/43335ea394fe247132b9701c55cccf51e6c36425
Christian Brabandt <cb@256bit.org>
parents: 6909
diff changeset
259 # define PLINES_NOFILL(x) plines(x)
84d318257a45 commit https://github.com/vim/vim/commit/43335ea394fe247132b9701c55cccf51e6c36425
Christian Brabandt <cb@256bit.org>
parents: 6909
diff changeset
260 #endif
7109
fa95595fbc52 commit https://github.com/vim/vim/commit/93c88e0f6a4a8f7634ed84721daf4af46fc0d5db
Christian Brabandt <cb@256bit.org>
parents: 7103
diff changeset
261
8493
caed4b2d305f commit https://github.com/vim/vim/commit/509ce2a558e7e0c03242e32e844255af52f1c821
Christian Brabandt <cb@256bit.org>
parents: 8395
diff changeset
262 #if defined(FEAT_JOB_CHANNEL) || defined(FEAT_CLIENTSERVER)
7109
fa95595fbc52 commit https://github.com/vim/vim/commit/93c88e0f6a4a8f7634ed84721daf4af46fc0d5db
Christian Brabandt <cb@256bit.org>
parents: 7103
diff changeset
263 # define MESSAGE_QUEUE
fa95595fbc52 commit https://github.com/vim/vim/commit/93c88e0f6a4a8f7634ed84721daf4af46fc0d5db
Christian Brabandt <cb@256bit.org>
parents: 7103
diff changeset
264 #endif
8289
6ae3fb4fe7c1 commit https://github.com/vim/vim/commit/136f29a91dbafce424e31a4af133155f997e8f78
Christian Brabandt <cb@256bit.org>
parents: 8247
diff changeset
265
6ae3fb4fe7c1 commit https://github.com/vim/vim/commit/136f29a91dbafce424e31a4af133155f997e8f78
Christian Brabandt <cb@256bit.org>
parents: 8247
diff changeset
266 #if defined(FEAT_EVAL) && defined(FEAT_FLOAT)
6ae3fb4fe7c1 commit https://github.com/vim/vim/commit/136f29a91dbafce424e31a4af133155f997e8f78
Christian Brabandt <cb@256bit.org>
parents: 8247
diff changeset
267 # include <float.h>
6ae3fb4fe7c1 commit https://github.com/vim/vim/commit/136f29a91dbafce424e31a4af133155f997e8f78
Christian Brabandt <cb@256bit.org>
parents: 8247
diff changeset
268 # if defined(HAVE_MATH_H)
18753
6e3dc2d630c2 patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18498
diff changeset
269 // for isnan() and isinf()
8289
6ae3fb4fe7c1 commit https://github.com/vim/vim/commit/136f29a91dbafce424e31a4af133155f997e8f78
Christian Brabandt <cb@256bit.org>
parents: 8247
diff changeset
270 # include <math.h>
6ae3fb4fe7c1 commit https://github.com/vim/vim/commit/136f29a91dbafce424e31a4af133155f997e8f78
Christian Brabandt <cb@256bit.org>
parents: 8247
diff changeset
271 # endif
8295
18fd94bd4eb8 commit https://github.com/vim/vim/commit/fefecb0fbe14c44d46f91036d76bbb6c28162da8
Christian Brabandt <cb@256bit.org>
parents: 8289
diff changeset
272 # ifdef USING_FLOAT_STUFF
15868
7fad90423bd2 patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents: 15636
diff changeset
273 # ifdef MSWIN
8295
18fd94bd4eb8 commit https://github.com/vim/vim/commit/fefecb0fbe14c44d46f91036d76bbb6c28162da8
Christian Brabandt <cb@256bit.org>
parents: 8289
diff changeset
274 # ifndef isnan
18fd94bd4eb8 commit https://github.com/vim/vim/commit/fefecb0fbe14c44d46f91036d76bbb6c28162da8
Christian Brabandt <cb@256bit.org>
parents: 8289
diff changeset
275 # define isnan(x) _isnan(x)
8395
8137d5b642f3 commit https://github.com/vim/vim/commit/0c171716c0430458741fbf18a6fd4baea4c0390b
Christian Brabandt <cb@256bit.org>
parents: 8390
diff changeset
276 static __inline int isinf(double x) { return !_finite(x) && !_isnan(x); }
8295
18fd94bd4eb8 commit https://github.com/vim/vim/commit/fefecb0fbe14c44d46f91036d76bbb6c28162da8
Christian Brabandt <cb@256bit.org>
parents: 8289
diff changeset
277 # endif
18fd94bd4eb8 commit https://github.com/vim/vim/commit/fefecb0fbe14c44d46f91036d76bbb6c28162da8
Christian Brabandt <cb@256bit.org>
parents: 8289
diff changeset
278 # else
18fd94bd4eb8 commit https://github.com/vim/vim/commit/fefecb0fbe14c44d46f91036d76bbb6c28162da8
Christian Brabandt <cb@256bit.org>
parents: 8289
diff changeset
279 # ifndef HAVE_ISNAN
18fd94bd4eb8 commit https://github.com/vim/vim/commit/fefecb0fbe14c44d46f91036d76bbb6c28162da8
Christian Brabandt <cb@256bit.org>
parents: 8289
diff changeset
280 static inline int isnan(double x) { return x != x; }
18fd94bd4eb8 commit https://github.com/vim/vim/commit/fefecb0fbe14c44d46f91036d76bbb6c28162da8
Christian Brabandt <cb@256bit.org>
parents: 8289
diff changeset
281 # endif
18fd94bd4eb8 commit https://github.com/vim/vim/commit/fefecb0fbe14c44d46f91036d76bbb6c28162da8
Christian Brabandt <cb@256bit.org>
parents: 8289
diff changeset
282 # ifndef HAVE_ISINF
18fd94bd4eb8 commit https://github.com/vim/vim/commit/fefecb0fbe14c44d46f91036d76bbb6c28162da8
Christian Brabandt <cb@256bit.org>
parents: 8289
diff changeset
283 static inline int isinf(double x) { return !isnan(x) && isnan(x - x); }
18fd94bd4eb8 commit https://github.com/vim/vim/commit/fefecb0fbe14c44d46f91036d76bbb6c28162da8
Christian Brabandt <cb@256bit.org>
parents: 8289
diff changeset
284 # endif
8289
6ae3fb4fe7c1 commit https://github.com/vim/vim/commit/136f29a91dbafce424e31a4af133155f997e8f78
Christian Brabandt <cb@256bit.org>
parents: 8247
diff changeset
285 # endif
8295
18fd94bd4eb8 commit https://github.com/vim/vim/commit/fefecb0fbe14c44d46f91036d76bbb6c28162da8
Christian Brabandt <cb@256bit.org>
parents: 8289
diff changeset
286 # if !defined(INFINITY)
18fd94bd4eb8 commit https://github.com/vim/vim/commit/fefecb0fbe14c44d46f91036d76bbb6c28162da8
Christian Brabandt <cb@256bit.org>
parents: 8289
diff changeset
287 # if defined(DBL_MAX)
10344
e70ff5756201 commit https://github.com/vim/vim/commit/98500fdc6119eb5f02d7a52ab6ffcac3085181be
Christian Brabandt <cb@256bit.org>
parents: 10328
diff changeset
288 # ifdef VMS
e70ff5756201 commit https://github.com/vim/vim/commit/98500fdc6119eb5f02d7a52ab6ffcac3085181be
Christian Brabandt <cb@256bit.org>
parents: 10328
diff changeset
289 # define INFINITY DBL_MAX
e70ff5756201 commit https://github.com/vim/vim/commit/98500fdc6119eb5f02d7a52ab6ffcac3085181be
Christian Brabandt <cb@256bit.org>
parents: 10328
diff changeset
290 # else
e70ff5756201 commit https://github.com/vim/vim/commit/98500fdc6119eb5f02d7a52ab6ffcac3085181be
Christian Brabandt <cb@256bit.org>
parents: 10328
diff changeset
291 # define INFINITY (DBL_MAX+DBL_MAX)
e70ff5756201 commit https://github.com/vim/vim/commit/98500fdc6119eb5f02d7a52ab6ffcac3085181be
Christian Brabandt <cb@256bit.org>
parents: 10328
diff changeset
292 # endif
8295
18fd94bd4eb8 commit https://github.com/vim/vim/commit/fefecb0fbe14c44d46f91036d76bbb6c28162da8
Christian Brabandt <cb@256bit.org>
parents: 8289
diff changeset
293 # else
18fd94bd4eb8 commit https://github.com/vim/vim/commit/fefecb0fbe14c44d46f91036d76bbb6c28162da8
Christian Brabandt <cb@256bit.org>
parents: 8289
diff changeset
294 # define INFINITY (1.0 / 0.0)
18fd94bd4eb8 commit https://github.com/vim/vim/commit/fefecb0fbe14c44d46f91036d76bbb6c28162da8
Christian Brabandt <cb@256bit.org>
parents: 8289
diff changeset
295 # endif
18fd94bd4eb8 commit https://github.com/vim/vim/commit/fefecb0fbe14c44d46f91036d76bbb6c28162da8
Christian Brabandt <cb@256bit.org>
parents: 8289
diff changeset
296 # endif
18fd94bd4eb8 commit https://github.com/vim/vim/commit/fefecb0fbe14c44d46f91036d76bbb6c28162da8
Christian Brabandt <cb@256bit.org>
parents: 8289
diff changeset
297 # if !defined(NAN)
18fd94bd4eb8 commit https://github.com/vim/vim/commit/fefecb0fbe14c44d46f91036d76bbb6c28162da8
Christian Brabandt <cb@256bit.org>
parents: 8289
diff changeset
298 # define NAN (INFINITY-INFINITY)
8289
6ae3fb4fe7c1 commit https://github.com/vim/vim/commit/136f29a91dbafce424e31a4af133155f997e8f78
Christian Brabandt <cb@256bit.org>
parents: 8247
diff changeset
299 # endif
11461
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11129
diff changeset
300 # if !defined(DBL_EPSILON)
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11129
diff changeset
301 # define DBL_EPSILON 2.2204460492503131e-16
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11129
diff changeset
302 # endif
8289
6ae3fb4fe7c1 commit https://github.com/vim/vim/commit/136f29a91dbafce424e31a4af133155f997e8f78
Christian Brabandt <cb@256bit.org>
parents: 8247
diff changeset
303 # endif
6ae3fb4fe7c1 commit https://github.com/vim/vim/commit/136f29a91dbafce424e31a4af133155f997e8f78
Christian Brabandt <cb@256bit.org>
parents: 8247
diff changeset
304 #endif
9570
695186e11daa commit https://github.com/vim/vim/commit/840268400dc8fda62a14f8a084e8b1ea46619454
Christian Brabandt <cb@256bit.org>
parents: 8493
diff changeset
305
19181
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19075
diff changeset
306 #ifdef FEAT_EVAL
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19075
diff changeset
307 # define FUNCARG(fp, j) ((char_u **)(fp->uf_args.ga_data))[j]
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19075
diff changeset
308 #endif
94eda51ba9ba patch 8.2.0149: maintaining a Vim9 branch separately is more work
Bram Moolenaar <Bram@vim.org>
parents: 19075
diff changeset
309
9570
695186e11daa commit https://github.com/vim/vim/commit/840268400dc8fda62a14f8a084e8b1ea46619454
Christian Brabandt <cb@256bit.org>
parents: 8493
diff changeset
310 /*
695186e11daa commit https://github.com/vim/vim/commit/840268400dc8fda62a14f8a084e8b1ea46619454
Christian Brabandt <cb@256bit.org>
parents: 8493
diff changeset
311 * In a hashtab item "hi_key" points to "di_key" in a dictitem.
695186e11daa commit https://github.com/vim/vim/commit/840268400dc8fda62a14f8a084e8b1ea46619454
Christian Brabandt <cb@256bit.org>
parents: 8493
diff changeset
312 * This avoids adding a pointer to the hashtab item.
695186e11daa commit https://github.com/vim/vim/commit/840268400dc8fda62a14f8a084e8b1ea46619454
Christian Brabandt <cb@256bit.org>
parents: 8493
diff changeset
313 * DI2HIKEY() converts a dictitem pointer to a hashitem key pointer.
695186e11daa commit https://github.com/vim/vim/commit/840268400dc8fda62a14f8a084e8b1ea46619454
Christian Brabandt <cb@256bit.org>
parents: 8493
diff changeset
314 * HIKEY2DI() converts a hashitem key pointer to a dictitem pointer.
695186e11daa commit https://github.com/vim/vim/commit/840268400dc8fda62a14f8a084e8b1ea46619454
Christian Brabandt <cb@256bit.org>
parents: 8493
diff changeset
315 * HI2DI() converts a hashitem pointer to a dictitem pointer.
695186e11daa commit https://github.com/vim/vim/commit/840268400dc8fda62a14f8a084e8b1ea46619454
Christian Brabandt <cb@256bit.org>
parents: 8493
diff changeset
316 */
13150
808625d4b71b patch 8.0.1449: slow redrawing with DirectX
Christian Brabandt <cb@256bit.org>
parents: 12716
diff changeset
317 #define DI2HIKEY(di) ((di)->di_key)
808625d4b71b patch 8.0.1449: slow redrawing with DirectX
Christian Brabandt <cb@256bit.org>
parents: 12716
diff changeset
318 #define HIKEY2DI(p) ((dictitem_T *)(p - offsetof(dictitem_T, di_key)))
808625d4b71b patch 8.0.1449: slow redrawing with DirectX
Christian Brabandt <cb@256bit.org>
parents: 12716
diff changeset
319 #define HI2DI(hi) HIKEY2DI((hi)->hi_key)
808625d4b71b patch 8.0.1449: slow redrawing with DirectX
Christian Brabandt <cb@256bit.org>
parents: 12716
diff changeset
320
808625d4b71b patch 8.0.1449: slow redrawing with DirectX
Christian Brabandt <cb@256bit.org>
parents: 12716
diff changeset
321 /*
808625d4b71b patch 8.0.1449: slow redrawing with DirectX
Christian Brabandt <cb@256bit.org>
parents: 12716
diff changeset
322 * Flush control functions.
808625d4b71b patch 8.0.1449: slow redrawing with DirectX
Christian Brabandt <cb@256bit.org>
parents: 12716
diff changeset
323 */
808625d4b71b patch 8.0.1449: slow redrawing with DirectX
Christian Brabandt <cb@256bit.org>
parents: 12716
diff changeset
324 #ifdef FEAT_GUI
808625d4b71b patch 8.0.1449: slow redrawing with DirectX
Christian Brabandt <cb@256bit.org>
parents: 12716
diff changeset
325 # define mch_enable_flush() gui_enable_flush()
808625d4b71b patch 8.0.1449: slow redrawing with DirectX
Christian Brabandt <cb@256bit.org>
parents: 12716
diff changeset
326 # define mch_disable_flush() gui_disable_flush()
808625d4b71b patch 8.0.1449: slow redrawing with DirectX
Christian Brabandt <cb@256bit.org>
parents: 12716
diff changeset
327 #else
808625d4b71b patch 8.0.1449: slow redrawing with DirectX
Christian Brabandt <cb@256bit.org>
parents: 12716
diff changeset
328 # define mch_enable_flush()
808625d4b71b patch 8.0.1449: slow redrawing with DirectX
Christian Brabandt <cb@256bit.org>
parents: 12716
diff changeset
329 # define mch_disable_flush()
808625d4b71b patch 8.0.1449: slow redrawing with DirectX
Christian Brabandt <cb@256bit.org>
parents: 12716
diff changeset
330 #endif
13244
ac42c4b11dbc patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents: 13150
diff changeset
331
ac42c4b11dbc patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents: 13150
diff changeset
332 /*
ac42c4b11dbc patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents: 13150
diff changeset
333 * Like vim_free(), and also set the pointer to NULL.
ac42c4b11dbc patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents: 13150
diff changeset
334 */
ac42c4b11dbc patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents: 13150
diff changeset
335 #define VIM_CLEAR(p) \
ac42c4b11dbc patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents: 13150
diff changeset
336 do { \
ac42c4b11dbc patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents: 13150
diff changeset
337 if ((p) != NULL) { \
ac42c4b11dbc patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents: 13150
diff changeset
338 vim_free(p); \
ac42c4b11dbc patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents: 13150
diff changeset
339 (p) = NULL; \
ac42c4b11dbc patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents: 13150
diff changeset
340 } \
ac42c4b11dbc patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents: 13150
diff changeset
341 } while (0)
16411
5b5c5daf57de patch 8.1.1210: support for user commands is spread out
Bram Moolenaar <Bram@vim.org>
parents: 16162
diff changeset
342
18753
6e3dc2d630c2 patch 8.1.2366: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents: 18498
diff changeset
343 // Whether a command index indicates a user command.
16411
5b5c5daf57de patch 8.1.1210: support for user commands is spread out
Bram Moolenaar <Bram@vim.org>
parents: 16162
diff changeset
344 #define IS_USER_CMDIDX(idx) ((int)(idx) < 0)
16874
da5f5836e90c patch 8.1.1438: some commands cause trouble in a popup window
Bram Moolenaar <Bram@vim.org>
parents: 16411
diff changeset
345
17111
af861fccc309 patch 8.1.1555: NOT_IN_POPUP_WINDOW is confusing
Bram Moolenaar <Bram@vim.org>
parents: 16874
diff changeset
346 // Give an error in curwin is a popup window and evaluate to TRUE.
18763
49b78d6465e5 patch 8.1.2371: FEAT_TEXT_PROP is a confusing name
Bram Moolenaar <Bram@vim.org>
parents: 18753
diff changeset
347 #ifdef FEAT_PROP_POPUP
19542
9e428147e4ee patch 8.2.0328: no redraw when leaving term-normal mode in popup terminal
Bram Moolenaar <Bram@vim.org>
parents: 19271
diff changeset
348 # define WIN_IS_POPUP(wp) ((wp)->w_popup_flags != 0)
19271
ebeeb4b4a1fa patch 8.2.0194: some commands can cause problems in terminal popup
Bram Moolenaar <Bram@vim.org>
parents: 19269
diff changeset
349 # define ERROR_IF_POPUP_WINDOW error_if_popup_window(FALSE)
ebeeb4b4a1fa patch 8.2.0194: some commands can cause problems in terminal popup
Bram Moolenaar <Bram@vim.org>
parents: 19269
diff changeset
350 # define ERROR_IF_ANY_POPUP_WINDOW error_if_popup_window(TRUE)
19269
a8a915898b35 patch 8.2.0193: still build failure without +terminal feature
Bram Moolenaar <Bram@vim.org>
parents: 19265
diff changeset
351 #else
19542
9e428147e4ee patch 8.2.0328: no redraw when leaving term-normal mode in popup terminal
Bram Moolenaar <Bram@vim.org>
parents: 19271
diff changeset
352 # define WIN_IS_POPUP(wp) 0
19269
a8a915898b35 patch 8.2.0193: still build failure without +terminal feature
Bram Moolenaar <Bram@vim.org>
parents: 19265
diff changeset
353 # define ERROR_IF_POPUP_WINDOW 0
19271
ebeeb4b4a1fa patch 8.2.0194: some commands can cause problems in terminal popup
Bram Moolenaar <Bram@vim.org>
parents: 19269
diff changeset
354 # define ERROR_IF_ANY_POPUP_WINDOW 0
19269
a8a915898b35 patch 8.2.0193: still build failure without +terminal feature
Bram Moolenaar <Bram@vim.org>
parents: 19265
diff changeset
355 #endif
a8a915898b35 patch 8.2.0193: still build failure without +terminal feature
Bram Moolenaar <Bram@vim.org>
parents: 19265
diff changeset
356 #if defined(FEAT_PROP_POPUP) && defined(FEAT_TERMINAL)
19265
ce8c47ed54e5 patch 8.2.0191: cannot put a terminal in a popup window
Bram Moolenaar <Bram@vim.org>
parents: 19181
diff changeset
357 # define ERROR_IF_TERM_POPUP_WINDOW error_if_term_popup_window()
16874
da5f5836e90c patch 8.1.1438: some commands cause trouble in a popup window
Bram Moolenaar <Bram@vim.org>
parents: 16411
diff changeset
358 #else
19265
ce8c47ed54e5 patch 8.2.0191: cannot put a terminal in a popup window
Bram Moolenaar <Bram@vim.org>
parents: 19181
diff changeset
359 # define ERROR_IF_TERM_POPUP_WINDOW 0
16874
da5f5836e90c patch 8.1.1438: some commands cause trouble in a popup window
Bram Moolenaar <Bram@vim.org>
parents: 16411
diff changeset
360 #endif
19075
af1eca322b9e patch 8.2.0098: exe stack length can be wrong without being detected
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
361
af1eca322b9e patch 8.2.0098: exe stack length can be wrong without being detected
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
362
af1eca322b9e patch 8.2.0098: exe stack length can be wrong without being detected
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
363 #ifdef ABORT_ON_INTERNAL_ERROR
af1eca322b9e patch 8.2.0098: exe stack length can be wrong without being detected
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
364 # define ESTACK_CHECK_DECLARATION int estack_len_before;
af1eca322b9e patch 8.2.0098: exe stack length can be wrong without being detected
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
365 # define ESTACK_CHECK_SETUP estack_len_before = exestack.ga_len;
af1eca322b9e patch 8.2.0098: exe stack length can be wrong without being detected
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
366 # define ESTACK_CHECK_NOW if (estack_len_before != exestack.ga_len) \
af1eca322b9e patch 8.2.0098: exe stack length can be wrong without being detected
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
367 siemsg("Exestack length expected: %d, actual: %d", estack_len_before, exestack.ga_len);
19629
804322d6c6ba patch 8.2.0371: crash with combination of terminal popup and autocmd
Bram Moolenaar <Bram@vim.org>
parents: 19542
diff changeset
368 # define CHECK_CURBUF if (curwin != NULL && curwin->w_buffer != curbuf) \
804322d6c6ba patch 8.2.0371: crash with combination of terminal popup and autocmd
Bram Moolenaar <Bram@vim.org>
parents: 19542
diff changeset
369 iemsg("curbuf != curwin->w_buffer")
19075
af1eca322b9e patch 8.2.0098: exe stack length can be wrong without being detected
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
370 #else
af1eca322b9e patch 8.2.0098: exe stack length can be wrong without being detected
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
371 # define ESTACK_CHECK_DECLARATION
af1eca322b9e patch 8.2.0098: exe stack length can be wrong without being detected
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
372 # define ESTACK_CHECK_SETUP
af1eca322b9e patch 8.2.0098: exe stack length can be wrong without being detected
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
373 # define ESTACK_CHECK_NOW
19629
804322d6c6ba patch 8.2.0371: crash with combination of terminal popup and autocmd
Bram Moolenaar <Bram@vim.org>
parents: 19542
diff changeset
374 # define CHECK_CURBUF
19075
af1eca322b9e patch 8.2.0098: exe stack length can be wrong without being detected
Bram Moolenaar <Bram@vim.org>
parents: 18763
diff changeset
375 #endif
20392
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved
Bram Moolenaar <Bram@vim.org>
parents: 20013
diff changeset
376
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved
Bram Moolenaar <Bram@vim.org>
parents: 20013
diff changeset
377 // Inline the condition for performance.
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved
Bram Moolenaar <Bram@vim.org>
parents: 20013
diff changeset
378 #define CHECK_LIST_MATERIALIZE(l) if ((l)->lv_first == &range_list_item) range_list_materialize(l)
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved
Bram Moolenaar <Bram@vim.org>
parents: 20013
diff changeset
379
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved
Bram Moolenaar <Bram@vim.org>
parents: 20013
diff changeset
380 // Inlined version of ga_grow(). Especially useful if "n" is a constant.
4c317d8c1051 patch 8.2.0751: Vim9: performance can be improved
Bram Moolenaar <Bram@vim.org>
parents: 20013
diff changeset
381 #define GA_GROW(gap, n) (((gap)->ga_maxlen - (gap)->ga_len < n) ? ga_grow_inner((gap), (n)) : OK)