annotate src/if_perl.xs @ 5940:f6f754304324 v7.4.311

updated for version 7.4.311 Problem: Can't use winrestview to only restore part of the view. Solution: Handle missing items in the dict. (Christian Brabandt)
author Bram Moolenaar <bram@vim.org>
date Wed, 28 May 2014 16:47:16 +0200
parents 705f398ce6f5
children c052937aae8c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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. */
a46a101bfddd updated for version 7.3.623
Bram Moolenaar <bram@vim.org>
parents: 3417
diff changeset
120 # define AVOID_PL_ERRGV
a46a101bfddd updated for version 7.3.623
Bram Moolenaar <bram@vim.org>
parents: 3417
diff changeset
121 #endif
a46a101bfddd updated for version 7.3.623
Bram Moolenaar <bram@vim.org>
parents: 3417
diff changeset
122
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
123 /* Compatibility hacks over */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
124
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
125 static PerlInterpreter *perl_interp = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
126 static void xs_init __ARGS((pTHX));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
127 static void VIM_init __ARGS((void));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
128 EXTERN_C void boot_DynaLoader __ARGS((pTHX_ CV*));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
129
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
130 /*
2370
454f314d0e61 Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents: 2255
diff changeset
131 * For dynamic linked perl.
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
132 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
133 #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
134
454f314d0e61 Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents: 2255
diff changeset
135 #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
136 #ifdef WIN3264
2370
454f314d0e61 Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents: 2255
diff changeset
137 typedef int HANDLE;
454f314d0e61 Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents: 2255
diff changeset
138 #endif
454f314d0e61 Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents: 2255
diff changeset
139 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
140 typedef int XSUBADDR_t;
5706
705f398ce6f5 updated for version 7.4.198
Bram Moolenaar <bram@vim.org>
parents: 5560
diff changeset
141 #endif
705f398ce6f5 updated for version 7.4.198
Bram Moolenaar <bram@vim.org>
parents: 5560
diff changeset
142 #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
143 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
144 #endif
454f314d0e61 Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents: 2255
diff changeset
145
2372
a42d19b78c93 Fix building with Perl on Windows with MingW. (James Vega)
Bram Moolenaar <bram@vim.org>
parents: 2370
diff changeset
146 #ifndef WIN3264
2370
454f314d0e61 Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents: 2255
diff changeset
147 #include <dlfcn.h>
454f314d0e61 Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents: 2255
diff changeset
148 #define HANDLE void*
454f314d0e61 Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents: 2255
diff changeset
149 #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
150 #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
151 #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
152 #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
153 #else
454f314d0e61 Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents: 2255
diff changeset
154 #define PERL_PROC FARPROC
2612
fa5dee44df3f updated for version 7.3.034
Bram Moolenaar <bram@vim.org>
parents: 2372
diff changeset
155 #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
156 #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
157 #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
158 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
159 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
160 * Wrapper defines
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
161 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
162 # define perl_alloc dll_perl_alloc
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
163 # define perl_construct dll_perl_construct
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
164 # define perl_parse dll_perl_parse
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
165 # define perl_run dll_perl_run
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
166 # define perl_destruct dll_perl_destruct
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
167 # define perl_free dll_perl_free
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
168 # define Perl_get_context dll_Perl_get_context
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
169 # define Perl_croak dll_Perl_croak
2096
6510d834609f updated for version 7.2.380
Bram Moolenaar <bram@zimbu.org>
parents: 2079
diff changeset
170 # ifdef PERL5101_OR_LATER
2079
5abd3e3c0085 updated for version 7.2.363
Bram Moolenaar <bram@zimbu.org>
parents: 1990
diff changeset
171 # 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
172 # endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
173 # ifndef PROTO
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
174 # define Perl_croak_nocontext dll_Perl_croak_nocontext
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
175 # define Perl_call_argv dll_Perl_call_argv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
176 # define Perl_call_pv dll_Perl_call_pv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
177 # define Perl_eval_sv dll_Perl_eval_sv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
178 # define Perl_get_sv dll_Perl_get_sv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
179 # define Perl_eval_pv dll_Perl_eval_pv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
180 # define Perl_call_method dll_Perl_call_method
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
181 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
182 # define Perl_dowantarray dll_Perl_dowantarray
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
183 # define Perl_free_tmps dll_Perl_free_tmps
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
184 # define Perl_gv_stashpv dll_Perl_gv_stashpv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
185 # define Perl_markstack_grow dll_Perl_markstack_grow
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
186 # define Perl_mg_find dll_Perl_mg_find
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
187 # define Perl_newXS dll_Perl_newXS
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
188 # define Perl_newSV dll_Perl_newSV
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
189 # define Perl_newSViv dll_Perl_newSViv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
190 # define Perl_newSVpv dll_Perl_newSVpv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
191 # define Perl_pop_scope dll_Perl_pop_scope
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
192 # define Perl_push_scope dll_Perl_push_scope
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
193 # define Perl_save_int dll_Perl_save_int
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
194 # define Perl_stack_grow dll_Perl_stack_grow
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
195 # 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
196 # if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
22550986c713 updated for version 7.3.297
Bram Moolenaar <bram@vim.org>
parents: 2982
diff changeset
197 # define Perl_sv_2bool_flags dll_Perl_sv_2bool_flags
3820
dde6d0216a08 updated for version 7.3.668
Bram Moolenaar <bram@vim.org>
parents: 3818
diff changeset
198 # define Perl_xs_apiversion_bootcheck dll_Perl_xs_apiversion_bootcheck
3050
22550986c713 updated for version 7.3.297
Bram Moolenaar <bram@vim.org>
parents: 2982
diff changeset
199 # else
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
200 # 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
201 # endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
202 # define Perl_sv_2iv dll_Perl_sv_2iv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
203 # define Perl_sv_2mortal dll_Perl_sv_2mortal
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
204 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
205 # define Perl_sv_2pv_flags dll_Perl_sv_2pv_flags
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
206 # define Perl_sv_2pv_nolen dll_Perl_sv_2pv_nolen
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
207 # else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
208 # define Perl_sv_2pv dll_Perl_sv_2pv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
209 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
210 # define Perl_sv_bless dll_Perl_sv_bless
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_catpvn_flags dll_Perl_sv_catpvn_flags
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
213 # else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
214 # define Perl_sv_catpvn dll_Perl_sv_catpvn
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
215 # endif
1387
35f3b20de2dd updated for version 7.1-102
vimboss
parents: 934
diff changeset
216 #ifdef PERL589_OR_LATER
35f3b20de2dd updated for version 7.1-102
vimboss
parents: 934
diff changeset
217 # define Perl_sv_2iv_flags dll_Perl_sv_2iv_flags
35f3b20de2dd updated for version 7.1-102
vimboss
parents: 934
diff changeset
218 # define Perl_newXS_flags dll_Perl_newXS_flags
35f3b20de2dd updated for version 7.1-102
vimboss
parents: 934
diff changeset
219 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
220 # define Perl_sv_free dll_Perl_sv_free
1711
20b2e52ca962 updated for version 7.2-009
vimboss
parents: 1681
diff changeset
221 # if (PERL_REVISION == 5) && (PERL_VERSION >= 10)
20b2e52ca962 updated for version 7.2-009
vimboss
parents: 1681
diff changeset
222 # define Perl_sv_free2 dll_Perl_sv_free2
20b2e52ca962 updated for version 7.2-009
vimboss
parents: 1681
diff changeset
223 # endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
224 # define Perl_sv_isa dll_Perl_sv_isa
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
225 # define Perl_sv_magic dll_Perl_sv_magic
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
226 # define Perl_sv_setiv dll_Perl_sv_setiv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
227 # define Perl_sv_setpv dll_Perl_sv_setpv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
228 # define Perl_sv_setpvn dll_Perl_sv_setpvn
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
229 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
230 # define Perl_sv_setsv_flags dll_Perl_sv_setsv_flags
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
231 # else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
232 # define Perl_sv_setsv dll_Perl_sv_setsv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
233 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
234 # define Perl_sv_upgrade dll_Perl_sv_upgrade
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
235 # define Perl_Tstack_sp_ptr dll_Perl_Tstack_sp_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
236 # define Perl_Top_ptr dll_Perl_Top_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
237 # define Perl_Tstack_base_ptr dll_Perl_Tstack_base_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
238 # define Perl_Tstack_max_ptr dll_Perl_Tstack_max_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
239 # define Perl_Ttmps_ix_ptr dll_Perl_Ttmps_ix_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
240 # define Perl_Ttmps_floor_ptr dll_Perl_Ttmps_floor_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
241 # define Perl_Tmarkstack_ptr_ptr dll_Perl_Tmarkstack_ptr_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
242 # define Perl_Tmarkstack_max_ptr dll_Perl_Tmarkstack_max_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
243 # define Perl_TSv_ptr dll_Perl_TSv_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
244 # define Perl_TXpv_ptr dll_Perl_TXpv_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
245 # define Perl_Tna_ptr dll_Perl_Tna_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
246 # define Perl_Idefgv_ptr dll_Perl_Idefgv_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
247 # define Perl_Ierrgv_ptr dll_Perl_Ierrgv_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
248 # define Perl_Isv_yes_ptr dll_Perl_Isv_yes_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
249 # 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
250 # define Perl_Gthr_key_ptr dll_Perl_Gthr_key_ptr
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
251
1765
c050d5bbe79b updated for version 7.2-063
vimboss
parents: 1711
diff changeset
252 # define Perl_sys_init dll_Perl_sys_init
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
253 # define Perl_sys_term dll_Perl_sys_term
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
254 # define Perl_ISv_ptr dll_Perl_ISv_ptr
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
255 # define Perl_Istack_max_ptr dll_Perl_Istack_max_ptr
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
256 # define Perl_Istack_base_ptr dll_Perl_Istack_base_ptr
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
257 # define Perl_Itmps_ix_ptr dll_Perl_Itmps_ix_ptr
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
258 # define Perl_Itmps_floor_ptr dll_Perl_Itmps_floor_ptr
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
259 # define Perl_IXpv_ptr dll_Perl_IXpv_ptr
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
260 # define Perl_Ina_ptr dll_Perl_Ina_ptr
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
261 # define Perl_Imarkstack_ptr_ptr dll_Perl_Imarkstack_ptr_ptr
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
262 # define Perl_Imarkstack_max_ptr dll_Perl_Imarkstack_max_ptr
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
263 # define Perl_Istack_sp_ptr dll_Perl_Istack_sp_ptr
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
264 # define Perl_Iop_ptr dll_Perl_Iop_ptr
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
265 # define Perl_call_list dll_Perl_call_list
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
266 # define Perl_Iscopestack_ix_ptr dll_Perl_Iscopestack_ix_ptr
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
267 # define Perl_Iunitcheckav_ptr dll_Perl_Iunitcheckav_ptr
3820
dde6d0216a08 updated for version 7.3.668
Bram Moolenaar <bram@vim.org>
parents: 3818
diff changeset
268 # if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
5706
705f398ce6f5 updated for version 7.4.198
Bram Moolenaar <bram@vim.org>
parents: 5560
diff changeset
269 # ifdef USE_ITHREADS
705f398ce6f5 updated for version 7.4.198
Bram Moolenaar <bram@vim.org>
parents: 5560
diff changeset
270 # define PL_thr_key *dll_PL_thr_key
705f398ce6f5 updated for version 7.4.198
Bram Moolenaar <bram@vim.org>
parents: 5560
diff changeset
271 # endif
3820
dde6d0216a08 updated for version 7.3.668
Bram Moolenaar <bram@vim.org>
parents: 3818
diff changeset
272 # endif
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
273
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
274 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
275 * Declare HANDLE for perl.dll and function pointers.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
276 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
277 static HANDLE hPerlLib = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
278
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
279 static PerlInterpreter* (*perl_alloc)();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
280 static void (*perl_construct)(PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
281 static void (*perl_destruct)(PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
282 static void (*perl_free)(PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
283 static int (*perl_run)(PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
284 static int (*perl_parse)(PerlInterpreter*, XSINIT_t, int, char**, char**);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
285 static void* (*Perl_get_context)(void);
933
56609cdae088 updated for version 7.0-059
vimboss
parents: 925
diff changeset
286 static void (*Perl_croak)(pTHX_ const char*, ...);
2096
6510d834609f updated for version 7.2.380
Bram Moolenaar <bram@zimbu.org>
parents: 2079
diff changeset
287 #ifdef PERL5101_OR_LATER
5537
805ad8488dc8 updated for version 7.4.117
Bram Moolenaar <bram@vim.org>
parents: 5267
diff changeset
288 /* 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
289 # if (PERL_REVISION == 5) && (PERL_VERSION >= 18)
805ad8488dc8 updated for version 7.4.117
Bram Moolenaar <bram@vim.org>
parents: 5267
diff changeset
290 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
291 # else
2079
5abd3e3c0085 updated for version 7.2.363
Bram Moolenaar <bram@zimbu.org>
parents: 1990
diff changeset
292 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
293 # endif
4905
517fa1a34c7c updated for version 7.3.1198
Bram Moolenaar <bram@vim.org>
parents: 4352
diff changeset
294 #endif
933
56609cdae088 updated for version 7.0-059
vimboss
parents: 925
diff changeset
295 static void (*Perl_croak_nocontext)(const char*, ...);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
296 static I32 (*Perl_dowantarray)(pTHX);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
297 static void (*Perl_free_tmps)(pTHX);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
298 static HV* (*Perl_gv_stashpv)(pTHX_ const char*, I32);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
299 static void (*Perl_markstack_grow)(pTHX);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
300 static MAGIC* (*Perl_mg_find)(pTHX_ SV*, int);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
301 static CV* (*Perl_newXS)(pTHX_ char*, XSUBADDR_t, char*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
302 static SV* (*Perl_newSV)(pTHX_ STRLEN);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
303 static SV* (*Perl_newSViv)(pTHX_ IV);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
304 static SV* (*Perl_newSVpv)(pTHX_ const char*, STRLEN);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
305 static I32 (*Perl_call_argv)(pTHX_ const char*, I32, char**);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
306 static I32 (*Perl_call_pv)(pTHX_ const char*, I32);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
307 static I32 (*Perl_eval_sv)(pTHX_ SV*, I32);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
308 static SV* (*Perl_get_sv)(pTHX_ const char*, I32);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
309 static SV* (*Perl_eval_pv)(pTHX_ const char*, I32);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
310 static SV* (*Perl_call_method)(pTHX_ const char*, I32);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
311 static void (*Perl_pop_scope)(pTHX);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
312 static void (*Perl_push_scope)(pTHX);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
313 static void (*Perl_save_int)(pTHX_ int*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
314 static SV** (*Perl_stack_grow)(pTHX_ SV**, SV**p, int);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
315 static SV** (*Perl_set_context)(void*);
3050
22550986c713 updated for version 7.3.297
Bram Moolenaar <bram@vim.org>
parents: 2982
diff changeset
316 #if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
22550986c713 updated for version 7.3.297
Bram Moolenaar <bram@vim.org>
parents: 2982
diff changeset
317 static bool (*Perl_sv_2bool_flags)(pTHX_ SV*, I32);
22550986c713 updated for version 7.3.297
Bram Moolenaar <bram@vim.org>
parents: 2982
diff changeset
318 static void (*Perl_xs_apiversion_bootcheck)(pTHX_ SV *module, const char *api_p, STRLEN api_len);
22550986c713 updated for version 7.3.297
Bram Moolenaar <bram@vim.org>
parents: 2982
diff changeset
319 #else
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
320 static bool (*Perl_sv_2bool)(pTHX_ SV*);
3050
22550986c713 updated for version 7.3.297
Bram Moolenaar <bram@vim.org>
parents: 2982
diff changeset
321 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
322 static IV (*Perl_sv_2iv)(pTHX_ SV*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
323 static SV* (*Perl_sv_2mortal)(pTHX_ SV*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
324 #if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
325 static char* (*Perl_sv_2pv_flags)(pTHX_ SV*, STRLEN*, I32);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
326 static char* (*Perl_sv_2pv_nolen)(pTHX_ SV*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
327 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
328 static char* (*Perl_sv_2pv)(pTHX_ SV*, STRLEN*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
329 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
330 static SV* (*Perl_sv_bless)(pTHX_ SV*, HV*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
331 #if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
332 static void (*Perl_sv_catpvn_flags)(pTHX_ SV* , const char*, STRLEN, I32);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
333 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
334 static void (*Perl_sv_catpvn)(pTHX_ SV*, const char*, STRLEN);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
335 #endif
1387
35f3b20de2dd updated for version 7.1-102
vimboss
parents: 934
diff changeset
336 #ifdef PERL589_OR_LATER
35f3b20de2dd updated for version 7.1-102
vimboss
parents: 934
diff changeset
337 static IV (*Perl_sv_2iv_flags)(pTHX_ SV* sv, I32 flags);
35f3b20de2dd updated for version 7.1-102
vimboss
parents: 934
diff changeset
338 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
339 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
340 static void (*Perl_sv_free)(pTHX_ SV*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
341 static int (*Perl_sv_isa)(pTHX_ SV*, const char*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
342 static void (*Perl_sv_magic)(pTHX_ SV*, SV*, int, const char*, I32);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
343 static void (*Perl_sv_setiv)(pTHX_ SV*, IV);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
344 static void (*Perl_sv_setpv)(pTHX_ SV*, const char*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
345 static void (*Perl_sv_setpvn)(pTHX_ SV*, const char*, STRLEN);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
346 #if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
347 static void (*Perl_sv_setsv_flags)(pTHX_ SV*, SV*, I32);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
348 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
349 static void (*Perl_sv_setsv)(pTHX_ SV*, SV*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
350 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
351 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
352 #if (PERL_REVISION == 5) && (PERL_VERSION < 10)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
353 static SV*** (*Perl_Tstack_sp_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
354 static OP** (*Perl_Top_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
355 static SV*** (*Perl_Tstack_base_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
356 static SV*** (*Perl_Tstack_max_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
357 static I32* (*Perl_Ttmps_ix_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
358 static I32* (*Perl_Ttmps_floor_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
359 static I32** (*Perl_Tmarkstack_ptr_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
360 static I32** (*Perl_Tmarkstack_max_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
361 static SV** (*Perl_TSv_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
362 static XPV** (*Perl_TXpv_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
363 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
364 #else
5537
805ad8488dc8 updated for version 7.4.117
Bram Moolenaar <bram@vim.org>
parents: 5267
diff changeset
365 /* 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
366 # if (PERL_REVISION == 5) && (PERL_VERSION >= 18)
805ad8488dc8 updated for version 7.4.117
Bram Moolenaar <bram@vim.org>
parents: 5267
diff changeset
367 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
368 # else
1711
20b2e52ca962 updated for version 7.2-009
vimboss
parents: 1681
diff changeset
369 static void (*Perl_sv_free2)(pTHX_ SV*);
5537
805ad8488dc8 updated for version 7.4.117
Bram Moolenaar <bram@vim.org>
parents: 5267
diff changeset
370 # endif
1765
c050d5bbe79b updated for version 7.2-063
vimboss
parents: 1711
diff changeset
371 static void (*Perl_sys_init)(int* argc, char*** argv);
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
372 static void (*Perl_sys_term)(void);
3818
cd36c0fed43e updated for version 7.3.667
Bram Moolenaar <bram@vim.org>
parents: 3728
diff changeset
373 static void (*Perl_call_list)(pTHX_ I32, AV*);
cd36c0fed43e updated for version 7.3.667
Bram Moolenaar <bram@vim.org>
parents: 3728
diff changeset
374 # if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
cd36c0fed43e updated for version 7.3.667
Bram Moolenaar <bram@vim.org>
parents: 3728
diff changeset
375 # else
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
376 static SV** (*Perl_ISv_ptr)(register PerlInterpreter*);
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
377 static SV*** (*Perl_Istack_max_ptr)(register PerlInterpreter*);
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
378 static SV*** (*Perl_Istack_base_ptr)(register PerlInterpreter*);
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
379 static XPV** (*Perl_IXpv_ptr)(register PerlInterpreter*);
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
380 static I32* (*Perl_Itmps_ix_ptr)(register PerlInterpreter*);
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
381 static I32* (*Perl_Itmps_floor_ptr)(register PerlInterpreter*);
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
382 static STRLEN* (*Perl_Ina_ptr)(register PerlInterpreter*);
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
383 static I32** (*Perl_Imarkstack_ptr_ptr)(register PerlInterpreter*);
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
384 static I32** (*Perl_Imarkstack_max_ptr)(register PerlInterpreter*);
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
385 static SV*** (*Perl_Istack_sp_ptr)(register PerlInterpreter*);
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
386 static OP** (*Perl_Iop_ptr)(register PerlInterpreter*);
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
387 static I32* (*Perl_Iscopestack_ix_ptr)(register PerlInterpreter*);
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
388 static AV** (*Perl_Iunitcheckav_ptr)(register PerlInterpreter*);
3818
cd36c0fed43e updated for version 7.3.667
Bram Moolenaar <bram@vim.org>
parents: 3728
diff changeset
389 # endif
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
390 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
391
3818
cd36c0fed43e updated for version 7.3.667
Bram Moolenaar <bram@vim.org>
parents: 3728
diff changeset
392 #if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
5706
705f398ce6f5 updated for version 7.4.198
Bram Moolenaar <bram@vim.org>
parents: 5560
diff changeset
393 # ifdef USE_ITHREADS
3820
dde6d0216a08 updated for version 7.3.668
Bram Moolenaar <bram@vim.org>
parents: 3818
diff changeset
394 static perl_key* dll_PL_thr_key;
5706
705f398ce6f5 updated for version 7.4.198
Bram Moolenaar <bram@vim.org>
parents: 5560
diff changeset
395 # endif
3818
cd36c0fed43e updated for version 7.3.667
Bram Moolenaar <bram@vim.org>
parents: 3728
diff changeset
396 #else
2370
454f314d0e61 Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents: 2255
diff changeset
397 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
398 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
399 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
400 static perl_key* (*Perl_Gthr_key_ptr)_((pTHX));
cd36c0fed43e updated for version 7.3.667
Bram Moolenaar <bram@vim.org>
parents: 3728
diff changeset
401 #endif
2370
454f314d0e61 Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents: 2255
diff changeset
402 static void (*boot_DynaLoader)_((pTHX_ CV*));
454f314d0e61 Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents: 2255
diff changeset
403
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
404 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
405 * Table of name to function pointer of perl.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
406 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
407 static struct {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
408 char* name;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
409 PERL_PROC* ptr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
410 } perl_funcname_table[] = {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
411 {"perl_alloc", (PERL_PROC*)&perl_alloc},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
412 {"perl_construct", (PERL_PROC*)&perl_construct},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
413 {"perl_destruct", (PERL_PROC*)&perl_destruct},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
414 {"perl_free", (PERL_PROC*)&perl_free},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
415 {"perl_run", (PERL_PROC*)&perl_run},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
416 {"perl_parse", (PERL_PROC*)&perl_parse},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
417 {"Perl_get_context", (PERL_PROC*)&Perl_get_context},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
418 {"Perl_croak", (PERL_PROC*)&Perl_croak},
2096
6510d834609f updated for version 7.2.380
Bram Moolenaar <bram@zimbu.org>
parents: 2079
diff changeset
419 #ifdef PERL5101_OR_LATER
2079
5abd3e3c0085 updated for version 7.2.363
Bram Moolenaar <bram@zimbu.org>
parents: 1990
diff changeset
420 {"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
421 #endif
5706
705f398ce6f5 updated for version 7.4.198
Bram Moolenaar <bram@vim.org>
parents: 5560
diff changeset
422 #ifdef PERL_IMPLICIT_CONTEXT
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
423 {"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
424 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
425 {"Perl_dowantarray", (PERL_PROC*)&Perl_dowantarray},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
426 {"Perl_free_tmps", (PERL_PROC*)&Perl_free_tmps},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
427 {"Perl_gv_stashpv", (PERL_PROC*)&Perl_gv_stashpv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
428 {"Perl_markstack_grow", (PERL_PROC*)&Perl_markstack_grow},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
429 {"Perl_mg_find", (PERL_PROC*)&Perl_mg_find},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
430 {"Perl_newXS", (PERL_PROC*)&Perl_newXS},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
431 {"Perl_newSV", (PERL_PROC*)&Perl_newSV},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
432 {"Perl_newSViv", (PERL_PROC*)&Perl_newSViv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
433 {"Perl_newSVpv", (PERL_PROC*)&Perl_newSVpv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
434 {"Perl_call_argv", (PERL_PROC*)&Perl_call_argv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
435 {"Perl_call_pv", (PERL_PROC*)&Perl_call_pv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
436 {"Perl_eval_sv", (PERL_PROC*)&Perl_eval_sv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
437 {"Perl_get_sv", (PERL_PROC*)&Perl_get_sv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
438 {"Perl_eval_pv", (PERL_PROC*)&Perl_eval_pv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
439 {"Perl_call_method", (PERL_PROC*)&Perl_call_method},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
440 {"Perl_pop_scope", (PERL_PROC*)&Perl_pop_scope},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
441 {"Perl_push_scope", (PERL_PROC*)&Perl_push_scope},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
442 {"Perl_save_int", (PERL_PROC*)&Perl_save_int},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
443 {"Perl_stack_grow", (PERL_PROC*)&Perl_stack_grow},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
444 {"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
445 #if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
22550986c713 updated for version 7.3.297
Bram Moolenaar <bram@vim.org>
parents: 2982
diff changeset
446 {"Perl_sv_2bool_flags", (PERL_PROC*)&Perl_sv_2bool_flags},
22550986c713 updated for version 7.3.297
Bram Moolenaar <bram@vim.org>
parents: 2982
diff changeset
447 {"Perl_xs_apiversion_bootcheck",(PERL_PROC*)&Perl_xs_apiversion_bootcheck},
22550986c713 updated for version 7.3.297
Bram Moolenaar <bram@vim.org>
parents: 2982
diff changeset
448 #else
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
449 {"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
450 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
451 {"Perl_sv_2iv", (PERL_PROC*)&Perl_sv_2iv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
452 {"Perl_sv_2mortal", (PERL_PROC*)&Perl_sv_2mortal},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
453 #if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
454 {"Perl_sv_2pv_flags", (PERL_PROC*)&Perl_sv_2pv_flags},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
455 {"Perl_sv_2pv_nolen", (PERL_PROC*)&Perl_sv_2pv_nolen},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
456 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
457 {"Perl_sv_2pv", (PERL_PROC*)&Perl_sv_2pv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
458 #endif
1387
35f3b20de2dd updated for version 7.1-102
vimboss
parents: 934
diff changeset
459 #ifdef PERL589_OR_LATER
35f3b20de2dd updated for version 7.1-102
vimboss
parents: 934
diff changeset
460 {"Perl_sv_2iv_flags", (PERL_PROC*)&Perl_sv_2iv_flags},
35f3b20de2dd updated for version 7.1-102
vimboss
parents: 934
diff changeset
461 {"Perl_newXS_flags", (PERL_PROC*)&Perl_newXS_flags},
35f3b20de2dd updated for version 7.1-102
vimboss
parents: 934
diff changeset
462 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
463 {"Perl_sv_bless", (PERL_PROC*)&Perl_sv_bless},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
464 #if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
465 {"Perl_sv_catpvn_flags", (PERL_PROC*)&Perl_sv_catpvn_flags},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
466 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
467 {"Perl_sv_catpvn", (PERL_PROC*)&Perl_sv_catpvn},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
468 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
469 {"Perl_sv_free", (PERL_PROC*)&Perl_sv_free},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
470 {"Perl_sv_isa", (PERL_PROC*)&Perl_sv_isa},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
471 {"Perl_sv_magic", (PERL_PROC*)&Perl_sv_magic},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
472 {"Perl_sv_setiv", (PERL_PROC*)&Perl_sv_setiv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
473 {"Perl_sv_setpv", (PERL_PROC*)&Perl_sv_setpv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
474 {"Perl_sv_setpvn", (PERL_PROC*)&Perl_sv_setpvn},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
475 #if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
476 {"Perl_sv_setsv_flags", (PERL_PROC*)&Perl_sv_setsv_flags},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
477 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
478 {"Perl_sv_setsv", (PERL_PROC*)&Perl_sv_setsv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
479 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
480 {"Perl_sv_upgrade", (PERL_PROC*)&Perl_sv_upgrade},
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
481 #if (PERL_REVISION == 5) && (PERL_VERSION < 10)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
482 {"Perl_Tstack_sp_ptr", (PERL_PROC*)&Perl_Tstack_sp_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
483 {"Perl_Top_ptr", (PERL_PROC*)&Perl_Top_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
484 {"Perl_Tstack_base_ptr", (PERL_PROC*)&Perl_Tstack_base_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
485 {"Perl_Tstack_max_ptr", (PERL_PROC*)&Perl_Tstack_max_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
486 {"Perl_Ttmps_ix_ptr", (PERL_PROC*)&Perl_Ttmps_ix_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
487 {"Perl_Ttmps_floor_ptr", (PERL_PROC*)&Perl_Ttmps_floor_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
488 {"Perl_Tmarkstack_ptr_ptr", (PERL_PROC*)&Perl_Tmarkstack_ptr_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
489 {"Perl_Tmarkstack_max_ptr", (PERL_PROC*)&Perl_Tmarkstack_max_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
490 {"Perl_TSv_ptr", (PERL_PROC*)&Perl_TSv_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
491 {"Perl_TXpv_ptr", (PERL_PROC*)&Perl_TXpv_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
492 {"Perl_Tna_ptr", (PERL_PROC*)&Perl_Tna_ptr},
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
493 #else
1711
20b2e52ca962 updated for version 7.2-009
vimboss
parents: 1681
diff changeset
494 {"Perl_sv_free2", (PERL_PROC*)&Perl_sv_free2},
1765
c050d5bbe79b updated for version 7.2-063
vimboss
parents: 1711
diff changeset
495 {"Perl_sys_init", (PERL_PROC*)&Perl_sys_init},
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
496 {"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
497 {"Perl_call_list", (PERL_PROC*)&Perl_call_list},
22550986c713 updated for version 7.3.297
Bram Moolenaar <bram@vim.org>
parents: 2982
diff changeset
498 # if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
22550986c713 updated for version 7.3.297
Bram Moolenaar <bram@vim.org>
parents: 2982
diff changeset
499 # else
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
500 {"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
501 {"Perl_Istack_max_ptr", (PERL_PROC*)&Perl_Istack_max_ptr},
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
502 {"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
503 {"Perl_IXpv_ptr", (PERL_PROC*)&Perl_IXpv_ptr},
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
504 {"Perl_Itmps_ix_ptr", (PERL_PROC*)&Perl_Itmps_ix_ptr},
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
505 {"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
506 {"Perl_Ina_ptr", (PERL_PROC*)&Perl_Ina_ptr},
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
507 {"Perl_Imarkstack_ptr_ptr", (PERL_PROC*)&Perl_Imarkstack_ptr_ptr},
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
508 {"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
509 {"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
510 {"Perl_Iop_ptr", (PERL_PROC*)&Perl_Iop_ptr},
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
511 {"Perl_Iscopestack_ix_ptr", (PERL_PROC*)&Perl_Iscopestack_ix_ptr},
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
512 {"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
513 # endif
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
514 #endif
3050
22550986c713 updated for version 7.3.297
Bram Moolenaar <bram@vim.org>
parents: 2982
diff changeset
515 #if (PERL_REVISION == 5) && (PERL_VERSION >= 14)
5706
705f398ce6f5 updated for version 7.4.198
Bram Moolenaar <bram@vim.org>
parents: 5560
diff changeset
516 # ifdef USE_ITHREADS
3820
dde6d0216a08 updated for version 7.3.668
Bram Moolenaar <bram@vim.org>
parents: 3818
diff changeset
517 {"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
518 # endif
3050
22550986c713 updated for version 7.3.297
Bram Moolenaar <bram@vim.org>
parents: 2982
diff changeset
519 #else
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
520 {"Perl_Idefgv_ptr", (PERL_PROC*)&Perl_Idefgv_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
521 {"Perl_Ierrgv_ptr", (PERL_PROC*)&Perl_Ierrgv_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
522 {"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
523 {"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
524 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
525 {"boot_DynaLoader", (PERL_PROC*)&boot_DynaLoader},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
526 {"", NULL},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
527 };
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
528
5537
805ad8488dc8 updated for version 7.4.117
Bram Moolenaar <bram@vim.org>
parents: 5267
diff changeset
529 /* Work around for perl-5.18.
805ad8488dc8 updated for version 7.4.117
Bram Moolenaar <bram@vim.org>
parents: 5267
diff changeset
530 * 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
531 * "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
532 * 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
533 #if (PERL_REVISION == 5) && (PERL_VERSION >= 18)
805ad8488dc8 updated for version 7.4.117
Bram Moolenaar <bram@vim.org>
parents: 5267
diff changeset
534 # include <inline.h>
805ad8488dc8 updated for version 7.4.117
Bram Moolenaar <bram@vim.org>
parents: 5267
diff changeset
535 #endif
805ad8488dc8 updated for version 7.4.117
Bram Moolenaar <bram@vim.org>
parents: 5267
diff changeset
536
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
537 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
538 * Make all runtime-links of perl.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
539 *
5267
585b623a1aa3 updated for version 7.4b.010
Bram Moolenaar <bram@vim.org>
parents: 5261
diff changeset
540 * 1. Get module handle using dlopen() or vimLoadLib().
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
541 * 2. Get pointer to perl function by GetProcAddress.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
542 * 3. Repeat 2, until get all functions will be used.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
543 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
544 * Parameter 'libname' provides name of DLL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
545 * Return OK or FAIL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
546 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
547 static int
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
548 perl_runtime_link_init(char *libname, int verbose)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
549 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
550 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
551
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
552 if (hPerlLib != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
553 return OK;
2370
454f314d0e61 Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents: 2255
diff changeset
554 if ((hPerlLib = load_dll(libname)) == NULL)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
555 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
556 if (verbose)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
557 EMSG2(_("E370: Could not load library %s"), libname);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
558 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
559 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
560 for (i = 0; perl_funcname_table[i].ptr; ++i)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
561 {
2370
454f314d0e61 Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents: 2255
diff changeset
562 if (!(*perl_funcname_table[i].ptr = symbol_from_dll(hPerlLib,
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
563 perl_funcname_table[i].name)))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
564 {
2370
454f314d0e61 Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents: 2255
diff changeset
565 close_dll(hPerlLib);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
566 hPerlLib = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
567 if (verbose)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
568 EMSG2(_(e_loadfunc), perl_funcname_table[i].name);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
569 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
570 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
571 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
572 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
573 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
574
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
575 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
576 * If runtime-link-perl(DLL) was loaded successfully, return TRUE.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
577 * There were no DLL loaded, return FALSE.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
578 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
579 int
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
580 perl_enabled(verbose)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
581 int verbose;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
582 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
583 return perl_runtime_link_init(DYNAMIC_PERL_DLL, verbose) == OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
584 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
585 #endif /* DYNAMIC_PERL */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
586
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
587 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
588 * perl_init(): initialize perl interpreter
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
589 * We have to call perl_parse to initialize some structures,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
590 * there's nothing to actually parse.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
591 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
592 static void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
593 perl_init()
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
594 {
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
595 char *bootargs[] = { "VI", NULL };
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
596 int argc = 3;
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
597 static char *argv[] = { "", "-e", "" };
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
598
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
599 #if (PERL_REVISION == 5) && (PERL_VERSION >= 10)
1765
c050d5bbe79b updated for version 7.2-063
vimboss
parents: 1711
diff changeset
600 Perl_sys_init(&argc, (char***)&argv);
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
601 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
602 perl_interp = perl_alloc();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
603 perl_construct(perl_interp);
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
604 perl_parse(perl_interp, xs_init, argc, argv, 0);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
605 perl_call_argv("VIM::bootstrap", (long)G_DISCARD, bootargs);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
606 VIM_init();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
607 #ifdef USE_SFIO
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
608 sfdisc(PerlIO_stdout(), sfdcnewvim());
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
609 sfdisc(PerlIO_stderr(), sfdcnewvim());
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
610 sfsetbuf(PerlIO_stdout(), NULL, 0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
611 sfsetbuf(PerlIO_stderr(), NULL, 0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
612 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
613 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
614
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
615 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
616 * perl_end(): clean up after ourselves
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
617 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
618 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
619 perl_end()
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
620 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
621 if (perl_interp)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
622 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
623 perl_run(perl_interp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
624 perl_destruct(perl_interp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
625 perl_free(perl_interp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
626 perl_interp = NULL;
1668
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
627 #if (PERL_REVISION == 5) && (PERL_VERSION >= 10)
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
628 Perl_sys_term();
0b796e045c42 updated for version 7.2b-000
vimboss
parents: 1423
diff changeset
629 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
630 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
631 #ifdef DYNAMIC_PERL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
632 if (hPerlLib)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
633 {
2370
454f314d0e61 Make it possible to load Perl dynamically on Unix. (James Vega)
Bram Moolenaar <bram@vim.org>
parents: 2255
diff changeset
634 close_dll(hPerlLib);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
635 hPerlLib = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
636 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
637 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
638 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
639
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
640 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
641 * msg_split(): send a message to the message handling routines
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
642 * split at '\n' first though.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
643 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
644 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
645 msg_split(s, attr)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
646 char_u *s;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
647 int attr; /* highlighting attributes */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
648 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
649 char *next;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
650 char *token = (char *)s;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
651
1423
01a0da54773e updated for version 7.1-138
vimboss
parents: 1395
diff changeset
652 while ((next = strchr(token, '\n')) && !got_int)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
653 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
654 *next++ = '\0'; /* replace \n with \0 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
655 msg_attr((char_u *)token, attr);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
656 token = next;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
657 }
1423
01a0da54773e updated for version 7.1-138
vimboss
parents: 1395
diff changeset
658 if (*token && !got_int)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
659 msg_attr((char_u *)token, attr);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
660 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
661
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
662 #ifndef FEAT_EVAL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
663 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
664 * This stub is needed because an "#ifdef FEAT_EVAL" around Eval() doesn't
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
665 * work properly.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
666 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
667 char_u *
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 502
diff changeset
668 eval_to_string(arg, nextcmd, dolist)
4135
688da4d486a0 updated for version 7.3.820
Bram Moolenaar <bram@vim.org>
parents: 4105
diff changeset
669 char_u *arg UNUSED;
688da4d486a0 updated for version 7.3.820
Bram Moolenaar <bram@vim.org>
parents: 4105
diff changeset
670 char_u **nextcmd UNUSED;
688da4d486a0 updated for version 7.3.820
Bram Moolenaar <bram@vim.org>
parents: 4105
diff changeset
671 int dolist UNUSED;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
672 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
673 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
674 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
675 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
676
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
677 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
678 * Create a new reference to an SV pointing to the SCR structure
502
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
679 * 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
680 * 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
681 * the last reference has gone (DESTROY is called),
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
682 * 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
683 * all references are gone, the value of the SV is reset;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
684 * any subsequent use of any of those reference will produce
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
685 * a warning. (see typemap)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
686 */
502
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
687
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
688 static SV *
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
689 newWINrv(rv, ptr)
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
690 SV *rv;
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
691 win_T *ptr;
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
692 {
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
693 sv_upgrade(rv, SVt_RV);
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
694 if (ptr->w_perl_private == NULL)
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
695 {
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
696 ptr->w_perl_private = newSV(0);
3344
dec4338a7da2 updated for version 7.3.439
Bram Moolenaar <bram@vim.org>
parents: 3050
diff changeset
697 sv_setiv(ptr->w_perl_private, PTR2IV(ptr));
502
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
698 }
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
699 else
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
700 SvREFCNT_inc(ptr->w_perl_private);
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
701 SvRV(rv) = ptr->w_perl_private;
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
702 SvROK_on(rv);
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
703 return sv_bless(rv, gv_stashpv("VIWIN", TRUE));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
704 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
705
502
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
706 static SV *
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
707 newBUFrv(rv, ptr)
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
708 SV *rv;
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
709 buf_T *ptr;
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
710 {
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
711 sv_upgrade(rv, SVt_RV);
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
712 if (ptr->b_perl_private == NULL)
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
713 {
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
714 ptr->b_perl_private = newSV(0);
3344
dec4338a7da2 updated for version 7.3.439
Bram Moolenaar <bram@vim.org>
parents: 3050
diff changeset
715 sv_setiv(ptr->b_perl_private, PTR2IV(ptr));
502
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
716 }
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
717 else
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
718 SvREFCNT_inc(ptr->b_perl_private);
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
719 SvRV(rv) = ptr->b_perl_private;
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
720 SvROK_on(rv);
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
721 return sv_bless(rv, gv_stashpv("VIBUF", TRUE));
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
722 }
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
723
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
724 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
725 * perl_win_free
4352
04736b4030ec updated for version 7.3.925
Bram Moolenaar <bram@vim.org>
parents: 4236
diff changeset
726 * Remove all references to the window to be destroyed
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
727 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
728 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
729 perl_win_free(wp)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
730 win_T *wp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
731 {
502
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
732 if (wp->w_perl_private)
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
733 sv_setiv((SV *)wp->w_perl_private, 0);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
734 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
735 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
736
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
737 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
738 perl_buf_free(bp)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
739 buf_T *bp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
740 {
502
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
741 if (bp->b_perl_private)
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
742 sv_setiv((SV *)bp->b_perl_private, 0);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
743 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
744 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
745
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
746 #ifndef PROTO
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
747 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
748 I32 cur_val(pTHX_ IV iv, SV *sv);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
749 # else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
750 I32 cur_val(IV iv, SV *sv);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
751 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
752
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
753 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
754 * Handler for the magic variables $main::curwin and $main::curbuf.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
755 * The handler is put into the magic vtbl for these variables.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
756 * (This is effectively a C-level equivalent of a tied variable).
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
757 * There is no "set" function as the variables are read-only.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
758 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
759 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
760 I32 cur_val(pTHX_ IV iv, SV *sv)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
761 # else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
762 I32 cur_val(IV iv, SV *sv)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
763 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
764 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
765 SV *rv;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
766 if (iv == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
767 rv = newWINrv(newSV(0), curwin);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
768 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
769 rv = newBUFrv(newSV(0), curbuf);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
770 sv_setsv(sv, rv);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
771 return 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
772 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
773 #endif /* !PROTO */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
774
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
775 struct ufuncs cw_funcs = { cur_val, 0, 0 };
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
776 struct ufuncs cb_funcs = { cur_val, 0, 1 };
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 * VIM_init(): Vim-specific initialisation.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
780 * Make the magical main::curwin and main::curbuf variables
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
781 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
782 static void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
783 VIM_init()
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
784 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
785 static char cw[] = "main::curwin";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
786 static char cb[] = "main::curbuf";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
787 SV *sv;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
788
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
789 sv = perl_get_sv(cw, TRUE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
790 sv_magic(sv, NULL, 'U', (char *)&cw_funcs, sizeof(cw_funcs));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
791 SvREADONLY_on(sv);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
792
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
793 sv = perl_get_sv(cb, TRUE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
794 sv_magic(sv, NULL, 'U', (char *)&cb_funcs, sizeof(cb_funcs));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
795 SvREADONLY_on(sv);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
796
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
797 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
798 * Setup the Safe compartment.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
799 * It shouldn't be a fatal error if the Safe module is missing.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
800 * XXX: Only shares the 'Msg' routine (which has to be called
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
801 * like 'Msg(...)').
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
802 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
803 (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
804
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
805 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
806
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
807 #ifdef DYNAMIC_PERL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
808 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
809 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
810
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
811 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
812 * ":perl"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
813 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
814 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
815 ex_perl(eap)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
816 exarg_T *eap;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
817 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
818 char *err;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
819 char *script;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
820 STRLEN length;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
821 SV *sv;
2255
e5265e4d4725 Avoid compiler warnings.
Bram Moolenaar <bram@vim.org>
parents: 2096
diff changeset
822 #ifdef HAVE_SANDBOX
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
823 SV *safe;
2255
e5265e4d4725 Avoid compiler warnings.
Bram Moolenaar <bram@vim.org>
parents: 2096
diff changeset
824 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
825
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
826 script = (char *)script_get(eap, eap->arg);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
827 if (eap->skip)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
828 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
829 vim_free(script);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
830 return;
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 if (perl_interp == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
834 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
835 #ifdef DYNAMIC_PERL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
836 if (!perl_enabled(TRUE))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
837 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
838 EMSG(_(e_noperl));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
839 vim_free(script);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
840 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
841 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
842 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
843 perl_init();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
844 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
845
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
846 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
847 dSP;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
848 ENTER;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
849 SAVETMPS;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
850
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
851 if (script == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
852 sv = newSVpv((char *)eap->arg, 0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
853 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
854 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
855 sv = newSVpv(script, 0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
856 vim_free(script);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
857 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
858
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
859 #ifdef HAVE_SANDBOX
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
860 if (sandbox)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
861 {
2982
a56259157c93 updated for version 7.3.263
Bram Moolenaar <bram@vim.org>
parents: 2612
diff changeset
862 safe = perl_get_sv("VIM::safe", FALSE);
1934
80e5b1da6676 updated for version 7.2-231
vimboss
parents: 1929
diff changeset
863 # ifndef MAKE_TEST /* avoid a warning for unreachable code */
1990
bce687811199 updated for version 7.2-287
vimboss
parents: 1934
diff changeset
864 if (safe == NULL || !SvTRUE(safe))
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
865 EMSG(_("E299: Perl evaluation forbidden in sandbox without the Safe module"));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
866 else
1934
80e5b1da6676 updated for version 7.2-231
vimboss
parents: 1929
diff changeset
867 # endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
868 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
869 PUSHMARK(SP);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
870 XPUSHs(safe);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
871 XPUSHs(sv);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
872 PUTBACK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
873 perl_call_method("reval", G_DISCARD);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
874 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
875 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
876 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
877 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
878 perl_eval_sv(sv, G_DISCARD | G_NOARGS);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
879
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
880 SvREFCNT_dec(sv);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
881
3728
a46a101bfddd updated for version 7.3.623
Bram Moolenaar <bram@vim.org>
parents: 3417
diff changeset
882 #ifdef AVOID_PL_ERRGV
a46a101bfddd updated for version 7.3.623
Bram Moolenaar <bram@vim.org>
parents: 3417
diff changeset
883 err = SvPV(perl_get_sv("@", GV_ADD), length);
a46a101bfddd updated for version 7.3.623
Bram Moolenaar <bram@vim.org>
parents: 3417
diff changeset
884 #else
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
885 err = SvPV(GvSV(PL_errgv), length);
3728
a46a101bfddd updated for version 7.3.623
Bram Moolenaar <bram@vim.org>
parents: 3417
diff changeset
886 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
887
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
888 FREETMPS;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
889 LEAVE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
890
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
891 if (!length)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
892 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
893
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
894 msg_split((char_u *)err, highlight_attr[HLF_E]);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
895 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
896 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
897 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
898
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
899 static int
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
900 replace_line(line, end)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
901 linenr_T *line, *end;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
902 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
903 char *str;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
904
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
905 if (SvOK(GvSV(PL_defgv)))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
906 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
907 str = SvPV(GvSV(PL_defgv), PL_na);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
908 ml_replace(*line, (char_u *)str, 1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
909 changed_bytes(*line, 0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
910 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
911 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
912 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
913 ml_delete(*line, FALSE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
914 deleted_lines_mark(*line, 1L);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
915 --(*end);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
916 --(*line);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
917 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
918 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
919 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
920
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
921 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
922 * ":perldo".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
923 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
924 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
925 ex_perldo(eap)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
926 exarg_T *eap;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
927 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
928 STRLEN length;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
929 SV *sv;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
930 char *str;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
931 linenr_T i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
932
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
933 if (bufempty())
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
934 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
935
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
936 if (perl_interp == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
937 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
938 #ifdef DYNAMIC_PERL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
939 if (!perl_enabled(TRUE))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
940 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
941 EMSG(_(e_noperl));
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 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
945 perl_init();
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 dSP;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
949 length = strlen((char *)eap->arg);
129
2983cde45542 updated for version 7.0044
vimboss
parents: 7
diff changeset
950 sv = newSV(length + sizeof("sub VIM::perldo {") - 1 + 1);
2983cde45542 updated for version 7.0044
vimboss
parents: 7
diff changeset
951 sv_setpvn(sv, "sub VIM::perldo {", sizeof("sub VIM::perldo {") - 1);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
952 sv_catpvn(sv, (char *)eap->arg, length);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
953 sv_catpvn(sv, "}", 1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
954 perl_eval_sv(sv, G_DISCARD | G_NOARGS);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
955 SvREFCNT_dec(sv);
3728
a46a101bfddd updated for version 7.3.623
Bram Moolenaar <bram@vim.org>
parents: 3417
diff changeset
956 #ifdef AVOID_PL_ERRGV
a46a101bfddd updated for version 7.3.623
Bram Moolenaar <bram@vim.org>
parents: 3417
diff changeset
957 str = SvPV(perl_get_sv("@", GV_ADD), length);
a46a101bfddd updated for version 7.3.623
Bram Moolenaar <bram@vim.org>
parents: 3417
diff changeset
958 #else
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
959 str = SvPV(GvSV(PL_errgv), length);
3728
a46a101bfddd updated for version 7.3.623
Bram Moolenaar <bram@vim.org>
parents: 3417
diff changeset
960 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
961 if (length)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
962 goto err;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
963
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
964 if (u_save(eap->line1 - 1, eap->line2 + 1) != OK)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
965 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
966
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
967 ENTER;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
968 SAVETMPS;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
969 for (i = eap->line1; i <= eap->line2; i++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
970 {
129
2983cde45542 updated for version 7.0044
vimboss
parents: 7
diff changeset
971 sv_setpv(GvSV(PL_defgv), (char *)ml_get(i));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
972 PUSHMARK(sp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
973 perl_call_pv("VIM::perldo", G_SCALAR | G_EVAL);
3728
a46a101bfddd updated for version 7.3.623
Bram Moolenaar <bram@vim.org>
parents: 3417
diff changeset
974 #ifdef AVOID_PL_ERRGV
a46a101bfddd updated for version 7.3.623
Bram Moolenaar <bram@vim.org>
parents: 3417
diff changeset
975 str = SvPV(perl_get_sv("@", GV_ADD), length);
a46a101bfddd updated for version 7.3.623
Bram Moolenaar <bram@vim.org>
parents: 3417
diff changeset
976 #else
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
977 str = SvPV(GvSV(PL_errgv), length);
3728
a46a101bfddd updated for version 7.3.623
Bram Moolenaar <bram@vim.org>
parents: 3417
diff changeset
978 #endif
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
979 if (length)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
980 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
981 SPAGAIN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
982 if (SvTRUEx(POPs))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
983 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
984 if (replace_line(&i, &eap->line2) != OK)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
985 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
986 PUTBACK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
987 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
988 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
989 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
990 PUTBACK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
991 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
992 FREETMPS;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
993 LEAVE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
994 check_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
995 update_screen(NOT_VALID);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
996 if (!length)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
997 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
998
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
999 err:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1000 msg_split((char_u *)str, highlight_attr[HLF_E]);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1001 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1002 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1003 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1004
1681
fe4ebbec775a updated for version 7.2b-014
vimboss
parents: 1668
diff changeset
1005 #ifndef FEAT_WINDOWS
fe4ebbec775a updated for version 7.2b-014
vimboss
parents: 1668
diff changeset
1006 int win_valid(win_T *w) { return TRUE; }
fe4ebbec775a updated for version 7.2b-014
vimboss
parents: 1668
diff changeset
1007 int win_count() { return 1; }
fe4ebbec775a updated for version 7.2b-014
vimboss
parents: 1668
diff changeset
1008 win_T *win_find_nr(int n) { return curwin; }
fe4ebbec775a updated for version 7.2b-014
vimboss
parents: 1668
diff changeset
1009 #endif
fe4ebbec775a updated for version 7.2b-014
vimboss
parents: 1668
diff changeset
1010
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1011 XS(boot_VIM);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1012
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1013 static void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1014 xs_init(pTHX)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1015 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1016 char *file = __FILE__;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1017
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1018 /* DynaLoader is a special case */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1019 newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1020 newXS("VIM::bootstrap", boot_VIM, file);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1021 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1022
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1023 typedef win_T * VIWIN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1024 typedef buf_T * VIBUF;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1025
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1026 MODULE = VIM PACKAGE = VIM
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1027
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1028 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1029 Msg(text, hl=NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1030 char *text;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1031 char *hl;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1032
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1033 PREINIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1034 int attr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1035 int id;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1036
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1037 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1038 if (text != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1039 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1040 attr = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1041 if (hl != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1042 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1043 id = syn_name2id((char_u *)hl);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1044 if (id != 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1045 attr = syn_id2attr(id);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1046 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1047 msg_split((char_u *)text, attr);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1048 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1049
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1050 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1051 SetOption(line)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1052 char *line;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1053
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1054 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1055 if (line != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1056 do_set((char_u *)line, 0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1057 update_screen(NOT_VALID);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1058
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1059 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1060 DoCommand(line)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1061 char *line;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1062
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1063 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1064 if (line != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1065 do_cmdline_cmd((char_u *)line);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1066
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1067 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1068 Eval(str)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1069 char *str;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1070
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1071 PREINIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1072 char_u *value;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1073 PPCODE:
714
0f9f4761ad9c updated for version 7.0216
vimboss
parents: 502
diff changeset
1074 value = eval_to_string((char_u *)str, (char_u **)0, TRUE);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1075 if (value == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1076 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1077 XPUSHs(sv_2mortal(newSViv(0)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1078 XPUSHs(sv_2mortal(newSVpv("", 0)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1079 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1080 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1081 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1082 XPUSHs(sv_2mortal(newSViv(1)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1083 XPUSHs(sv_2mortal(newSVpv((char *)value, 0)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1084 vim_free(value);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1085 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1086
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1087 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1088 Buffers(...)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1089
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1090 PREINIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1091 buf_T *vimbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1092 int i, b;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1093
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1094 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1095 if (items == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1096 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1097 if (GIMME == G_SCALAR)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1098 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1099 i = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1100 for (vimbuf = firstbuf; vimbuf; vimbuf = vimbuf->b_next)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1101 ++i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1102
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1103 XPUSHs(sv_2mortal(newSViv(i)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1104 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1105 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1106 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1107 for (vimbuf = firstbuf; vimbuf; vimbuf = vimbuf->b_next)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1108 XPUSHs(newBUFrv(newSV(0), vimbuf));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1109 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1110 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1111 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1112 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1113 for (i = 0; i < items; i++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1114 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1115 SV *sv = ST(i);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1116 if (SvIOK(sv))
4105
f7e3f87ac992 updated for version 7.3.806
Bram Moolenaar <bram@vim.org>
parents: 3820
diff changeset
1117 b = (int) SvIV(ST(i));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1118 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1119 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1120 char_u *pat;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1121 STRLEN len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1122
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1123 pat = (char_u *)SvPV(sv, len);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1124 ++emsg_off;
4236
23ce9a61bdc2 updated for version 7.3.869
Bram Moolenaar <bram@vim.org>
parents: 4135
diff changeset
1125 b = buflist_findpat(pat, pat+len, FALSE, FALSE, FALSE);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1126 --emsg_off;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1127 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1128
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1129 if (b >= 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1130 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1131 vimbuf = buflist_findnr(b);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1132 if (vimbuf)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1133 XPUSHs(newBUFrv(newSV(0), vimbuf));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1134 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1135 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1136 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1137
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1138 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1139 Windows(...)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1140
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1141 PREINIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1142 win_T *vimwin;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1143 int i, w;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1144
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1145 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1146 if (items == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1147 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1148 if (GIMME == G_SCALAR)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1149 XPUSHs(sv_2mortal(newSViv(win_count())));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1150 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1151 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1152 for (vimwin = firstwin; vimwin != NULL; vimwin = W_NEXT(vimwin))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1153 XPUSHs(newWINrv(newSV(0), vimwin));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1154 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1155 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1156 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1157 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1158 for (i = 0; i < items; i++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1159 {
4105
f7e3f87ac992 updated for version 7.3.806
Bram Moolenaar <bram@vim.org>
parents: 3820
diff changeset
1160 w = (int) SvIV(ST(i));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1161 vimwin = win_find_nr(w);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1162 if (vimwin)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1163 XPUSHs(newWINrv(newSV(0), vimwin));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1164 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1165 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1166
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1167 MODULE = VIM PACKAGE = VIWIN
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1168
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1169 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1170 DESTROY(win)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1171 VIWIN win
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1172
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1173 CODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1174 if (win_valid(win))
502
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
1175 win->w_perl_private = 0;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1176
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1177 SV *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1178 Buffer(win)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1179 VIWIN win
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1180
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1181 CODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1182 if (!win_valid(win))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1183 win = curwin;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1184 RETVAL = newBUFrv(newSV(0), win->w_buffer);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1185 OUTPUT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1186 RETVAL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1187
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1188 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1189 SetHeight(win, height)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1190 VIWIN win
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1191 int height;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1192
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1193 PREINIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1194 win_T *savewin;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1195
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1196 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1197 if (!win_valid(win))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1198 win = curwin;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1199 savewin = curwin;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1200 curwin = win;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1201 win_setheight(height);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1202 curwin = savewin;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1203
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1204 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1205 Cursor(win, ...)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1206 VIWIN win
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1207
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1208 PPCODE:
2982
a56259157c93 updated for version 7.3.263
Bram Moolenaar <bram@vim.org>
parents: 2612
diff changeset
1209 if (items == 1)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1210 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1211 EXTEND(sp, 2);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1212 if (!win_valid(win))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1213 win = curwin;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1214 PUSHs(sv_2mortal(newSViv(win->w_cursor.lnum)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1215 PUSHs(sv_2mortal(newSViv(win->w_cursor.col)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1216 }
2982
a56259157c93 updated for version 7.3.263
Bram Moolenaar <bram@vim.org>
parents: 2612
diff changeset
1217 else if (items == 3)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1218 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1219 int lnum, col;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1220
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1221 if (!win_valid(win))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1222 win = curwin;
4105
f7e3f87ac992 updated for version 7.3.806
Bram Moolenaar <bram@vim.org>
parents: 3820
diff changeset
1223 lnum = (int) SvIV(ST(1));
f7e3f87ac992 updated for version 7.3.806
Bram Moolenaar <bram@vim.org>
parents: 3820
diff changeset
1224 col = (int) SvIV(ST(2));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1225 win->w_cursor.lnum = lnum;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1226 win->w_cursor.col = col;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1227 check_cursor(); /* put cursor on an existing line */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1228 update_screen(NOT_VALID);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1229 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1230
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1231 MODULE = VIM PACKAGE = VIBUF
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1232
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1233 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1234 DESTROY(vimbuf)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1235 VIBUF vimbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1236
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1237 CODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1238 if (buf_valid(vimbuf))
502
52e76e2b5b65 updated for version 7.0140
vimboss
parents: 129
diff changeset
1239 vimbuf->b_perl_private = 0;
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1240
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1241 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1242 Name(vimbuf)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1243 VIBUF vimbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1244
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1245 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1246 if (!buf_valid(vimbuf))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1247 vimbuf = curbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1248 /* No file name returns an empty string */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1249 if (vimbuf->b_fname == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1250 XPUSHs(sv_2mortal(newSVpv("", 0)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1251 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1252 XPUSHs(sv_2mortal(newSVpv((char *)vimbuf->b_fname, 0)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1253
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1254 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1255 Number(vimbuf)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1256 VIBUF vimbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1257
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1258 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1259 if (!buf_valid(vimbuf))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1260 vimbuf = curbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1261 XPUSHs(sv_2mortal(newSViv(vimbuf->b_fnum)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1262
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1263 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1264 Count(vimbuf)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1265 VIBUF vimbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1266
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1267 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1268 if (!buf_valid(vimbuf))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1269 vimbuf = curbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1270 XPUSHs(sv_2mortal(newSViv(vimbuf->b_ml.ml_line_count)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1271
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1272 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1273 Get(vimbuf, ...)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1274 VIBUF vimbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1275
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1276 PREINIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1277 char_u *line;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1278 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1279 long lnum;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1280 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1281 if (buf_valid(vimbuf))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1282 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1283 for (i = 1; i < items; i++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1284 {
4105
f7e3f87ac992 updated for version 7.3.806
Bram Moolenaar <bram@vim.org>
parents: 3820
diff changeset
1285 lnum = (long) SvIV(ST(i));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1286 if (lnum > 0 && lnum <= vimbuf->b_ml.ml_line_count)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1287 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1288 line = ml_get_buf(vimbuf, lnum, FALSE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1289 XPUSHs(sv_2mortal(newSVpv((char *)line, 0)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1290 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1291 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1292 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1293
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1294 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1295 Set(vimbuf, ...)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1296 VIBUF vimbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1297
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1298 PREINIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1299 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1300 long lnum;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1301 char *line;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1302 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1303 if (buf_valid(vimbuf))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1304 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1305 if (items < 3)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1306 croak("Usage: VIBUF::Set(vimbuf, lnum, @lines)");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1307
4105
f7e3f87ac992 updated for version 7.3.806
Bram Moolenaar <bram@vim.org>
parents: 3820
diff changeset
1308 lnum = (long) SvIV(ST(1));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1309 for(i = 2; i < items; i++, lnum++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1310 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1311 line = SvPV(ST(i),PL_na);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1312 if (lnum > 0 && lnum <= vimbuf->b_ml.ml_line_count && line != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1313 {
918
a07007166d51 updated for version 7.0-044
vimboss
parents: 714
diff changeset
1314 aco_save_T aco;
a07007166d51 updated for version 7.0-044
vimboss
parents: 714
diff changeset
1315
a07007166d51 updated for version 7.0-044
vimboss
parents: 714
diff changeset
1316 /* set curwin/curbuf for "vimbuf" and save some things */
a07007166d51 updated for version 7.0-044
vimboss
parents: 714
diff changeset
1317 aucmd_prepbuf(&aco, vimbuf);
a07007166d51 updated for version 7.0-044
vimboss
parents: 714
diff changeset
1318
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1319 if (u_savesub(lnum) == OK)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1320 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1321 ml_replace(lnum, (char_u *)line, TRUE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1322 changed_bytes(lnum, 0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1323 }
934
e44efb3af0d5 updated for version 7.0-060
vimboss
parents: 933
diff changeset
1324
918
a07007166d51 updated for version 7.0-044
vimboss
parents: 714
diff changeset
1325 /* restore curwin/curbuf and a few other things */
a07007166d51 updated for version 7.0-044
vimboss
parents: 714
diff changeset
1326 aucmd_restbuf(&aco);
a07007166d51 updated for version 7.0-044
vimboss
parents: 714
diff changeset
1327 /* Careful: autocommands may have made "vimbuf" invalid! */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1328 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1329 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1330 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1331
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1332 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1333 Delete(vimbuf, ...)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1334 VIBUF vimbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1335
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1336 PREINIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1337 long i, lnum = 0, count = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1338 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1339 if (buf_valid(vimbuf))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1340 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1341 if (items == 2)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1342 {
4105
f7e3f87ac992 updated for version 7.3.806
Bram Moolenaar <bram@vim.org>
parents: 3820
diff changeset
1343 lnum = (long) SvIV(ST(1));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1344 count = 1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1345 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1346 else if (items == 3)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1347 {
4105
f7e3f87ac992 updated for version 7.3.806
Bram Moolenaar <bram@vim.org>
parents: 3820
diff changeset
1348 lnum = (long) SvIV(ST(1));
f7e3f87ac992 updated for version 7.3.806
Bram Moolenaar <bram@vim.org>
parents: 3820
diff changeset
1349 count = (long) 1 + SvIV(ST(2)) - lnum;
2982
a56259157c93 updated for version 7.3.263
Bram Moolenaar <bram@vim.org>
parents: 2612
diff changeset
1350 if (count == 0)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1351 count = 1;
2982
a56259157c93 updated for version 7.3.263
Bram Moolenaar <bram@vim.org>
parents: 2612
diff changeset
1352 if (count < 0)
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1353 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1354 lnum -= count;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1355 count = -count;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1356 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1357 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1358 if (items >= 2)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1359 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1360 for (i = 0; i < count; i++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1361 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1362 if (lnum > 0 && lnum <= vimbuf->b_ml.ml_line_count)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1363 {
918
a07007166d51 updated for version 7.0-044
vimboss
parents: 714
diff changeset
1364 aco_save_T aco;
a07007166d51 updated for version 7.0-044
vimboss
parents: 714
diff changeset
1365
a07007166d51 updated for version 7.0-044
vimboss
parents: 714
diff changeset
1366 /* set curwin/curbuf for "vimbuf" and save some things */
a07007166d51 updated for version 7.0-044
vimboss
parents: 714
diff changeset
1367 aucmd_prepbuf(&aco, vimbuf);
934
e44efb3af0d5 updated for version 7.0-060
vimboss
parents: 933
diff changeset
1368
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1369 if (u_savedel(lnum, 1) == OK)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1370 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1371 ml_delete(lnum, 0);
1929
9230c45fdde6 updated for version 7.2-226
vimboss
parents: 1906
diff changeset
1372 check_cursor();
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1373 deleted_lines_mark(lnum, 1L);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1374 }
934
e44efb3af0d5 updated for version 7.0-060
vimboss
parents: 933
diff changeset
1375
918
a07007166d51 updated for version 7.0-044
vimboss
parents: 714
diff changeset
1376 /* restore curwin/curbuf and a few other things */
a07007166d51 updated for version 7.0-044
vimboss
parents: 714
diff changeset
1377 aucmd_restbuf(&aco);
a07007166d51 updated for version 7.0-044
vimboss
parents: 714
diff changeset
1378 /* Careful: autocommands may have made "vimbuf" invalid! */
934
e44efb3af0d5 updated for version 7.0-060
vimboss
parents: 933
diff changeset
1379
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1380 update_curbuf(VALID);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1381 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1382 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1383 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1384 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1385
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1386 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1387 Append(vimbuf, ...)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1388 VIBUF vimbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1389
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1390 PREINIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1391 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1392 long lnum;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1393 char *line;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1394 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1395 if (buf_valid(vimbuf))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1396 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1397 if (items < 3)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1398 croak("Usage: VIBUF::Append(vimbuf, lnum, @lines)");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1399
4105
f7e3f87ac992 updated for version 7.3.806
Bram Moolenaar <bram@vim.org>
parents: 3820
diff changeset
1400 lnum = (long) SvIV(ST(1));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1401 for (i = 2; i < items; i++, lnum++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1402 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1403 line = SvPV(ST(i),PL_na);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1404 if (lnum >= 0 && lnum <= vimbuf->b_ml.ml_line_count && line != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1405 {
918
a07007166d51 updated for version 7.0-044
vimboss
parents: 714
diff changeset
1406 aco_save_T aco;
a07007166d51 updated for version 7.0-044
vimboss
parents: 714
diff changeset
1407
a07007166d51 updated for version 7.0-044
vimboss
parents: 714
diff changeset
1408 /* set curwin/curbuf for "vimbuf" and save some things */
a07007166d51 updated for version 7.0-044
vimboss
parents: 714
diff changeset
1409 aucmd_prepbuf(&aco, vimbuf);
a07007166d51 updated for version 7.0-044
vimboss
parents: 714
diff changeset
1410
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1411 if (u_inssub(lnum + 1) == OK)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1412 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1413 ml_append(lnum, (char_u *)line, (colnr_T)0, FALSE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1414 appended_lines_mark(lnum, 1L);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1415 }
934
e44efb3af0d5 updated for version 7.0-060
vimboss
parents: 933
diff changeset
1416
918
a07007166d51 updated for version 7.0-044
vimboss
parents: 714
diff changeset
1417 /* restore curwin/curbuf and a few other things */
a07007166d51 updated for version 7.0-044
vimboss
parents: 714
diff changeset
1418 aucmd_restbuf(&aco);
a07007166d51 updated for version 7.0-044
vimboss
parents: 714
diff changeset
1419 /* Careful: autocommands may have made "vimbuf" invalid! */
934
e44efb3af0d5 updated for version 7.0-060
vimboss
parents: 933
diff changeset
1420
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1421 update_curbuf(VALID);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1422 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1423 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1424 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1425