/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | gv.h | 0 /* 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 D | gv.c | 0 /* 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 D | scope.c | 229 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 D | pp_sys.c | 483 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 D | universal.c | 35 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 D | doio.c | 62 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 D | op.c | 106 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 D | dump.c | 56 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 D | pp_hot.c | 540 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 D | pp.c | 132 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 D | toke.c | 1885 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 D | Debug.pm | 196 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 D | Xref.pm | 250 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 D | Bytecode.pm | 92 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 D | Lint.pm | 244 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 D | C.pm | 894 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 D | debug.t | 56 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 D | bytecode.h | 237 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 D | DProf.xs | 42 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 D | IO.xs | 211 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 D | via.xs | 46 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 D | dumpvar.pl | 408 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 D | harness | 34 op/gv.t 1
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/ |
H A D | Util.xs | 211 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 D | Opcode.xs | 290 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);
|