projects / p5sagit/p5-mst-13.2.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | history | HEAD
Re: op_seq (was: Freeing code)
[p5sagit/p5-mst-13.2.git] / ext / B / B.xs
CommitLineData
a8a597b2 1/* B.xs
2 *
3 * Copyright (c) 1996 Malcolm Beattie
4 *
5 * You may distribute under the terms of either the GNU General Public
6 * License or the Artistic License, as specified in the README file.
7 *
8 */
9
c5be433b 10#define PERL_NO_GET_CONTEXT
a8a597b2 11#include "EXTERN.h"
12#include "perl.h"
13#include "XSUB.h"
a8a597b2 14
51aa15f3 15#ifdef PerlIO
16typedef PerlIO * InputStream;
17#else
18typedef FILE * InputStream;
19#endif
20
21
a8a597b2 22static char *svclassnames[] = {
23 "B::NULL",
24 "B::IV",
25 "B::NV",
26 "B::RV",
27 "B::PV",
28 "B::PVIV",
29 "B::PVNV",
30 "B::PVMG",
31 "B::BM",
4ce457a6 32 "B::GV",
a8a597b2 33 "B::PVLV",
34 "B::AV",
35 "B::HV",
36 "B::CV",
a8a597b2 37 "B::FM",
38 "B::IO",
39};
40
41typedef enum {
42 OPc_NULL, /* 0 */
43 OPc_BASEOP, /* 1 */
44 OPc_UNOP, /* 2 */
45 OPc_BINOP, /* 3 */
46 OPc_LOGOP, /* 4 */
1a67a97c 47 OPc_LISTOP, /* 5 */
48 OPc_PMOP, /* 6 */
49 OPc_SVOP, /* 7 */
7934575e 50 OPc_PADOP, /* 8 */
1a67a97c 51 OPc_PVOP, /* 9 */
651aa52e 52 OPc_LOOP, /* 10 */
53 OPc_COP /* 11 */
a8a597b2 54} opclass;
55
56static char *opclassnames[] = {
57 "B::NULL",
58 "B::OP",
59 "B::UNOP",
60 "B::BINOP",
61 "B::LOGOP",
a8a597b2 62 "B::LISTOP",
63 "B::PMOP",
64 "B::SVOP",
7934575e 65 "B::PADOP",
a8a597b2 66 "B::PVOP",
a8a597b2 67 "B::LOOP",
68 "B::COP"
69};
70
651aa52e 71static size_t opsizes[] = {
72 0,
73 sizeof(OP),
74 sizeof(UNOP),
75 sizeof(BINOP),
76 sizeof(LOGOP),
77 sizeof(LISTOP),
78 sizeof(PMOP),
79 sizeof(SVOP),
80 sizeof(PADOP),
81 sizeof(PVOP),
82 sizeof(LOOP),
83 sizeof(COP)
84};
85
df3728a2 86#define MY_CXT_KEY "B::_guts" XS_VERSION
a8a597b2 87
89ca4ac7 88typedef struct {
89 int x_walkoptree_debug; /* Flag for walkoptree debug hook */
b326da91 90 SV * x_specialsv_list[7];
89ca4ac7 91} my_cxt_t;
92
93START_MY_CXT
94
95#define walkoptree_debug (MY_CXT.x_walkoptree_debug)
96#define specialsv_list (MY_CXT.x_specialsv_list)
e8edd1e6 97
a8a597b2 98static opclass
cea2e8a9 99cc_opclass(pTHX_ OP *o)
a8a597b2 100{
101 if (!o)
102 return OPc_NULL;
103
104 if (o->op_type == 0)
105 return (o->op_flags & OPf_KIDS) ? OPc_UNOP : OPc_BASEOP;
106
107 if (o->op_type == OP_SASSIGN)
108 return ((o->op_private & OPpASSIGN_BACKWARDS) ? OPc_UNOP : OPc_BINOP);
109
18228111 110#ifdef USE_ITHREADS
31b49ad4 111 if (o->op_type == OP_GV || o->op_type == OP_GVSV ||
112 o->op_type == OP_AELEMFAST || o->op_type == OP_RCATLINE)
18228111 113 return OPc_PADOP;
114#endif
115
22c35a8c 116 switch (PL_opargs[o->op_type] & OA_CLASS_MASK) {
a8a597b2 117 case OA_BASEOP:
118 return OPc_BASEOP;
119
120 case OA_UNOP:
121 return OPc_UNOP;
122
123 case OA_BINOP:
124 return OPc_BINOP;
125
126 case OA_LOGOP:
127 return OPc_LOGOP;
128
a8a597b2 129 case OA_LISTOP:
130 return OPc_LISTOP;
131
132 case OA_PMOP:
133 return OPc_PMOP;
134
135 case OA_SVOP:
136 return OPc_SVOP;
137
7934575e 138 case OA_PADOP:
139 return OPc_PADOP;
a8a597b2 140
293d3ffa 141 case OA_PVOP_OR_SVOP:
142 /*
143 * Character translations (tr///) are usually a PVOP, keeping a
144 * pointer to a table of shorts used to look up translations.
145 * Under utf8, however, a simple table isn't practical; instead,
146 * the OP is an SVOP, and the SV is a reference to a swash
147 * (i.e., an RV pointing to an HV).
148 */
149 return (o->op_private & (OPpTRANS_TO_UTF|OPpTRANS_FROM_UTF))
150 ? OPc_SVOP : OPc_PVOP;
a8a597b2 151
152 case OA_LOOP:
153 return OPc_LOOP;
154
155 case OA_COP:
156 return OPc_COP;
157
158 case OA_BASEOP_OR_UNOP:
159 /*
160 * UNI(OP_foo) in toke.c returns token UNI or FUNC1 depending on
45f6cd40 161 * whether parens were seen. perly.y uses OPf_SPECIAL to
162 * signal whether a BASEOP had empty parens or none.
163 * Some other UNOPs are created later, though, so the best
164 * test is OPf_KIDS, which is set in newUNOP.
a8a597b2 165 */
45f6cd40 166 return (o->op_flags & OPf_KIDS) ? OPc_UNOP : OPc_BASEOP;
a8a597b2 167
168 case OA_FILESTATOP:
169 /*
170 * The file stat OPs are created via UNI(OP_foo) in toke.c but use
171 * the OPf_REF flag to distinguish between OP types instead of the
172 * usual OPf_SPECIAL flag. As usual, if OPf_KIDS is set, then we
173 * return OPc_UNOP so that walkoptree can find our children. If
174 * OPf_KIDS is not set then we check OPf_REF. Without OPf_REF set
175 * (no argument to the operator) it's an OP; with OPf_REF set it's
7934575e 176 * an SVOP (and op_sv is the GV for the filehandle argument).
a8a597b2 177 */
178 return ((o->op_flags & OPf_KIDS) ? OPc_UNOP :
93865851 179#ifdef USE_ITHREADS
180 (o->op_flags & OPf_REF) ? OPc_PADOP : OPc_BASEOP);
181#else
7934575e 182 (o->op_flags & OPf_REF) ? OPc_SVOP : OPc_BASEOP);
93865851 183#endif
a8a597b2 184 case OA_LOOPEXOP:
185 /*
186 * next, last, redo, dump and goto use OPf_SPECIAL to indicate that a
187 * label was omitted (in which case it's a BASEOP) or else a term was
188 * seen. In this last case, all except goto are definitely PVOP but
189 * goto is either a PVOP (with an ordinary constant label), an UNOP
190 * with OPf_STACKED (with a non-constant non-sub) or an UNOP for
191 * OP_REFGEN (with goto &sub) in which case OPf_STACKED also seems to
192 * get set.
193 */
194 if (o->op_flags & OPf_STACKED)
195 return OPc_UNOP;
196 else if (o->op_flags & OPf_SPECIAL)
197 return OPc_BASEOP;
198 else
199 return OPc_PVOP;
200 }
201 warn("can't determine class of operator %s, assuming BASEOP\n",
22c35a8c 202 PL_op_name[o->op_type]);
a8a597b2 203 return OPc_BASEOP;
204}
205
206static char *
cea2e8a9 207cc_opclassname(pTHX_ OP *o)
a8a597b2 208{
cea2e8a9 209 return opclassnames[cc_opclass(aTHX_ o)];
a8a597b2 210}
211
212static SV *
cea2e8a9 213make_sv_object(pTHX_ SV *arg, SV *sv)
a8a597b2 214{
215 char *type = 0;
216 IV iv;
89ca4ac7 217 dMY_CXT;
a8a597b2 218
e8edd1e6 219 for (iv = 0; iv < sizeof(specialsv_list)/sizeof(SV*); iv++) {
220 if (sv == specialsv_list[iv]) {
a8a597b2 221 type = "B::SPECIAL";
222 break;
223 }
224 }
225 if (!type) {
226 type = svclassnames[SvTYPE(sv)];
56431972 227 iv = PTR2IV(sv);
a8a597b2 228 }
229 sv_setiv(newSVrv(arg, type), iv);
230 return arg;
231}
232
233static SV *
cea2e8a9 234make_mg_object(pTHX_ SV *arg, MAGIC *mg)
a8a597b2 235{
56431972 236 sv_setiv(newSVrv(arg, "B::MAGIC"), PTR2IV(mg));
a8a597b2 237 return arg;
238}
239
240static SV *
52ad86de 241cstring(pTHX_ SV *sv, bool perlstyle)
a8a597b2 242{
79cb57f6 243 SV *sstr = newSVpvn("", 0);
a8a597b2 244 STRLEN len;
245 char *s;
b326da91 246 char escbuff[5]; /* to fit backslash, 3 octals + trailing \0 */
a8a597b2 247
248 if (!SvOK(sv))
249 sv_setpvn(sstr, "0", 1);
d79a7a3d 250 else if (perlstyle && SvUTF8(sv))
251 {
252 SV *tmpsv = sv_newmortal(); /* Temporary SV to feed sv_uni_display */
253 len = SvCUR(sv);
254 s = sv_uni_display(tmpsv, sv, 8*len, UNI_DISPLAY_QQ);
255 sv_setpv(sstr,"\"");
256 while (*s)
257 {
258 if (*s == '"')
259 sv_catpv(sstr, "\\\"");
260 else if (*s == '$')
261 sv_catpv(sstr, "\\$");
262 else if (*s == '@')
263 sv_catpv(sstr, "\\@");
264 else if (*s == '\\')
265 {
266 if (strchr("nrftax\\",*(s+1)))
267 sv_catpvn(sstr, s++, 2);
268 else
269 sv_catpv(sstr, "\\\\");
270 }
271 else /* should always be printable */
272 sv_catpvn(sstr, s, 1);
273 ++s;
274 }
275 sv_catpv(sstr, "\"");
276 return sstr;
277 }
a8a597b2 278 else
279 {
280 /* XXX Optimise? */
281 s = SvPV(sv, len);
282 sv_catpv(sstr, "\"");
283 for (; len; len--, s++)
284 {
285 /* At least try a little for readability */
286 if (*s == '"')
287 sv_catpv(sstr, "\\\"");
288 else if (*s == '\\')
289 sv_catpv(sstr, "\\\\");
b326da91 290 /* trigraphs - bleagh */
52ad86de 291 else if (!perlstyle && *s == '?' && len>=3 && s[1] == '?')
b326da91 292 {
293 sprintf(escbuff, "\\%03o", '?');
294 sv_catpv(sstr, escbuff);
295 }
52ad86de 296 else if (perlstyle && *s == '$')
297 sv_catpv(sstr, "\\$");
298 else if (perlstyle && *s == '@')
299 sv_catpv(sstr, "\\@");
ce561ef2 300#ifdef EBCDIC
301 else if (isPRINT(*s))
302#else
303 else if (*s >= ' ' && *s < 127)
304#endif /* EBCDIC */
a8a597b2 305 sv_catpvn(sstr, s, 1);
306 else if (*s == '\n')
307 sv_catpv(sstr, "\\n");
308 else if (*s == '\r')
309 sv_catpv(sstr, "\\r");
310 else if (*s == '\t')
311 sv_catpv(sstr, "\\t");
312 else if (*s == '\a')
313 sv_catpv(sstr, "\\a");
314 else if (*s == '\b')
315 sv_catpv(sstr, "\\b");
316 else if (*s == '\f')
317 sv_catpv(sstr, "\\f");
52ad86de 318 else if (!perlstyle && *s == '\v')
a8a597b2 319 sv_catpv(sstr, "\\v");
320 else
321 {
a8a597b2 322 /* Don't want promotion of a signed -1 char in sprintf args */
323 unsigned char c = (unsigned char) *s;
324 sprintf(escbuff, "\\%03o", c);
325 sv_catpv(sstr, escbuff);
326 }
327 /* XXX Add line breaks if string is long */
328 }
329 sv_catpv(sstr, "\"");
330 }
331 return sstr;
332}
333
334static SV *
cea2e8a9 335cchar(pTHX_ SV *sv)
a8a597b2 336{
79cb57f6 337 SV *sstr = newSVpvn("'", 1);
2d8e6c8d 338 STRLEN n_a;
339 char *s = SvPV(sv, n_a);
a8a597b2 340
341 if (*s == '\'')
342 sv_catpv(sstr, "\\'");
343 else if (*s == '\\')
344 sv_catpv(sstr, "\\\\");
ce561ef2 345#ifdef EBCDIC
133b4094 346 else if (isPRINT(*s))
ce561ef2 347#else
348 else if (*s >= ' ' && *s < 127)
349#endif /* EBCDIC */
a8a597b2 350 sv_catpvn(sstr, s, 1);
351 else if (*s == '\n')
352 sv_catpv(sstr, "\\n");
353 else if (*s == '\r')
354 sv_catpv(sstr, "\\r");
355 else if (*s == '\t')
356 sv_catpv(sstr, "\\t");
357 else if (*s == '\a')
358 sv_catpv(sstr, "\\a");
359 else if (*s == '\b')
360 sv_catpv(sstr, "\\b");
361 else if (*s == '\f')
362 sv_catpv(sstr, "\\f");
363 else if (*s == '\v')
364 sv_catpv(sstr, "\\v");
365 else
366 {
367 /* no trigraph support */
368 char escbuff[5]; /* to fit backslash, 3 octals + trailing \0 */
369 /* Don't want promotion of a signed -1 char in sprintf args */
370 unsigned char c = (unsigned char) *s;
371 sprintf(escbuff, "\\%03o", c);
372 sv_catpv(sstr, escbuff);
373 }
374 sv_catpv(sstr, "'");
375 return sstr;
376}
377
a8a597b2 378void
cea2e8a9 379walkoptree(pTHX_ SV *opsv, char *method)
a8a597b2 380{
381 dSP;
f3be9b72 382 OP *o, *kid;
89ca4ac7 383 dMY_CXT;
384
a8a597b2 385 if (!SvROK(opsv))
386 croak("opsv is not a reference");
387 opsv = sv_mortalcopy(opsv);
56431972 388 o = INT2PTR(OP*,SvIV((SV*)SvRV(opsv)));
a8a597b2 389 if (walkoptree_debug) {
390 PUSHMARK(sp);
391 XPUSHs(opsv);
392 PUTBACK;
393 perl_call_method("walkoptree_debug", G_DISCARD);
394 }
395 PUSHMARK(sp);
396 XPUSHs(opsv);
397 PUTBACK;
398 perl_call_method(method, G_DISCARD);
399 if (o && (o->op_flags & OPf_KIDS)) {
a8a597b2 400 for (kid = ((UNOP*)o)->op_first; kid; kid = kid->op_sibling) {
401 /* Use the same opsv. Rely on methods not to mess it up. */
56431972 402 sv_setiv(newSVrv(opsv, cc_opclassname(aTHX_ kid)), PTR2IV(kid));
cea2e8a9 403 walkoptree(aTHX_ opsv, method);
a8a597b2 404 }
405 }
f3be9b72 406 if (o && (cc_opclass(aTHX_ o) == OPc_PMOP)
407 && (kid = cPMOPo->op_pmreplroot))
408 {
409 sv_setiv(newSVrv(opsv, opclassnames[OPc_PMOP]), PTR2IV(kid));
410 walkoptree(aTHX_ opsv, method);
411 }
a8a597b2 412}
413
1df34986 414SV **
415oplist(pTHX_ OP *o, SV **SP)
416{
417 for(; o; o = o->op_next) {
418 SV *opsv;
2814eb74 419 if (o->op_opt == 0)
1df34986 420 break;
2814eb74 421 o->op_opt = 0;
1df34986 422 opsv = sv_newmortal();
423 sv_setiv(newSVrv(opsv, cc_opclassname(aTHX_ (OP*)o)), PTR2IV(o));
424 XPUSHs(opsv);
425 switch (o->op_type) {
426 case OP_SUBST:
427 SP = oplist(aTHX_ cPMOPo->op_pmreplstart, SP);
428 continue;
429 case OP_SORT:
f66c782a 430 if (o->op_flags & OPf_STACKED && o->op_flags & OPf_SPECIAL) {
1df34986 431 OP *kid = cLISTOPo->op_first->op_sibling; /* pass pushmark */
432 kid = kUNOP->op_first; /* pass rv2gv */
433 kid = kUNOP->op_first; /* pass leave */
f66c782a 434 SP = oplist(aTHX_ kid->op_next, SP);
1df34986 435 }
436 continue;
437 }
438 switch (PL_opargs[o->op_type] & OA_CLASS_MASK) {
439 case OA_LOGOP:
440 SP = oplist(aTHX_ cLOGOPo->op_other, SP);
441 break;
442 case OA_LOOP:
443 SP = oplist(aTHX_ cLOOPo->op_lastop, SP);
444 SP = oplist(aTHX_ cLOOPo->op_nextop, SP);
445 SP = oplist(aTHX_ cLOOPo->op_redoop, SP);
446 break;
447 }
448 }
449 return SP;
450}
451
a8a597b2 452typedef OP *B__OP;
453typedef UNOP *B__UNOP;
454typedef BINOP *B__BINOP;
455typedef LOGOP *B__LOGOP;
a8a597b2 456typedef LISTOP *B__LISTOP;
457typedef PMOP *B__PMOP;
458typedef SVOP *B__SVOP;
7934575e 459typedef PADOP *B__PADOP;
a8a597b2 460typedef PVOP *B__PVOP;
461typedef LOOP *B__LOOP;
462typedef COP *B__COP;
463
464typedef SV *B__SV;
465typedef SV *B__IV;
466typedef SV *B__PV;
467typedef SV *B__NV;
468typedef SV *B__PVMG;
469typedef SV *B__PVLV;
470typedef SV *B__BM;
471typedef SV *B__RV;
1df34986 472typedef SV *B__FM;
a8a597b2 473typedef AV *B__AV;
474typedef HV *B__HV;
475typedef CV *B__CV;
476typedef GV *B__GV;
477typedef IO *B__IO;
478
479typedef MAGIC *B__MAGIC;
480
481MODULE = B PACKAGE = B PREFIX = B_
482
483PROTOTYPES: DISABLE
484
485BOOT:
4c1f658f 486{
487 HV *stash = gv_stashpvn("B", 1, TRUE);
488 AV *export_ok = perl_get_av("B::EXPORT_OK",TRUE);
89ca4ac7 489 MY_CXT_INIT;
e8edd1e6 490 specialsv_list[0] = Nullsv;
491 specialsv_list[1] = &PL_sv_undef;
492 specialsv_list[2] = &PL_sv_yes;
493 specialsv_list[3] = &PL_sv_no;
059a8bb7 494 specialsv_list[4] = pWARN_ALL;
495 specialsv_list[5] = pWARN_NONE;
b326da91 496 specialsv_list[6] = pWARN_STD;
4c1f658f 497#include "defsubs.h"
498}
a8a597b2 499
3280af22 500#define B_main_cv() PL_main_cv
31d7d75a 501#define B_init_av() PL_initav
651aa52e 502#define B_inc_gv() PL_incgv
ece599bd 503#define B_check_av() PL_checkav_save
059a8bb7 504#define B_begin_av() PL_beginav_save
505#define B_end_av() PL_endav
3280af22 506#define B_main_root() PL_main_root
507#define B_main_start() PL_main_start
56eca212 508#define B_amagic_generation() PL_amagic_generation
651aa52e 509#define B_defstash() PL_defstash
510#define B_curstash() PL_curstash
511#define B_dowarn() PL_dowarn
3280af22 512#define B_comppadlist() (PL_main_cv ? CvPADLIST(PL_main_cv) : CvPADLIST(PL_compcv))
513#define B_sv_undef() &PL_sv_undef
514#define B_sv_yes() &PL_sv_yes
515#define B_sv_no() &PL_sv_no
1df34986 516#define B_formfeed() PL_formfeed
9d2bbe64 517#ifdef USE_ITHREADS
518#define B_regex_padav() PL_regex_padav
519#endif
a8a597b2 520
31d7d75a 521B::AV
522B_init_av()
523
059a8bb7 524B::AV
ece599bd 525B_check_av()
526
527B::AV
059a8bb7 528B_begin_av()
529
530B::AV
531B_end_av()
532
651aa52e 533B::GV
534B_inc_gv()
535
9d2bbe64 536#ifdef USE_ITHREADS
537
538B::AV
539B_regex_padav()
540
541#endif
542
a8a597b2 543B::CV
544B_main_cv()
545
546B::OP
547B_main_root()
548
549B::OP
550B_main_start()
551
56eca212 552long
553B_amagic_generation()
554
a8a597b2 555B::AV
556B_comppadlist()
557
558B::SV
559B_sv_undef()
560
561B::SV
562B_sv_yes()
563
564B::SV
565B_sv_no()
566
651aa52e 567B::HV
568B_curstash()
569
570B::HV
571B_defstash()
a8a597b2 572
651aa52e 573U8
574B_dowarn()
575
1df34986 576B::SV
577B_formfeed()
578
651aa52e 579void
580B_warnhook()
581 CODE:
582 ST(0) = make_sv_object(aTHX_ sv_newmortal(), PL_warnhook);
583
584void
585B_diehook()
586 CODE:
587 ST(0) = make_sv_object(aTHX_ sv_newmortal(), PL_diehook);
588
589MODULE = B PACKAGE = B
a8a597b2 590
591void
592walkoptree(opsv, method)
593 SV * opsv
594 char * method
cea2e8a9 595 CODE:
596 walkoptree(aTHX_ opsv, method);
a8a597b2 597
598int
599walkoptree_debug(...)
600 CODE:
89ca4ac7 601 dMY_CXT;
a8a597b2 602 RETVAL = walkoptree_debug;
603 if (items > 0 && SvTRUE(ST(1)))
604 walkoptree_debug = 1;
605 OUTPUT:
606 RETVAL
607
56431972 608#define address(sv) PTR2IV(sv)
a8a597b2 609
610IV
611address(sv)
612 SV * sv
613
614B::SV
615svref_2object(sv)
616 SV * sv
617 CODE:
618 if (!SvROK(sv))
619 croak("argument is not a reference");
620 RETVAL = (SV*)SvRV(sv);
621 OUTPUT:
0cc1d052 622 RETVAL
623
624void
625opnumber(name)
626char * name
627CODE:
628{
629 int i;
630 IV result = -1;
631 ST(0) = sv_newmortal();
632 if (strncmp(name,"pp_",3) == 0)
633 name += 3;
634 for (i = 0; i < PL_maxo; i++)
635 {
636 if (strcmp(name, PL_op_name[i]) == 0)
637 {
638 result = i;
639 break;
640 }
641 }
642 sv_setiv(ST(0),result);
643}
a8a597b2 644
645void
646ppname(opnum)
647 int opnum
648 CODE:
649 ST(0) = sv_newmortal();
3280af22 650 if (opnum >= 0 && opnum < PL_maxo) {
a8a597b2 651 sv_setpvn(ST(0), "pp_", 3);
22c35a8c 652 sv_catpv(ST(0), PL_op_name[opnum]);
a8a597b2 653 }
654
655void
656hash(sv)
657 SV * sv
658 CODE:
659 char *s;
660 STRLEN len;
661 U32 hash = 0;
faccc32b 662 char hexhash[19]; /* must fit "0xffffffffffffffff" plus trailing \0 */
a8a597b2 663 s = SvPV(sv, len);
c32d3395 664 PERL_HASH(hash, s, len);
faccc32b 665 sprintf(hexhash, "0x%"UVxf, (UV)hash);
a8a597b2 666 ST(0) = sv_2mortal(newSVpv(hexhash, 0));
667
668#define cast_I32(foo) (I32)foo
669IV
670cast_I32(i)
671 IV i
672
673void
674minus_c()
675 CODE:
3280af22 676 PL_minus_c = TRUE;
a8a597b2 677
059a8bb7 678void
679save_BEGINs()
680 CODE:
aefff11f 681 PL_savebegin = TRUE;
059a8bb7 682
a8a597b2 683SV *
684cstring(sv)
685 SV * sv
cea2e8a9 686 CODE:
52ad86de 687 RETVAL = cstring(aTHX_ sv, 0);
688 OUTPUT:
689 RETVAL
690
691SV *
692perlstring(sv)
693 SV * sv
694 CODE:
695 RETVAL = cstring(aTHX_ sv, 1);
cea2e8a9 696 OUTPUT:
697 RETVAL
a8a597b2 698
699SV *
700cchar(sv)
701 SV * sv
cea2e8a9 702 CODE:
703 RETVAL = cchar(aTHX_ sv);
704 OUTPUT:
705 RETVAL
a8a597b2 706
707void
708threadsv_names()
709 PPCODE:
a8a597b2 710
711
712#define OP_next(o) o->op_next
713#define OP_sibling(o) o->op_sibling
22c35a8c 714#define OP_desc(o) PL_op_desc[o->op_type]
a8a597b2 715#define OP_targ(o) o->op_targ
716#define OP_type(o) o->op_type
2814eb74 717#define OP_opt(o) o->op_opt
718#define OP_static(o) o->op_static
a8a597b2 719#define OP_flags(o) o->op_flags
720#define OP_private(o) o->op_private
721
722MODULE = B PACKAGE = B::OP PREFIX = OP_
723
651aa52e 724size_t
725OP_size(o)
726 B::OP o
727 CODE:
728 RETVAL = opsizes[cc_opclass(aTHX_ o)];
729 OUTPUT:
730 RETVAL
731
a8a597b2 732B::OP
733OP_next(o)
734 B::OP o
735
736B::OP
737OP_sibling(o)
738 B::OP o
739
740char *
3f872cb9 741OP_name(o)
742 B::OP o
743 CODE:
8063af02 744 RETVAL = PL_op_name[o->op_type];
745 OUTPUT:
746 RETVAL
3f872cb9 747
748
8063af02 749void
a8a597b2 750OP_ppaddr(o)
751 B::OP o
dc333d64 752 PREINIT:
753 int i;
754 SV *sv = sv_newmortal();
a8a597b2 755 CODE:
dc333d64 756 sv_setpvn(sv, "PL_ppaddr[OP_", 13);
757 sv_catpv(sv, PL_op_name[o->op_type]);
7c436af3 758 for (i=13; (STRLEN)i < SvCUR(sv); ++i)
dc333d64 759 SvPVX(sv)[i] = toUPPER(SvPVX(sv)[i]);
760 sv_catpv(sv, "]");
761 ST(0) = sv;
a8a597b2 762
763char *
764OP_desc(o)
765 B::OP o
766
7934575e 767PADOFFSET
a8a597b2 768OP_targ(o)
769 B::OP o
770
771U16
772OP_type(o)
773 B::OP o
774
2814eb74 775U8
776OP_opt(o)
777 B::OP o
778
779U8
780OP_static(o)
a8a597b2 781 B::OP o
782
783U8
784OP_flags(o)
785 B::OP o
786
787U8
788OP_private(o)
789 B::OP o
790
1df34986 791void
792OP_oplist(o)
793 B::OP o
794 PPCODE:
795 SP = oplist(aTHX_ o, SP);
796
a8a597b2 797#define UNOP_first(o) o->op_first
798
799MODULE = B PACKAGE = B::UNOP PREFIX = UNOP_
800
801B::OP
802UNOP_first(o)
803 B::UNOP o
804
805#define BINOP_last(o) o->op_last
806
807MODULE = B PACKAGE = B::BINOP PREFIX = BINOP_
808
809B::OP
810BINOP_last(o)
811 B::BINOP o
812
813#define LOGOP_other(o) o->op_other
814
815MODULE = B PACKAGE = B::LOGOP PREFIX = LOGOP_
816
817B::OP
818LOGOP_other(o)
819 B::LOGOP o
820
a8a597b2 821MODULE = B PACKAGE = B::LISTOP PREFIX = LISTOP_
822
c03c2844 823U32
824LISTOP_children(o)
825 B::LISTOP o
826 OP * kid = NO_INIT
827 int i = NO_INIT
828 CODE:
c03c2844 829 i = 0;
830 for (kid = o->op_first; kid; kid = kid->op_sibling)
831 i++;
8063af02 832 RETVAL = i;
833 OUTPUT:
834 RETVAL
c03c2844 835
a8a597b2 836#define PMOP_pmreplroot(o) o->op_pmreplroot
837#define PMOP_pmreplstart(o) o->op_pmreplstart
838#define PMOP_pmnext(o) o->op_pmnext
aaa362c4 839#define PMOP_pmregexp(o) PM_GETRE(o)
9d2bbe64 840#ifdef USE_ITHREADS
841#define PMOP_pmoffset(o) o->op_pmoffset
651aa52e 842#define PMOP_pmstashpv(o) o->op_pmstashpv
843#else
844#define PMOP_pmstash(o) o->op_pmstash
9d2bbe64 845#endif
a8a597b2 846#define PMOP_pmflags(o) o->op_pmflags
847#define PMOP_pmpermflags(o) o->op_pmpermflags
9d2bbe64 848#define PMOP_pmdynflags(o) o->op_pmdynflags
a8a597b2 849
850MODULE = B PACKAGE = B::PMOP PREFIX = PMOP_
851
852void
853PMOP_pmreplroot(o)
854 B::PMOP o
855 OP * root = NO_INIT
856 CODE:
857 ST(0) = sv_newmortal();
858 root = o->op_pmreplroot;
859 /* OP_PUSHRE stores an SV* instead of an OP* in op_pmreplroot */
860 if (o->op_type == OP_PUSHRE) {
9d2bbe64 861#ifdef USE_ITHREADS
862 sv_setiv(ST(0), INT2PTR(PADOFFSET,root) );
863#else
a8a597b2 864 sv_setiv(newSVrv(ST(0), root ?
865 svclassnames[SvTYPE((SV*)root)] : "B::SV"),
56431972 866 PTR2IV(root));
9d2bbe64 867#endif
a8a597b2 868 }
869 else {
56431972 870 sv_setiv(newSVrv(ST(0), cc_opclassname(aTHX_ root)), PTR2IV(root));
a8a597b2 871 }
872
873B::OP
874PMOP_pmreplstart(o)
875 B::PMOP o
876
877B::PMOP
878PMOP_pmnext(o)
879 B::PMOP o
880
9d2bbe64 881#ifdef USE_ITHREADS
882
883IV
884PMOP_pmoffset(o)
885 B::PMOP o
886
651aa52e 887char*
888PMOP_pmstashpv(o)
889 B::PMOP o
890
891#else
892
893B::HV
894PMOP_pmstash(o)
895 B::PMOP o
896
9d2bbe64 897#endif
898
6e21dc91 899U32
a8a597b2 900PMOP_pmflags(o)
901 B::PMOP o
902
6e21dc91 903U32
a8a597b2 904PMOP_pmpermflags(o)
905 B::PMOP o
906
9d2bbe64 907U8
908PMOP_pmdynflags(o)
909 B::PMOP o
910
a8a597b2 911void
912PMOP_precomp(o)
913 B::PMOP o
914 REGEXP * rx = NO_INIT
915 CODE:
916 ST(0) = sv_newmortal();
aaa362c4 917 rx = PM_GETRE(o);
a8a597b2 918 if (rx)
919 sv_setpvn(ST(0), rx->precomp, rx->prelen);
920
ac33dcd1 921#define SVOP_sv(o) cSVOPo->op_sv
922#define SVOP_gv(o) ((GV*)cSVOPo->op_sv)
a8a597b2 923
924MODULE = B PACKAGE = B::SVOP PREFIX = SVOP_
925
a8a597b2 926B::SV
927SVOP_sv(o)
928 B::SVOP o
929
f22444f5 930B::GV
065a1863 931SVOP_gv(o)
932 B::SVOP o
933
7934575e 934#define PADOP_padix(o) o->op_padix
dd2155a4 935#define PADOP_sv(o) (o->op_padix ? PAD_SVl(o->op_padix) : Nullsv)
7934575e 936#define PADOP_gv(o) ((o->op_padix \
dd2155a4 937 && SvTYPE(PAD_SVl(o->op_padix)) == SVt_PVGV) \
938 ? (GV*)PAD_SVl(o->op_padix) : Nullgv)
a8a597b2 939
7934575e 940MODULE = B PACKAGE = B::PADOP PREFIX = PADOP_
941
942PADOFFSET
943PADOP_padix(o)
944 B::PADOP o
945
946B::SV
947PADOP_sv(o)
948 B::PADOP o
a8a597b2 949
950B::GV
7934575e 951PADOP_gv(o)
952 B::PADOP o
a8a597b2 953
954MODULE = B PACKAGE = B::PVOP PREFIX = PVOP_
955
956void
957PVOP_pv(o)
958 B::PVOP o
959 CODE:
960 /*
bec89253 961 * OP_TRANS uses op_pv to point to a table of 256 or >=258 shorts
a8a597b2 962 * whereas other PVOPs point to a null terminated string.
963 */
bec89253 964 if (o->op_type == OP_TRANS &&
965 (o->op_private & OPpTRANS_COMPLEMENT) &&
966 !(o->op_private & OPpTRANS_DELETE))
967 {
968 short* tbl = (short*)o->op_pv;
969 short entries = 257 + tbl[256];
970 ST(0) = sv_2mortal(newSVpv(o->op_pv, entries * sizeof(short)));
971 }
972 else if (o->op_type == OP_TRANS) {
973 ST(0) = sv_2mortal(newSVpv(o->op_pv, 256 * sizeof(short)));
974 }
975 else
976 ST(0) = sv_2mortal(newSVpv(o->op_pv, 0));
a8a597b2 977
978#define LOOP_redoop(o) o->op_redoop
979#define LOOP_nextop(o) o->op_nextop
980#define LOOP_lastop(o) o->op_lastop
981
982MODULE = B PACKAGE = B::LOOP PREFIX = LOOP_
983
984
985B::OP
986LOOP_redoop(o)
987 B::LOOP o
988
989B::OP
990LOOP_nextop(o)
991 B::LOOP o
992
993B::OP
994LOOP_lastop(o)
995 B::LOOP o
996
997#define COP_label(o) o->cop_label
11faa288 998#define COP_stashpv(o) CopSTASHPV(o)
999#define COP_stash(o) CopSTASH(o)
57843af0 1000#define COP_file(o) CopFILE(o)
1df34986 1001#define COP_filegv(o) CopFILEGV(o)
a8a597b2 1002#define COP_cop_seq(o) o->cop_seq
1003#define COP_arybase(o) o->cop_arybase
57843af0 1004#define COP_line(o) CopLINE(o)
b295d113 1005#define COP_warnings(o) o->cop_warnings
6e6a1aef 1006#define COP_io(o) o->cop_io
a8a597b2 1007
1008MODULE = B PACKAGE = B::COP PREFIX = COP_
1009
1010char *
1011COP_label(o)
1012 B::COP o
1013
11faa288 1014char *
1015COP_stashpv(o)
1016 B::COP o
1017
a8a597b2 1018B::HV
1019COP_stash(o)
1020 B::COP o
1021
57843af0 1022char *
1023COP_file(o)
a8a597b2 1024 B::COP o
1025
1df34986 1026B::GV
1027COP_filegv(o)
1028 B::COP o
1029
1030
a8a597b2 1031U32
1032COP_cop_seq(o)
1033 B::COP o
1034
1035I32
1036COP_arybase(o)
1037 B::COP o
1038
8bafa735 1039U32
a8a597b2 1040COP_line(o)
1041 B::COP o
1042
b295d113 1043B::SV
1044COP_warnings(o)
1045 B::COP o
1046
6e6a1aef 1047B::SV
1048COP_io(o)
1049 B::COP o
1050
651aa52e 1051MODULE = B PACKAGE = B::SV
1052
1053U32
1054SvTYPE(sv)
1055 B::SV sv
1056
429a5ce7 1057#define object_2svref(sv) sv
1058#define SVREF SV *
1059
1060SVREF
1061object_2svref(sv)
1062 B::SV sv
1063
a8a597b2 1064MODULE = B PACKAGE = B::SV PREFIX = Sv
1065
1066U32
1067SvREFCNT(sv)
1068 B::SV sv
1069
1070U32
1071SvFLAGS(sv)
1072 B::SV sv
1073
651aa52e 1074U32
1075SvPOK(sv)
1076 B::SV sv
1077
1078U32
1079SvROK(sv)
1080 B::SV sv
1081
1082U32
1083SvMAGICAL(sv)
1084 B::SV sv
1085
a8a597b2 1086MODULE = B PACKAGE = B::IV PREFIX = Sv
1087
1088IV
1089SvIV(sv)
1090 B::IV sv
1091
1092IV
1093SvIVX(sv)
1094 B::IV sv
1095
0ca04487 1096UV
1097SvUVX(sv)
1098 B::IV sv
1099
1100
a8a597b2 1101MODULE = B PACKAGE = B::IV
1102
1103#define needs64bits(sv) ((I32)SvIVX(sv) != SvIVX(sv))
1104
1105int
1106needs64bits(sv)
1107 B::IV sv
1108
1109void
1110packiv(sv)
1111 B::IV sv
1112 CODE:
1113 if (sizeof(IV) == 8) {
1114 U32 wp[2];
1115 IV iv = SvIVX(sv);
1116 /*
1117 * The following way of spelling 32 is to stop compilers on
1118 * 32-bit architectures from moaning about the shift count
1119 * being >= the width of the type. Such architectures don't
1120 * reach this code anyway (unless sizeof(IV) > 8 but then
1121 * everything else breaks too so I'm not fussed at the moment).
1122 */
42718184 1123#ifdef UV_IS_QUAD
1124 wp[0] = htonl(((UV)iv) >> (sizeof(UV)*4));
1125#else
1126 wp[0] = htonl(((U32)iv) >> (sizeof(UV)*4));
1127#endif
a8a597b2 1128 wp[1] = htonl(iv & 0xffffffff);
79cb57f6 1129 ST(0) = sv_2mortal(newSVpvn((char *)wp, 8));
a8a597b2 1130 } else {
1131 U32 w = htonl((U32)SvIVX(sv));
79cb57f6 1132 ST(0) = sv_2mortal(newSVpvn((char *)&w, 4));
a8a597b2 1133 }
1134
1135MODULE = B PACKAGE = B::NV PREFIX = Sv
1136
76ef7183 1137NV
a8a597b2 1138SvNV(sv)
1139 B::NV sv
1140
76ef7183 1141NV
a8a597b2 1142SvNVX(sv)
1143 B::NV sv
1144
1145MODULE = B PACKAGE = B::RV PREFIX = Sv
1146
1147B::SV
1148SvRV(sv)
1149 B::RV sv
1150
1151MODULE = B PACKAGE = B::PV PREFIX = Sv
1152
0b40bd6d 1153char*
1154SvPVX(sv)
1155 B::PV sv
1156
b326da91 1157B::SV
1158SvRV(sv)
1159 B::PV sv
1160 CODE:
1161 if( SvROK(sv) ) {
1162 RETVAL = SvRV(sv);
1163 }
1164 else {
1165 croak( "argument is not SvROK" );
1166 }
1167 OUTPUT:
1168 RETVAL
1169
a8a597b2 1170void
1171SvPV(sv)
1172 B::PV sv
1173 CODE:
b326da91 1174 ST(0) = sv_newmortal();
9d2bbe64 1175 if( SvPOK(sv) ) {
b326da91 1176 sv_setpvn(ST(0), SvPVX(sv), SvCUR(sv));
1177 SvFLAGS(ST(0)) |= SvUTF8(sv);
1178 }
1179 else {
1180 /* XXX for backward compatibility, but should fail */
1181 /* croak( "argument is not SvPOK" ); */
1182 sv_setpvn(ST(0), NULL, 0);
1183 }
a8a597b2 1184
651aa52e 1185void
1186SvPVBM(sv)
1187 B::PV sv
1188 CODE:
1189 ST(0) = sv_newmortal();
1190 sv_setpvn(ST(0), SvPVX(sv),
1191 SvCUR(sv) + (SvTYPE(sv) == SVt_PVBM ? 257 : 0));
1192
1193
445a12f6 1194STRLEN
1195SvLEN(sv)
1196 B::PV sv
1197
1198STRLEN
1199SvCUR(sv)
1200 B::PV sv
1201
a8a597b2 1202MODULE = B PACKAGE = B::PVMG PREFIX = Sv
1203
1204void
1205SvMAGIC(sv)
1206 B::PVMG sv
1207 MAGIC * mg = NO_INIT
1208 PPCODE:
1209 for (mg = SvMAGIC(sv); mg; mg = mg->mg_moremagic)
cea2e8a9 1210 XPUSHs(make_mg_object(aTHX_ sv_newmortal(), mg));
a8a597b2 1211
1212MODULE = B PACKAGE = B::PVMG
1213
1214B::HV
1215SvSTASH(sv)
1216 B::PVMG sv
1217
1218#define MgMOREMAGIC(mg) mg->mg_moremagic
1219#define MgPRIVATE(mg) mg->mg_private
1220#define MgTYPE(mg) mg->mg_type
1221#define MgFLAGS(mg) mg->mg_flags
1222#define MgOBJ(mg) mg->mg_obj
88b39979 1223#define MgLENGTH(mg) mg->mg_len
bde7177d 1224#define MgREGEX(mg) PTR2IV(mg->mg_obj)
a8a597b2 1225
1226MODULE = B PACKAGE = B::MAGIC PREFIX = Mg
1227
1228B::MAGIC
1229MgMOREMAGIC(mg)
1230 B::MAGIC mg
c5f0f3aa 1231 CODE:
1232 if( MgMOREMAGIC(mg) ) {
1233 RETVAL = MgMOREMAGIC(mg);
1234 }
1235 else {
1236 XSRETURN_UNDEF;
1237 }
1238 OUTPUT:
1239 RETVAL
a8a597b2 1240
1241U16
1242MgPRIVATE(mg)
1243 B::MAGIC mg
1244
1245char
1246MgTYPE(mg)
1247 B::MAGIC mg
1248
1249U8
1250MgFLAGS(mg)
1251 B::MAGIC mg
1252
1253B::SV
1254MgOBJ(mg)
1255 B::MAGIC mg
b326da91 1256
9d2bbe64 1257IV
1258MgREGEX(mg)
1259 B::MAGIC mg
1260 CODE:
1261 if( mg->mg_type == 'r' ) {
1262 RETVAL = MgREGEX(mg);
1263 }
1264 else {
1265 croak( "REGEX is only meaningful on r-magic" );
1266 }
1267 OUTPUT:
1268 RETVAL
1269
b326da91 1270SV*
1271precomp(mg)
1272 B::MAGIC mg
1273 CODE:
1274 if (mg->mg_type == 'r') {
1275 REGEXP* rx = (REGEXP*)mg->mg_obj;
1276 if( rx )
1277 RETVAL = newSVpvn( rx->precomp, rx->prelen );
1278 }
1279 else {
1280 croak( "precomp is only meaningful on r-magic" );
1281 }
1282 OUTPUT:
1283 RETVAL
a8a597b2 1284
88b39979 1285I32
1286MgLENGTH(mg)
1287 B::MAGIC mg
1288
a8a597b2 1289void
1290MgPTR(mg)
1291 B::MAGIC mg
1292 CODE:
1293 ST(0) = sv_newmortal();
88b39979 1294 if (mg->mg_ptr){
1295 if (mg->mg_len >= 0){
1296 sv_setpvn(ST(0), mg->mg_ptr, mg->mg_len);
651aa52e 1297 } else if (mg->mg_len == HEf_SVKEY) {
1298 ST(0) = make_sv_object(aTHX_
1299 sv_newmortal(), (SV*)mg->mg_ptr);
88b39979 1300 }
1301 }
a8a597b2 1302
1303MODULE = B PACKAGE = B::PVLV PREFIX = Lv
1304
1305U32
1306LvTARGOFF(sv)
1307 B::PVLV sv
1308
1309U32
1310LvTARGLEN(sv)
1311 B::PVLV sv
1312
1313char
1314LvTYPE(sv)
1315 B::PVLV sv
1316
1317B::SV
1318LvTARG(sv)
1319 B::PVLV sv
1320
1321MODULE = B PACKAGE = B::BM PREFIX = Bm
1322
1323I32
1324BmUSEFUL(sv)
1325 B::BM sv
1326
1327U16
1328BmPREVIOUS(sv)
1329 B::BM sv
1330
1331U8
1332BmRARE(sv)
1333 B::BM sv
1334
1335void
1336BmTABLE(sv)
1337 B::BM sv
1338 STRLEN len = NO_INIT
1339 char * str = NO_INIT
1340 CODE:
1341 str = SvPV(sv, len);
1342 /* Boyer-Moore table is just after string and its safety-margin \0 */
79cb57f6 1343 ST(0) = sv_2mortal(newSVpvn(str + len + 1, 256));
a8a597b2 1344
1345MODULE = B PACKAGE = B::GV PREFIX = Gv
1346
1347void
1348GvNAME(gv)
1349 B::GV gv
1350 CODE:
79cb57f6 1351 ST(0) = sv_2mortal(newSVpvn(GvNAME(gv), GvNAMELEN(gv)));
a8a597b2 1352
87d7fd28 1353bool
1354is_empty(gv)
1355 B::GV gv
1356 CODE:
1357 RETVAL = GvGP(gv) == Null(GP*);
1358 OUTPUT:
1359 RETVAL
1360
651aa52e 1361void*
1362GvGP(gv)
1363 B::GV gv
1364
a8a597b2 1365B::HV
1366GvSTASH(gv)
1367 B::GV gv
1368
1369B::SV
1370GvSV(gv)
1371 B::GV gv
1372
1373B::IO
1374GvIO(gv)
1375 B::GV gv
1376
1df34986 1377B::FM
a8a597b2 1378GvFORM(gv)
1379 B::GV gv
1df34986 1380 CODE:
1381 RETVAL = (SV*)GvFORM(gv);
1382 OUTPUT:
1383 RETVAL
a8a597b2 1384
1385B::AV
1386GvAV(gv)
1387 B::GV gv
1388
1389B::HV
1390GvHV(gv)
1391 B::GV gv
1392
1393B::GV
1394GvEGV(gv)
1395 B::GV gv
1396
1397B::CV
1398GvCV(gv)
1399 B::GV gv
1400
1401U32
1402GvCVGEN(gv)
1403 B::GV gv
1404
8bafa735 1405U32
a8a597b2 1406GvLINE(gv)
1407 B::GV gv
1408
b195d487 1409char *
1410GvFILE(gv)
1411 B::GV gv
1412
a8a597b2 1413B::GV
1414GvFILEGV(gv)
1415 B::GV gv
1416
1417MODULE = B PACKAGE = B::GV
1418
1419U32
1420GvREFCNT(gv)
1421 B::GV gv
1422
1423U8
1424GvFLAGS(gv)
1425 B::GV gv
1426
1427MODULE = B PACKAGE = B::IO PREFIX = Io
1428
1429long
1430IoLINES(io)
1431 B::IO io
1432
1433long
1434IoPAGE(io)
1435 B::IO io
1436
1437long
1438IoPAGE_LEN(io)
1439 B::IO io
1440
1441long
1442IoLINES_LEFT(io)
1443 B::IO io
1444
1445char *
1446IoTOP_NAME(io)
1447 B::IO io
1448
1449B::GV
1450IoTOP_GV(io)
1451 B::IO io
1452
1453char *
1454IoFMT_NAME(io)
1455 B::IO io
1456
1457B::GV
1458IoFMT_GV(io)
1459 B::IO io
1460
1461char *
1462IoBOTTOM_NAME(io)
1463 B::IO io
1464
1465B::GV
1466IoBOTTOM_GV(io)
1467 B::IO io
1468
1469short
1470IoSUBPROCESS(io)
1471 B::IO io
1472
b326da91 1473bool
1474IsSTD(io,name)
1475 B::IO io
1476 char* name
1477 PREINIT:
1478 PerlIO* handle = 0;
1479 CODE:
1480 if( strEQ( name, "stdin" ) ) {
1481 handle = PerlIO_stdin();
1482 }
1483 else if( strEQ( name, "stdout" ) ) {
1484 handle = PerlIO_stdout();
1485 }
1486 else if( strEQ( name, "stderr" ) ) {
1487 handle = PerlIO_stderr();
1488 }
1489 else {
1490 croak( "Invalid value '%s'", name );
1491 }
1492 RETVAL = handle == IoIFP(io);
1493 OUTPUT:
1494 RETVAL
1495
a8a597b2 1496MODULE = B PACKAGE = B::IO
1497
1498char
1499IoTYPE(io)
1500 B::IO io
1501
1502U8
1503IoFLAGS(io)
1504 B::IO io
1505
1506MODULE = B PACKAGE = B::AV PREFIX = Av
1507
1508SSize_t
1509AvFILL(av)
1510 B::AV av
1511
1512SSize_t
1513AvMAX(av)
1514 B::AV av
1515
1516#define AvOFF(av) ((XPVAV*)SvANY(av))->xof_off
1517
1518IV
1519AvOFF(av)
1520 B::AV av
1521
1522void
1523AvARRAY(av)
1524 B::AV av
1525 PPCODE:
1526 if (AvFILL(av) >= 0) {
1527 SV **svp = AvARRAY(av);
1528 I32 i;
1529 for (i = 0; i <= AvFILL(av); i++)
cea2e8a9 1530 XPUSHs(make_sv_object(aTHX_ sv_newmortal(), svp[i]));
a8a597b2 1531 }
1532
429a5ce7 1533void
1534AvARRAYelt(av, idx)
1535 B::AV av
1536 int idx
1537 PPCODE:
1538 if (idx >= 0 && AvFILL(av) >= 0 && idx <= AvFILL(av))
1539 XPUSHs(make_sv_object(aTHX_ sv_newmortal(), (AvARRAY(av)[idx])));
1540 else
1541 XPUSHs(make_sv_object(aTHX_ sv_newmortal(), NULL));
1542
1543
a8a597b2 1544MODULE = B PACKAGE = B::AV
1545
1546U8
1547AvFLAGS(av)
1548 B::AV av
1549
1df34986 1550MODULE = B PACKAGE = B::FM PREFIX = Fm
1551
1552IV
1553FmLINES(form)
1554 B::FM form
1555
a8a597b2 1556MODULE = B PACKAGE = B::CV PREFIX = Cv
1557
651aa52e 1558U32
1559CvCONST(cv)
1560 B::CV cv
1561
a8a597b2 1562B::HV
1563CvSTASH(cv)
1564 B::CV cv
1565
1566B::OP
1567CvSTART(cv)
1568 B::CV cv
1569
1570B::OP
1571CvROOT(cv)
1572 B::CV cv
1573
1574B::GV
1575CvGV(cv)
1576 B::CV cv
1577
57843af0 1578char *
1579CvFILE(cv)
1580 B::CV cv
1581
a8a597b2 1582long
1583CvDEPTH(cv)
1584 B::CV cv
1585
1586B::AV
1587CvPADLIST(cv)
1588 B::CV cv
1589
1590B::CV
1591CvOUTSIDE(cv)
1592 B::CV cv
1593
a3985cdc 1594U32
1595CvOUTSIDE_SEQ(cv)
1596 B::CV cv
1597
a8a597b2 1598void
1599CvXSUB(cv)
1600 B::CV cv
1601 CODE:
56431972 1602 ST(0) = sv_2mortal(newSViv(PTR2IV(CvXSUB(cv))));
a8a597b2 1603
1604
1605void
1606CvXSUBANY(cv)
1607 B::CV cv
1608 CODE:
b326da91 1609 ST(0) = CvCONST(cv) ?
651aa52e 1610 make_sv_object(aTHX_ sv_newmortal(),CvXSUBANY(cv).any_ptr) :
1611 sv_2mortal(newSViv(CvXSUBANY(cv).any_iv));
a8a597b2 1612
5cfd8ad4 1613MODULE = B PACKAGE = B::CV
1614
6aaf4108 1615U16
5cfd8ad4 1616CvFLAGS(cv)
1617 B::CV cv
1618
de3f1649 1619MODULE = B PACKAGE = B::CV PREFIX = cv_
1620
1621B::SV
1622cv_const_sv(cv)
1623 B::CV cv
1624
5cfd8ad4 1625
a8a597b2 1626MODULE = B PACKAGE = B::HV PREFIX = Hv
1627
1628STRLEN
1629HvFILL(hv)
1630 B::HV hv
1631
1632STRLEN
1633HvMAX(hv)
1634 B::HV hv
1635
1636I32
1637HvKEYS(hv)
1638 B::HV hv
1639
1640I32
1641HvRITER(hv)
1642 B::HV hv
1643
1644char *
1645HvNAME(hv)
1646 B::HV hv
1647
1648B::PMOP
1649HvPMROOT(hv)
1650 B::HV hv
1651
1652void
1653HvARRAY(hv)
1654 B::HV hv
1655 PPCODE:
1656 if (HvKEYS(hv) > 0) {
1657 SV *sv;
1658 char *key;
1659 I32 len;
1660 (void)hv_iterinit(hv);
1661 EXTEND(sp, HvKEYS(hv) * 2);
8063af02 1662 while ((sv = hv_iternextsv(hv, &key, &len))) {
79cb57f6 1663 PUSHs(newSVpvn(key, len));
cea2e8a9 1664 PUSHs(make_sv_object(aTHX_ sv_newmortal(), sv));
a8a597b2 1665 }
1666 }
Unnamed repository; edit this file to name it for gitweb.