vim: src/if_perl.xs annotate

annotate src/if_perl.xs @ 28867:987d29ca36a5 v8.2.4956

patch 8.2.4956: reading past end of line with "gf" in Visual block mode Commit: https://github.com/vim/vim/commit/395bd1f6d3edc9f7edb5d1f2d7deaf5a9e3ab93c Author: Bram Moolenaar <Bram@vim.org> Date: Sat May 14 21:29:44 2022 +0100 patch 8.2.4956: reading past end of line with "gf" in Visual block mode Problem: Reading past end of line with "gf" in Visual block mode. Solution: Do not include the NUL in the length.

author	Bram Moolenaar <Bram@vim.org>
date	Sat, 14 May 2022 22:30:03 +0200
parents	d26a95a16ce1
children	89e1d67814a9

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

Mercurial > vim

annotate src/if_perl.xs @ 28867:987d29ca36a5 v8.2.4956