Mercurial > vim
annotate src/if_perl.xs @ 33299:4c975fa0a442 v9.0.1915
patch 9.0.1915: r_CTRL-C works differently in visual mode
Commit: https://github.com/vim/vim/commit/476733f3d06876c7ac105e064108c973a57984d3
Author: Christian Brabandt <cb@256bit.org>
Date: Tue Sep 19 20:41:51 2023 +0200
patch 9.0.1915: r_CTRL-C works differently in visual mode
Problem: r_CTRL-C works differently in visual mode
Solution: Make r_CTRL-C behave consistent in visual mode
in terminal and Windows GUI
in visual mode, r CTRL-C behaves strange in Unix like environments. It
seems to end visual mode, but still is waiting for few more chars,
however it never seems to replace it by any characters and eventually
just returns back into normal mode.
In contrast in Windows GUI mode, r_CTRL-C replaces in the selected area
all characters by a literal CTRL-C.
Not sure why it behaves like this. It seems in the Windows GUI, got_int
is not set and therefore behaves as if any other normal character has
been pressed.
So remove the special casing of what happens when got_int is set and
make it always behave like in Windows GUI mode. Add a test to verify it
always behaves like replacing in the selected area each selected
character by a literal CTRL-C.
closes: #13091
closes: #13112
Signed-off-by: Christian Brabandt <cb@256bit.org>
| author | Christian Brabandt <cb@256bit.org> |
|---|---|
| date | Tue, 19 Sep 2023 21:00:03 +0200 |
| parents | 8cbdd2cbf10a |
| children | 9b35b4c6df4c |
| rev | line source |
|---|---|
|
10042
4aead6a9b7a9
commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47
Christian Brabandt <cb@256bit.org>
parents:
9649
diff
changeset
|
1 /* vi:set ts=8 sts=4 sw=4 noet: |
| 7 | 2 * |
| 3 * VIM - Vi IMproved by Bram Moolenaar | |
| 4 * | |
| 5 * Do ":help uganda" in Vim to read copying and usage conditions. | |
| 6 * Do ":help credits" in Vim to see a list of people who contributed. | |
| 7 */ | |
| 8 /* | |
| 9 * if_perl.xs: Main code for Perl interface support. | |
| 10 * Mostly written by Sven Verdoolaege. | |
| 11 */ | |
| 12 | |
| 13 #define _memory_h /* avoid memset redeclaration */ | |
| 14 #define IN_PERL_FILE /* don't include if_perl.pro from proto.h */ | |
| 15 | |
|
5261
b882d4b14e00
updated for version 7.4b.007
Bram Moolenaar <bram@vim.org>
parents:
4905
diff
changeset
|
16 /* |
| 5537 | 17 * Currently 32-bit version of ActivePerl is built with VC6 (or MinGW since |
| 18 * ActivePerl 5.18). | |
|
5261
b882d4b14e00
updated for version 7.4b.007
Bram Moolenaar <bram@vim.org>
parents:
4905
diff
changeset
|
19 * (http://community.activestate.com/faq/windows-compilers-perl-modules) |
|
b882d4b14e00
updated for version 7.4b.007
Bram Moolenaar <bram@vim.org>
parents:
4905
diff
changeset
|
20 * It means that time_t should be 32-bit. However the default size of |
|
b882d4b14e00
updated for version 7.4b.007
Bram Moolenaar <bram@vim.org>
parents:
4905
diff
changeset
|
21 * time_t is 64-bit since VC8. So we have to define _USE_32BIT_TIME_T. |
|
b882d4b14e00
updated for version 7.4b.007
Bram Moolenaar <bram@vim.org>
parents:
4905
diff
changeset
|
22 */ |
|
b882d4b14e00
updated for version 7.4b.007
Bram Moolenaar <bram@vim.org>
parents:
4905
diff
changeset
|
23 #if defined(WIN32) && !defined(_WIN64) |
|
b882d4b14e00
updated for version 7.4b.007
Bram Moolenaar <bram@vim.org>
parents:
4905
diff
changeset
|
24 # define _USE_32BIT_TIME_T |
|
b882d4b14e00
updated for version 7.4b.007
Bram Moolenaar <bram@vim.org>
parents:
4905
diff
changeset
|
25 #endif |
|
b882d4b14e00
updated for version 7.4b.007
Bram Moolenaar <bram@vim.org>
parents:
4905
diff
changeset
|
26 |
| 5537 | 27 /* |
| 28 * Prevent including winsock.h. perl.h tries to detect whether winsock.h is | |
| 29 * already included before including winsock2.h, because winsock2.h isn't | |
| 30 * compatible with winsock.h. However the detection doesn't work with some | |
| 31 * versions of MinGW. If WIN32_LEAN_AND_MEAN is defined, windows.h will not | |
| 32 * include winsock.h. | |
| 33 */ | |
| 34 #ifdef WIN32 | |
| 35 # define WIN32_LEAN_AND_MEAN | |
| 36 #endif | |
| 37 | |
| 7 | 38 #include "vim.h" |
| 39 | |
| 5560 | 40 #ifdef _MSC_VER |
|
22762
5608a4144188
patch 8.2.1929: MS-Windows: problem loading Perl 5.32
Bram Moolenaar <Bram@vim.org>
parents:
22212
diff
changeset
|
41 // Work around for using MSVC and ActivePerl 5.18. |
| 5560 | 42 # define __inline__ __inline |
|
19067
d95296021f6e
patch 8.2.0094: MS-Windows: cannot build with Strawberry Perl 5.30
Bram Moolenaar <Bram@vim.org>
parents:
15945
diff
changeset
|
43 // Work around for using MSVC and Strawberry Perl 5.30. |
|
d95296021f6e
patch 8.2.0094: MS-Windows: cannot build with Strawberry Perl 5.30
Bram Moolenaar <Bram@vim.org>
parents:
15945
diff
changeset
|
44 # define __builtin_expect(expr, val) (expr) |
|
22762
5608a4144188
patch 8.2.1929: MS-Windows: problem loading Perl 5.32
Bram Moolenaar <Bram@vim.org>
parents:
22212
diff
changeset
|
45 // Work around for using MSVC and Strawberry Perl 5.32. |
|
5608a4144188
patch 8.2.1929: MS-Windows: problem loading Perl 5.32
Bram Moolenaar <Bram@vim.org>
parents:
22212
diff
changeset
|
46 # define NO_THREAD_SAFE_LOCALE |
| 5560 | 47 #endif |
| 48 | |
|
8080
b6cb94ad97a4
commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c
Christian Brabandt <cb@256bit.org>
parents:
7856
diff
changeset
|
49 #ifdef __GNUC__ |
|
b6cb94ad97a4
commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c
Christian Brabandt <cb@256bit.org>
parents:
7856
diff
changeset
|
50 # pragma GCC diagnostic push |
|
b6cb94ad97a4
commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c
Christian Brabandt <cb@256bit.org>
parents:
7856
diff
changeset
|
51 # pragma GCC diagnostic ignored "-Wunused-variable" |
|
b6cb94ad97a4
commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c
Christian Brabandt <cb@256bit.org>
parents:
7856
diff
changeset
|
52 #endif |
|
b6cb94ad97a4
commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c
Christian Brabandt <cb@256bit.org>
parents:
7856
diff
changeset
|
53 |
|
5261
b882d4b14e00
updated for version 7.4b.007
Bram Moolenaar <bram@vim.org>
parents:
4905
diff
changeset
|
54 #include <EXTERN.h> |
|
b882d4b14e00
updated for version 7.4b.007
Bram Moolenaar <bram@vim.org>
parents:
4905
diff
changeset
|
55 #include <perl.h> |
|
b882d4b14e00
updated for version 7.4b.007
Bram Moolenaar <bram@vim.org>
parents:
4905
diff
changeset
|
56 #include <XSUB.h> |
|
8885
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
57 #if defined(PERLIO_LAYERS) && !defined(USE_SFIO) |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
58 # include <perliol.h> |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
59 #endif |
| 7 | 60 |
|
9171
20e7b99c33d4
commit https://github.com/vim/vim/commit/cf190c6f017563de1bdbf854b3376522b8b2748f
Christian Brabandt <cb@256bit.org>
parents:
9159
diff
changeset
|
61 /* Workaround for perl < 5.8.7 */ |
|
20e7b99c33d4
commit https://github.com/vim/vim/commit/cf190c6f017563de1bdbf854b3376522b8b2748f
Christian Brabandt <cb@256bit.org>
parents:
9159
diff
changeset
|
62 #ifndef PERLIO_FUNCS_DECL |
|
20e7b99c33d4
commit https://github.com/vim/vim/commit/cf190c6f017563de1bdbf854b3376522b8b2748f
Christian Brabandt <cb@256bit.org>
parents:
9159
diff
changeset
|
63 # ifdef PERLIO_FUNCS_CONST |
|
20e7b99c33d4
commit https://github.com/vim/vim/commit/cf190c6f017563de1bdbf854b3376522b8b2748f
Christian Brabandt <cb@256bit.org>
parents:
9159
diff
changeset
|
64 # define PERLIO_FUNCS_DECL(funcs) const PerlIO_funcs funcs |
|
20e7b99c33d4
commit https://github.com/vim/vim/commit/cf190c6f017563de1bdbf854b3376522b8b2748f
Christian Brabandt <cb@256bit.org>
parents:
9159
diff
changeset
|
65 # define PERLIO_FUNCS_CAST(funcs) (PerlIO_funcs*)(funcs) |
|
20e7b99c33d4
commit https://github.com/vim/vim/commit/cf190c6f017563de1bdbf854b3376522b8b2748f
Christian Brabandt <cb@256bit.org>
parents:
9159
diff
changeset
|
66 # else |
|
20e7b99c33d4
commit https://github.com/vim/vim/commit/cf190c6f017563de1bdbf854b3376522b8b2748f
Christian Brabandt <cb@256bit.org>
parents:
9159
diff
changeset
|
67 # define PERLIO_FUNCS_DECL(funcs) PerlIO_funcs funcs |
|
20e7b99c33d4
commit https://github.com/vim/vim/commit/cf190c6f017563de1bdbf854b3376522b8b2748f
Christian Brabandt <cb@256bit.org>
parents:
9159
diff
changeset
|
68 # define PERLIO_FUNCS_CAST(funcs) (funcs) |
|
20e7b99c33d4
commit https://github.com/vim/vim/commit/cf190c6f017563de1bdbf854b3376522b8b2748f
Christian Brabandt <cb@256bit.org>
parents:
9159
diff
changeset
|
69 # endif |
|
20e7b99c33d4
commit https://github.com/vim/vim/commit/cf190c6f017563de1bdbf854b3376522b8b2748f
Christian Brabandt <cb@256bit.org>
parents:
9159
diff
changeset
|
70 #endif |
|
9177
ee0564e3257d
commit https://github.com/vim/vim/commit/c4bc0e6542185b659d2a165b635f9561549071ea
Christian Brabandt <cb@256bit.org>
parents:
9171
diff
changeset
|
71 #ifndef SvREFCNT_inc_void_NN |
|
ee0564e3257d
commit https://github.com/vim/vim/commit/c4bc0e6542185b659d2a165b635f9561549071ea
Christian Brabandt <cb@256bit.org>
parents:
9171
diff
changeset
|
72 # define SvREFCNT_inc_void_NN SvREFCNT_inc |
|
ee0564e3257d
commit https://github.com/vim/vim/commit/c4bc0e6542185b659d2a165b635f9561549071ea
Christian Brabandt <cb@256bit.org>
parents:
9171
diff
changeset
|
73 #endif |
|
9171
20e7b99c33d4
commit https://github.com/vim/vim/commit/cf190c6f017563de1bdbf854b3376522b8b2748f
Christian Brabandt <cb@256bit.org>
parents:
9159
diff
changeset
|
74 |
| 7 | 75 /* |
| 76 * Work around clashes between Perl and Vim namespace. proto.h doesn't | |
| 77 * include if_perl.pro and perlsfio.pro when IN_PERL_FILE is defined, because | |
| 78 * we need the CV typedef. proto.h can't be moved to after including | |
| 79 * if_perl.h, because we get all sorts of name clashes then. | |
| 80 */ | |
| 81 #ifndef PROTO | |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
82 # ifndef __MINGW32__ |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
83 # include "proto/if_perl.pro" |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
84 # include "proto/if_perlsfio.pro" |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
85 # endif |
| 7 | 86 #endif |
| 87 | |
|
14816
d823dfb273c6
patch 8.1.0420: generating vim.lib when using ActivePerl 5.20.3 or later
Christian Brabandt <cb@256bit.org>
parents:
14441
diff
changeset
|
88 // Perl compatibility stuff. This should ensure compatibility with older |
|
d823dfb273c6
patch 8.1.0420: generating vim.lib when using ActivePerl 5.20.3 or later
Christian Brabandt <cb@256bit.org>
parents:
14441
diff
changeset
|
89 // versions of Perl. |
| 7 | 90 #ifndef PERL_VERSION |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
91 # include <patchlevel.h> |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
92 # define PERL_REVISION 5 |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
93 # define PERL_VERSION PATCHLEVEL |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
94 # define PERL_SUBVERSION SUBVERSION |
| 7 | 95 #endif |
| 96 | |
|
14816
d823dfb273c6
patch 8.1.0420: generating vim.lib when using ActivePerl 5.20.3 or later
Christian Brabandt <cb@256bit.org>
parents:
14441
diff
changeset
|
97 |
|
d823dfb273c6
patch 8.1.0420: generating vim.lib when using ActivePerl 5.20.3 or later
Christian Brabandt <cb@256bit.org>
parents:
14441
diff
changeset
|
98 // Work around for ActivePerl 5.20.3+: Avoid generating (g)vim.lib. |
|
d823dfb273c6
patch 8.1.0420: generating vim.lib when using ActivePerl 5.20.3 or later
Christian Brabandt <cb@256bit.org>
parents:
14441
diff
changeset
|
99 #if defined(ACTIVEPERL_VERSION) && (ACTIVEPERL_VERSION >= 2003) \ |
|
15868
7fad90423bd2
patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15748
diff
changeset
|
100 && defined(MSWIN) && defined(USE_DYNAMIC_LOADING) |
|
14816
d823dfb273c6
patch 8.1.0420: generating vim.lib when using ActivePerl 5.20.3 or later
Christian Brabandt <cb@256bit.org>
parents:
14441
diff
changeset
|
101 # undef XS_EXTERNAL |
|
d823dfb273c6
patch 8.1.0420: generating vim.lib when using ActivePerl 5.20.3 or later
Christian Brabandt <cb@256bit.org>
parents:
14441
diff
changeset
|
102 # define XS_EXTERNAL(name) XSPROTO(name) |
|
d823dfb273c6
patch 8.1.0420: generating vim.lib when using ActivePerl 5.20.3 or later
Christian Brabandt <cb@256bit.org>
parents:
14441
diff
changeset
|
103 #endif |
|
d823dfb273c6
patch 8.1.0420: generating vim.lib when using ActivePerl 5.20.3 or later
Christian Brabandt <cb@256bit.org>
parents:
14441
diff
changeset
|
104 |
| 1387 | 105 /* |
| 106 * Quoting Jan Dubois of Active State: | |
| 107 * ActivePerl build 822 still identifies itself as 5.8.8 but already | |
| 108 * contains many of the changes from the upcoming Perl 5.8.9 release. | |
| 109 * | |
| 110 * The changes include addition of two symbols (Perl_sv_2iv_flags, | |
| 111 * Perl_newXS_flags) not present in earlier releases. | |
| 112 * | |
| 1395 | 113 * Jan Dubois suggested the following guarding scheme. |
| 114 * | |
| 115 * Active State defined ACTIVEPERL_VERSION as a string in versions before | |
| 116 * 5.8.8; and so the comparison to 822 below needs to be guarded. | |
| 1387 | 117 */ |
| 1395 | 118 #if (PERL_REVISION == 5) && (PERL_VERSION == 8) && (PERL_SUBVERSION >= 8) |
| 119 # if (ACTIVEPERL_VERSION >= 822) || (PERL_SUBVERSION >= 9) | |
| 120 # define PERL589_OR_LATER | |
| 121 # endif | |
| 1387 | 122 #endif |
| 123 #if (PERL_REVISION == 5) && (PERL_VERSION >= 9) | |
| 124 # define PERL589_OR_LATER | |
| 125 #endif | |
| 126 | |
|
2096
6510d834609f
updated for version 7.2.380
Bram Moolenaar <bram@zimbu.org>
parents:
2079
diff
changeset
|
127 #if (PERL_REVISION == 5) && ((PERL_VERSION > 10) || \ |
|
6510d834609f
updated for version 7.2.380
Bram Moolenaar <bram@zimbu.org>
parents:
2079
diff
changeset
|
128 (PERL_VERSION == 10) && (PERL_SUBVERSION >= 1)) |
|
6510d834609f
updated for version 7.2.380
Bram Moolenaar <bram@zimbu.org>
parents:
2079
diff
changeset
|
129 # define PERL5101_OR_LATER |
|
6510d834609f
updated for version 7.2.380
Bram Moolenaar <bram@zimbu.org>
parents:
2079
diff
changeset
|
130 #endif |
|
6510d834609f
updated for version 7.2.380
Bram Moolenaar <bram@zimbu.org>
parents:
2079
diff
changeset
|
131 |
| 7 | 132 #ifndef pTHX |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
133 # define pTHX void |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
134 # define pTHX_ |
| 7 | 135 #endif |
| 136 | |
| 137 #ifndef EXTERN_C | |
| 138 # define EXTERN_C | |
| 139 #endif | |
| 140 | |
|
30990
830f51eeca95
patch 9.0.0830: compiling with Perl on Mac 12 fails
Bram Moolenaar <Bram@vim.org>
parents:
30598
diff
changeset
|
141 // Suppress Infinite warnings when compiling XS modules under macOS 12 Monterey. |
|
830f51eeca95
patch 9.0.0830: compiling with Perl on Mac 12 fails
Bram Moolenaar <Bram@vim.org>
parents:
30598
diff
changeset
|
142 #if defined(__clang__) && defined(__clang_major__) && __clang_major__ > 11 |
|
31091
551ce1a137da
patch 9.0.0880: preprocessor indenting is off
Bram Moolenaar <Bram@vim.org>
parents:
30990
diff
changeset
|
143 # pragma clang diagnostic ignored "-Wcompound-token-split-by-macro" |
|
30990
830f51eeca95
patch 9.0.0830: compiling with Perl on Mac 12 fails
Bram Moolenaar <Bram@vim.org>
parents:
30598
diff
changeset
|
144 #endif |
|
830f51eeca95
patch 9.0.0830: compiling with Perl on Mac 12 fails
Bram Moolenaar <Bram@vim.org>
parents:
30598
diff
changeset
|
145 |
| 7 | 146 /* Compatibility hacks over */ |
| 147 | |
| 148 static PerlInterpreter *perl_interp = NULL; | |
|
7807
1a5d34492798
commit https://github.com/vim/vim/commit/d99df423c559d85c17779b3685426c489554908c
Christian Brabandt <cb@256bit.org>
parents:
7651
diff
changeset
|
149 static void xs_init(pTHX); |
|
1a5d34492798
commit https://github.com/vim/vim/commit/d99df423c559d85c17779b3685426c489554908c
Christian Brabandt <cb@256bit.org>
parents:
7651
diff
changeset
|
150 static void VIM_init(void); |
|
1a5d34492798
commit https://github.com/vim/vim/commit/d99df423c559d85c17779b3685426c489554908c
Christian Brabandt <cb@256bit.org>
parents:
7651
diff
changeset
|
151 EXTERN_C void boot_DynaLoader(pTHX_ CV*); |
| 7 | 152 |
| 153 /* | |
|
2370
454f314d0e61
Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents:
2255
diff
changeset
|
154 * For dynamic linked perl. |
| 7 | 155 */ |
| 156 #if defined(DYNAMIC_PERL) || defined(PROTO) | |
|
2370
454f314d0e61
Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents:
2255
diff
changeset
|
157 |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
158 # ifndef DYNAMIC_PERL /* just generating prototypes */ |
|
15868
7fad90423bd2
patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15748
diff
changeset
|
159 # ifdef MSWIN |
|
2370
454f314d0e61
Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents:
2255
diff
changeset
|
160 typedef int HANDLE; |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
161 # endif |
|
2370
454f314d0e61
Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents:
2255
diff
changeset
|
162 typedef int XSINIT_t; |
|
454f314d0e61
Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents:
2255
diff
changeset
|
163 typedef int XSUBADDR_t; |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
164 # endif |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
165 # ifndef USE_ITHREADS |
|
2370
454f314d0e61
Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents:
2255
diff
changeset
|
166 typedef int perl_key; |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
167 # endif |
|
2370
454f314d0e61
Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents:
2255
diff
changeset
|
168 |
|
15868
7fad90423bd2
patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15748
diff
changeset
|
169 # ifndef MSWIN |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
170 # include <dlfcn.h> |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
171 # define HANDLE void* |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
172 # define PERL_PROC void* |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
173 # define load_dll(n) dlopen((n), RTLD_LAZY|RTLD_GLOBAL) |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
174 # define symbol_from_dll dlsym |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
175 # define close_dll dlclose |
|
25342
c4298ed56ffa
patch 8.2.3208: dynamic library load error does not mention why it failed
Bram Moolenaar <Bram@vim.org>
parents:
24705
diff
changeset
|
176 # define load_dll_error dlerror |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
177 # else |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
178 # define PERL_PROC FARPROC |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
179 # define load_dll vimLoadLib |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
180 # define symbol_from_dll GetProcAddress |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
181 # define close_dll FreeLibrary |
|
25342
c4298ed56ffa
patch 8.2.3208: dynamic library load error does not mention why it failed
Bram Moolenaar <Bram@vim.org>
parents:
24705
diff
changeset
|
182 # define load_dll_error GetWin32Error |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
183 # endif |
| 7 | 184 /* |
| 185 * Wrapper defines | |
| 186 */ | |
| 187 # define perl_alloc dll_perl_alloc | |
| 188 # define perl_construct dll_perl_construct | |
| 189 # define perl_parse dll_perl_parse | |
| 190 # define perl_run dll_perl_run | |
| 191 # define perl_destruct dll_perl_destruct | |
| 192 # define perl_free dll_perl_free | |
|
33060
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
193 # if defined(WIN32) || ((PERL_REVISION == 5) && (PERL_VERSION < 38)) |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
194 # define Perl_get_context dll_Perl_get_context |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
195 # endif |
| 7 | 196 # define Perl_croak dll_Perl_croak |
|
2096
6510d834609f
updated for version 7.2.380
Bram Moolenaar <bram@zimbu.org>
parents:
2079
diff
changeset
|
197 # ifdef PERL5101_OR_LATER |
|
2079
5abd3e3c0085
updated for version 7.2.363
Bram Moolenaar <bram@zimbu.org>
parents:
1990
diff
changeset
|
198 # define Perl_croak_xs_usage dll_Perl_croak_xs_usage |
|
5abd3e3c0085
updated for version 7.2.363
Bram Moolenaar <bram@zimbu.org>
parents:
1990
diff
changeset
|
199 # endif |
| 7 | 200 # ifndef PROTO |
|
19971
a042d2a3b13d
patch 8.2.0541: Travis CI does not give compiler warnings
Bram Moolenaar <Bram@vim.org>
parents:
19846
diff
changeset
|
201 # ifdef PERL_IMPLICIT_CONTEXT |
|
a042d2a3b13d
patch 8.2.0541: Travis CI does not give compiler warnings
Bram Moolenaar <Bram@vim.org>
parents:
19846
diff
changeset
|
202 # define Perl_croak_nocontext dll_Perl_croak_nocontext |
|
a042d2a3b13d
patch 8.2.0541: Travis CI does not give compiler warnings
Bram Moolenaar <Bram@vim.org>
parents:
19846
diff
changeset
|
203 # endif |
| 7 | 204 # define Perl_call_argv dll_Perl_call_argv |
| 205 # define Perl_call_pv dll_Perl_call_pv | |
| 206 # define Perl_eval_sv dll_Perl_eval_sv | |
| 207 # define Perl_get_sv dll_Perl_get_sv | |
| 208 # define Perl_eval_pv dll_Perl_eval_pv | |
| 209 # define Perl_call_method dll_Perl_call_method | |
| 210 # endif | |
| 211 # define Perl_dowantarray dll_Perl_dowantarray | |
| 212 # define Perl_free_tmps dll_Perl_free_tmps | |
| 213 # define Perl_gv_stashpv dll_Perl_gv_stashpv | |
| 214 # define Perl_markstack_grow dll_Perl_markstack_grow | |
| 215 # define Perl_mg_find dll_Perl_mg_find | |
|
14377
378eefcbbb12
patch 8.1.0203: building with Perl 5.28 fails on Windows
Christian Brabandt <cb@256bit.org>
parents:
14350
diff
changeset
|
216 # if (PERL_REVISION == 5) && (PERL_VERSION >= 28) |
|
378eefcbbb12
patch 8.1.0203: building with Perl 5.28 fails on Windows
Christian Brabandt <cb@256bit.org>
parents:
14350
diff
changeset
|
217 # define Perl_mg_get dll_Perl_mg_get |
|
378eefcbbb12
patch 8.1.0203: building with Perl 5.28 fails on Windows
Christian Brabandt <cb@256bit.org>
parents:
14350
diff
changeset
|
218 # endif |
| 7 | 219 # define Perl_newXS dll_Perl_newXS |
| 220 # define Perl_newSV dll_Perl_newSV | |
| 221 # define Perl_newSViv dll_Perl_newSViv | |
| 222 # define Perl_newSVpv dll_Perl_newSVpv | |
| 223 # define Perl_pop_scope dll_Perl_pop_scope | |
| 224 # define Perl_push_scope dll_Perl_push_scope | |
| 225 # define Perl_save_int dll_Perl_save_int | |
| 5960 | 226 # if (PERL_REVISION == 5) && (PERL_VERSION >= 20) |
| 227 # define Perl_save_strlen dll_Perl_save_strlen | |
| 228 # endif | |
| 7 | 229 # define Perl_stack_grow dll_Perl_stack_grow |
| 230 # define Perl_set_context dll_Perl_set_context | |
| 3050 | 231 # if (PERL_REVISION == 5) && (PERL_VERSION >= 14) |
| 6872 | 232 # define Perl_sv_2bool_flags dll_Perl_sv_2bool_flags |
| 233 # if (PERL_REVISION == 5) && (PERL_VERSION < 22) | |
| 234 # define Perl_xs_apiversion_bootcheck dll_Perl_xs_apiversion_bootcheck | |
| 235 # endif | |
| 3050 | 236 # else |
| 6872 | 237 # define Perl_sv_2bool dll_Perl_sv_2bool |
| 3050 | 238 # endif |
| 7 | 239 # define Perl_sv_2iv dll_Perl_sv_2iv |
| 240 # define Perl_sv_2mortal dll_Perl_sv_2mortal | |
| 241 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8) | |
| 242 # define Perl_sv_2pv_flags dll_Perl_sv_2pv_flags | |
| 243 # define Perl_sv_2pv_nolen dll_Perl_sv_2pv_nolen | |
| 244 # else | |
| 245 # define Perl_sv_2pv dll_Perl_sv_2pv | |
| 246 # endif | |
|
22212
36af5cb8413c
patch 8.2.1655: cannot build with Strawberry Perl 5.32.0
Bram Moolenaar <Bram@vim.org>
parents:
20996
diff
changeset
|
247 # if (PERL_REVISION == 5) && (PERL_VERSION >= 32) |
|
36af5cb8413c
patch 8.2.1655: cannot build with Strawberry Perl 5.32.0
Bram Moolenaar <Bram@vim.org>
parents:
20996
diff
changeset
|
248 # define Perl_sv_2pvbyte_flags dll_Perl_sv_2pvbyte_flags |
|
36af5cb8413c
patch 8.2.1655: cannot build with Strawberry Perl 5.32.0
Bram Moolenaar <Bram@vim.org>
parents:
20996
diff
changeset
|
249 # endif |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
14816
diff
changeset
|
250 # define Perl_sv_2pvbyte dll_Perl_sv_2pvbyte |
| 7 | 251 # define Perl_sv_bless dll_Perl_sv_bless |
| 252 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8) | |
| 253 # define Perl_sv_catpvn_flags dll_Perl_sv_catpvn_flags | |
| 254 # else | |
| 255 # define Perl_sv_catpvn dll_Perl_sv_catpvn | |
| 256 # endif | |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
257 # ifdef PERL589_OR_LATER |
| 1387 | 258 # define Perl_sv_2iv_flags dll_Perl_sv_2iv_flags |
| 259 # define Perl_newXS_flags dll_Perl_newXS_flags | |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
260 # endif |
| 7 | 261 # define Perl_sv_free dll_Perl_sv_free |
| 1711 | 262 # if (PERL_REVISION == 5) && (PERL_VERSION >= 10) |
| 263 # define Perl_sv_free2 dll_Perl_sv_free2 | |
| 264 # endif | |
| 7 | 265 # define Perl_sv_isa dll_Perl_sv_isa |
| 266 # define Perl_sv_magic dll_Perl_sv_magic | |
| 267 # define Perl_sv_setiv dll_Perl_sv_setiv | |
| 268 # define Perl_sv_setpv dll_Perl_sv_setpv | |
| 269 # define Perl_sv_setpvn dll_Perl_sv_setpvn | |
| 270 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8) | |
| 271 # define Perl_sv_setsv_flags dll_Perl_sv_setsv_flags | |
| 272 # else | |
| 273 # define Perl_sv_setsv dll_Perl_sv_setsv | |
| 274 # endif | |
| 275 # define Perl_sv_upgrade dll_Perl_sv_upgrade | |
| 276 # define Perl_Tstack_sp_ptr dll_Perl_Tstack_sp_ptr | |
| 277 # define Perl_Top_ptr dll_Perl_Top_ptr | |
| 278 # define Perl_Tstack_base_ptr dll_Perl_Tstack_base_ptr | |
| 279 # define Perl_Tstack_max_ptr dll_Perl_Tstack_max_ptr | |
| 280 # define Perl_Ttmps_ix_ptr dll_Perl_Ttmps_ix_ptr | |
| 281 # define Perl_Ttmps_floor_ptr dll_Perl_Ttmps_floor_ptr | |
| 282 # define Perl_Tmarkstack_ptr_ptr dll_Perl_Tmarkstack_ptr_ptr | |
| 283 # define Perl_Tmarkstack_max_ptr dll_Perl_Tmarkstack_max_ptr | |
| 284 # define Perl_TSv_ptr dll_Perl_TSv_ptr | |
| 285 # define Perl_TXpv_ptr dll_Perl_TXpv_ptr | |
| 286 # define Perl_Tna_ptr dll_Perl_Tna_ptr | |
| 287 # define Perl_Idefgv_ptr dll_Perl_Idefgv_ptr | |
| 288 # define Perl_Ierrgv_ptr dll_Perl_Ierrgv_ptr | |
| 289 # define Perl_Isv_yes_ptr dll_Perl_Isv_yes_ptr | |
| 290 # define boot_DynaLoader dll_boot_DynaLoader | |
|
2370
454f314d0e61
Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents:
2255
diff
changeset
|
291 # define Perl_Gthr_key_ptr dll_Perl_Gthr_key_ptr |
| 7 | 292 |
| 1765 | 293 # define Perl_sys_init dll_Perl_sys_init |
| 1668 | 294 # define Perl_sys_term dll_Perl_sys_term |
| 295 # define Perl_ISv_ptr dll_Perl_ISv_ptr | |
| 296 # define Perl_Istack_max_ptr dll_Perl_Istack_max_ptr | |
| 297 # define Perl_Istack_base_ptr dll_Perl_Istack_base_ptr | |
| 298 # define Perl_Itmps_ix_ptr dll_Perl_Itmps_ix_ptr | |
| 299 # define Perl_Itmps_floor_ptr dll_Perl_Itmps_floor_ptr | |
| 300 # define Perl_IXpv_ptr dll_Perl_IXpv_ptr | |
| 301 # define Perl_Ina_ptr dll_Perl_Ina_ptr | |
| 302 # define Perl_Imarkstack_ptr_ptr dll_Perl_Imarkstack_ptr_ptr | |
| 303 # define Perl_Imarkstack_max_ptr dll_Perl_Imarkstack_max_ptr | |
| 304 # define Perl_Istack_sp_ptr dll_Perl_Istack_sp_ptr | |
| 305 # define Perl_Iop_ptr dll_Perl_Iop_ptr | |
| 306 # define Perl_call_list dll_Perl_call_list | |
| 307 # define Perl_Iscopestack_ix_ptr dll_Perl_Iscopestack_ix_ptr | |
| 308 # define Perl_Iunitcheckav_ptr dll_Perl_Iunitcheckav_ptr | |
| 6872 | 309 # if (PERL_REVISION == 5) && (PERL_VERSION >= 22) |
| 310 # define Perl_xs_handshake dll_Perl_xs_handshake | |
| 311 # define Perl_xs_boot_epilog dll_Perl_xs_boot_epilog | |
| 312 # endif | |
| 3820 | 313 # if (PERL_REVISION == 5) && (PERL_VERSION >= 14) |
| 5706 | 314 # ifdef USE_ITHREADS |
| 315 # define PL_thr_key *dll_PL_thr_key | |
| 316 # endif | |
| 3820 | 317 # endif |
|
33101
8cbdd2cbf10a
patch 9.0.1835: Perl interface has problems with load PL_current_context
Christian Brabandt <cb@256bit.org>
parents:
33060
diff
changeset
|
318 # ifdef PERL_USE_THREAD_LOCAL |
|
8cbdd2cbf10a
patch 9.0.1835: Perl interface has problems with load PL_current_context
Christian Brabandt <cb@256bit.org>
parents:
33060
diff
changeset
|
319 # define PL_current_context *dll_PL_current_context |
|
8cbdd2cbf10a
patch 9.0.1835: Perl interface has problems with load PL_current_context
Christian Brabandt <cb@256bit.org>
parents:
33060
diff
changeset
|
320 # endif |
|
7651
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
321 # define Perl_hv_iternext_flags dll_Perl_hv_iternext_flags |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
322 # define Perl_hv_iterinit dll_Perl_hv_iterinit |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
323 # define Perl_hv_iterkey dll_Perl_hv_iterkey |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
324 # define Perl_hv_iterval dll_Perl_hv_iterval |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
325 # define Perl_av_fetch dll_Perl_av_fetch |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
326 # define Perl_av_len dll_Perl_av_len |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
327 # define Perl_sv_2nv_flags dll_Perl_sv_2nv_flags |
|
8885
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
328 # if defined(PERLIO_LAYERS) && !defined(USE_SFIO) |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
329 # define PerlIOBase_pushed dll_PerlIOBase_pushed |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
330 # define PerlIO_define_layer dll_PerlIO_define_layer |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
331 # endif |
|
9129
95fd0de7a8f1
commit https://github.com/vim/vim/commit/6727bf861776cfbb93c97dfea5f87a095cf9f364
Christian Brabandt <cb@256bit.org>
parents:
8919
diff
changeset
|
332 # if (PERL_REVISION == 5) && (PERL_VERSION >= 24) |
|
95fd0de7a8f1
commit https://github.com/vim/vim/commit/6727bf861776cfbb93c97dfea5f87a095cf9f364
Christian Brabandt <cb@256bit.org>
parents:
8919
diff
changeset
|
333 # define Perl_savetmps dll_Perl_savetmps |
|
95fd0de7a8f1
commit https://github.com/vim/vim/commit/6727bf861776cfbb93c97dfea5f87a095cf9f364
Christian Brabandt <cb@256bit.org>
parents:
8919
diff
changeset
|
334 # endif |
| 1668 | 335 |
| 7 | 336 /* |
| 337 * Declare HANDLE for perl.dll and function pointers. | |
| 338 */ | |
| 339 static HANDLE hPerlLib = NULL; | |
| 340 | |
| 341 static PerlInterpreter* (*perl_alloc)(); | |
| 342 static void (*perl_construct)(PerlInterpreter*); | |
| 343 static void (*perl_destruct)(PerlInterpreter*); | |
| 344 static void (*perl_free)(PerlInterpreter*); | |
| 345 static int (*perl_run)(PerlInterpreter*); | |
| 346 static int (*perl_parse)(PerlInterpreter*, XSINIT_t, int, char**, char**); | |
|
33060
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
347 # if defined(WIN32) || ((PERL_REVISION == 5) && (PERL_VERSION < 38)) |
| 7 | 348 static void* (*Perl_get_context)(void); |
|
33060
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
349 # endif |
|
8810
83d0b976d9b3
commit https://github.com/vim/vim/commit/864733ad92e30cd603314604af73f25106db4c90
Christian Brabandt <cb@256bit.org>
parents:
8214
diff
changeset
|
350 static void (*Perl_croak)(pTHX_ const char*, ...) __attribute__noreturn__; |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
351 # ifdef PERL5101_OR_LATER |
| 5537 | 352 /* Perl-5.18 has a different Perl_croak_xs_usage signature. */ |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
353 # if (PERL_REVISION == 5) && (PERL_VERSION >= 18) |
|
8810
83d0b976d9b3
commit https://github.com/vim/vim/commit/864733ad92e30cd603314604af73f25106db4c90
Christian Brabandt <cb@256bit.org>
parents:
8214
diff
changeset
|
354 static void (*Perl_croak_xs_usage)(const CV *const, const char *const params) |
|
83d0b976d9b3
commit https://github.com/vim/vim/commit/864733ad92e30cd603314604af73f25106db4c90
Christian Brabandt <cb@256bit.org>
parents:
8214
diff
changeset
|
355 __attribute__noreturn__; |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
356 # else |
|
8810
83d0b976d9b3
commit https://github.com/vim/vim/commit/864733ad92e30cd603314604af73f25106db4c90
Christian Brabandt <cb@256bit.org>
parents:
8214
diff
changeset
|
357 static void (*Perl_croak_xs_usage)(pTHX_ const CV *const, const char *const params) |
|
83d0b976d9b3
commit https://github.com/vim/vim/commit/864733ad92e30cd603314604af73f25106db4c90
Christian Brabandt <cb@256bit.org>
parents:
8214
diff
changeset
|
358 __attribute__noreturn__; |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
359 # endif |
| 5537 | 360 # endif |
|
19971
a042d2a3b13d
patch 8.2.0541: Travis CI does not give compiler warnings
Bram Moolenaar <Bram@vim.org>
parents:
19846
diff
changeset
|
361 # ifdef PERL_IMPLICIT_CONTEXT |
|
8810
83d0b976d9b3
commit https://github.com/vim/vim/commit/864733ad92e30cd603314604af73f25106db4c90
Christian Brabandt <cb@256bit.org>
parents:
8214
diff
changeset
|
362 static void (*Perl_croak_nocontext)(const char*, ...) __attribute__noreturn__; |
|
19971
a042d2a3b13d
patch 8.2.0541: Travis CI does not give compiler warnings
Bram Moolenaar <Bram@vim.org>
parents:
19846
diff
changeset
|
363 # endif |
| 7 | 364 static I32 (*Perl_dowantarray)(pTHX); |
| 365 static void (*Perl_free_tmps)(pTHX); | |
| 366 static HV* (*Perl_gv_stashpv)(pTHX_ const char*, I32); | |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
367 # if (PERL_REVISION == 5) && (PERL_VERSION >= 22) |
| 6872 | 368 static I32* (*Perl_markstack_grow)(pTHX); |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
369 # else |
| 7 | 370 static void (*Perl_markstack_grow)(pTHX); |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
371 # endif |
| 7 | 372 static MAGIC* (*Perl_mg_find)(pTHX_ SV*, int); |
|
14377
378eefcbbb12
patch 8.1.0203: building with Perl 5.28 fails on Windows
Christian Brabandt <cb@256bit.org>
parents:
14350
diff
changeset
|
373 # if (PERL_REVISION == 5) && (PERL_VERSION >= 28) |
|
378eefcbbb12
patch 8.1.0203: building with Perl 5.28 fails on Windows
Christian Brabandt <cb@256bit.org>
parents:
14350
diff
changeset
|
374 static int (*Perl_mg_get)(pTHX_ SV*); |
|
378eefcbbb12
patch 8.1.0203: building with Perl 5.28 fails on Windows
Christian Brabandt <cb@256bit.org>
parents:
14350
diff
changeset
|
375 # endif |
| 7 | 376 static CV* (*Perl_newXS)(pTHX_ char*, XSUBADDR_t, char*); |
| 377 static SV* (*Perl_newSV)(pTHX_ STRLEN); | |
| 378 static SV* (*Perl_newSViv)(pTHX_ IV); | |
| 379 static SV* (*Perl_newSVpv)(pTHX_ const char*, STRLEN); | |
| 380 static I32 (*Perl_call_argv)(pTHX_ const char*, I32, char**); | |
| 381 static I32 (*Perl_call_pv)(pTHX_ const char*, I32); | |
| 382 static I32 (*Perl_eval_sv)(pTHX_ SV*, I32); | |
| 383 static SV* (*Perl_get_sv)(pTHX_ const char*, I32); | |
| 384 static SV* (*Perl_eval_pv)(pTHX_ const char*, I32); | |
| 385 static SV* (*Perl_call_method)(pTHX_ const char*, I32); | |
| 386 static void (*Perl_pop_scope)(pTHX); | |
| 387 static void (*Perl_push_scope)(pTHX); | |
| 388 static void (*Perl_save_int)(pTHX_ int*); | |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
389 # if (PERL_REVISION == 5) && (PERL_VERSION >= 20) |
| 5960 | 390 static void (*Perl_save_strlen)(pTHX_ STRLEN* ptr); |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
391 # endif |
| 7 | 392 static SV** (*Perl_stack_grow)(pTHX_ SV**, SV**p, int); |
| 393 static SV** (*Perl_set_context)(void*); | |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
394 # if (PERL_REVISION == 5) && (PERL_VERSION >= 14) |
| 3050 | 395 static bool (*Perl_sv_2bool_flags)(pTHX_ SV*, I32); |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
396 # if (PERL_REVISION == 5) && (PERL_VERSION < 22) |
| 3050 | 397 static void (*Perl_xs_apiversion_bootcheck)(pTHX_ SV *module, const char *api_p, STRLEN api_len); |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
398 # endif |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
399 # else |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
400 static bool (*Perl_sv_2bool)(pTHX_ SV*); |
| 6872 | 401 # endif |
| 7 | 402 static IV (*Perl_sv_2iv)(pTHX_ SV*); |
| 403 static SV* (*Perl_sv_2mortal)(pTHX_ SV*); | |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
404 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8) |
|
32714
d83068c95ba0
patch 9.0.1681: Build Failure with Perl 5.38
Christian Brabandt <cb@256bit.org>
parents:
31263
diff
changeset
|
405 static char* (*Perl_sv_2pv_flags)(pTHX_ SV*, STRLEN* const, const U32); |
| 7 | 406 static char* (*Perl_sv_2pv_nolen)(pTHX_ SV*); |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
407 # else |
| 7 | 408 static char* (*Perl_sv_2pv)(pTHX_ SV*, STRLEN*); |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
409 # endif |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
14816
diff
changeset
|
410 static char* (*Perl_sv_2pvbyte)(pTHX_ SV*, STRLEN*); |
|
22212
36af5cb8413c
patch 8.2.1655: cannot build with Strawberry Perl 5.32.0
Bram Moolenaar <Bram@vim.org>
parents:
20996
diff
changeset
|
411 # if (PERL_REVISION == 5) && (PERL_VERSION >= 32) |
|
32714
d83068c95ba0
patch 9.0.1681: Build Failure with Perl 5.38
Christian Brabandt <cb@256bit.org>
parents:
31263
diff
changeset
|
412 static char* (*Perl_sv_2pvbyte_flags)(pTHX_ SV*, STRLEN* const, const U32); |
|
22212
36af5cb8413c
patch 8.2.1655: cannot build with Strawberry Perl 5.32.0
Bram Moolenaar <Bram@vim.org>
parents:
20996
diff
changeset
|
413 # endif |
| 7 | 414 static SV* (*Perl_sv_bless)(pTHX_ SV*, HV*); |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
415 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8) |
| 7 | 416 static void (*Perl_sv_catpvn_flags)(pTHX_ SV* , const char*, STRLEN, I32); |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
417 # else |
| 7 | 418 static void (*Perl_sv_catpvn)(pTHX_ SV*, const char*, STRLEN); |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
419 # endif |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
420 # ifdef PERL589_OR_LATER |
| 1387 | 421 static IV (*Perl_sv_2iv_flags)(pTHX_ SV* sv, I32 flags); |
| 422 static CV * (*Perl_newXS_flags)(pTHX_ const char *name, XSUBADDR_t subaddr, const char *const filename, const char *const proto, U32 flags); | |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
423 # endif |
| 7 | 424 static void (*Perl_sv_free)(pTHX_ SV*); |
| 425 static int (*Perl_sv_isa)(pTHX_ SV*, const char*); | |
| 426 static void (*Perl_sv_magic)(pTHX_ SV*, SV*, int, const char*, I32); | |
| 427 static void (*Perl_sv_setiv)(pTHX_ SV*, IV); | |
| 428 static void (*Perl_sv_setpv)(pTHX_ SV*, const char*); | |
| 429 static void (*Perl_sv_setpvn)(pTHX_ SV*, const char*, STRLEN); | |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
430 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8) |
| 7 | 431 static void (*Perl_sv_setsv_flags)(pTHX_ SV*, SV*, I32); |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
432 # else |
| 7 | 433 static void (*Perl_sv_setsv)(pTHX_ SV*, SV*); |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
434 # endif |
| 7 | 435 static bool (*Perl_sv_upgrade)(pTHX_ SV*, U32); |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
436 # if (PERL_REVISION == 5) && (PERL_VERSION < 10) |
| 7 | 437 static SV*** (*Perl_Tstack_sp_ptr)(register PerlInterpreter*); |
| 438 static OP** (*Perl_Top_ptr)(register PerlInterpreter*); | |
| 439 static SV*** (*Perl_Tstack_base_ptr)(register PerlInterpreter*); | |
| 440 static SV*** (*Perl_Tstack_max_ptr)(register PerlInterpreter*); | |
| 441 static I32* (*Perl_Ttmps_ix_ptr)(register PerlInterpreter*); | |
| 442 static I32* (*Perl_Ttmps_floor_ptr)(register PerlInterpreter*); | |
| 443 static I32** (*Perl_Tmarkstack_ptr_ptr)(register PerlInterpreter*); | |
| 444 static I32** (*Perl_Tmarkstack_max_ptr)(register PerlInterpreter*); | |
| 445 static SV** (*Perl_TSv_ptr)(register PerlInterpreter*); | |
| 446 static XPV** (*Perl_TXpv_ptr)(register PerlInterpreter*); | |
| 447 static STRLEN* (*Perl_Tna_ptr)(register PerlInterpreter*); | |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
448 # else |
| 5537 | 449 /* Perl-5.18 has a different Perl_sv_free2 signature. */ |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
450 # if (PERL_REVISION == 5) && (PERL_VERSION >= 18) |
| 5537 | 451 static void (*Perl_sv_free2)(pTHX_ SV*, const U32); |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
452 # else |
| 1711 | 453 static void (*Perl_sv_free2)(pTHX_ SV*); |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
454 # endif |
| 1765 | 455 static void (*Perl_sys_init)(int* argc, char*** argv); |
| 1668 | 456 static void (*Perl_sys_term)(void); |
| 3818 | 457 static void (*Perl_call_list)(pTHX_ I32, AV*); |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
458 # if (PERL_REVISION == 5) && (PERL_VERSION >= 14) |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
459 # else |
| 1668 | 460 static SV** (*Perl_ISv_ptr)(register PerlInterpreter*); |
| 461 static SV*** (*Perl_Istack_max_ptr)(register PerlInterpreter*); | |
| 462 static SV*** (*Perl_Istack_base_ptr)(register PerlInterpreter*); | |
| 463 static XPV** (*Perl_IXpv_ptr)(register PerlInterpreter*); | |
| 464 static I32* (*Perl_Itmps_ix_ptr)(register PerlInterpreter*); | |
| 465 static I32* (*Perl_Itmps_floor_ptr)(register PerlInterpreter*); | |
| 466 static STRLEN* (*Perl_Ina_ptr)(register PerlInterpreter*); | |
| 467 static I32** (*Perl_Imarkstack_ptr_ptr)(register PerlInterpreter*); | |
| 468 static I32** (*Perl_Imarkstack_max_ptr)(register PerlInterpreter*); | |
| 469 static SV*** (*Perl_Istack_sp_ptr)(register PerlInterpreter*); | |
| 470 static OP** (*Perl_Iop_ptr)(register PerlInterpreter*); | |
| 471 static I32* (*Perl_Iscopestack_ix_ptr)(register PerlInterpreter*); | |
| 472 static AV** (*Perl_Iunitcheckav_ptr)(register PerlInterpreter*); | |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
473 # endif |
| 3818 | 474 # endif |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
475 # if (PERL_REVISION == 5) && (PERL_VERSION >= 22) |
| 6872 | 476 static I32 (*Perl_xs_handshake)(const U32, void *, const char *, ...); |
| 477 static void (*Perl_xs_boot_epilog)(pTHX_ const U32); | |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
478 # endif |
| 7 | 479 |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
480 # if (PERL_REVISION == 5) && (PERL_VERSION >= 14) |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
481 # ifdef USE_ITHREADS |
| 3820 | 482 static perl_key* dll_PL_thr_key; |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
483 # endif |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
484 # else |
|
2370
454f314d0e61
Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents:
2255
diff
changeset
|
485 static GV** (*Perl_Idefgv_ptr)(register PerlInterpreter*); |
|
454f314d0e61
Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents:
2255
diff
changeset
|
486 static GV** (*Perl_Ierrgv_ptr)(register PerlInterpreter*); |
|
454f314d0e61
Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents:
2255
diff
changeset
|
487 static SV* (*Perl_Isv_yes_ptr)(register PerlInterpreter*); |
| 3818 | 488 static perl_key* (*Perl_Gthr_key_ptr)_((pTHX)); |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
489 # endif |
|
33101
8cbdd2cbf10a
patch 9.0.1835: Perl interface has problems with load PL_current_context
Christian Brabandt <cb@256bit.org>
parents:
33060
diff
changeset
|
490 # ifdef PERL_USE_THREAD_LOCAL |
|
8cbdd2cbf10a
patch 9.0.1835: Perl interface has problems with load PL_current_context
Christian Brabandt <cb@256bit.org>
parents:
33060
diff
changeset
|
491 static void** dll_PL_current_context; |
|
8cbdd2cbf10a
patch 9.0.1835: Perl interface has problems with load PL_current_context
Christian Brabandt <cb@256bit.org>
parents:
33060
diff
changeset
|
492 # endif |
|
2370
454f314d0e61
Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents:
2255
diff
changeset
|
493 static void (*boot_DynaLoader)_((pTHX_ CV*)); |
|
7651
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
494 static HE * (*Perl_hv_iternext_flags)(pTHX_ HV *, I32); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
495 static I32 (*Perl_hv_iterinit)(pTHX_ HV *); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
496 static char * (*Perl_hv_iterkey)(pTHX_ HE *, I32 *); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
497 static SV * (*Perl_hv_iterval)(pTHX_ HV *, HE *); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
498 static SV** (*Perl_av_fetch)(pTHX_ AV *, SSize_t, I32); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
499 static SSize_t (*Perl_av_len)(pTHX_ AV *); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
500 static NV (*Perl_sv_2nv_flags)(pTHX_ SV *const, const I32); |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
501 # if defined(PERLIO_LAYERS) && !defined(USE_SFIO) |
|
8885
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
502 static IV (*PerlIOBase_pushed)(pTHX_ PerlIO *, const char *, SV *, PerlIO_funcs *); |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
503 static void (*PerlIO_define_layer)(pTHX_ PerlIO_funcs *); |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
504 # endif |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
505 # if (PERL_REVISION == 5) && (PERL_VERSION >= 24) |
|
9129
95fd0de7a8f1
commit https://github.com/vim/vim/commit/6727bf861776cfbb93c97dfea5f87a095cf9f364
Christian Brabandt <cb@256bit.org>
parents:
8919
diff
changeset
|
506 static void (*Perl_savetmps)(pTHX); |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
507 # endif |
|
2370
454f314d0e61
Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents:
2255
diff
changeset
|
508 |
| 7 | 509 /* |
| 510 * Table of name to function pointer of perl. | |
| 511 */ | |
| 512 static struct { | |
| 513 char* name; | |
| 514 PERL_PROC* ptr; | |
| 515 } perl_funcname_table[] = { | |
| 516 {"perl_alloc", (PERL_PROC*)&perl_alloc}, | |
| 517 {"perl_construct", (PERL_PROC*)&perl_construct}, | |
| 518 {"perl_destruct", (PERL_PROC*)&perl_destruct}, | |
| 519 {"perl_free", (PERL_PROC*)&perl_free}, | |
| 520 {"perl_run", (PERL_PROC*)&perl_run}, | |
| 521 {"perl_parse", (PERL_PROC*)&perl_parse}, | |
|
33060
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
522 # if defined(WIN32) || ((PERL_REVISION == 5) && (PERL_VERSION < 38)) |
| 7 | 523 {"Perl_get_context", (PERL_PROC*)&Perl_get_context}, |
|
33060
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
524 # endif |
| 7 | 525 {"Perl_croak", (PERL_PROC*)&Perl_croak}, |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
526 # ifdef PERL5101_OR_LATER |
|
2079
5abd3e3c0085
updated for version 7.2.363
Bram Moolenaar <bram@zimbu.org>
parents:
1990
diff
changeset
|
527 {"Perl_croak_xs_usage", (PERL_PROC*)&Perl_croak_xs_usage}, |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
528 # endif |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
529 # ifdef PERL_IMPLICIT_CONTEXT |
| 7 | 530 {"Perl_croak_nocontext", (PERL_PROC*)&Perl_croak_nocontext}, |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
531 # endif |
| 7 | 532 {"Perl_dowantarray", (PERL_PROC*)&Perl_dowantarray}, |
| 533 {"Perl_free_tmps", (PERL_PROC*)&Perl_free_tmps}, | |
| 534 {"Perl_gv_stashpv", (PERL_PROC*)&Perl_gv_stashpv}, | |
| 535 {"Perl_markstack_grow", (PERL_PROC*)&Perl_markstack_grow}, | |
| 536 {"Perl_mg_find", (PERL_PROC*)&Perl_mg_find}, | |
|
14377
378eefcbbb12
patch 8.1.0203: building with Perl 5.28 fails on Windows
Christian Brabandt <cb@256bit.org>
parents:
14350
diff
changeset
|
537 # if (PERL_REVISION == 5) && (PERL_VERSION >= 28) |
|
378eefcbbb12
patch 8.1.0203: building with Perl 5.28 fails on Windows
Christian Brabandt <cb@256bit.org>
parents:
14350
diff
changeset
|
538 {"Perl_mg_get", (PERL_PROC*)&Perl_mg_get}, |
|
378eefcbbb12
patch 8.1.0203: building with Perl 5.28 fails on Windows
Christian Brabandt <cb@256bit.org>
parents:
14350
diff
changeset
|
539 # endif |
| 7 | 540 {"Perl_newXS", (PERL_PROC*)&Perl_newXS}, |
| 541 {"Perl_newSV", (PERL_PROC*)&Perl_newSV}, | |
| 542 {"Perl_newSViv", (PERL_PROC*)&Perl_newSViv}, | |
| 543 {"Perl_newSVpv", (PERL_PROC*)&Perl_newSVpv}, | |
| 544 {"Perl_call_argv", (PERL_PROC*)&Perl_call_argv}, | |
| 545 {"Perl_call_pv", (PERL_PROC*)&Perl_call_pv}, | |
| 546 {"Perl_eval_sv", (PERL_PROC*)&Perl_eval_sv}, | |
| 547 {"Perl_get_sv", (PERL_PROC*)&Perl_get_sv}, | |
| 548 {"Perl_eval_pv", (PERL_PROC*)&Perl_eval_pv}, | |
| 549 {"Perl_call_method", (PERL_PROC*)&Perl_call_method}, | |
| 550 {"Perl_pop_scope", (PERL_PROC*)&Perl_pop_scope}, | |
| 551 {"Perl_push_scope", (PERL_PROC*)&Perl_push_scope}, | |
| 552 {"Perl_save_int", (PERL_PROC*)&Perl_save_int}, | |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
553 # if (PERL_REVISION == 5) && (PERL_VERSION >= 20) |
| 5960 | 554 {"Perl_save_strlen", (PERL_PROC*)&Perl_save_strlen}, |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
555 # endif |
| 7 | 556 {"Perl_stack_grow", (PERL_PROC*)&Perl_stack_grow}, |
| 557 {"Perl_set_context", (PERL_PROC*)&Perl_set_context}, | |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
558 # if (PERL_REVISION == 5) && (PERL_VERSION >= 14) |
| 3050 | 559 {"Perl_sv_2bool_flags", (PERL_PROC*)&Perl_sv_2bool_flags}, |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
560 # if (PERL_REVISION == 5) && (PERL_VERSION < 22) |
| 3050 | 561 {"Perl_xs_apiversion_bootcheck",(PERL_PROC*)&Perl_xs_apiversion_bootcheck}, |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
562 # endif |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
563 # else |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
564 {"Perl_sv_2bool", (PERL_PROC*)&Perl_sv_2bool}, |
| 6872 | 565 # endif |
| 7 | 566 {"Perl_sv_2iv", (PERL_PROC*)&Perl_sv_2iv}, |
| 567 {"Perl_sv_2mortal", (PERL_PROC*)&Perl_sv_2mortal}, | |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
568 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8) |
| 7 | 569 {"Perl_sv_2pv_flags", (PERL_PROC*)&Perl_sv_2pv_flags}, |
| 570 {"Perl_sv_2pv_nolen", (PERL_PROC*)&Perl_sv_2pv_nolen}, | |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
571 # else |
| 7 | 572 {"Perl_sv_2pv", (PERL_PROC*)&Perl_sv_2pv}, |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
573 # endif |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
14816
diff
changeset
|
574 {"Perl_sv_2pvbyte", (PERL_PROC*)&Perl_sv_2pvbyte}, |
|
22212
36af5cb8413c
patch 8.2.1655: cannot build with Strawberry Perl 5.32.0
Bram Moolenaar <Bram@vim.org>
parents:
20996
diff
changeset
|
575 # if (PERL_REVISION == 5) && (PERL_VERSION >= 32) |
|
36af5cb8413c
patch 8.2.1655: cannot build with Strawberry Perl 5.32.0
Bram Moolenaar <Bram@vim.org>
parents:
20996
diff
changeset
|
576 {"Perl_sv_2pvbyte_flags", (PERL_PROC*)&Perl_sv_2pvbyte_flags}, |
|
36af5cb8413c
patch 8.2.1655: cannot build with Strawberry Perl 5.32.0
Bram Moolenaar <Bram@vim.org>
parents:
20996
diff
changeset
|
577 # endif |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
578 # ifdef PERL589_OR_LATER |
| 1387 | 579 {"Perl_sv_2iv_flags", (PERL_PROC*)&Perl_sv_2iv_flags}, |
| 580 {"Perl_newXS_flags", (PERL_PROC*)&Perl_newXS_flags}, | |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
581 # endif |
| 7 | 582 {"Perl_sv_bless", (PERL_PROC*)&Perl_sv_bless}, |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
583 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8) |
| 7 | 584 {"Perl_sv_catpvn_flags", (PERL_PROC*)&Perl_sv_catpvn_flags}, |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
585 # else |
| 7 | 586 {"Perl_sv_catpvn", (PERL_PROC*)&Perl_sv_catpvn}, |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
587 # endif |
| 7 | 588 {"Perl_sv_free", (PERL_PROC*)&Perl_sv_free}, |
| 589 {"Perl_sv_isa", (PERL_PROC*)&Perl_sv_isa}, | |
| 590 {"Perl_sv_magic", (PERL_PROC*)&Perl_sv_magic}, | |
| 591 {"Perl_sv_setiv", (PERL_PROC*)&Perl_sv_setiv}, | |
| 592 {"Perl_sv_setpv", (PERL_PROC*)&Perl_sv_setpv}, | |
| 593 {"Perl_sv_setpvn", (PERL_PROC*)&Perl_sv_setpvn}, | |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
594 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8) |
| 7 | 595 {"Perl_sv_setsv_flags", (PERL_PROC*)&Perl_sv_setsv_flags}, |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
596 # else |
| 7 | 597 {"Perl_sv_setsv", (PERL_PROC*)&Perl_sv_setsv}, |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
598 # endif |
| 7 | 599 {"Perl_sv_upgrade", (PERL_PROC*)&Perl_sv_upgrade}, |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
600 # if (PERL_REVISION == 5) && (PERL_VERSION < 10) |
| 7 | 601 {"Perl_Tstack_sp_ptr", (PERL_PROC*)&Perl_Tstack_sp_ptr}, |
| 602 {"Perl_Top_ptr", (PERL_PROC*)&Perl_Top_ptr}, | |
| 603 {"Perl_Tstack_base_ptr", (PERL_PROC*)&Perl_Tstack_base_ptr}, | |
| 604 {"Perl_Tstack_max_ptr", (PERL_PROC*)&Perl_Tstack_max_ptr}, | |
| 605 {"Perl_Ttmps_ix_ptr", (PERL_PROC*)&Perl_Ttmps_ix_ptr}, | |
| 606 {"Perl_Ttmps_floor_ptr", (PERL_PROC*)&Perl_Ttmps_floor_ptr}, | |
| 607 {"Perl_Tmarkstack_ptr_ptr", (PERL_PROC*)&Perl_Tmarkstack_ptr_ptr}, | |
| 608 {"Perl_Tmarkstack_max_ptr", (PERL_PROC*)&Perl_Tmarkstack_max_ptr}, | |
| 609 {"Perl_TSv_ptr", (PERL_PROC*)&Perl_TSv_ptr}, | |
| 610 {"Perl_TXpv_ptr", (PERL_PROC*)&Perl_TXpv_ptr}, | |
| 611 {"Perl_Tna_ptr", (PERL_PROC*)&Perl_Tna_ptr}, | |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
612 # else |
| 1711 | 613 {"Perl_sv_free2", (PERL_PROC*)&Perl_sv_free2}, |
| 1765 | 614 {"Perl_sys_init", (PERL_PROC*)&Perl_sys_init}, |
| 1668 | 615 {"Perl_sys_term", (PERL_PROC*)&Perl_sys_term}, |
| 3050 | 616 {"Perl_call_list", (PERL_PROC*)&Perl_call_list}, |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
617 # if (PERL_REVISION == 5) && (PERL_VERSION >= 14) |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
618 # else |
| 1668 | 619 {"Perl_ISv_ptr", (PERL_PROC*)&Perl_ISv_ptr}, |
|
2370
454f314d0e61
Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents:
2255
diff
changeset
|
620 {"Perl_Istack_max_ptr", (PERL_PROC*)&Perl_Istack_max_ptr}, |
| 1668 | 621 {"Perl_Istack_base_ptr", (PERL_PROC*)&Perl_Istack_base_ptr}, |
|
2370
454f314d0e61
Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents:
2255
diff
changeset
|
622 {"Perl_IXpv_ptr", (PERL_PROC*)&Perl_IXpv_ptr}, |
| 1668 | 623 {"Perl_Itmps_ix_ptr", (PERL_PROC*)&Perl_Itmps_ix_ptr}, |
| 624 {"Perl_Itmps_floor_ptr", (PERL_PROC*)&Perl_Itmps_floor_ptr}, | |
|
2370
454f314d0e61
Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents:
2255
diff
changeset
|
625 {"Perl_Ina_ptr", (PERL_PROC*)&Perl_Ina_ptr}, |
| 1668 | 626 {"Perl_Imarkstack_ptr_ptr", (PERL_PROC*)&Perl_Imarkstack_ptr_ptr}, |
| 627 {"Perl_Imarkstack_max_ptr", (PERL_PROC*)&Perl_Imarkstack_max_ptr}, | |
|
2370
454f314d0e61
Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents:
2255
diff
changeset
|
628 {"Perl_Istack_sp_ptr", (PERL_PROC*)&Perl_Istack_sp_ptr}, |
|
454f314d0e61
Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents:
2255
diff
changeset
|
629 {"Perl_Iop_ptr", (PERL_PROC*)&Perl_Iop_ptr}, |
| 1668 | 630 {"Perl_Iscopestack_ix_ptr", (PERL_PROC*)&Perl_Iscopestack_ix_ptr}, |
| 631 {"Perl_Iunitcheckav_ptr", (PERL_PROC*)&Perl_Iunitcheckav_ptr}, | |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
632 # endif |
| 3050 | 633 # endif |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
634 # if (PERL_REVISION == 5) && (PERL_VERSION >= 22) |
| 6872 | 635 {"Perl_xs_handshake", (PERL_PROC*)&Perl_xs_handshake}, |
| 636 {"Perl_xs_boot_epilog", (PERL_PROC*)&Perl_xs_boot_epilog}, | |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
637 # endif |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
638 # if (PERL_REVISION == 5) && (PERL_VERSION >= 14) |
| 5706 | 639 # ifdef USE_ITHREADS |
| 3820 | 640 {"PL_thr_key", (PERL_PROC*)&dll_PL_thr_key}, |
| 5706 | 641 # endif |
|
33101
8cbdd2cbf10a
patch 9.0.1835: Perl interface has problems with load PL_current_context
Christian Brabandt <cb@256bit.org>
parents:
33060
diff
changeset
|
642 # ifdef PERL_USE_THREAD_LOCAL |
|
8cbdd2cbf10a
patch 9.0.1835: Perl interface has problems with load PL_current_context
Christian Brabandt <cb@256bit.org>
parents:
33060
diff
changeset
|
643 {"PL_current_context", (PERL_PROC*)&dll_PL_current_context}, |
|
8cbdd2cbf10a
patch 9.0.1835: Perl interface has problems with load PL_current_context
Christian Brabandt <cb@256bit.org>
parents:
33060
diff
changeset
|
644 # endif |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
645 # else |
| 7 | 646 {"Perl_Idefgv_ptr", (PERL_PROC*)&Perl_Idefgv_ptr}, |
| 647 {"Perl_Ierrgv_ptr", (PERL_PROC*)&Perl_Ierrgv_ptr}, | |
| 648 {"Perl_Isv_yes_ptr", (PERL_PROC*)&Perl_Isv_yes_ptr}, | |
| 3050 | 649 {"Perl_Gthr_key_ptr", (PERL_PROC*)&Perl_Gthr_key_ptr}, |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
650 # endif |
| 7 | 651 {"boot_DynaLoader", (PERL_PROC*)&boot_DynaLoader}, |
|
7651
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
652 {"Perl_hv_iternext_flags", (PERL_PROC*)&Perl_hv_iternext_flags}, |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
653 {"Perl_hv_iterinit", (PERL_PROC*)&Perl_hv_iterinit}, |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
654 {"Perl_hv_iterkey", (PERL_PROC*)&Perl_hv_iterkey}, |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
655 {"Perl_hv_iterval", (PERL_PROC*)&Perl_hv_iterval}, |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
656 {"Perl_av_fetch", (PERL_PROC*)&Perl_av_fetch}, |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
657 {"Perl_av_len", (PERL_PROC*)&Perl_av_len}, |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
658 {"Perl_sv_2nv_flags", (PERL_PROC*)&Perl_sv_2nv_flags}, |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
659 # if defined(PERLIO_LAYERS) && !defined(USE_SFIO) |
|
8885
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
660 {"PerlIOBase_pushed", (PERL_PROC*)&PerlIOBase_pushed}, |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
661 {"PerlIO_define_layer", (PERL_PROC*)&PerlIO_define_layer}, |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
662 # endif |
|
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
663 # if (PERL_REVISION == 5) && (PERL_VERSION >= 24) |
|
9129
95fd0de7a8f1
commit https://github.com/vim/vim/commit/6727bf861776cfbb93c97dfea5f87a095cf9f364
Christian Brabandt <cb@256bit.org>
parents:
8919
diff
changeset
|
664 {"Perl_savetmps", (PERL_PROC*)&Perl_savetmps}, |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
665 # endif |
| 7 | 666 {"", NULL}, |
| 667 }; | |
| 668 | |
|
33060
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
669 # if (PERL_REVISION == 5) && (PERL_VERSION <= 30) |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
670 // In 5.30, GIMME_V requires linking to Perl_block_gimme() instead of being |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
671 // completely inline. Just use the deprecated GIMME for simplicity. |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
672 # undef GIMME_V |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
673 # define GIMME_V GIMME |
|
20959
2023b9a5c161
patch 8.2.1031: build failure with Perl5.32
Bram Moolenaar <Bram@vim.org>
parents:
20830
diff
changeset
|
674 # endif |
|
2023b9a5c161
patch 8.2.1031: build failure with Perl5.32
Bram Moolenaar <Bram@vim.org>
parents:
20830
diff
changeset
|
675 |
| 7 | 676 /* |
| 677 * Make all runtime-links of perl. | |
| 678 * | |
|
5267
585b623a1aa3
updated for version 7.4b.010
Bram Moolenaar <bram@vim.org>
parents:
5261
diff
changeset
|
679 * 1. Get module handle using dlopen() or vimLoadLib(). |
| 7 | 680 * 2. Get pointer to perl function by GetProcAddress. |
| 681 * 3. Repeat 2, until get all functions will be used. | |
| 682 * | |
| 683 * Parameter 'libname' provides name of DLL. | |
| 684 * Return OK or FAIL. | |
| 685 */ | |
| 686 static int | |
| 687 perl_runtime_link_init(char *libname, int verbose) | |
| 688 { | |
| 689 int i; | |
| 690 | |
| 691 if (hPerlLib != NULL) | |
| 692 return OK; | |
|
2370
454f314d0e61
Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents:
2255
diff
changeset
|
693 if ((hPerlLib = load_dll(libname)) == NULL) |
| 7 | 694 { |
| 695 if (verbose) | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
696 semsg(_("E370: Could not load library %s"), libname); |
| 7 | 697 return FAIL; |
| 698 } | |
| 699 for (i = 0; perl_funcname_table[i].ptr; ++i) | |
| 700 { | |
|
2370
454f314d0e61
Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents:
2255
diff
changeset
|
701 if (!(*perl_funcname_table[i].ptr = symbol_from_dll(hPerlLib, |
| 7 | 702 perl_funcname_table[i].name))) |
| 703 { | |
|
2370
454f314d0e61
Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents:
2255
diff
changeset
|
704 close_dll(hPerlLib); |
| 7 | 705 hPerlLib = NULL; |
| 706 if (verbose) | |
|
26877
06a137af96f8
patch 8.2.3967: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
25342
diff
changeset
|
707 semsg((const char *)_(e_could_not_load_library_function_str), perl_funcname_table[i].name); |
| 7 | 708 return FAIL; |
| 709 } | |
| 710 } | |
| 711 return OK; | |
| 712 } | |
| 713 | |
| 714 /* | |
| 715 * If runtime-link-perl(DLL) was loaded successfully, return TRUE. | |
| 716 * There were no DLL loaded, return FALSE. | |
| 717 */ | |
| 718 int | |
|
7856
226ed297307f
commit https://github.com/vim/vim/commit/d14e00ea67afbaa8cb4a7e6b1eb306da6a2d5adb
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
719 perl_enabled(int verbose) |
| 7 | 720 { |
|
7528
53163e4d9e4f
commit https://github.com/vim/vim/commit/25e4fcde767084d1a79e0926bc301c92987c0cce
Christian Brabandt <cb@256bit.org>
parents:
7198
diff
changeset
|
721 return perl_runtime_link_init((char *)p_perldll, verbose) == OK; |
| 7 | 722 } |
| 723 #endif /* DYNAMIC_PERL */ | |
| 724 | |
|
8885
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
725 #if defined(PERLIO_LAYERS) && !defined(USE_SFIO) |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
726 static void vim_IOLayer_init(void); |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
727 #endif |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
728 |
| 7 | 729 /* |
| 730 * perl_init(): initialize perl interpreter | |
| 731 * We have to call perl_parse to initialize some structures, | |
| 732 * there's nothing to actually parse. | |
| 733 */ | |
| 734 static void | |
|
7856
226ed297307f
commit https://github.com/vim/vim/commit/d14e00ea67afbaa8cb4a7e6b1eb306da6a2d5adb
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
735 perl_init(void) |
| 7 | 736 { |
| 1668 | 737 char *bootargs[] = { "VI", NULL }; |
| 738 int argc = 3; | |
| 739 static char *argv[] = { "", "-e", "" }; | |
| 7 | 740 |
| 1668 | 741 #if (PERL_REVISION == 5) && (PERL_VERSION >= 10) |
| 1765 | 742 Perl_sys_init(&argc, (char***)&argv); |
| 1668 | 743 #endif |
| 7 | 744 perl_interp = perl_alloc(); |
| 745 perl_construct(perl_interp); | |
| 1668 | 746 perl_parse(perl_interp, xs_init, argc, argv, 0); |
| 7 | 747 perl_call_argv("VIM::bootstrap", (long)G_DISCARD, bootargs); |
| 748 VIM_init(); | |
| 749 #ifdef USE_SFIO | |
| 750 sfdisc(PerlIO_stdout(), sfdcnewvim()); | |
| 751 sfdisc(PerlIO_stderr(), sfdcnewvim()); | |
| 752 sfsetbuf(PerlIO_stdout(), NULL, 0); | |
| 753 sfsetbuf(PerlIO_stderr(), NULL, 0); | |
|
8885
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
754 #elif defined(PERLIO_LAYERS) |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
755 vim_IOLayer_init(); |
| 7 | 756 #endif |
| 757 } | |
| 758 | |
| 759 /* | |
|
19846
4acb165ed0bc
patch 8.2.0479: unloading shared libraries on exit has no purpose
Bram Moolenaar <Bram@vim.org>
parents:
19195
diff
changeset
|
760 * Clean up after ourselves. |
| 7 | 761 */ |
| 762 void | |
|
7856
226ed297307f
commit https://github.com/vim/vim/commit/d14e00ea67afbaa8cb4a7e6b1eb306da6a2d5adb
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
763 perl_end(void) |
| 7 | 764 { |
| 765 if (perl_interp) | |
| 766 { | |
| 767 perl_run(perl_interp); | |
| 768 perl_destruct(perl_interp); | |
| 769 perl_free(perl_interp); | |
| 770 perl_interp = NULL; | |
| 1668 | 771 #if (PERL_REVISION == 5) && (PERL_VERSION >= 10) |
|
7651
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
772 Perl_sys_term(); |
| 1668 | 773 #endif |
| 7 | 774 } |
| 775 } | |
| 776 | |
| 777 /* | |
| 778 * msg_split(): send a message to the message handling routines | |
| 779 * split at '\n' first though. | |
| 780 */ | |
| 781 void | |
|
7856
226ed297307f
commit https://github.com/vim/vim/commit/d14e00ea67afbaa8cb4a7e6b1eb306da6a2d5adb
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
782 msg_split( |
|
226ed297307f
commit https://github.com/vim/vim/commit/d14e00ea67afbaa8cb4a7e6b1eb306da6a2d5adb
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
783 char_u *s, |
|
226ed297307f
commit https://github.com/vim/vim/commit/d14e00ea67afbaa8cb4a7e6b1eb306da6a2d5adb
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
784 int attr) /* highlighting attributes */ |
| 7 | 785 { |
| 786 char *next; | |
| 787 char *token = (char *)s; | |
| 788 | |
| 1423 | 789 while ((next = strchr(token, '\n')) && !got_int) |
| 7 | 790 { |
| 791 *next++ = '\0'; /* replace \n with \0 */ | |
|
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15472
diff
changeset
|
792 msg_attr(token, attr); |
| 7 | 793 token = next; |
| 794 } | |
| 1423 | 795 if (*token && !got_int) |
|
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15472
diff
changeset
|
796 msg_attr(token, attr); |
| 7 | 797 } |
| 798 | |
| 799 #ifndef FEAT_EVAL | |
| 800 /* | |
| 801 * This stub is needed because an "#ifdef FEAT_EVAL" around Eval() doesn't | |
| 802 * work properly. | |
| 803 */ | |
| 804 char_u * | |
|
7856
226ed297307f
commit https://github.com/vim/vim/commit/d14e00ea67afbaa8cb4a7e6b1eb306da6a2d5adb
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
805 eval_to_string( |
|
226ed297307f
commit https://github.com/vim/vim/commit/d14e00ea67afbaa8cb4a7e6b1eb306da6a2d5adb
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
806 char_u *arg UNUSED, |
|
30598
37aa9fd2ed72
patch 9.0.0634: evaluating "expr" options has more overhead than needed
Bram Moolenaar <Bram@vim.org>
parents:
30314
diff
changeset
|
807 int convert UNUSED, |
|
37aa9fd2ed72
patch 9.0.0634: evaluating "expr" options has more overhead than needed
Bram Moolenaar <Bram@vim.org>
parents:
30314
diff
changeset
|
808 int use_simple_function UNUSED) |
| 7 | 809 { |
| 810 return NULL; | |
| 811 } | |
| 812 #endif | |
| 813 | |
| 814 /* | |
| 815 * Create a new reference to an SV pointing to the SCR structure | |
| 502 | 816 * The b_perl_private/w_perl_private part of the SCR structure points to the |
| 817 * SV, so there can only be one such SV for a particular SCR structure. When | |
| 818 * the last reference has gone (DESTROY is called), | |
| 819 * b_perl_private/w_perl_private is reset; When the screen goes away before | |
| 7 | 820 * all references are gone, the value of the SV is reset; |
| 821 * any subsequent use of any of those reference will produce | |
| 822 * a warning. (see typemap) | |
| 823 */ | |
| 502 | 824 |
| 825 static SV * | |
|
7856
226ed297307f
commit https://github.com/vim/vim/commit/d14e00ea67afbaa8cb4a7e6b1eb306da6a2d5adb
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
826 newWINrv(SV *rv, win_T *ptr) |
| 502 | 827 { |
| 828 sv_upgrade(rv, SVt_RV); | |
| 829 if (ptr->w_perl_private == NULL) | |
| 830 { | |
| 831 ptr->w_perl_private = newSV(0); | |
| 3344 | 832 sv_setiv(ptr->w_perl_private, PTR2IV(ptr)); |
| 502 | 833 } |
|
14441
2d6703d4448a
patch 8.1.0234: incorrect reference counting in Perl interface
Christian Brabandt <cb@256bit.org>
parents:
14395
diff
changeset
|
834 SvREFCNT_inc_void_NN(ptr->w_perl_private); |
| 502 | 835 SvRV(rv) = ptr->w_perl_private; |
| 836 SvROK_on(rv); | |
| 837 return sv_bless(rv, gv_stashpv("VIWIN", TRUE)); | |
| 7 | 838 } |
| 839 | |
| 502 | 840 static SV * |
|
7856
226ed297307f
commit https://github.com/vim/vim/commit/d14e00ea67afbaa8cb4a7e6b1eb306da6a2d5adb
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
841 newBUFrv(SV *rv, buf_T *ptr) |
| 502 | 842 { |
| 843 sv_upgrade(rv, SVt_RV); | |
| 844 if (ptr->b_perl_private == NULL) | |
| 845 { | |
| 846 ptr->b_perl_private = newSV(0); | |
| 3344 | 847 sv_setiv(ptr->b_perl_private, PTR2IV(ptr)); |
| 502 | 848 } |
|
14441
2d6703d4448a
patch 8.1.0234: incorrect reference counting in Perl interface
Christian Brabandt <cb@256bit.org>
parents:
14395
diff
changeset
|
849 SvREFCNT_inc_void_NN(ptr->b_perl_private); |
| 502 | 850 SvRV(rv) = ptr->b_perl_private; |
| 851 SvROK_on(rv); | |
| 852 return sv_bless(rv, gv_stashpv("VIBUF", TRUE)); | |
| 853 } | |
| 7 | 854 |
|
14350
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
855 #if 0 |
|
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
856 SV *__sv_save[1024]; |
|
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
857 int __sv_save_ix; |
|
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
858 # define D_Save_Sv(sv) do { if (__sv_save_ix < 1024) __sv_save[__sv_save_ix++] = (sv); } while (0) |
|
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
859 #else |
|
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
860 # define D_Save_Sv(sv) NOOP |
|
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
861 #endif |
|
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
862 |
| 7 | 863 /* |
| 864 * perl_win_free | |
| 4352 | 865 * Remove all references to the window to be destroyed |
| 7 | 866 */ |
| 867 void | |
|
7856
226ed297307f
commit https://github.com/vim/vim/commit/d14e00ea67afbaa8cb4a7e6b1eb306da6a2d5adb
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
868 perl_win_free(win_T *wp) |
| 7 | 869 { |
|
14350
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
870 if (wp->w_perl_private && perl_interp != NULL) |
|
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
871 { |
|
14377
378eefcbbb12
patch 8.1.0203: building with Perl 5.28 fails on Windows
Christian Brabandt <cb@256bit.org>
parents:
14350
diff
changeset
|
872 SV *sv = (SV*)wp->w_perl_private; |
|
378eefcbbb12
patch 8.1.0203: building with Perl 5.28 fails on Windows
Christian Brabandt <cb@256bit.org>
parents:
14350
diff
changeset
|
873 D_Save_Sv(sv); |
|
14350
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
874 sv_setiv(sv, 0); |
|
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
875 SvREFCNT_dec(sv); |
|
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
876 } |
|
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
877 wp->w_perl_private = NULL; |
| 7 | 878 } |
| 879 | |
| 880 void | |
|
7856
226ed297307f
commit https://github.com/vim/vim/commit/d14e00ea67afbaa8cb4a7e6b1eb306da6a2d5adb
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
881 perl_buf_free(buf_T *bp) |
| 7 | 882 { |
|
14350
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
883 if (bp->b_perl_private && perl_interp != NULL) |
|
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
884 { |
|
14377
378eefcbbb12
patch 8.1.0203: building with Perl 5.28 fails on Windows
Christian Brabandt <cb@256bit.org>
parents:
14350
diff
changeset
|
885 SV *sv = (SV *)bp->b_perl_private; |
|
378eefcbbb12
patch 8.1.0203: building with Perl 5.28 fails on Windows
Christian Brabandt <cb@256bit.org>
parents:
14350
diff
changeset
|
886 D_Save_Sv(sv); |
|
14350
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
887 sv_setiv(sv, 0); |
|
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
888 SvREFCNT_dec(sv); |
|
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
889 } |
|
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
890 bp->b_perl_private = NULL; |
| 7 | 891 } |
| 892 | |
| 893 #ifndef PROTO | |
| 894 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8) | |
| 895 I32 cur_val(pTHX_ IV iv, SV *sv); | |
| 896 # else | |
| 897 I32 cur_val(IV iv, SV *sv); | |
|
9353
32e1dfae5664
commit https://github.com/vim/vim/commit/eeb50ab5228c5c09743a9c2b907c3634c0146e84
Christian Brabandt <cb@256bit.org>
parents:
9351
diff
changeset
|
898 # endif |
| 7 | 899 |
| 900 /* | |
| 901 * Handler for the magic variables $main::curwin and $main::curbuf. | |
| 902 * The handler is put into the magic vtbl for these variables. | |
| 903 * (This is effectively a C-level equivalent of a tied variable). | |
| 904 * There is no "set" function as the variables are read-only. | |
| 905 */ | |
| 906 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8) | |
| 907 I32 cur_val(pTHX_ IV iv, SV *sv) | |
| 908 # else | |
| 909 I32 cur_val(IV iv, SV *sv) | |
| 910 # endif | |
| 911 { | |
| 912 SV *rv; | |
|
14350
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
913 |
| 7 | 914 if (iv == 0) |
| 915 rv = newWINrv(newSV(0), curwin); | |
| 916 else | |
| 917 rv = newBUFrv(newSV(0), curbuf); | |
|
14350
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
918 |
|
14441
2d6703d4448a
patch 8.1.0234: incorrect reference counting in Perl interface
Christian Brabandt <cb@256bit.org>
parents:
14395
diff
changeset
|
919 if (SvRV(sv) != SvRV(rv)) |
|
2d6703d4448a
patch 8.1.0234: incorrect reference counting in Perl interface
Christian Brabandt <cb@256bit.org>
parents:
14395
diff
changeset
|
920 // XXX: This magic variable is a bit confusing... |
|
19195
2ef19eed524a
patch 8.2.0156: various typos in source files and tests
Bram Moolenaar <Bram@vim.org>
parents:
19067
diff
changeset
|
921 // Is currently refcounted ? |
|
14350
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
922 sv_setsv(sv, rv); |
|
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
923 |
|
14441
2d6703d4448a
patch 8.1.0234: incorrect reference counting in Perl interface
Christian Brabandt <cb@256bit.org>
parents:
14395
diff
changeset
|
924 SvREFCNT_dec(rv); |
|
2d6703d4448a
patch 8.1.0234: incorrect reference counting in Perl interface
Christian Brabandt <cb@256bit.org>
parents:
14395
diff
changeset
|
925 |
| 7 | 926 return 0; |
| 927 } | |
| 928 #endif /* !PROTO */ | |
| 929 | |
| 930 struct ufuncs cw_funcs = { cur_val, 0, 0 }; | |
| 931 struct ufuncs cb_funcs = { cur_val, 0, 1 }; | |
| 932 | |
| 933 /* | |
| 934 * VIM_init(): Vim-specific initialisation. | |
| 935 * Make the magical main::curwin and main::curbuf variables | |
| 936 */ | |
| 937 static void | |
|
7856
226ed297307f
commit https://github.com/vim/vim/commit/d14e00ea67afbaa8cb4a7e6b1eb306da6a2d5adb
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
938 VIM_init(void) |
| 7 | 939 { |
| 940 static char cw[] = "main::curwin"; | |
| 941 static char cb[] = "main::curbuf"; | |
| 942 SV *sv; | |
| 943 | |
| 944 sv = perl_get_sv(cw, TRUE); | |
| 945 sv_magic(sv, NULL, 'U', (char *)&cw_funcs, sizeof(cw_funcs)); | |
| 946 SvREADONLY_on(sv); | |
| 947 | |
| 948 sv = perl_get_sv(cb, TRUE); | |
| 949 sv_magic(sv, NULL, 'U', (char *)&cb_funcs, sizeof(cb_funcs)); | |
| 950 SvREADONLY_on(sv); | |
| 951 | |
| 952 /* | |
| 953 * Setup the Safe compartment. | |
| 954 * It shouldn't be a fatal error if the Safe module is missing. | |
| 955 * XXX: Only shares the 'Msg' routine (which has to be called | |
| 956 * like 'Msg(...)'). | |
| 957 */ | |
| 958 (void)perl_eval_pv( "if ( eval( 'require Safe' ) ) { $VIM::safe = Safe->new(); $VIM::safe->share_from( 'VIM', ['Msg'] ); }", G_DISCARD | G_VOID ); | |
| 959 | |
| 960 } | |
| 961 | |
| 962 #ifdef DYNAMIC_PERL | |
| 963 static char *e_noperl = N_("Sorry, this command is disabled: the Perl library could not be loaded."); | |
| 964 #endif | |
| 965 | |
| 966 /* | |
| 967 * ":perl" | |
| 968 */ | |
| 969 void | |
|
7856
226ed297307f
commit https://github.com/vim/vim/commit/d14e00ea67afbaa8cb4a7e6b1eb306da6a2d5adb
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
970 ex_perl(exarg_T *eap) |
| 7 | 971 { |
| 972 char *err; | |
| 973 char *script; | |
| 974 STRLEN length; | |
| 975 SV *sv; | |
| 2255 | 976 #ifdef HAVE_SANDBOX |
| 7 | 977 SV *safe; |
| 2255 | 978 #endif |
| 7 | 979 |
| 980 script = (char *)script_get(eap, eap->arg); | |
| 981 if (eap->skip) | |
| 982 { | |
| 983 vim_free(script); | |
| 984 return; | |
| 985 } | |
| 986 | |
| 987 if (perl_interp == NULL) | |
| 988 { | |
| 989 #ifdef DYNAMIC_PERL | |
| 990 if (!perl_enabled(TRUE)) | |
| 991 { | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
992 emsg(_(e_noperl)); |
| 7 | 993 vim_free(script); |
| 994 return; | |
| 995 } | |
| 996 #endif | |
| 997 perl_init(); | |
| 998 } | |
| 999 | |
| 1000 { | |
| 1001 dSP; | |
| 1002 ENTER; | |
| 1003 SAVETMPS; | |
| 1004 | |
| 1005 if (script == NULL) | |
| 1006 sv = newSVpv((char *)eap->arg, 0); | |
| 1007 else | |
| 1008 { | |
| 1009 sv = newSVpv(script, 0); | |
| 1010 vim_free(script); | |
| 1011 } | |
| 1012 | |
|
15748
93b78c4a7cd5
patch 8.1.0881: can execute shell commands in rvim through interfaces
Bram Moolenaar <Bram@vim.org>
parents:
15543
diff
changeset
|
1013 if (sandbox || secure) |
| 7 | 1014 { |
| 2982 | 1015 safe = perl_get_sv("VIM::safe", FALSE); |
| 1934 | 1016 # ifndef MAKE_TEST /* avoid a warning for unreachable code */ |
| 1990 | 1017 if (safe == NULL || !SvTRUE(safe)) |
|
27436
4c683d6c0a9d
patch 8.2.4246: one error message not in errors.h
Bram Moolenaar <Bram@vim.org>
parents:
26877
diff
changeset
|
1018 emsg(_(e_perl_evaluation_forbidden_in_sandbox_without_safe_module)); |
| 7 | 1019 else |
| 1934 | 1020 # endif |
| 7 | 1021 { |
| 1022 PUSHMARK(SP); | |
| 1023 XPUSHs(safe); | |
| 1024 XPUSHs(sv); | |
| 1025 PUTBACK; | |
| 1026 perl_call_method("reval", G_DISCARD); | |
| 1027 } | |
| 1028 } | |
| 1029 else | |
| 1030 perl_eval_sv(sv, G_DISCARD | G_NOARGS); | |
| 1031 | |
| 1032 SvREFCNT_dec(sv); | |
| 1033 | |
|
9351
82cb3ed4781b
commit https://github.com/vim/vim/commit/7b61bf187a318cb710be40da9ce4c29972324a71
Christian Brabandt <cb@256bit.org>
parents:
9177
diff
changeset
|
1034 err = SvPV(GvSV(PL_errgv), length); |
| 7 | 1035 |
| 1036 FREETMPS; | |
| 1037 LEAVE; | |
| 1038 | |
| 1039 if (!length) | |
| 1040 return; | |
| 1041 | |
| 1042 msg_split((char_u *)err, highlight_attr[HLF_E]); | |
| 1043 return; | |
| 1044 } | |
| 1045 } | |
| 1046 | |
| 1047 static int | |
|
7856
226ed297307f
commit https://github.com/vim/vim/commit/d14e00ea67afbaa8cb4a7e6b1eb306da6a2d5adb
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1048 replace_line(linenr_T *line, linenr_T *end) |
| 7 | 1049 { |
| 1050 char *str; | |
| 1051 | |
| 1052 if (SvOK(GvSV(PL_defgv))) | |
| 1053 { | |
| 1054 str = SvPV(GvSV(PL_defgv), PL_na); | |
| 1055 ml_replace(*line, (char_u *)str, 1); | |
| 1056 changed_bytes(*line, 0); | |
| 1057 } | |
| 1058 else | |
| 1059 { | |
|
20599
d571231175b4
patch 8.2.0853: ml_delete() often called with FALSE argument
Bram Moolenaar <Bram@vim.org>
parents:
19971
diff
changeset
|
1060 ml_delete(*line); |
| 7 | 1061 deleted_lines_mark(*line, 1L); |
| 1062 --(*end); | |
| 1063 --(*line); | |
| 1064 } | |
| 1065 return OK; | |
| 1066 } | |
| 1067 | |
|
7651
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1068 static struct ref_map_S { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1069 void *vim_ref; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1070 SV *perl_ref; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1071 struct ref_map_S *next; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1072 } *ref_map = NULL; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1073 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1074 static void |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1075 ref_map_free(void) |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1076 { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1077 struct ref_map_S *tofree; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1078 struct ref_map_S *refs = ref_map; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1079 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1080 while (refs) { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1081 tofree = refs; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1082 refs = refs->next; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1083 vim_free(tofree); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1084 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1085 ref_map = NULL; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1086 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1087 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1088 static struct ref_map_S * |
|
7856
226ed297307f
commit https://github.com/vim/vim/commit/d14e00ea67afbaa8cb4a7e6b1eb306da6a2d5adb
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1089 ref_map_find_SV(SV *const sv) |
|
7651
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1090 { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1091 struct ref_map_S *refs = ref_map; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1092 int count = 350; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1093 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1094 while (refs) { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1095 if (refs->perl_ref == sv) |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1096 break; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1097 refs = refs->next; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1098 count--; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1099 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1100 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1101 if (!refs && count > 0) { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1102 refs = (struct ref_map_S *)alloc(sizeof(struct ref_map_S)); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1103 if (!refs) |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1104 return NULL; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1105 refs->perl_ref = sv; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1106 refs->vim_ref = NULL; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1107 refs->next = ref_map; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1108 ref_map = refs; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1109 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1110 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1111 return refs; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1112 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1113 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1114 static int |
|
7856
226ed297307f
commit https://github.com/vim/vim/commit/d14e00ea67afbaa8cb4a7e6b1eb306da6a2d5adb
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1115 perl_to_vim(SV *sv, typval_T *rettv) |
|
7651
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1116 { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1117 if (SvROK(sv)) |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1118 sv = SvRV(sv); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1119 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1120 switch (SvTYPE(sv)) { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1121 case SVt_NULL: |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1122 break; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1123 case SVt_NV: /* float */ |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1124 rettv->v_type = VAR_FLOAT; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1125 rettv->vval.v_float = SvNV(sv); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1126 break; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1127 case SVt_IV: /* integer */ |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1128 if (!SvROK(sv)) { /* references should be string */ |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1129 rettv->vval.v_number = SvIV(sv); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1130 break; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1131 } |
|
12674
e769c912fcd9
patch 8.0.1215: newer gcc warns for implicit fallthrough
Christian Brabandt <cb@256bit.org>
parents:
12533
diff
changeset
|
1132 /* FALLTHROUGH */ |
|
7651
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1133 case SVt_PV: /* string */ |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1134 { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1135 size_t len = 0; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1136 char * str_from = SvPV(sv, len); |
|
9159
6b003ff07234
commit https://github.com/vim/vim/commit/9b0ac229bcfc91acabd35fc576055a94c1687c32
Christian Brabandt <cb@256bit.org>
parents:
9129
diff
changeset
|
1137 char_u *str_to = (char_u*)alloc( |
|
6b003ff07234
commit https://github.com/vim/vim/commit/9b0ac229bcfc91acabd35fc576055a94c1687c32
Christian Brabandt <cb@256bit.org>
parents:
9129
diff
changeset
|
1138 (unsigned)(sizeof(char_u) * (len + 1))); |
|
7651
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1139 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1140 if (str_to) { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1141 str_to[len] = '\0'; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1142 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1143 while (len--) { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1144 if (str_from[len] == '\0') |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1145 str_to[len] = '\n'; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1146 else |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1147 str_to[len] = str_from[len]; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1148 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1149 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1150 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1151 rettv->v_type = VAR_STRING; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1152 rettv->vval.v_string = str_to; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1153 break; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1154 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1155 case SVt_PVAV: /* list */ |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1156 { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1157 SSize_t size; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1158 listitem_T * item; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1159 SV ** item2; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1160 list_T * list; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1161 struct ref_map_S * refs; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1162 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1163 if ((refs = ref_map_find_SV(sv)) == NULL) |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1164 return FAIL; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1165 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1166 if (refs->vim_ref) |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1167 list = (list_T *) refs->vim_ref; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1168 else |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1169 { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1170 if ((list = list_alloc()) == NULL) |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1171 return FAIL; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1172 refs->vim_ref = list; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1173 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1174 for (size = av_len((AV*)sv); size >= 0; size--) |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1175 { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1176 if ((item = listitem_alloc()) == NULL) |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1177 break; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1178 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1179 item->li_tv.v_type = VAR_NUMBER; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1180 item->li_tv.v_lock = 0; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1181 item->li_tv.vval.v_number = 0; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1182 list_insert(list, item, list->lv_first); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1183 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1184 item2 = av_fetch((AV *)sv, size, 0); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1185 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1186 if (item2 == NULL || *item2 == NULL || |
|
7807
1a5d34492798
commit https://github.com/vim/vim/commit/d99df423c559d85c17779b3685426c489554908c
Christian Brabandt <cb@256bit.org>
parents:
7651
diff
changeset
|
1187 perl_to_vim(*item2, &item->li_tv) == FAIL) |
|
7651
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1188 break; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1189 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1190 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1191 |
|
11418
162bcd0debd7
patch 8.0.0593: duplication of code for adding a list or dict return value
Christian Brabandt <cb@256bit.org>
parents:
11121
diff
changeset
|
1192 rettv_list_set(rettv, list); |
|
7651
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1193 break; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1194 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1195 case SVt_PVHV: /* dictionary */ |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1196 { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1197 HE * entry; |
|
8214
51b4fba718bf
commit https://github.com/vim/vim/commit/254ebaf068919407de6bd83ac905bd2f36ad944e
Christian Brabandt <cb@256bit.org>
parents:
8080
diff
changeset
|
1198 I32 key_len; |
|
7651
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1199 char * key; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1200 dictitem_T * item; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1201 SV * item2; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1202 dict_T * dict; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1203 struct ref_map_S * refs; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1204 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1205 if ((refs = ref_map_find_SV(sv)) == NULL) |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1206 return FAIL; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1207 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1208 if (refs->vim_ref) |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1209 dict = (dict_T *) refs->vim_ref; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1210 else |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1211 { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1212 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1213 if ((dict = dict_alloc()) == NULL) |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1214 return FAIL; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1215 refs->vim_ref = dict; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1216 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1217 hv_iterinit((HV *)sv); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1218 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1219 for (entry = hv_iternext((HV *)sv); entry; entry = hv_iternext((HV *)sv)) |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1220 { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1221 key_len = 0; |
|
8214
51b4fba718bf
commit https://github.com/vim/vim/commit/254ebaf068919407de6bd83ac905bd2f36ad944e
Christian Brabandt <cb@256bit.org>
parents:
8080
diff
changeset
|
1222 key = hv_iterkey(entry, &key_len); |
|
7651
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1223 |
|
8214
51b4fba718bf
commit https://github.com/vim/vim/commit/254ebaf068919407de6bd83ac905bd2f36ad944e
Christian Brabandt <cb@256bit.org>
parents:
8080
diff
changeset
|
1224 if (!key || !key_len || strlen(key) < (size_t)key_len) { |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
1225 semsg("Malformed key Dictionary '%s'", key && *key ? key : "(empty)"); |
|
7651
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1226 break; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1227 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1228 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1229 if ((item = dictitem_alloc((char_u *)key)) == NULL) |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1230 break; |
|
14303
f761a55a8aed
patch 8.1.0167: lock flag in new dictitem is reset in many places
Christian Brabandt <cb@256bit.org>
parents:
13404
diff
changeset
|
1231 item->di_tv.v_type = VAR_NUMBER; |
|
f761a55a8aed
patch 8.1.0167: lock flag in new dictitem is reset in many places
Christian Brabandt <cb@256bit.org>
parents:
13404
diff
changeset
|
1232 item->di_tv.vval.v_number = 0; |
|
7651
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1233 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1234 if (dict_add(dict, item) == FAIL) { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1235 dictitem_free(item); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1236 break; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1237 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1238 item2 = hv_iterval((HV *)sv, entry); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1239 if (item2 == NULL || perl_to_vim(item2, &item->di_tv) == FAIL) |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1240 break; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1241 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1242 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1243 |
|
11418
162bcd0debd7
patch 8.0.0593: duplication of code for adding a list or dict return value
Christian Brabandt <cb@256bit.org>
parents:
11121
diff
changeset
|
1244 rettv_dict_set(rettv, dict); |
|
7651
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1245 break; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1246 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1247 default: /* not convertible */ |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1248 { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1249 char *val = SvPV_nolen(sv); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1250 rettv->v_type = VAR_STRING; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1251 rettv->vval.v_string = val ? vim_strsave((char_u *)val) : NULL; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1252 break; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1253 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1254 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1255 return OK; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1256 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1257 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1258 /* |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1259 * "perleval()" |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1260 */ |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1261 void |
|
7856
226ed297307f
commit https://github.com/vim/vim/commit/d14e00ea67afbaa8cb4a7e6b1eb306da6a2d5adb
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1262 do_perleval(char_u *str, typval_T *rettv) |
|
7651
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1263 { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1264 char *err = NULL; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1265 STRLEN err_len = 0; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1266 SV *sv = NULL; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1267 #ifdef HAVE_SANDBOX |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1268 SV *safe; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1269 #endif |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1270 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1271 if (perl_interp == NULL) |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1272 { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1273 #ifdef DYNAMIC_PERL |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1274 if (!perl_enabled(TRUE)) |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1275 { |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
1276 emsg(_(e_noperl)); |
|
7651
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1277 return; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1278 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1279 #endif |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1280 perl_init(); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1281 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1282 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1283 { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1284 dSP; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1285 ENTER; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1286 SAVETMPS; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1287 |
|
15748
93b78c4a7cd5
patch 8.1.0881: can execute shell commands in rvim through interfaces
Bram Moolenaar <Bram@vim.org>
parents:
15543
diff
changeset
|
1288 if (sandbox || secure) |
|
7651
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1289 { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1290 safe = get_sv("VIM::safe", FALSE); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1291 # ifndef MAKE_TEST /* avoid a warning for unreachable code */ |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1292 if (safe == NULL || !SvTRUE(safe)) |
|
27436
4c683d6c0a9d
patch 8.2.4246: one error message not in errors.h
Bram Moolenaar <Bram@vim.org>
parents:
26877
diff
changeset
|
1293 emsg(_(e_perl_evaluation_forbidden_in_sandbox_without_safe_module)); |
|
7651
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1294 else |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1295 # endif |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1296 { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1297 sv = newSVpv((char *)str, 0); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1298 PUSHMARK(SP); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1299 XPUSHs(safe); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1300 XPUSHs(sv); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1301 PUTBACK; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1302 call_method("reval", G_SCALAR); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1303 SPAGAIN; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1304 SvREFCNT_dec(sv); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1305 sv = POPs; |
|
28815
d26a95a16ce1
patch 8.2.4931: Crash with sequence of Perl commands
Bram Moolenaar <Bram@vim.org>
parents:
27436
diff
changeset
|
1306 PUTBACK; |
|
7651
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1307 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1308 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1309 else |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1310 sv = eval_pv((char *)str, 0); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1311 |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1312 if (sv) { |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1313 perl_to_vim(sv, rettv); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1314 ref_map_free(); |
|
9351
82cb3ed4781b
commit https://github.com/vim/vim/commit/7b61bf187a318cb710be40da9ce4c29972324a71
Christian Brabandt <cb@256bit.org>
parents:
9177
diff
changeset
|
1315 err = SvPV(GvSV(PL_errgv), err_len); |
|
7651
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1316 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1317 FREETMPS; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1318 LEAVE; |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1319 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1320 if (err_len) |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1321 msg_split((char_u *)err, highlight_attr[HLF_E]); |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1322 } |
|
c7575b07de98
commit https://github.com/vim/vim/commit/e9b892ebcd8596bf813793a1eed5a460a9495a28
Christian Brabandt <cb@256bit.org>
parents:
7528
diff
changeset
|
1323 |
| 7 | 1324 /* |
| 1325 * ":perldo". | |
| 1326 */ | |
| 1327 void | |
|
7856
226ed297307f
commit https://github.com/vim/vim/commit/d14e00ea67afbaa8cb4a7e6b1eb306da6a2d5adb
Christian Brabandt <cb@256bit.org>
parents:
7807
diff
changeset
|
1328 ex_perldo(exarg_T *eap) |
| 7 | 1329 { |
| 1330 STRLEN length; | |
| 1331 SV *sv; | |
| 1332 char *str; | |
| 1333 linenr_T i; | |
|
10759
4267f8904d47
patch 8.0.0269: may get ml_get error when :perldo deletes lines
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
1334 buf_T *was_curbuf = curbuf; |
| 7 | 1335 |
|
11121
778c10516955
patch 8.0.0448: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
10759
diff
changeset
|
1336 if (BUFEMPTY()) |
| 7 | 1337 return; |
| 1338 | |
| 1339 if (perl_interp == NULL) | |
| 1340 { | |
| 1341 #ifdef DYNAMIC_PERL | |
| 1342 if (!perl_enabled(TRUE)) | |
| 1343 { | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15454
diff
changeset
|
1344 emsg(_(e_noperl)); |
| 7 | 1345 return; |
| 1346 } | |
| 1347 #endif | |
| 1348 perl_init(); | |
| 1349 } | |
| 1350 { | |
| 1351 dSP; | |
| 1352 length = strlen((char *)eap->arg); | |
| 129 | 1353 sv = newSV(length + sizeof("sub VIM::perldo {") - 1 + 1); |
| 1354 sv_setpvn(sv, "sub VIM::perldo {", sizeof("sub VIM::perldo {") - 1); | |
| 7 | 1355 sv_catpvn(sv, (char *)eap->arg, length); |
| 1356 sv_catpvn(sv, "}", 1); | |
| 1357 perl_eval_sv(sv, G_DISCARD | G_NOARGS); | |
| 1358 SvREFCNT_dec(sv); | |
|
9351
82cb3ed4781b
commit https://github.com/vim/vim/commit/7b61bf187a318cb710be40da9ce4c29972324a71
Christian Brabandt <cb@256bit.org>
parents:
9177
diff
changeset
|
1359 str = SvPV(GvSV(PL_errgv), length); |
| 7 | 1360 if (length) |
| 1361 goto err; | |
| 1362 | |
| 1363 if (u_save(eap->line1 - 1, eap->line2 + 1) != OK) | |
| 1364 return; | |
| 1365 | |
| 1366 ENTER; | |
| 1367 SAVETMPS; | |
| 1368 for (i = eap->line1; i <= eap->line2; i++) | |
| 1369 { | |
|
10759
4267f8904d47
patch 8.0.0269: may get ml_get error when :perldo deletes lines
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
1370 /* Check the line number, the command my have deleted lines. */ |
|
4267f8904d47
patch 8.0.0269: may get ml_get error when :perldo deletes lines
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
1371 if (i > curbuf->b_ml.ml_line_count) |
|
4267f8904d47
patch 8.0.0269: may get ml_get error when :perldo deletes lines
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
1372 break; |
| 129 | 1373 sv_setpv(GvSV(PL_defgv), (char *)ml_get(i)); |
| 7 | 1374 PUSHMARK(sp); |
| 1375 perl_call_pv("VIM::perldo", G_SCALAR | G_EVAL); | |
|
9351
82cb3ed4781b
commit https://github.com/vim/vim/commit/7b61bf187a318cb710be40da9ce4c29972324a71
Christian Brabandt <cb@256bit.org>
parents:
9177
diff
changeset
|
1376 str = SvPV(GvSV(PL_errgv), length); |
|
10759
4267f8904d47
patch 8.0.0269: may get ml_get error when :perldo deletes lines
Christian Brabandt <cb@256bit.org>
parents:
10042
diff
changeset
|
1377 if (length || curbuf != was_curbuf) |
| 7 | 1378 break; |
| 1379 SPAGAIN; | |
| 1380 if (SvTRUEx(POPs)) | |
| 1381 { | |
| 1382 if (replace_line(&i, &eap->line2) != OK) | |
| 1383 { | |
| 1384 PUTBACK; | |
| 1385 break; | |
| 1386 } | |
| 1387 } | |
| 1388 PUTBACK; | |
| 1389 } | |
| 1390 FREETMPS; | |
| 1391 LEAVE; | |
| 1392 check_cursor(); | |
|
29732
89e1d67814a9
patch 9.0.0206: redraw flags are not named specifically
Bram Moolenaar <Bram@vim.org>
parents:
28815
diff
changeset
|
1393 update_screen(UPD_NOT_VALID); |
| 7 | 1394 if (!length) |
| 1395 return; | |
| 1396 | |
| 1397 err: | |
| 1398 msg_split((char_u *)str, highlight_attr[HLF_E]); | |
| 1399 return; | |
| 1400 } | |
| 1401 } | |
| 1402 | |
|
8885
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1403 #if defined(PERLIO_LAYERS) && !defined(USE_SFIO) |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1404 typedef struct { |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1405 struct _PerlIO base; |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1406 int attr; |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1407 } PerlIOVim; |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1408 |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1409 static IV |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1410 PerlIOVim_pushed(pTHX_ PerlIO *f, const char *mode, |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1411 SV *arg, PerlIO_funcs *tab) |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1412 { |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1413 PerlIOVim *s = PerlIOSelf(f, PerlIOVim); |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1414 s->attr = 0; |
|
12487
3f16cf18386c
patch 8.0.1123: cannot define a toolbar for a window
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
1415 if (arg && SvPOK(arg)) |
|
3f16cf18386c
patch 8.0.1123: cannot define a toolbar for a window
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
1416 s->attr = syn_name2attr((char_u *)SvPV_nolen(arg)); |
|
8885
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1417 return PerlIOBase_pushed(aTHX_ f, mode, (SV *)NULL, tab); |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1418 } |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1419 |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1420 static SSize_t |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1421 PerlIOVim_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count) |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1422 { |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1423 char_u *str; |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1424 PerlIOVim * s = PerlIOSelf(f, PerlIOVim); |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1425 |
|
20830
9064044fd4f6
patch 8.2.0967: unnecessary type casts for vim_strnsave()
Bram Moolenaar <Bram@vim.org>
parents:
20599
diff
changeset
|
1426 str = vim_strnsave((char_u *)vbuf, count); |
|
8885
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1427 if (str == NULL) |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1428 return 0; |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1429 msg_split((char_u *)str, s->attr); |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1430 vim_free(str); |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1431 |
|
9159
6b003ff07234
commit https://github.com/vim/vim/commit/9b0ac229bcfc91acabd35fc576055a94c1687c32
Christian Brabandt <cb@256bit.org>
parents:
9129
diff
changeset
|
1432 return (SSize_t)count; |
|
8885
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1433 } |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1434 |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1435 static PERLIO_FUNCS_DECL(PerlIO_Vim) = { |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1436 sizeof(PerlIO_funcs), |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1437 "Vim", |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1438 sizeof(PerlIOVim), |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1439 PERLIO_K_DUMMY, /* flags */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1440 PerlIOVim_pushed, |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1441 NULL, /* popped */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1442 NULL, /* open */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1443 NULL, /* binmode */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1444 NULL, /* arg */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1445 NULL, /* fileno */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1446 NULL, /* dup */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1447 NULL, /* read */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1448 NULL, /* unread */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1449 PerlIOVim_write, |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1450 NULL, /* seek */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1451 NULL, /* tell */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1452 NULL, /* close */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1453 NULL, /* flush */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1454 NULL, /* fill */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1455 NULL, /* eof */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1456 NULL, /* error */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1457 NULL, /* clearerr */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1458 NULL, /* setlinebuf */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1459 NULL, /* get_base */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1460 NULL, /* get_bufsiz */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1461 NULL, /* get_ptr */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1462 NULL, /* get_cnt */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1463 NULL /* set_ptrcnt */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1464 }; |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1465 |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1466 /* Use Vim routine for print operator */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1467 static void |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1468 vim_IOLayer_init(void) |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1469 { |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1470 PerlIO_define_layer(aTHX_ PERLIO_FUNCS_CAST(&PerlIO_Vim)); |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1471 (void)eval_pv( "binmode(STDOUT, ':Vim')" |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1472 " && binmode(STDERR, ':Vim(ErrorMsg)');", 0); |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1473 } |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1474 #endif /* PERLIO_LAYERS && !USE_SFIO */ |
|
54a380c74547
commit https://github.com/vim/vim/commit/6244a0fc29163ba1c734f92b55a89e01e6cf2a67
Christian Brabandt <cb@256bit.org>
parents:
8810
diff
changeset
|
1475 |
|
33060
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1476 #ifdef DYNAMIC_PERL |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1477 |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1478 // Certain functionality that we use like SvREFCNT_dec are inlined for |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1479 // performance reasons. They reference Perl APIs like Perl_sv_free2(), which |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1480 // would cause linking errors in dynamic builds as we don't link against Perl |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1481 // during build time. Manually fix it here by redirecting these functions |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1482 // towards the dynamically loaded version. |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1483 |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1484 # if (PERL_REVISION == 5) && (PERL_VERSION >= 18) |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1485 # undef Perl_sv_free2 |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1486 void Perl_sv_free2(pTHX_ SV* sv, const U32 refcnt) |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1487 { |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1488 (*dll_Perl_sv_free2)(aTHX_ sv, refcnt); |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1489 } |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1490 # else |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1491 # undef Perl_sv_free2 |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1492 void Perl_sv_free2(pTHX_ SV* sv) |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1493 { |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1494 (*dll_Perl_sv_free2)(aTHX_ sv); |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1495 } |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1496 # endif |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1497 |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1498 # if (PERL_REVISION == 5) && (PERL_VERSION >= 14) |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1499 # undef Perl_sv_2bool_flags |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1500 bool Perl_sv_2bool_flags(pTHX_ SV* sv, I32 flags) |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1501 { |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1502 return (*dll_Perl_sv_2bool_flags)(aTHX_ sv, flags); |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1503 } |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1504 # endif |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1505 |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1506 # if (PERL_REVISION == 5) && (PERL_VERSION >= 28) |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1507 # undef Perl_mg_get |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1508 int Perl_mg_get(pTHX_ SV* sv) |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1509 { |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1510 return (*dll_Perl_mg_get)(aTHX_ sv); |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1511 } |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1512 # endif |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1513 |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1514 # undef Perl_sv_2nv_flags |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1515 NV Perl_sv_2nv_flags(pTHX_ SV *const sv, const I32 flags) |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1516 { |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1517 return (*dll_Perl_sv_2nv_flags)(aTHX_ sv, flags); |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1518 } |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1519 |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1520 # ifdef PERL589_OR_LATER |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1521 # undef Perl_sv_2iv_flags |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1522 IV Perl_sv_2iv_flags(pTHX_ SV* sv, I32 flags) |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1523 { |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1524 return (*dll_Perl_sv_2iv_flags)(aTHX_ sv, flags); |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1525 } |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1526 # endif |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1527 |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1528 #endif // DYNAMIC_PERL |
|
897f3ed27be2
patch 9.0.1818: dynamically linking perl is broken
Christian Brabandt <cb@256bit.org>
parents:
32762
diff
changeset
|
1529 |
| 7 | 1530 XS(boot_VIM); |
| 1531 | |
| 1532 static void | |
| 1533 xs_init(pTHX) | |
| 1534 { | |
| 1535 char *file = __FILE__; | |
| 1536 | |
| 1537 /* DynaLoader is a special case */ | |
| 1538 newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file); | |
| 1539 newXS("VIM::bootstrap", boot_VIM, file); | |
| 1540 } | |
| 1541 | |
| 1542 typedef win_T * VIWIN; | |
| 1543 typedef buf_T * VIBUF; | |
| 1544 | |
| 1545 MODULE = VIM PACKAGE = VIM | |
| 1546 | |
| 1547 void | |
| 1548 Msg(text, hl=NULL) | |
| 1549 char *text; | |
| 1550 char *hl; | |
| 1551 | |
| 1552 PREINIT: | |
| 1553 int attr; | |
| 1554 | |
| 1555 PPCODE: | |
| 1556 if (text != NULL) | |
| 1557 { | |
| 1558 attr = 0; | |
| 1559 if (hl != NULL) | |
|
12487
3f16cf18386c
patch 8.0.1123: cannot define a toolbar for a window
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
1560 attr = syn_name2attr((char_u *)hl); |
| 7 | 1561 msg_split((char_u *)text, attr); |
| 1562 } | |
| 1563 | |
| 1564 void | |
| 1565 SetOption(line) | |
| 1566 char *line; | |
| 1567 | |
| 1568 PPCODE: | |
| 1569 if (line != NULL) | |
| 1570 do_set((char_u *)line, 0); | |
|
29732
89e1d67814a9
patch 9.0.0206: redraw flags are not named specifically
Bram Moolenaar <Bram@vim.org>
parents:
28815
diff
changeset
|
1571 update_screen(UPD_NOT_VALID); |
| 7 | 1572 |
| 1573 void | |
| 1574 DoCommand(line) | |
| 1575 char *line; | |
| 1576 | |
| 1577 PPCODE: | |
| 1578 if (line != NULL) | |
| 1579 do_cmdline_cmd((char_u *)line); | |
| 1580 | |
| 1581 void | |
| 1582 Eval(str) | |
| 1583 char *str; | |
| 1584 | |
| 1585 PREINIT: | |
| 1586 char_u *value; | |
| 1587 PPCODE: | |
|
30598
37aa9fd2ed72
patch 9.0.0634: evaluating "expr" options has more overhead than needed
Bram Moolenaar <Bram@vim.org>
parents:
30314
diff
changeset
|
1588 value = eval_to_string((char_u *)str, TRUE, FALSE); |
| 7 | 1589 if (value == NULL) |
| 1590 { | |
| 1591 XPUSHs(sv_2mortal(newSViv(0))); | |
| 1592 XPUSHs(sv_2mortal(newSVpv("", 0))); | |
| 1593 } | |
| 1594 else | |
| 1595 { | |
| 1596 XPUSHs(sv_2mortal(newSViv(1))); | |
| 1597 XPUSHs(sv_2mortal(newSVpv((char *)value, 0))); | |
| 1598 vim_free(value); | |
| 1599 } | |
| 1600 | |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
14816
diff
changeset
|
1601 SV* |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
14816
diff
changeset
|
1602 Blob(SV* sv) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
14816
diff
changeset
|
1603 PREINIT: |
|
15472
0fcc1315c061
patch 8.1.0744: compiler warnings for signed/unsigned strings
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
1604 STRLEN len; |
|
0fcc1315c061
patch 8.1.0744: compiler warnings for signed/unsigned strings
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
1605 char *s; |
|
0fcc1315c061
patch 8.1.0744: compiler warnings for signed/unsigned strings
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
1606 unsigned i; |
|
0fcc1315c061
patch 8.1.0744: compiler warnings for signed/unsigned strings
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
1607 char buf[3]; |
|
0fcc1315c061
patch 8.1.0744: compiler warnings for signed/unsigned strings
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
1608 SV* newsv; |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
14816
diff
changeset
|
1609 |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
14816
diff
changeset
|
1610 CODE: |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
14816
diff
changeset
|
1611 s = SvPVbyte(sv, len); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
14816
diff
changeset
|
1612 newsv = newSVpv("0z", 2); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
14816
diff
changeset
|
1613 for (i = 0; i < len; i++) |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
14816
diff
changeset
|
1614 { |
|
15945
f0f8754e3bf5
patch 8.1.0978: blob not tested with Perl
Bram Moolenaar <Bram@vim.org>
parents:
15868
diff
changeset
|
1615 sprintf(buf, "%02X", (unsigned char)(s[i])); |
|
15454
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
14816
diff
changeset
|
1616 sv_catpvn(newsv, buf, 2); |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
14816
diff
changeset
|
1617 } |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
14816
diff
changeset
|
1618 RETVAL = newsv; |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
14816
diff
changeset
|
1619 OUTPUT: |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
14816
diff
changeset
|
1620 RETVAL |
|
1d2b5c016f17
patch 8.1.0735: cannot handle binary data
Bram Moolenaar <Bram@vim.org>
parents:
14816
diff
changeset
|
1621 |
| 7 | 1622 void |
| 1623 Buffers(...) | |
| 1624 | |
| 1625 PREINIT: | |
| 1626 buf_T *vimbuf; | |
| 1627 int i, b; | |
| 1628 | |
| 1629 PPCODE: | |
| 1630 if (items == 0) | |
| 1631 { | |
|
32714
d83068c95ba0
patch 9.0.1681: Build Failure with Perl 5.38
Christian Brabandt <cb@256bit.org>
parents:
31263
diff
changeset
|
1632 if (GIMME_V == G_SCALAR) |
| 7 | 1633 { |
| 1634 i = 0; | |
|
9649
fd9727ae3c49
commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07
Christian Brabandt <cb@256bit.org>
parents:
9353
diff
changeset
|
1635 FOR_ALL_BUFFERS(vimbuf) |
| 7 | 1636 ++i; |
| 1637 | |
| 1638 XPUSHs(sv_2mortal(newSViv(i))); | |
| 1639 } | |
| 1640 else | |
| 1641 { | |
|
9649
fd9727ae3c49
commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07
Christian Brabandt <cb@256bit.org>
parents:
9353
diff
changeset
|
1642 FOR_ALL_BUFFERS(vimbuf) |
|
14350
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
1643 XPUSHs(sv_2mortal(newBUFrv(newSV(0), vimbuf))); |
| 7 | 1644 } |
| 1645 } | |
| 1646 else | |
| 1647 { | |
| 1648 for (i = 0; i < items; i++) | |
| 1649 { | |
| 1650 SV *sv = ST(i); | |
| 1651 if (SvIOK(sv)) | |
| 4105 | 1652 b = (int) SvIV(ST(i)); |
| 7 | 1653 else |
| 1654 { | |
| 1655 char_u *pat; | |
| 1656 STRLEN len; | |
| 1657 | |
| 1658 pat = (char_u *)SvPV(sv, len); | |
| 1659 ++emsg_off; | |
|
13404
615572809435
patch 8.0.1576: Perl VIM::Buffers() does not find every buffer
Christian Brabandt <cb@256bit.org>
parents:
12674
diff
changeset
|
1660 b = buflist_findpat(pat, pat + len, TRUE, FALSE, FALSE); |
| 7 | 1661 --emsg_off; |
| 1662 } | |
| 1663 | |
| 1664 if (b >= 0) | |
| 1665 { | |
| 1666 vimbuf = buflist_findnr(b); | |
| 1667 if (vimbuf) | |
|
14350
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
1668 XPUSHs(sv_2mortal(newBUFrv(newSV(0), vimbuf))); |
| 7 | 1669 } |
| 1670 } | |
| 1671 } | |
| 1672 | |
| 1673 void | |
| 1674 Windows(...) | |
| 1675 | |
| 1676 PREINIT: | |
| 1677 win_T *vimwin; | |
| 1678 int i, w; | |
| 1679 | |
| 1680 PPCODE: | |
| 1681 if (items == 0) | |
| 1682 { | |
|
32714
d83068c95ba0
patch 9.0.1681: Build Failure with Perl 5.38
Christian Brabandt <cb@256bit.org>
parents:
31263
diff
changeset
|
1683 if (GIMME_V == G_SCALAR) |
| 7 | 1684 XPUSHs(sv_2mortal(newSViv(win_count()))); |
| 1685 else | |
| 1686 { | |
|
9649
fd9727ae3c49
commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07
Christian Brabandt <cb@256bit.org>
parents:
9353
diff
changeset
|
1687 FOR_ALL_WINDOWS(vimwin) |
|
14350
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
1688 XPUSHs(sv_2mortal(newWINrv(newSV(0), vimwin))); |
| 7 | 1689 } |
| 1690 } | |
| 1691 else | |
| 1692 { | |
| 1693 for (i = 0; i < items; i++) | |
| 1694 { | |
| 4105 | 1695 w = (int) SvIV(ST(i)); |
| 7 | 1696 vimwin = win_find_nr(w); |
| 1697 if (vimwin) | |
|
14350
142c0083b3b8
patch 8.1.0190: Perl refcounts are wrong
Christian Brabandt <cb@256bit.org>
parents:
14303
diff
changeset
|
1698 XPUSHs(sv_2mortal(newWINrv(newSV(0), vimwin))); |
| 7 | 1699 } |
| 1700 } | |
| 1701 | |
| 1702 MODULE = VIM PACKAGE = VIWIN | |
| 1703 | |
| 1704 void | |
| 1705 DESTROY(win) | |
| 1706 VIWIN win | |
| 1707 | |
| 1708 CODE: | |
| 1709 if (win_valid(win)) | |
| 502 | 1710 win->w_perl_private = 0; |
| 7 | 1711 |
| 1712 SV * | |
| 1713 Buffer(win) | |
| 1714 VIWIN win | |
| 1715 | |
| 1716 CODE: | |
| 1717 if (!win_valid(win)) | |
| 1718 win = curwin; | |
| 1719 RETVAL = newBUFrv(newSV(0), win->w_buffer); | |
| 1720 OUTPUT: | |
| 1721 RETVAL | |
| 1722 | |
| 1723 void | |
| 1724 SetHeight(win, height) | |
| 1725 VIWIN win | |
| 1726 int height; | |
| 1727 | |
| 1728 PREINIT: | |
| 1729 win_T *savewin; | |
| 1730 | |
| 1731 PPCODE: | |
| 1732 if (!win_valid(win)) | |
| 1733 win = curwin; | |
| 1734 savewin = curwin; | |
| 1735 curwin = win; | |
| 1736 win_setheight(height); | |
| 1737 curwin = savewin; | |
| 1738 | |
| 1739 void | |
|
8810
83d0b976d9b3
commit https://github.com/vim/vim/commit/864733ad92e30cd603314604af73f25106db4c90
Christian Brabandt <cb@256bit.org>
parents:
8214
diff
changeset
|
1740 Cursor(win, ...) |
|
83d0b976d9b3
commit https://github.com/vim/vim/commit/864733ad92e30cd603314604af73f25106db4c90
Christian Brabandt <cb@256bit.org>
parents:
8214
diff
changeset
|
1741 VIWIN win |
| 7 | 1742 |
| 1743 PPCODE: | |
| 2982 | 1744 if (items == 1) |
| 7 | 1745 { |
| 1746 EXTEND(sp, 2); | |
| 1747 if (!win_valid(win)) | |
| 1748 win = curwin; | |
| 1749 PUSHs(sv_2mortal(newSViv(win->w_cursor.lnum))); | |
| 1750 PUSHs(sv_2mortal(newSViv(win->w_cursor.col))); | |
| 1751 } | |
| 2982 | 1752 else if (items == 3) |
| 7 | 1753 { |
| 1754 int lnum, col; | |
| 1755 | |
| 1756 if (!win_valid(win)) | |
| 1757 win = curwin; | |
| 4105 | 1758 lnum = (int) SvIV(ST(1)); |
| 1759 col = (int) SvIV(ST(2)); | |
| 7 | 1760 win->w_cursor.lnum = lnum; |
| 1761 win->w_cursor.col = col; | |
|
14395
c15bef307de6
patch 8.1.0212: preferred cursor column not set in interfaces
Christian Brabandt <cb@256bit.org>
parents:
14377
diff
changeset
|
1762 win->w_set_curswant = TRUE; |
| 7 | 1763 check_cursor(); /* put cursor on an existing line */ |
|
29732
89e1d67814a9
patch 9.0.0206: redraw flags are not named specifically
Bram Moolenaar <Bram@vim.org>
parents:
28815
diff
changeset
|
1764 update_screen(UPD_NOT_VALID); |
| 7 | 1765 } |
| 1766 | |
| 1767 MODULE = VIM PACKAGE = VIBUF | |
| 1768 | |
| 1769 void | |
| 1770 DESTROY(vimbuf) | |
| 1771 VIBUF vimbuf; | |
| 1772 | |
| 1773 CODE: | |
| 1774 if (buf_valid(vimbuf)) | |
| 502 | 1775 vimbuf->b_perl_private = 0; |
| 7 | 1776 |
| 1777 void | |
| 1778 Name(vimbuf) | |
| 1779 VIBUF vimbuf; | |
| 1780 | |
| 1781 PPCODE: | |
| 1782 if (!buf_valid(vimbuf)) | |
| 1783 vimbuf = curbuf; | |
| 1784 /* No file name returns an empty string */ | |
| 1785 if (vimbuf->b_fname == NULL) | |
| 1786 XPUSHs(sv_2mortal(newSVpv("", 0))); | |
| 1787 else | |
| 1788 XPUSHs(sv_2mortal(newSVpv((char *)vimbuf->b_fname, 0))); | |
| 1789 | |
| 1790 void | |
| 1791 Number(vimbuf) | |
| 1792 VIBUF vimbuf; | |
| 1793 | |
| 1794 PPCODE: | |
| 1795 if (!buf_valid(vimbuf)) | |
| 1796 vimbuf = curbuf; | |
| 1797 XPUSHs(sv_2mortal(newSViv(vimbuf->b_fnum))); | |
| 1798 | |
| 1799 void | |
| 1800 Count(vimbuf) | |
| 1801 VIBUF vimbuf; | |
| 1802 | |
| 1803 PPCODE: | |
| 1804 if (!buf_valid(vimbuf)) | |
| 1805 vimbuf = curbuf; | |
| 1806 XPUSHs(sv_2mortal(newSViv(vimbuf->b_ml.ml_line_count))); | |
| 1807 | |
| 1808 void | |
| 1809 Get(vimbuf, ...) | |
| 1810 VIBUF vimbuf; | |
| 1811 | |
| 1812 PREINIT: | |
| 1813 char_u *line; | |
| 1814 int i; | |
| 1815 long lnum; | |
| 1816 PPCODE: | |
| 1817 if (buf_valid(vimbuf)) | |
| 1818 { | |
| 1819 for (i = 1; i < items; i++) | |
| 1820 { | |
| 4105 | 1821 lnum = (long) SvIV(ST(i)); |
| 7 | 1822 if (lnum > 0 && lnum <= vimbuf->b_ml.ml_line_count) |
| 1823 { | |
| 1824 line = ml_get_buf(vimbuf, lnum, FALSE); | |
| 1825 XPUSHs(sv_2mortal(newSVpv((char *)line, 0))); | |
| 1826 } | |
| 1827 } | |
| 1828 } | |
| 1829 | |
| 1830 void | |
| 1831 Set(vimbuf, ...) | |
| 1832 VIBUF vimbuf; | |
| 1833 | |
| 1834 PREINIT: | |
| 1835 int i; | |
| 1836 long lnum; | |
| 1837 char *line; | |
| 1838 PPCODE: | |
| 1839 if (buf_valid(vimbuf)) | |
| 1840 { | |
| 1841 if (items < 3) | |
| 1842 croak("Usage: VIBUF::Set(vimbuf, lnum, @lines)"); | |
| 1843 | |
| 4105 | 1844 lnum = (long) SvIV(ST(1)); |
| 7 | 1845 for(i = 2; i < items; i++, lnum++) |
| 1846 { | |
| 1847 line = SvPV(ST(i),PL_na); | |
| 1848 if (lnum > 0 && lnum <= vimbuf->b_ml.ml_line_count && line != NULL) | |
| 1849 { | |
| 918 | 1850 aco_save_T aco; |
| 1851 | |
|
31263
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1852 /* Set curwin/curbuf for "vimbuf" and save some things. */ |
| 918 | 1853 aucmd_prepbuf(&aco, vimbuf); |
|
31263
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1854 if (curbuf == vimbuf) |
| 7 | 1855 { |
|
31263
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1856 /* Only when a window was found. */ |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1857 if (u_savesub(lnum) == OK) |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1858 { |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1859 ml_replace(lnum, (char_u *)line, TRUE); |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1860 changed_bytes(lnum, 0); |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1861 } |
| 934 | 1862 |
|
31263
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1863 /* restore curwin/curbuf and a few other things */ |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1864 aucmd_restbuf(&aco); |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1865 /* Careful: autocommands may have made "vimbuf" invalid! */ |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1866 } |
| 7 | 1867 } |
| 1868 } | |
| 1869 } | |
| 1870 | |
| 1871 void | |
| 1872 Delete(vimbuf, ...) | |
| 1873 VIBUF vimbuf; | |
| 1874 | |
| 1875 PREINIT: | |
| 1876 long i, lnum = 0, count = 0; | |
| 1877 PPCODE: | |
| 1878 if (buf_valid(vimbuf)) | |
| 1879 { | |
| 1880 if (items == 2) | |
| 1881 { | |
| 4105 | 1882 lnum = (long) SvIV(ST(1)); |
| 7 | 1883 count = 1; |
| 1884 } | |
| 1885 else if (items == 3) | |
| 1886 { | |
| 4105 | 1887 lnum = (long) SvIV(ST(1)); |
| 1888 count = (long) 1 + SvIV(ST(2)) - lnum; | |
| 2982 | 1889 if (count == 0) |
| 7 | 1890 count = 1; |
| 2982 | 1891 if (count < 0) |
| 7 | 1892 { |
| 1893 lnum -= count; | |
| 1894 count = -count; | |
| 1895 } | |
| 1896 } | |
| 1897 if (items >= 2) | |
| 1898 { | |
| 1899 for (i = 0; i < count; i++) | |
| 1900 { | |
| 1901 if (lnum > 0 && lnum <= vimbuf->b_ml.ml_line_count) | |
| 1902 { | |
| 918 | 1903 aco_save_T aco; |
| 1904 | |
| 1905 /* set curwin/curbuf for "vimbuf" and save some things */ | |
| 1906 aucmd_prepbuf(&aco, vimbuf); | |
|
31263
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1907 if (curbuf == vimbuf) |
| 7 | 1908 { |
|
31263
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1909 /* Only when a window was found. */ |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1910 if (u_savedel(lnum, 1) == OK) |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1911 { |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1912 ml_delete(lnum); |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1913 check_cursor(); |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1914 deleted_lines_mark(lnum, 1L); |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1915 } |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1916 |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1917 /* restore curwin/curbuf and a few other things */ |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1918 aucmd_restbuf(&aco); |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1919 /* Careful: autocommands may have made "vimbuf" |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1920 * invalid! */ |
| 7 | 1921 } |
| 934 | 1922 |
|
29732
89e1d67814a9
patch 9.0.0206: redraw flags are not named specifically
Bram Moolenaar <Bram@vim.org>
parents:
28815
diff
changeset
|
1923 update_curbuf(UPD_VALID); |
| 7 | 1924 } |
| 1925 } | |
| 1926 } | |
| 1927 } | |
| 1928 | |
| 1929 void | |
| 1930 Append(vimbuf, ...) | |
| 1931 VIBUF vimbuf; | |
| 1932 | |
| 1933 PREINIT: | |
| 1934 int i; | |
| 1935 long lnum; | |
| 1936 char *line; | |
| 1937 PPCODE: | |
| 1938 if (buf_valid(vimbuf)) | |
| 1939 { | |
| 1940 if (items < 3) | |
| 1941 croak("Usage: VIBUF::Append(vimbuf, lnum, @lines)"); | |
| 1942 | |
| 4105 | 1943 lnum = (long) SvIV(ST(1)); |
| 7 | 1944 for (i = 2; i < items; i++, lnum++) |
| 1945 { | |
| 1946 line = SvPV(ST(i),PL_na); | |
| 1947 if (lnum >= 0 && lnum <= vimbuf->b_ml.ml_line_count && line != NULL) | |
| 1948 { | |
| 918 | 1949 aco_save_T aco; |
| 1950 | |
| 1951 /* set curwin/curbuf for "vimbuf" and save some things */ | |
| 1952 aucmd_prepbuf(&aco, vimbuf); | |
|
31263
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1953 if (curbuf == vimbuf) |
| 7 | 1954 { |
|
31263
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1955 /* Only when a window for "vimbuf" was found. */ |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1956 if (u_inssub(lnum + 1) == OK) |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1957 { |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1958 ml_append(lnum, (char_u *)line, (colnr_T)0, FALSE); |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1959 appended_lines_mark(lnum, 1L); |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1960 } |
| 934 | 1961 |
|
31263
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1962 /* restore curwin/curbuf and a few other things */ |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1963 aucmd_restbuf(&aco); |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1964 /* Careful: autocommands may have made "vimbuf" invalid! */ |
|
d8e7d725a666
patch 9.0.0965: using one window for executing autocommands is insufficient
Bram Moolenaar <Bram@vim.org>
parents:
31091
diff
changeset
|
1965 } |
| 934 | 1966 |
|
29732
89e1d67814a9
patch 9.0.0206: redraw flags are not named specifically
Bram Moolenaar <Bram@vim.org>
parents:
28815
diff
changeset
|
1967 update_curbuf(UPD_VALID); |
| 7 | 1968 } |
| 1969 } | |
| 1970 } | |
| 1971 | |
|
8080
b6cb94ad97a4
commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c
Christian Brabandt <cb@256bit.org>
parents:
7856
diff
changeset
|
1972 #ifdef __GNUC__ |
|
b6cb94ad97a4
commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c
Christian Brabandt <cb@256bit.org>
parents:
7856
diff
changeset
|
1973 # pragma GCC diagnostic pop |
|
b6cb94ad97a4
commit https://github.com/vim/vim/commit/6aa2cd4be287f35f95f35c2cec6d5a24f53c4d3c
Christian Brabandt <cb@256bit.org>
parents:
7856
diff
changeset
|
1974 #endif |