Searched refs:gv (Results 1 - 25 of 52) sorted by relevance

123

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dgv.h0 /* gv.h
18 GV * gp_egv; /* effective gv, if *glob */
26 #define GvXPVGV(gv) ((XPVGV*)SvANY(gv))
28 #define GvGP(gv) (GvXPVGV(gv)->xgv_gp)
29 #define GvNAME(gv) (GvXPVGV(gv)->xgv_name)
30 #define GvNAMELEN(gv) (GvXPVGV(gv)
[all...]
H A Dgv.c0 /* gv.c
29 Perl_gv_AVadd(pTHX_ register GV *gv) argument
31 if (!gv || SvTYPE((SV*)gv) != SVt_PVGV)
33 if (!GvAV(gv))
34 GvAV(gv) = newAV();
35 return gv;
39 Perl_gv_HVadd(pTHX_ register GV *gv) argument
41 if (!gv || SvTYPE((SV*)gv) !
49 Perl_gv_IOadd(pTHX_ register GV *gv) argument
70 GV *gv; local
97 Perl_gv_init(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, int multi) argument
152 S_gv_init_sv(pTHX_ GV *gv, I32 sv_type) argument
193 GV* gv; local
329 GV *gv = gv_fetchmeth(stash, name, len, level); local
404 GV* gv; local
479 GV* gv; local
558 S_require_errno(pTHX_ GV *gv) argument
646 register GV *gv = 0; local
1083 Perl_gv_fullname4(pTHX_ SV *sv, GV *gv, const char *prefix, bool keepmain) argument
1099 Perl_gv_fullname3(pTHX_ SV *sv, GV *gv, const char *prefix) argument
1105 Perl_gv_efullname4(pTHX_ SV *sv, GV *gv, const char *prefix, bool keepmain) argument
1114 Perl_gv_efullname3(pTHX_ SV *sv, GV *gv, const char *prefix) argument
1121 Perl_gv_fullname(pTHX_ SV *sv, GV *gv) argument
1128 Perl_gv_efullname(pTHX_ SV *sv, GV *gv) argument
1159 register GV *gv; local
[all...]
H A Dscope.c229 Perl_save_scalar(pTHX_ GV *gv) argument
231 SV **sptr = &GvSV(gv);
233 SSPUSHPTR(SvREFCNT_inc(gv));
285 Perl_save_gp(pTHX_ GV *gv, I32 empty) argument
288 SSPUSHIV((IV)SvLEN(gv));
289 SvLEN(gv) = 0; /* forget that anything was allocated here */
290 SSPUSHIV((IV)SvCUR(gv));
291 SSPUSHPTR(SvPVX(gv));
292 SvPOK_off(gv);
293 SSPUSHPTR(SvREFCNT_inc(gv));
321 Perl_save_ary(pTHX_ GV *gv) argument
348 Perl_save_hash(pTHX_ GV *gv) argument
503 Perl_save_nogv(pTHX_ GV *gv) argument
684 register GV *gv; local
[all...]
H A Dpp_sys.c483 GV *gv = gv_fetchmethod(stash, "PROPAGATE"); local
484 if (gv) {
493 call_sv((SV*)GvCV(gv),
520 GV *gv; local
528 gv = (GV *)*++MARK;
529 if (!isGV(gv))
531 if ((io = GvIOp(gv)))
532 IoFLAGS(GvIOp(gv)) &= ~IOf_UNTAINT;
551 sv = GvSV(gv);
555 ok = do_openn(gv, tmp
569 GV *gv; local
654 GV *gv; local
717 GV *gv; local
780 GV *gv; local
877 GV *gv; local
930 GV *gv; local
1142 Perl_setdefout(pTHX_ GV *gv) argument
1188 GV *gv; local
1242 S_doform(pTHX_ CV *cv, GV *gv, OP *retop) argument
1262 register GV *gv; local
1306 GV *gv = cxstack[cxstack_ix].blk_sub.gv; local
1434 GV *gv; local
1508 GV *gv; local
1539 GV *gv; local
1778 GV *gv; local
1920 GV *gv; local
1967 GV *gv; local
2005 GV *gv; local
2168 GV *gv = (GV*)POPs; local
2241 GV *gv; local
2279 GV *gv; local
2403 GV *gv = (GV*)POPs; local
2458 GV *gv = (GV*)POPs; local
2487 GV *gv = (GV*)POPs; local
2584 GV *gv = (GV*)POPs; local
2621 GV *gv; local
2700 GV *gv = (GV*)POPs; local
2767 GV *gv; local
3253 GV *gv; local
3295 GV *gv; local
3795 GV *gv = (GV*)POPs; local
3878 GV *gv = (GV*)POPs; local
3900 GV *gv = (GV*)POPs; local
3922 GV *gv = (GV*)POPs; local
3943 GV *gv = (GV*)POPs; local
[all...]
H A Duniversal.c35 GV* gv; local
57 if (gvp && (gv = *gvp) != (GV*)&PL_sv_undef && (subgen = GvSV(gv))
58 && (hv = GvHV(gv)))
79 if (gvp && (gv = *gvp) != (GV*)&PL_sv_undef && (av = GvAV(gv))) {
83 gv = *gvp;
85 if (SvTYPE(gv) != SVt_PVGV)
86 gv_init(gv, stash, "::ISA::CACHE::", 14, TRUE);
89 hv = GvHVn(gv);
275 GV *gv = gv_fetchmethod_autoload(pkg, name, FALSE); local
289 GV *gv; local
568 GV * gv; local
[all...]
H A Ddoio.c62 Perl_do_open(pTHX_ GV *gv, register char *name, I32 len, int as_raw, argument
65 return do_openn(gv, name, len, as_raw, rawmode, rawperm,
70 Perl_do_open9(pTHX_ GV *gv, register char *name, I32 len, int as_raw, argument
74 return do_openn(gv, name, len, as_raw, rawmode, rawperm,
79 Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw, argument
83 register IO *io = GvIOn(gv);
142 GvENAME(gv));
552 GvENAME(gv));
557 GvENAME(gv));
710 Perl_nextargv(pTHX_ register GV *gv) argument
973 Perl_do_close(pTHX_ GV *gv, bool not_implicit) argument
1041 Perl_do_eof(pTHX_ GV *gv) argument
1085 Perl_do_tell(pTHX_ GV *gv) argument
1104 Perl_do_seek(pTHX_ GV *gv, Off_t pos, int whence) argument
1123 Perl_do_sysseek(pTHX_ GV *gv, Off_t pos, int whence) argument
1326 GV* gv; local
[all...]
H A Dop.c106 S_gv_ename(pTHX_ GV *gv) argument
110 gv_efullname3(tmpsv, gv, Nullch);
1645 GV *gv = cGVOPx_gv(cUNOPo->op_first); local
1648 apply_attrs(GvSTASH(gv),
1649 (type == OP_RV2SV ? GvSV(gv) :
1650 type == OP_RV2AV ? (SV*)GvAV(gv) :
1651 type == OP_RV2HV ? (SV*)GvHV(gv) : (SV*)gv),
2771 GV *gv = cGVOPx_gv(curop);
2773 if (strchr("&`'123456789+-\016\022", *GvENAME(gv)))
2873 Perl_newGVOP(pTHX_ I32 type, I32 flags, GV *gv) argument
3105 GV *gv; local
3243 GV *gv = cGVOPx_gv(curop); local
3272 GV *gv = (GV*)PAD_SVl(INT2PTR(PADOFFSET, local
3986 Perl_cv_ckproto(pTHX_ CV *cv, GV *gv, char *p) argument
4111 GV *gv; local
4502 GV *gv = gv_fetchpv(name ? name : local
4606 GV *gv; local
5038 GV *gv; local
5331 GV *gv = cGVOPx_gv(kUNOP->op_first); local
5351 GV *gv = cGVOPx_gv(op); local
5433 GV *gv; local
5779 GV* gv; local
5960 GV *gv; local
6114 GV *gv = cGVOPx_gv(tmpop); local
6184 GV *gv = cGVOPx_gv(gvop); local
6473 GV *gv; local
6507 GV *gv = cGVOPo_gv; local
[all...]
H A Ddump.c56 GV *gv = (GV*)HeVAL(entry); local
58 if (SvTYPE(gv) != SVt_PVGV || !GvGP(gv))
60 if (GvCVu(gv))
61 dump_sub(gv);
62 if (GvFORM(gv))
63 dump_form(gv);
65 && (hv = GvHV(gv)) && hv != PL_defstash)
72 Perl_dump_sub(pTHX_ GV *gv) argument
76 gv_fullname3(sv, gv, Nullc
89 Perl_dump_form(pTHX_ GV *gv) argument
743 Perl_gv_dump(pTHX_ GV *gv) argument
[all...]
H A Dpp_hot.c540 GV *gv; local
546 gv = (GV*)*++MARK;
548 gv = PL_defoutgv;
550 if (gv && (io = GvIO(gv))
575 if (!(io = GvIO(gv))) {
576 if ((GvEGV(gv)) && (io = GvIO(GvEGV(gv)))
580 report_evil_fh(gv, io, PL_op->op_type);
587 report_evil_fh(gv, i
680 GV *gv; local
811 GV *gv; local
2529 GV *gv = CvGV(cv); local
2563 GV *gv; local
3085 GV* gv; local
[all...]
H A Dpp.c132 GV *gv = (GV*) sv_newmortal(); local
133 gv_init(gv, 0, "", 0, 0);
134 GvIOp(gv) = (IO *)sv;
136 sv = (SV*) gv;
157 GV *gv; local
162 gv = (GV*)NEWSV(0,0);
163 gv_init(gv, CopSTASH(PL_curcop), name, len, 0);
167 gv = newGVgen(name);
177 SvRV(sv) = (SV*)gv;
216 GV *gv local
339 GV *gv; local
366 GV *gv; local
546 GV *gv; local
798 GV* gv = CvGV((CV*)sv); local
3832 GV *gv; local
[all...]
H A Dtoke.c1885 S_intuit_method(pTHX_ char *start, GV *gv) argument
1892 if (gv) {
1894 if (GvIO(gv))
1896 if ((cv = GvCVu(gv))) {
1905 gv = 0;
1914 if (gv || PL_last_lop_op == OP_PRINT || isUPPER(*PL_tokenbuf))
1931 if (!gv || GvIO(indirgv) || gv_stashpvn(tmpbuf, len, FALSE)) {
2115 GV *gv; local
2122 (gv = gv_fetchpv(pkgname, FALSE, SVt_PVHV)))
2124 return GvHV(gv); /* Fo
2201 GV *gv = Nullgv; local
3759 GV *gv; local
4145 GV *gv; local
5378 GV *gv = gv_fetchpv(PL_tokenbuf+1, FALSE, SVt_PVAV); local
6838 GV *gv; local
6864 GV *gv = gv_fetchpv(d,TRUE, SVt_PVIO); local
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/
H A DDebug.pm196 my ($gv) = $sv->GV;
197 printf <<'EOT', $$stash, $$start, $$root, $$gv, $file, $sv->DEPTH, $padlist, ${$sv->OUTSIDE}, $sv->OUTSIDE_SEQ;
210 $gv->debug if $gv;
228 my ($gv) = @_;
229 if ($done_gv{$$gv}++) {
230 printf "GV %s::%s\n", $gv->STASH->NAME, $gv->SAFENAME;
233 my ($sv) = $gv->SV;
234 my ($av) = $gv
[all...]
H A DXref.pm250 my $gv;
257 $gv = $op->gv;
258 $top = [$gv->STASH->NAME, '$', $gv->SAFENAME];
266 my $gv;
273 $gv = $op->gv;
274 $top = [$gv->STASH->NAME, "*", $gv
[all...]
H A DBytecode.pm92 my ($gv,$desired) = @_;
93 my $ix = $svtab{$$gv};
95 if ($gv->GP) {
98 my $name = $gv->STASH->NAME . "::" . $gv->NAME;
100 $svtab{$$gv} = $varix = $ix = $tix++;
101 asm "sv_flags", $gv->FLAGS;
102 asm "sv_refcnt", $gv->REFCNT;
103 asm "xgv_flags", $gv->GvFLAGS;
105 asm "gp_refcnt", $gv
[all...]
H A DLint.pm244 if ($last->name eq "gv" && $last->gv->NAME eq "_") {
262 && $op->gv->NAME eq "_")
268 if ($opname eq "gv" || $opname eq "gvsv") {
269 my $gv = $op->gv;
270 if ($gv->NAME =~ /^_./ && $gv->STASH->NAME ne $curstash) {
271 warning('Illegal reference to private name %s', $gv->NAME);
274 my $method = $op->gv
[all...]
H A DC.pm894 my $gv = $cv->GV;
896 if ($$gv){
897 $cvname = $gv->NAME;
898 $cvstashname = $gv->STASH->NAME;
905 my $stash = $gv->STASH;
919 my $egv = $gv->EGV;
923 my $file = $gv->FILE;
981 if ($$gv) {
982 my $stashname = $gv->STASH->NAME;
983 my $gvname = $gv
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/
H A Ddebug.t56 threadsv readline gv lineseq nextstate aassign null pushmark split pushre
57 threadsv const null pushmark rvav gv nextstate subst const unstack
62 null gvsv readline gv lineseq nextstate aassign null pushmark split pushre
63 null gvsv const null pushmark rvav gv nextstate subst const unstack
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/ByteLoader/
H A Dbytecode.h237 GV *gv; \
241 gv = gv_fetchpv(Perl_form(aTHX_ "%s::DATA", pname), TRUE, SVt_PVIO);\
242 GvMULTI_on(gv); \
243 if (!GvIO(gv)) \
244 GvIOp(gv) = newIO(); \
245 IoIFP(GvIOp(gv)) = PL_rsfp; \
248 IoFLAGS(GvIOp(gv)) |= IOf_UNTAINT; \
250 IoTYPE(GvIOp(gv)) = IoTYPE_PIPE; \
252 IoTYPE(GvIOp(gv)) = IoTYPE_STD; \
254 IoTYPE(GvIOp(gv))
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/DProf/
H A DDProf.xs42 GV *gv = cv ? CvGV(cv) : NULL;
43 if (cv && gv) {
45 ((GvSTASH(gv) && HvNAME(GvSTASH(gv))) ?
46 HvNAME(GvSTASH(gv)) : "(null)"),
47 GvNAME(gv));
370 GV *gv;
373 gv = CvGV(cv);
374 pname = ((GvSTASH(gv) && HvNAME(GvSTASH(gv)))
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/
H A DIO.xs211 GV *gv;
218 gv = (GV*)SvREFCNT_inc(newGVgen(packname));
219 hv_delete(GvSTASH(gv), GvNAME(gv), GvNAMELEN(gv), G_DISCARD);
220 if (do_open(gv, "+>&", 3, FALSE, 0, 0, fp)) {
221 ST(0) = sv_2mortal(newRV((SV*)gv));
223 SvREFCNT_dec(gv); /* undo increment in newRV() */
227 SvREFCNT_dec(gv);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/via/
H A Dvia.xs46 GV *gv = gv_fetchmeth(s->stash, method, strlen(method), 0);
48 Perl_warn(aTHX_ "Lookup %s::%s => %p", HvNAME(s->stash), method, gv);
50 if (gv) {
51 return *save = GvCV(gv);
90 GV *gv = newGVgen(HvNAME(s->stash));
91 GvIOp(gv) = newIO();
92 s->fh = newRV_noinc((SV *) gv);
93 s->io = GvIOp(gv);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Ddumpvar.pl408 my $gv = Devel::Peek::CvGV($in) or return;
409 *$gv{PACKAGE} . '::' . *$gv{NAME};
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/
H A Dharness34 op/gv.t 1
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/
H A DUtil.xs211 GV *agv,*bgv,*gv;
229 cv = sv_2cv(block, &stash, &gv, 0);
266 GV *gv;
280 cv = sv_2cv(block, &stash, &gv, 0);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Opcode/
H A DOpcode.xs290 GV *gv;
310 gv = gv_fetchpv("main::", GV_ADDWARN, SVt_PVHV);
311 sv_free((SV*)GvHV(gv));
312 GvHV(gv) = (HV*)SvREFCNT_inc(PL_defstash);

Completed in 91 milliseconds

123