Mercurial > vim

comparison src/if_perl.xs @ 1387:35f3b20de2dd v7.1.102

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated for version 7.1-102
author vimboss
date Thu, 13 Sep 2007 13:20:16 +0000
parents e44efb3af0d5
children c845dcf7fafa
comparison
equal deleted inserted replaced
1386:880ece6b2476 1387:35f3b20de2dd
36 #ifndef PERL_VERSION 36 #ifndef PERL_VERSION
37 # include <patchlevel.h> 37 # include <patchlevel.h>
38 # define PERL_REVISION 5 38 # define PERL_REVISION 5
39 # define PERL_VERSION PATCHLEVEL 39 # define PERL_VERSION PATCHLEVEL
40 # define PERL_SUBVERSION SUBVERSION 40 # define PERL_SUBVERSION SUBVERSION
41 #endif
42
43 /*
44 * Quoting Jan Dubois of Active State:
45 * ActivePerl build 822 still identifies itself as 5.8.8 but already
46 * contains many of the changes from the upcoming Perl 5.8.9 release.
47 *
48 * The changes include addition of two symbols (Perl_sv_2iv_flags,
49 * Perl_newXS_flags) not present in earlier releases.
50 *
51 * Jan Dubois suggested the following guarding scheme:
52 */
53 #if (ACTIVEPERL_VERSION >= 822)
54 # define PERL589_OR_LATER
55 #endif
56 #if (PERL_REVISION == 5) && (PERL_VERSION == 8) && (PERL_SUBVERSION >= 9)
57 # define PERL589_OR_LATER
58 #endif
59 #if (PERL_REVISION == 5) && (PERL_VERSION >= 9)
60 # define PERL589_OR_LATER
41 #endif 61 #endif
42 62
43 #ifndef pTHX 63 #ifndef pTHX
44 # define pTHX void 64 # define pTHX void
45 # define pTHX_ 65 # define pTHX_
107 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8) 127 # if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
108 # define Perl_sv_catpvn_flags dll_Perl_sv_catpvn_flags 128 # define Perl_sv_catpvn_flags dll_Perl_sv_catpvn_flags
109 # else 129 # else
110 # define Perl_sv_catpvn dll_Perl_sv_catpvn 130 # define Perl_sv_catpvn dll_Perl_sv_catpvn
111 # endif 131 # endif
132 #ifdef PERL589_OR_LATER
133 # define Perl_sv_2iv_flags dll_Perl_sv_2iv_flags
134 # define Perl_newXS_flags dll_Perl_newXS_flags
135 #endif
112 # define Perl_sv_free dll_Perl_sv_free 136 # define Perl_sv_free dll_Perl_sv_free
113 # define Perl_sv_isa dll_Perl_sv_isa 137 # define Perl_sv_isa dll_Perl_sv_isa
114 # define Perl_sv_magic dll_Perl_sv_magic 138 # define Perl_sv_magic dll_Perl_sv_magic
115 # define Perl_sv_setiv dll_Perl_sv_setiv 139 # define Perl_sv_setiv dll_Perl_sv_setiv
116 # define Perl_sv_setpv dll_Perl_sv_setpv 140 # define Perl_sv_setpv dll_Perl_sv_setpv
189 static SV* (*Perl_sv_bless)(pTHX_ SV*, HV*); 213 static SV* (*Perl_sv_bless)(pTHX_ SV*, HV*);
190 #if (PERL_REVISION == 5) && (PERL_VERSION >= 8) 214 #if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
191 static void (*Perl_sv_catpvn_flags)(pTHX_ SV* , const char*, STRLEN, I32); 215 static void (*Perl_sv_catpvn_flags)(pTHX_ SV* , const char*, STRLEN, I32);
192 #else 216 #else
193 static void (*Perl_sv_catpvn)(pTHX_ SV*, const char*, STRLEN); 217 static void (*Perl_sv_catpvn)(pTHX_ SV*, const char*, STRLEN);
218 #endif
219 #ifdef PERL589_OR_LATER
220 static IV (*Perl_sv_2iv_flags)(pTHX_ SV* sv, I32 flags);
221 static CV * (*Perl_newXS_flags)(pTHX_ const char *name, XSUBADDR_t subaddr, const char *const filename, const char *const proto, U32 flags);
194 #endif 222 #endif
195 static void (*Perl_sv_free)(pTHX_ SV*); 223 static void (*Perl_sv_free)(pTHX_ SV*);
196 static int (*Perl_sv_isa)(pTHX_ SV*, const char*); 224 static int (*Perl_sv_isa)(pTHX_ SV*, const char*);
197 static void (*Perl_sv_magic)(pTHX_ SV*, SV*, int, const char*, I32); 225 static void (*Perl_sv_magic)(pTHX_ SV*, SV*, int, const char*, I32);
198 static void (*Perl_sv_setiv)(pTHX_ SV*, IV); 226 static void (*Perl_sv_setiv)(pTHX_ SV*, IV);
265 {"Perl_sv_2pv_flags", (PERL_PROC*)&Perl_sv_2pv_flags}, 293 {"Perl_sv_2pv_flags", (PERL_PROC*)&Perl_sv_2pv_flags},
266 {"Perl_sv_2pv_nolen", (PERL_PROC*)&Perl_sv_2pv_nolen}, 294 {"Perl_sv_2pv_nolen", (PERL_PROC*)&Perl_sv_2pv_nolen},
267 #else 295 #else
268 {"Perl_sv_2pv", (PERL_PROC*)&Perl_sv_2pv}, 296 {"Perl_sv_2pv", (PERL_PROC*)&Perl_sv_2pv},
269 #endif 297 #endif
298 #ifdef PERL589_OR_LATER
299 {"Perl_sv_2iv_flags", (PERL_PROC*)&Perl_sv_2iv_flags},
300 {"Perl_newXS_flags", (PERL_PROC*)&Perl_newXS_flags},
301 #endif
270 {"Perl_sv_bless", (PERL_PROC*)&Perl_sv_bless}, 302 {"Perl_sv_bless", (PERL_PROC*)&Perl_sv_bless},
271 #if (PERL_REVISION == 5) && (PERL_VERSION >= 8) 303 #if (PERL_REVISION == 5) && (PERL_VERSION >= 8)
272 {"Perl_sv_catpvn_flags", (PERL_PROC*)&Perl_sv_catpvn_flags}, 304 {"Perl_sv_catpvn_flags", (PERL_PROC*)&Perl_sv_catpvn_flags},
273 #else 305 #else
274 {"Perl_sv_catpvn", (PERL_PROC*)&Perl_sv_catpvn}, 306 {"Perl_sv_catpvn", (PERL_PROC*)&Perl_sv_catpvn},