vim: src/if_perl.xs annotate

annotate src/if_perl.xs @ 7807:1a5d34492798 v7.4.1200

commit https://github.com/vim/vim/commit/d99df423c559d85c17779b3685426c489554908c Author: Bram Moolenaar <Bram@vim.org> Date: Fri Jan 29 23:20:40 2016 +0100 patch 7.4.1200 Problem: Still using __ARGS. Solution: Remove __ARGS in several files. (script by Hirohito Higashi)

author	Christian Brabandt <cb@256bit.org>
date	Fri, 29 Jan 2016 23:30:06 +0100
parents	c7575b07de98
children	226ed297307f

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

Mercurial > vim

annotate src/if_perl.xs @ 7807:1a5d34492798 v7.4.1200