annotate src/if_perl.xs @ 501:ce2181d14aa0 v7.0139

updated for version 7.0139
author vimboss
date Tue, 30 Aug 2005 21:55:26 +0000
parents 2983cde45542
children 52e76e2b5b65
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
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
16 #include "vim.h"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
17
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
18
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
19 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
20 * Work around clashes between Perl and Vim namespace. proto.h doesn't
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
21 * include if_perl.pro and perlsfio.pro when IN_PERL_FILE is defined, because
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
22 * we need the CV typedef. proto.h can't be moved to after including
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
23 * if_perl.h, because we get all sorts of name clashes then.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
24 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
25 #ifndef PROTO
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
26 #ifndef __MINGW32__
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
27 # include "proto/if_perl.pro"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
28 # include "proto/if_perlsfio.pro"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
29 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
30 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
31
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
32 /* Perl compatibility stuff. This should ensure compatibility with older
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
33 * versions of Perl.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
34 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
35
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
36 #ifndef PERL_VERSION
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
37 # include <patchlevel.h>
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
38 # define PERL_REVISION 5
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
39 # define PERL_VERSION PATCHLEVEL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
40 # define PERL_SUBVERSION SUBVERSION
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
41 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
42
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
43 #ifndef pTHX
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
44 # define pTHX void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
45 # define pTHX_
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
46 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
47
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
48 #ifndef EXTERN_C
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
49 # define EXTERN_C
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
50 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
51
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
52 /* Compatibility hacks over */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
53
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
54 static PerlInterpreter *perl_interp = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
55 static void xs_init __ARGS((pTHX));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
56 static void VIM_init __ARGS((void));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
57 EXTERN_C void boot_DynaLoader __ARGS((pTHX_ CV*));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
58
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
59 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
60 * For dynamic linked perl. (Windows)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
61 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
62 #if defined(DYNAMIC_PERL) || defined(PROTO)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
63 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
64 * Wrapper defines
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
65 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
66 # define perl_alloc dll_perl_alloc
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
67 # define perl_construct dll_perl_construct
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
68 # define perl_parse dll_perl_parse
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
69 # define perl_run dll_perl_run
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
70 # define perl_destruct dll_perl_destruct
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
71 # define perl_free dll_perl_free
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
72 # define Perl_get_context dll_Perl_get_context
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
73 # define Perl_croak dll_Perl_croak
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
74 # ifndef PROTO
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
75 # define Perl_croak_nocontext dll_Perl_croak_nocontext
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
76 # define Perl_call_argv dll_Perl_call_argv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
77 # define Perl_call_pv dll_Perl_call_pv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
78 # define Perl_eval_sv dll_Perl_eval_sv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
79 # define Perl_get_sv dll_Perl_get_sv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
80 # define Perl_eval_pv dll_Perl_eval_pv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
81 # define Perl_call_method dll_Perl_call_method
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
82 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
83 # define Perl_dowantarray dll_Perl_dowantarray
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
84 # define Perl_free_tmps dll_Perl_free_tmps
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
85 # define Perl_gv_stashpv dll_Perl_gv_stashpv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
86 # define Perl_markstack_grow dll_Perl_markstack_grow
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
87 # define Perl_mg_find dll_Perl_mg_find
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
88 # define Perl_newXS dll_Perl_newXS
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
89 # define Perl_newSV dll_Perl_newSV
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
90 # define Perl_newSViv dll_Perl_newSViv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
91 # define Perl_newSVpv dll_Perl_newSVpv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
92 # define Perl_pop_scope dll_Perl_pop_scope
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
93 # define Perl_push_scope dll_Perl_push_scope
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
94 # define Perl_save_int dll_Perl_save_int
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
95 # define Perl_stack_grow dll_Perl_stack_grow
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
96 # define Perl_set_context dll_Perl_set_context
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
97 # define Perl_sv_2bool dll_Perl_sv_2bool
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
98 # define Perl_sv_2iv dll_Perl_sv_2iv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
99 # define Perl_sv_2mortal dll_Perl_sv_2mortal
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
100 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
101 # define Perl_sv_2pv_flags dll_Perl_sv_2pv_flags
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
102 # define Perl_sv_2pv_nolen dll_Perl_sv_2pv_nolen
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
103 # else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
104 # define Perl_sv_2pv dll_Perl_sv_2pv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
105 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
106 # define Perl_sv_bless dll_Perl_sv_bless
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
107 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
108 # define Perl_sv_catpvn_flags dll_Perl_sv_catpvn_flags
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
109 # else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
110 # define Perl_sv_catpvn dll_Perl_sv_catpvn
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
111 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
112 # define Perl_sv_free dll_Perl_sv_free
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
113 # define Perl_sv_isa dll_Perl_sv_isa
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
114 # define Perl_sv_magic dll_Perl_sv_magic
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
115 # define Perl_sv_setiv dll_Perl_sv_setiv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
116 # define Perl_sv_setpv dll_Perl_sv_setpv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
117 # define Perl_sv_setpvn dll_Perl_sv_setpvn
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
118 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
119 # define Perl_sv_setsv_flags dll_Perl_sv_setsv_flags
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
120 # else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
121 # define Perl_sv_setsv dll_Perl_sv_setsv
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
122 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
123 # define Perl_sv_upgrade dll_Perl_sv_upgrade
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
124 # define Perl_Tstack_sp_ptr dll_Perl_Tstack_sp_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
125 # define Perl_Top_ptr dll_Perl_Top_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
126 # define Perl_Tstack_base_ptr dll_Perl_Tstack_base_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
127 # define Perl_Tstack_max_ptr dll_Perl_Tstack_max_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
128 # define Perl_Ttmps_ix_ptr dll_Perl_Ttmps_ix_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
129 # define Perl_Ttmps_floor_ptr dll_Perl_Ttmps_floor_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
130 # define Perl_Tmarkstack_ptr_ptr dll_Perl_Tmarkstack_ptr_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
131 # define Perl_Tmarkstack_max_ptr dll_Perl_Tmarkstack_max_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
132 # define Perl_TSv_ptr dll_Perl_TSv_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
133 # define Perl_TXpv_ptr dll_Perl_TXpv_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
134 # define Perl_Tna_ptr dll_Perl_Tna_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
135 # define Perl_Idefgv_ptr dll_Perl_Idefgv_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
136 # define Perl_Ierrgv_ptr dll_Perl_Ierrgv_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
137 # define Perl_Isv_yes_ptr dll_Perl_Isv_yes_ptr
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
138 # define boot_DynaLoader dll_boot_DynaLoader
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
139
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
140 #ifndef DYNAMIC_PERL /* just generating prototypes */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
141 typedef int HANDLE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
142 typedef int XSINIT_t;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
143 typedef int XSUBADDR_t;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
144 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
145
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
146 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
147 * Declare HANDLE for perl.dll and function pointers.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
148 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
149 static HANDLE hPerlLib = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
150
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
151 static PerlInterpreter* (*perl_alloc)();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
152 static void (*perl_construct)(PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
153 static void (*perl_destruct)(PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
154 static void (*perl_free)(PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
155 static int (*perl_run)(PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
156 static int (*perl_parse)(PerlInterpreter*, XSINIT_t, int, char**, char**);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
157 static void* (*Perl_get_context)(void);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
158 static void (*Perl_croak)(pTHX_ const char*, ...) __attribute__((noreturn));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
159 static void (*Perl_croak_nocontext)(const char*, ...) __attribute__((noreturn));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
160 static I32 (*Perl_dowantarray)(pTHX);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
161 static void (*Perl_free_tmps)(pTHX);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
162 static HV* (*Perl_gv_stashpv)(pTHX_ const char*, I32);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
163 static void (*Perl_markstack_grow)(pTHX);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
164 static MAGIC* (*Perl_mg_find)(pTHX_ SV*, int);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
165 static CV* (*Perl_newXS)(pTHX_ char*, XSUBADDR_t, char*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
166 static SV* (*Perl_newSV)(pTHX_ STRLEN);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
167 static SV* (*Perl_newSViv)(pTHX_ IV);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
168 static SV* (*Perl_newSVpv)(pTHX_ const char*, STRLEN);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
169 static I32 (*Perl_call_argv)(pTHX_ const char*, I32, char**);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
170 static I32 (*Perl_call_pv)(pTHX_ const char*, I32);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
171 static I32 (*Perl_eval_sv)(pTHX_ SV*, I32);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
172 static SV* (*Perl_get_sv)(pTHX_ const char*, I32);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
173 static SV* (*Perl_eval_pv)(pTHX_ const char*, I32);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
174 static SV* (*Perl_call_method)(pTHX_ const char*, I32);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
175 static void (*Perl_pop_scope)(pTHX);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
176 static void (*Perl_push_scope)(pTHX);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
177 static void (*Perl_save_int)(pTHX_ int*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
178 static SV** (*Perl_stack_grow)(pTHX_ SV**, SV**p, int);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
179 static SV** (*Perl_set_context)(void*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
180 static bool (*Perl_sv_2bool)(pTHX_ SV*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
181 static IV (*Perl_sv_2iv)(pTHX_ SV*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
182 static SV* (*Perl_sv_2mortal)(pTHX_ SV*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
183 #if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
184 static char* (*Perl_sv_2pv_flags)(pTHX_ SV*, STRLEN*, I32);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
185 static char* (*Perl_sv_2pv_nolen)(pTHX_ SV*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
186 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
187 static char* (*Perl_sv_2pv)(pTHX_ SV*, STRLEN*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
188 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
189 static SV* (*Perl_sv_bless)(pTHX_ SV*, HV*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
190 #if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
191 static void (*Perl_sv_catpvn_flags)(pTHX_ SV* , const char*, STRLEN, I32);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
192 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
193 static void (*Perl_sv_catpvn)(pTHX_ SV*, const char*, STRLEN);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
194 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
195 static void (*Perl_sv_free)(pTHX_ SV*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
196 static int (*Perl_sv_isa)(pTHX_ SV*, const char*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
197 static void (*Perl_sv_magic)(pTHX_ SV*, SV*, int, const char*, I32);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
198 static void (*Perl_sv_setiv)(pTHX_ SV*, IV);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
199 static void (*Perl_sv_setpv)(pTHX_ SV*, const char*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
200 static void (*Perl_sv_setpvn)(pTHX_ SV*, const char*, STRLEN);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
201 #if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
202 static void (*Perl_sv_setsv_flags)(pTHX_ SV*, SV*, I32);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
203 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
204 static void (*Perl_sv_setsv)(pTHX_ SV*, SV*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
205 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
206 static bool (*Perl_sv_upgrade)(pTHX_ SV*, U32);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
207 static SV*** (*Perl_Tstack_sp_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
208 static OP** (*Perl_Top_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
209 static SV*** (*Perl_Tstack_base_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
210 static SV*** (*Perl_Tstack_max_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
211 static I32* (*Perl_Ttmps_ix_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
212 static I32* (*Perl_Ttmps_floor_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
213 static I32** (*Perl_Tmarkstack_ptr_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
214 static I32** (*Perl_Tmarkstack_max_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
215 static SV** (*Perl_TSv_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
216 static XPV** (*Perl_TXpv_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
217 static STRLEN* (*Perl_Tna_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
218 static GV** (*Perl_Idefgv_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
219 static GV** (*Perl_Ierrgv_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
220 static SV* (*Perl_Isv_yes_ptr)(register PerlInterpreter*);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
221 static void (*boot_DynaLoader)_((pTHX_ CV*));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
222
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
223
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
224 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
225 * Table of name to function pointer of perl.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
226 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
227 #define PERL_PROC FARPROC
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
228 static struct {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
229 char* name;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
230 PERL_PROC* ptr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
231 } perl_funcname_table[] = {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
232 {"perl_alloc", (PERL_PROC*)&perl_alloc},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
233 {"perl_construct", (PERL_PROC*)&perl_construct},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
234 {"perl_destruct", (PERL_PROC*)&perl_destruct},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
235 {"perl_free", (PERL_PROC*)&perl_free},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
236 {"perl_run", (PERL_PROC*)&perl_run},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
237 {"perl_parse", (PERL_PROC*)&perl_parse},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
238 {"Perl_get_context", (PERL_PROC*)&Perl_get_context},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
239 {"Perl_croak", (PERL_PROC*)&Perl_croak},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
240 {"Perl_croak_nocontext", (PERL_PROC*)&Perl_croak_nocontext},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
241 {"Perl_dowantarray", (PERL_PROC*)&Perl_dowantarray},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
242 {"Perl_free_tmps", (PERL_PROC*)&Perl_free_tmps},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
243 {"Perl_gv_stashpv", (PERL_PROC*)&Perl_gv_stashpv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
244 {"Perl_markstack_grow", (PERL_PROC*)&Perl_markstack_grow},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
245 {"Perl_mg_find", (PERL_PROC*)&Perl_mg_find},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
246 {"Perl_newXS", (PERL_PROC*)&Perl_newXS},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
247 {"Perl_newSV", (PERL_PROC*)&Perl_newSV},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
248 {"Perl_newSViv", (PERL_PROC*)&Perl_newSViv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
249 {"Perl_newSVpv", (PERL_PROC*)&Perl_newSVpv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
250 {"Perl_call_argv", (PERL_PROC*)&Perl_call_argv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
251 {"Perl_call_pv", (PERL_PROC*)&Perl_call_pv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
252 {"Perl_eval_sv", (PERL_PROC*)&Perl_eval_sv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
253 {"Perl_get_sv", (PERL_PROC*)&Perl_get_sv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
254 {"Perl_eval_pv", (PERL_PROC*)&Perl_eval_pv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
255 {"Perl_call_method", (PERL_PROC*)&Perl_call_method},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
256 {"Perl_pop_scope", (PERL_PROC*)&Perl_pop_scope},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
257 {"Perl_push_scope", (PERL_PROC*)&Perl_push_scope},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
258 {"Perl_save_int", (PERL_PROC*)&Perl_save_int},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
259 {"Perl_stack_grow", (PERL_PROC*)&Perl_stack_grow},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
260 {"Perl_set_context", (PERL_PROC*)&Perl_set_context},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
261 {"Perl_sv_2bool", (PERL_PROC*)&Perl_sv_2bool},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
262 {"Perl_sv_2iv", (PERL_PROC*)&Perl_sv_2iv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
263 {"Perl_sv_2mortal", (PERL_PROC*)&Perl_sv_2mortal},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
264 #if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
265 {"Perl_sv_2pv_flags", (PERL_PROC*)&Perl_sv_2pv_flags},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
266 {"Perl_sv_2pv_nolen", (PERL_PROC*)&Perl_sv_2pv_nolen},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
267 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
268 {"Perl_sv_2pv", (PERL_PROC*)&Perl_sv_2pv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
269 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
270 {"Perl_sv_bless", (PERL_PROC*)&Perl_sv_bless},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
271 #if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
272 {"Perl_sv_catpvn_flags", (PERL_PROC*)&Perl_sv_catpvn_flags},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
273 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
274 {"Perl_sv_catpvn", (PERL_PROC*)&Perl_sv_catpvn},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
275 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
276 {"Perl_sv_free", (PERL_PROC*)&Perl_sv_free},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
277 {"Perl_sv_isa", (PERL_PROC*)&Perl_sv_isa},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
278 {"Perl_sv_magic", (PERL_PROC*)&Perl_sv_magic},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
279 {"Perl_sv_setiv", (PERL_PROC*)&Perl_sv_setiv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
280 {"Perl_sv_setpv", (PERL_PROC*)&Perl_sv_setpv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
281 {"Perl_sv_setpvn", (PERL_PROC*)&Perl_sv_setpvn},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
282 #if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
283 {"Perl_sv_setsv_flags", (PERL_PROC*)&Perl_sv_setsv_flags},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
284 #else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
285 {"Perl_sv_setsv", (PERL_PROC*)&Perl_sv_setsv},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
286 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
287 {"Perl_sv_upgrade", (PERL_PROC*)&Perl_sv_upgrade},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
288 {"Perl_Tstack_sp_ptr", (PERL_PROC*)&Perl_Tstack_sp_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
289 {"Perl_Top_ptr", (PERL_PROC*)&Perl_Top_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
290 {"Perl_Tstack_base_ptr", (PERL_PROC*)&Perl_Tstack_base_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
291 {"Perl_Tstack_max_ptr", (PERL_PROC*)&Perl_Tstack_max_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
292 {"Perl_Ttmps_ix_ptr", (PERL_PROC*)&Perl_Ttmps_ix_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
293 {"Perl_Ttmps_floor_ptr", (PERL_PROC*)&Perl_Ttmps_floor_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
294 {"Perl_Tmarkstack_ptr_ptr", (PERL_PROC*)&Perl_Tmarkstack_ptr_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
295 {"Perl_Tmarkstack_max_ptr", (PERL_PROC*)&Perl_Tmarkstack_max_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
296 {"Perl_TSv_ptr", (PERL_PROC*)&Perl_TSv_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
297 {"Perl_TXpv_ptr", (PERL_PROC*)&Perl_TXpv_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
298 {"Perl_Tna_ptr", (PERL_PROC*)&Perl_Tna_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
299 {"Perl_Idefgv_ptr", (PERL_PROC*)&Perl_Idefgv_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
300 {"Perl_Ierrgv_ptr", (PERL_PROC*)&Perl_Ierrgv_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
301 {"Perl_Isv_yes_ptr", (PERL_PROC*)&Perl_Isv_yes_ptr},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
302 {"boot_DynaLoader", (PERL_PROC*)&boot_DynaLoader},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
303 {"", NULL},
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
304 };
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
305
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
306 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
307 * Make all runtime-links of perl.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
308 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
309 * 1. Get module handle using LoadLibraryEx.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
310 * 2. Get pointer to perl function by GetProcAddress.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
311 * 3. Repeat 2, until get all functions will be used.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
312 *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
313 * Parameter 'libname' provides name of DLL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
314 * Return OK or FAIL.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
315 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
316 static int
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
317 perl_runtime_link_init(char *libname, int verbose)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
318 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
319 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
320
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
321 if (hPerlLib != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
322 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
323 if (!(hPerlLib = LoadLibraryEx(libname, NULL, 0)))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
324 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
325 if (verbose)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
326 EMSG2(_("E370: Could not load library %s"), libname);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
327 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
328 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
329 for (i = 0; perl_funcname_table[i].ptr; ++i)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
330 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
331 if (!(*perl_funcname_table[i].ptr = GetProcAddress(hPerlLib,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
332 perl_funcname_table[i].name)))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
333 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
334 FreeLibrary(hPerlLib);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
335 hPerlLib = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
336 if (verbose)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
337 EMSG2(_(e_loadfunc), perl_funcname_table[i].name);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
338 return FAIL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
339 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
340 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
341 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
342 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
343
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
344 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
345 * If runtime-link-perl(DLL) was loaded successfully, return TRUE.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
346 * There were no DLL loaded, return FALSE.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
347 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
348 int
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
349 perl_enabled(verbose)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
350 int verbose;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
351 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
352 return perl_runtime_link_init(DYNAMIC_PERL_DLL, verbose) == OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
353 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
354 #endif /* DYNAMIC_PERL */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
355
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
356 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
357 * perl_init(): initialize perl interpreter
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
358 * We have to call perl_parse to initialize some structures,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
359 * there's nothing to actually parse.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
360 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
361 static void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
362 perl_init()
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
363 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
364 char *bootargs[] = { "VI", NULL };
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
365 static char *args[] = { "", "-e", "" };
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
366
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
367 perl_interp = perl_alloc();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
368 perl_construct(perl_interp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
369 perl_parse(perl_interp, xs_init, 3, args, 0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
370 perl_call_argv("VIM::bootstrap", (long)G_DISCARD, bootargs);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
371 VIM_init();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
372 #ifdef USE_SFIO
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
373 sfdisc(PerlIO_stdout(), sfdcnewvim());
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
374 sfdisc(PerlIO_stderr(), sfdcnewvim());
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
375 sfsetbuf(PerlIO_stdout(), NULL, 0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
376 sfsetbuf(PerlIO_stderr(), NULL, 0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
377 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
378 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
379
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
380 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
381 * perl_end(): clean up after ourselves
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
382 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
383 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
384 perl_end()
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
385 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
386 if (perl_interp)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
387 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
388 perl_run(perl_interp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
389 perl_destruct(perl_interp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
390 perl_free(perl_interp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
391 perl_interp = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
392 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
393 #ifdef DYNAMIC_PERL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
394 if (hPerlLib)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
395 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
396 FreeLibrary(hPerlLib);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
397 hPerlLib = NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
398 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
399 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
400 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
401
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
402 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
403 * msg_split(): send a message to the message handling routines
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
404 * split at '\n' first though.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
405 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
406 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
407 msg_split(s, attr)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
408 char_u *s;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
409 int attr; /* highlighting attributes */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
410 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
411 char *next;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
412 char *token = (char *)s;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
413
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
414 while ((next = strchr(token, '\n')))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
415 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
416 *next++ = '\0'; /* replace \n with \0 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
417 msg_attr((char_u *)token, attr);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
418 token = next;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
419 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
420 if (*token)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
421 msg_attr((char_u *)token, attr);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
422 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
423
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
424 #ifndef FEAT_EVAL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
425 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
426 * This stub is needed because an "#ifdef FEAT_EVAL" around Eval() doesn't
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
427 * work properly.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
428 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
429 char_u *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
430 eval_to_string(arg, nextcmd)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
431 char_u *arg;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
432 char_u **nextcmd;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
433 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
434 return NULL;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
435 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
436 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
437
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
438 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
439 * Create a new reference to an SV pointing to the SCR structure
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
440 * The perl_private part of the SCR structure points to the SV,
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
441 * so there can only be one such SV for a particular SCR structure.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
442 * When the last reference has gone (DESTROY is called),
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
443 * perl_private is reset; When the screen goes away before
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
444 * all references are gone, the value of the SV is reset;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
445 * any subsequent use of any of those reference will produce
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
446 * a warning. (see typemap)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
447 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
448 #define newANYrv(TYPE, TNAME) \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
449 static SV * \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
450 new ## TNAME ## rv(rv, ptr) \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
451 SV *rv; \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
452 TYPE *ptr; \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
453 { \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
454 sv_upgrade(rv, SVt_RV); \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
455 if (!ptr->perl_private) \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
456 { \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
457 ptr->perl_private = newSV(0); \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
458 sv_setiv(ptr->perl_private, (IV)ptr); \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
459 } \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
460 else \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
461 SvREFCNT_inc(ptr->perl_private); \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
462 SvRV(rv) = ptr->perl_private; \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
463 SvROK_on(rv); \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
464 return sv_bless(rv, gv_stashpv("VI" #TNAME, TRUE)); \
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
465 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
466
129
2983cde45542 updated for version 7.0044
vimboss
parents: 7
diff changeset
467 /* LINTED: avoid warning: cast from pointer to integer of different size */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
468 newANYrv(win_T, WIN)
129
2983cde45542 updated for version 7.0044
vimboss
parents: 7
diff changeset
469 /* LINTED: avoid warning: cast from pointer to integer of different size */
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
470 newANYrv(buf_T, BUF)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
471
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
472 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
473 * perl_win_free
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
474 * Remove all refences to the window to be destroyed
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
475 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
476 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
477 perl_win_free(wp)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
478 win_T *wp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
479 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
480 if (wp->perl_private)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
481 sv_setiv((SV *)wp->perl_private, 0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
482 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
483 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
484
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
485 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
486 perl_buf_free(bp)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
487 buf_T *bp;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
488 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
489 if (bp->perl_private)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
490 sv_setiv((SV *)bp->perl_private, 0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
491 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
492 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
493
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
494 #ifndef PROTO
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
495 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
496 I32 cur_val(pTHX_ IV iv, SV *sv);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
497 # else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
498 I32 cur_val(IV iv, SV *sv);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
499 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
500
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
501 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
502 * Handler for the magic variables $main::curwin and $main::curbuf.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
503 * The handler is put into the magic vtbl for these variables.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
504 * (This is effectively a C-level equivalent of a tied variable).
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
505 * There is no "set" function as the variables are read-only.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
506 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
507 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
508 I32 cur_val(pTHX_ IV iv, SV *sv)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
509 # else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
510 I32 cur_val(IV iv, SV *sv)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
511 # endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
512 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
513 SV *rv;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
514 if (iv == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
515 rv = newWINrv(newSV(0), curwin);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
516 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
517 rv = newBUFrv(newSV(0), curbuf);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
518 sv_setsv(sv, rv);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
519 return 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
520 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
521 #endif /* !PROTO */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
522
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
523 struct ufuncs cw_funcs = { cur_val, 0, 0 };
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
524 struct ufuncs cb_funcs = { cur_val, 0, 1 };
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
525
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
526 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
527 * VIM_init(): Vim-specific initialisation.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
528 * Make the magical main::curwin and main::curbuf variables
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
529 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
530 static void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
531 VIM_init()
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
532 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
533 static char cw[] = "main::curwin";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
534 static char cb[] = "main::curbuf";
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
535 SV *sv;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
536
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
537 sv = perl_get_sv(cw, TRUE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
538 sv_magic(sv, NULL, 'U', (char *)&cw_funcs, sizeof(cw_funcs));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
539 SvREADONLY_on(sv);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
540
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
541 sv = perl_get_sv(cb, TRUE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
542 sv_magic(sv, NULL, 'U', (char *)&cb_funcs, sizeof(cb_funcs));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
543 SvREADONLY_on(sv);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
544
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
545 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
546 * Setup the Safe compartment.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
547 * It shouldn't be a fatal error if the Safe module is missing.
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
548 * XXX: Only shares the 'Msg' routine (which has to be called
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
549 * like 'Msg(...)').
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
550 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
551 (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
552
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
553 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
554
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
555 #ifdef DYNAMIC_PERL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
556 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
557 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
558
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
559 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
560 * ":perl"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
561 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
562 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
563 ex_perl(eap)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
564 exarg_T *eap;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
565 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
566 char *err;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
567 char *script;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
568 STRLEN length;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
569 SV *sv;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
570 SV *safe;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
571
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
572 script = (char *)script_get(eap, eap->arg);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
573 if (eap->skip)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
574 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
575 vim_free(script);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
576 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
577 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
578
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
579 if (perl_interp == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
580 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
581 #ifdef DYNAMIC_PERL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
582 if (!perl_enabled(TRUE))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
583 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
584 EMSG(_(e_noperl));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
585 vim_free(script);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
586 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
587 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
588 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
589 perl_init();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
590 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
591
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
592 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
593 dSP;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
594 ENTER;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
595 SAVETMPS;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
596
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
597 if (script == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
598 sv = newSVpv((char *)eap->arg, 0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
599 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
600 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
601 sv = newSVpv(script, 0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
602 vim_free(script);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
603 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
604
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
605 #ifdef HAVE_SANDBOX
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
606 if (sandbox)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
607 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
608 if ((safe = perl_get_sv( "VIM::safe", FALSE )) == NULL || !SvTRUE(safe))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
609 EMSG(_("E299: Perl evaluation forbidden in sandbox without the Safe module"));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
610 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
611 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
612 PUSHMARK(SP);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
613 XPUSHs(safe);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
614 XPUSHs(sv);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
615 PUTBACK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
616 perl_call_method("reval", G_DISCARD);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
617 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
618 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
619 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
620 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
621 perl_eval_sv(sv, G_DISCARD | G_NOARGS);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
622
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
623 SvREFCNT_dec(sv);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
624
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
625 err = SvPV(GvSV(PL_errgv), length);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
626
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
627 FREETMPS;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
628 LEAVE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
629
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
630 if (!length)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
631 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
632
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
633 msg_split((char_u *)err, highlight_attr[HLF_E]);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
634 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
635 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
636 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
637
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
638 static int
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
639 replace_line(line, end)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
640 linenr_T *line, *end;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
641 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
642 char *str;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
643
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
644 if (SvOK(GvSV(PL_defgv)))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
645 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
646 str = SvPV(GvSV(PL_defgv), PL_na);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
647 ml_replace(*line, (char_u *)str, 1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
648 changed_bytes(*line, 0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
649 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
650 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
651 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
652 ml_delete(*line, FALSE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
653 deleted_lines_mark(*line, 1L);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
654 --(*end);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
655 --(*line);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
656 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
657 return OK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
658 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
659
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
660 /*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
661 * ":perldo".
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
662 */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
663 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
664 ex_perldo(eap)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
665 exarg_T *eap;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
666 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
667 STRLEN length;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
668 SV *sv;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
669 char *str;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
670 linenr_T i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
671
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
672 if (bufempty())
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
673 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
674
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
675 if (perl_interp == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
676 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
677 #ifdef DYNAMIC_PERL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
678 if (!perl_enabled(TRUE))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
679 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
680 EMSG(_(e_noperl));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
681 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
682 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
683 #endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
684 perl_init();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
685 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
686 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
687 dSP;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
688 length = strlen((char *)eap->arg);
129
2983cde45542 updated for version 7.0044
vimboss
parents: 7
diff changeset
689 sv = newSV(length + sizeof("sub VIM::perldo {") - 1 + 1);
2983cde45542 updated for version 7.0044
vimboss
parents: 7
diff changeset
690 sv_setpvn(sv, "sub VIM::perldo {", sizeof("sub VIM::perldo {") - 1);
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
691 sv_catpvn(sv, (char *)eap->arg, length);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
692 sv_catpvn(sv, "}", 1);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
693 perl_eval_sv(sv, G_DISCARD | G_NOARGS);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
694 SvREFCNT_dec(sv);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
695 str = SvPV(GvSV(PL_errgv), length);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
696 if (length)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
697 goto err;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
698
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
699 if (u_save(eap->line1 - 1, eap->line2 + 1) != OK)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
700 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
701
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
702 ENTER;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
703 SAVETMPS;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
704 for (i = eap->line1; i <= eap->line2; i++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
705 {
129
2983cde45542 updated for version 7.0044
vimboss
parents: 7
diff changeset
706 sv_setpv(GvSV(PL_defgv), (char *)ml_get(i));
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
707 PUSHMARK(sp);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
708 perl_call_pv("VIM::perldo", G_SCALAR | G_EVAL);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
709 str = SvPV(GvSV(PL_errgv), length);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
710 if (length)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
711 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
712 SPAGAIN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
713 if (SvTRUEx(POPs))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
714 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
715 if (replace_line(&i, &eap->line2) != OK)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
716 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
717 PUTBACK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
718 break;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
719 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
720 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
721 PUTBACK;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
722 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
723 FREETMPS;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
724 LEAVE;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
725 check_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
726 update_screen(NOT_VALID);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
727 if (!length)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
728 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
729
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
730 err:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
731 msg_split((char_u *)str, highlight_attr[HLF_E]);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
732 return;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
733 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
734 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
735
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
736 XS(XS_VIM_Msg);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
737 XS(XS_VIM_SetOption);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
738 XS(XS_VIM_DoCommand);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
739 XS(XS_VIM_Eval);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
740 XS(XS_VIM_Buffers);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
741 XS(XS_VIM_Windows);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
742 XS(XS_VIWIN_DESTROY);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
743 XS(XS_VIWIN_Buffer);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
744 XS(XS_VIWIN_SetHeight);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
745 XS(XS_VIWIN_Cursor);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
746 XS(XS_VIBUF_DESTROY);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
747 XS(XS_VIBUF_Name);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
748 XS(XS_VIBUF_Number);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
749 XS(XS_VIBUF_Count);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
750 XS(XS_VIBUF_Get);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
751 XS(XS_VIBUF_Set);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
752 XS(XS_VIBUF_Delete);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
753 XS(XS_VIBUF_Append);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
754 XS(boot_VIM);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
755
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
756 static void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
757 xs_init(pTHX)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
758 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
759 char *file = __FILE__;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
760
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
761 /* DynaLoader is a special case */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
762 newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
763 newXS("VIM::bootstrap", boot_VIM, file);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
764 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
765
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
766 typedef win_T * VIWIN;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
767 typedef buf_T * VIBUF;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
768
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
769 MODULE = VIM PACKAGE = VIM
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
770
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
771 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
772 Msg(text, hl=NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
773 char *text;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
774 char *hl;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
775
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
776 PREINIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
777 int attr;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
778 int id;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
779
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
780 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
781 if (text != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
782 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
783 attr = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
784 if (hl != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
785 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
786 id = syn_name2id((char_u *)hl);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
787 if (id != 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
788 attr = syn_id2attr(id);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
789 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
790 msg_split((char_u *)text, attr);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
791 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
792
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
793 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
794 SetOption(line)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
795 char *line;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
796
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
797 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
798 if (line != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
799 do_set((char_u *)line, 0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
800 update_screen(NOT_VALID);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
801
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
802 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
803 DoCommand(line)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
804 char *line;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
805
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
806 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
807 if (line != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
808 do_cmdline_cmd((char_u *)line);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
809
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
810 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
811 Eval(str)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
812 char *str;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
813
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
814 PREINIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
815 char_u *value;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
816 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
817 value = eval_to_string((char_u *)str, (char_u**)0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
818 if (value == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
819 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
820 XPUSHs(sv_2mortal(newSViv(0)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
821 XPUSHs(sv_2mortal(newSVpv("", 0)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
822 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
823 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
824 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
825 XPUSHs(sv_2mortal(newSViv(1)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
826 XPUSHs(sv_2mortal(newSVpv((char *)value, 0)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
827 vim_free(value);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
828 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
829
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
830 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
831 Buffers(...)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
832
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
833 PREINIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
834 buf_T *vimbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
835 int i, b;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
836
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
837 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
838 if (items == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
839 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
840 if (GIMME == G_SCALAR)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
841 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
842 i = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
843 for (vimbuf = firstbuf; vimbuf; vimbuf = vimbuf->b_next)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
844 ++i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
845
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
846 XPUSHs(sv_2mortal(newSViv(i)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
847 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
848 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
849 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
850 for (vimbuf = firstbuf; vimbuf; vimbuf = vimbuf->b_next)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
851 XPUSHs(newBUFrv(newSV(0), vimbuf));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
852 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
853 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
854 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
855 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
856 for (i = 0; i < items; i++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
857 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
858 SV *sv = ST(i);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
859 if (SvIOK(sv))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
860 b = SvIV(ST(i));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
861 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
862 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
863 char_u *pat;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
864 STRLEN len;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
865
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
866 pat = (char_u *)SvPV(sv, len);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
867 ++emsg_off;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
868 b = buflist_findpat(pat, pat+len, FALSE, FALSE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
869 --emsg_off;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
870 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
871
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
872 if (b >= 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
873 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
874 vimbuf = buflist_findnr(b);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
875 if (vimbuf)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
876 XPUSHs(newBUFrv(newSV(0), vimbuf));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
877 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
878 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
879 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
880
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
881 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
882 Windows(...)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
883
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
884 PREINIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
885 win_T *vimwin;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
886 int i, w;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
887
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
888 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
889 if (items == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
890 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
891 if (GIMME == G_SCALAR)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
892 XPUSHs(sv_2mortal(newSViv(win_count())));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
893 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
894 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
895 for (vimwin = firstwin; vimwin != NULL; vimwin = W_NEXT(vimwin))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
896 XPUSHs(newWINrv(newSV(0), vimwin));
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 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
900 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
901 for (i = 0; i < items; i++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
902 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
903 w = SvIV(ST(i));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
904 vimwin = win_find_nr(w);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
905 if (vimwin)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
906 XPUSHs(newWINrv(newSV(0), vimwin));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
907 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
908 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
909
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
910 MODULE = VIM PACKAGE = VIWIN
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
911
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
912 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
913 DESTROY(win)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
914 VIWIN win
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
915
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
916 CODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
917 if (win_valid(win))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
918 win->perl_private = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
919
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
920 SV *
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
921 Buffer(win)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
922 VIWIN win
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
923
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
924 CODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
925 if (!win_valid(win))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
926 win = curwin;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
927 RETVAL = newBUFrv(newSV(0), win->w_buffer);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
928 OUTPUT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
929 RETVAL
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
930
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
931 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
932 SetHeight(win, height)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
933 VIWIN win
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
934 int height;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
935
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
936 PREINIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
937 win_T *savewin;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
938
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
939 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
940 if (!win_valid(win))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
941 win = curwin;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
942 savewin = curwin;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
943 curwin = win;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
944 win_setheight(height);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
945 curwin = savewin;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
946
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
947 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
948 Cursor(win, ...)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
949 VIWIN win
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
950
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
951 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
952 if(items == 1)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
953 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
954 EXTEND(sp, 2);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
955 if (!win_valid(win))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
956 win = curwin;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
957 PUSHs(sv_2mortal(newSViv(win->w_cursor.lnum)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
958 PUSHs(sv_2mortal(newSViv(win->w_cursor.col)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
959 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
960 else if(items == 3)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
961 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
962 int lnum, col;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
963
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
964 if (!win_valid(win))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
965 win = curwin;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
966 lnum = SvIV(ST(1));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
967 col = SvIV(ST(2));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
968 win->w_cursor.lnum = lnum;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
969 win->w_cursor.col = col;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
970 check_cursor(); /* put cursor on an existing line */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
971 update_screen(NOT_VALID);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
972 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
973
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
974 MODULE = VIM PACKAGE = VIBUF
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
975
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
976 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
977 DESTROY(vimbuf)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
978 VIBUF vimbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
979
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
980 CODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
981 if (buf_valid(vimbuf))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
982 vimbuf->perl_private = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
983
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
984 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
985 Name(vimbuf)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
986 VIBUF vimbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
987
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
988 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
989 if (!buf_valid(vimbuf))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
990 vimbuf = curbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
991 /* No file name returns an empty string */
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
992 if (vimbuf->b_fname == NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
993 XPUSHs(sv_2mortal(newSVpv("", 0)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
994 else
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
995 XPUSHs(sv_2mortal(newSVpv((char *)vimbuf->b_fname, 0)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
996
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
997 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
998 Number(vimbuf)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
999 VIBUF vimbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1000
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1001 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1002 if (!buf_valid(vimbuf))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1003 vimbuf = curbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1004 XPUSHs(sv_2mortal(newSViv(vimbuf->b_fnum)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1005
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1006 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1007 Count(vimbuf)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1008 VIBUF vimbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1009
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1010 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1011 if (!buf_valid(vimbuf))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1012 vimbuf = curbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1013 XPUSHs(sv_2mortal(newSViv(vimbuf->b_ml.ml_line_count)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1014
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1015 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1016 Get(vimbuf, ...)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1017 VIBUF vimbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1018
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1019 PREINIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1020 char_u *line;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1021 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1022 long lnum;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1023 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1024 if (buf_valid(vimbuf))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1025 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1026 for (i = 1; i < items; i++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1027 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1028 lnum = SvIV(ST(i));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1029 if (lnum > 0 && lnum <= vimbuf->b_ml.ml_line_count)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1030 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1031 line = ml_get_buf(vimbuf, lnum, FALSE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1032 XPUSHs(sv_2mortal(newSVpv((char *)line, 0)));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1033 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1034 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1035 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1036
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1037 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1038 Set(vimbuf, ...)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1039 VIBUF vimbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1040
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1041 PREINIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1042 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1043 long lnum;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1044 char *line;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1045 buf_T *savebuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1046 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1047 if (buf_valid(vimbuf))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1048 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1049 if (items < 3)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1050 croak("Usage: VIBUF::Set(vimbuf, lnum, @lines)");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1051
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1052 lnum = SvIV(ST(1));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1053 for(i = 2; i < items; i++, lnum++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1054 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1055 line = SvPV(ST(i),PL_na);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1056 if (lnum > 0 && lnum <= vimbuf->b_ml.ml_line_count && line != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1057 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1058 savebuf = curbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1059 curbuf = vimbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1060 if (u_savesub(lnum) == OK)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1061 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1062 ml_replace(lnum, (char_u *)line, TRUE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1063 changed_bytes(lnum, 0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1064 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1065 curbuf = savebuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1066 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1067 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1068 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1069
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1070 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1071 Delete(vimbuf, ...)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1072 VIBUF vimbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1073
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1074 PREINIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1075 long i, lnum = 0, count = 0;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1076 buf_T *savebuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1077 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1078 if (buf_valid(vimbuf))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1079 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1080 if (items == 2)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1081 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1082 lnum = SvIV(ST(1));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1083 count = 1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1084 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1085 else if (items == 3)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1086 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1087 lnum = SvIV(ST(1));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1088 count = 1 + SvIV(ST(2)) - lnum;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1089 if(count == 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1090 count = 1;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1091 if(count < 0)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1092 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1093 lnum -= count;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1094 count = -count;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1095 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1096 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1097 if (items >= 2)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1098 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1099 for (i = 0; i < count; i++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1100 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1101 if (lnum > 0 && lnum <= vimbuf->b_ml.ml_line_count)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1102 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1103 savebuf = curbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1104 curbuf = vimbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1105 if (u_savedel(lnum, 1) == OK)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1106 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1107 ml_delete(lnum, 0);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1108 deleted_lines_mark(lnum, 1L);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1109 if (savebuf == curbuf)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1110 check_cursor();
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1111 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1112 curbuf = savebuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1113 update_curbuf(VALID);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1114 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1115 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1116 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1117 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1118
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1119 void
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1120 Append(vimbuf, ...)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1121 VIBUF vimbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1122
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1123 PREINIT:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1124 int i;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1125 long lnum;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1126 char *line;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1127 buf_T *savebuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1128 PPCODE:
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1129 if (buf_valid(vimbuf))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1130 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1131 if (items < 3)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1132 croak("Usage: VIBUF::Append(vimbuf, lnum, @lines)");
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1133
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1134 lnum = SvIV(ST(1));
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1135 for (i = 2; i < items; i++, lnum++)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1136 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1137 line = SvPV(ST(i),PL_na);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1138 if (lnum >= 0 && lnum <= vimbuf->b_ml.ml_line_count && line != NULL)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1139 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1140 savebuf = curbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1141 curbuf = vimbuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1142 if (u_inssub(lnum + 1) == OK)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1143 {
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1144 ml_append(lnum, (char_u *)line, (colnr_T)0, FALSE);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1145 appended_lines_mark(lnum, 1L);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1146 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1147 curbuf = savebuf;
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1148 update_curbuf(VALID);
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1149 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1150 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1151 }
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1152