annotate src/if_perl.xs @ 15557:c0560da7873e v8.1.0786

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