/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Task/ |
H A D | Task.xs | 33 HV *stash; 35 stash = gv_stashpv("Sun::Solaris::Task", TRUE); 36 newCONSTSUB(stash, "TASK_NORMAL", newSViv(TASK_NORMAL)); 37 newCONSTSUB(stash, "TASK_FINAL", newSViv(TASK_FINAL)); 38 newCONSTSUB(stash, "TASK_PROJ_PURGE", newSViv(TASK_PROJ_PURGE));
|
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Project/ |
H A D | Project.xs | 98 HV *stash; 100 stash = gv_stashpv("Sun::Solaris::Project", TRUE); 101 newCONSTSUB(stash, "MAXPROJID", newSViv(MAXPROJID)); 102 newCONSTSUB(stash, "PROJNAME_MAX", newSViv(PROJNAME_MAX)); 103 newCONSTSUB(stash, "PROJF_PATH", 105 newCONSTSUB(stash, "PROJECT_BUFSZ", newSViv(PROJECT_BUFSZ)); 106 newCONSTSUB(stash, "SETPROJ_ERR_TASK", newSViv(SETPROJ_ERR_TASK)); 107 newCONSTSUB(stash, "SETPROJ_ERR_POOL", newSViv(SETPROJ_ERR_POOL)); 108 newCONSTSUB(stash, "RCTL_GLOBAL_NOBASIC", 110 newCONSTSUB(stash, "RCTL_GLOBAL_LOWERABL [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | stash.t | 25 q(Insert a non-GV in a stash, under warnings 'once'),
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | gv.c | 97 Perl_gv_init(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, int multi) argument 120 GvSTASH(gv) = (HV*)SvREFCNT_inc(stash); 171 C<NULL>. The glob lives in the given C<stash>, or in the stashes 175 side-effect creates a glob with the given C<name> in the given C<stash> 179 This function grants C<"SUPER"> token as a postfix of the stash name. The 189 Perl_gv_fetchmeth(pTHX_ HV *stash, const char *name, STRLEN len, I32 level) argument 197 /* UNIVERSAL methods should be callable without a stash */ 198 if (!stash) { 200 if(!(stash = gv_stashpvn("UNIVERSAL", 9, FALSE))) 206 name, HvNAME(stash)); 327 Perl_gv_fetchmeth_autoload(pTHX_ HV *stash, const char *name, STRLEN len, I32 level) argument 366 Perl_gv_fetchmethod(pTHX_ HV *stash, const char *name) argument 400 Perl_gv_fetchmethod_autoload(pTHX_ HV *stash, const char *name, I32 autoload) argument 475 Perl_gv_autoload4(pTHX_ HV *stash, const char *name, STRLEN len, I32 method) argument 560 HV* stash = gv_stashpvn("Errno",5,FALSE); local 599 HV *stash; local 650 HV *stash = 0; local 1155 Perl_gv_check(pTHX_ HV *stash) argument [all...] |
H A D | universal.c | 31 S_isa_lookup(pTHX_ HV *stash, const char *name, HV* name_stash, argument 40 /* A stash/class can go by many names (ie. User == main::User), so 41 we compare the stash itself just in case */ 42 if (name_stash && (stash == name_stash)) 45 if (strEQ(HvNAME(stash), name)) 53 HvNAME(stash)); 55 gvp = (GV**)hv_fetch(stash, "::ISA::CACHE::", 14, FALSE); 65 name, HvNAME(stash)) ); 71 HvNAME(stash)) ); 77 gvp = (GV**)hv_fetch(stash,"IS 137 HV *stash; local [all...] |
H A D | xsutils.c | 256 HV *stash = Nullhv; local 260 stash = GvSTASH(CvGV(sv)); 262 stash = CvSTASH(sv); 270 stash = GvESTASH((GV*)sv); 275 if (stash) 276 sv_setpv(TARG, HvNAME(stash));
|
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Privilege/ |
H A D | Privilege.xs | 83 HV *stash; 89 stash = gv_stashpv("Sun::Solaris::Privilege", TRUE); 94 IVCONST(stash, PRIV_STR_PORT); 95 IVCONST(stash, PRIV_STR_LIT); 96 IVCONST(stash, PRIV_STR_SHORT); 97 IVCONST(stash, PRIV_ALLSETS); 98 IVCONST(stash, PRIV_DEBUG); 99 IVCONST(stash, PRIV_AWARE); 100 IVCONST(stash, PRIV_AWARE_RESET); 101 IVCONST(stash, __PROC_PROTEC [all...] |
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Lgrp/ |
H A D | Lgrp.xs | 160 HV *stash; 162 stash = gv_stashpv("Sun::Solaris::Lgrp", TRUE); 163 newCONSTSUB(stash, "LGRP_AFF_NONE", newSViv(LGRP_AFF_NONE)); 164 newCONSTSUB(stash, "LGRP_AFF_STRONG", newSViv(LGRP_AFF_STRONG)); 165 newCONSTSUB(stash, "LGRP_AFF_WEAK", newSViv(LGRP_AFF_WEAK)); 166 newCONSTSUB(stash, "LGRP_VER_CURRENT", newSViv(LGRP_VER_CURRENT)); 167 newCONSTSUB(stash, "LGRP_VER_NONE", newSViv(LGRP_VER_NONE)); 168 newCONSTSUB(stash, "LGRP_NONE", newSViv(LGRP_NONE)); 169 newCONSTSUB(stash, "LGRP_RSRC_CPU", newSViv(LGRP_RSRC_CPU)); 170 newCONSTSUB(stash, "LGRP_RSRC_ME [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/ |
H A D | IO.xs | 474 HV *stash; 478 stash = gv_stashpvn("IO::Poll", 8, TRUE); 480 newCONSTSUB(stash,"POLLIN",newSViv(POLLIN)); 483 newCONSTSUB(stash,"POLLPRI", newSViv(POLLPRI)); 486 newCONSTSUB(stash,"POLLOUT", newSViv(POLLOUT)); 489 newCONSTSUB(stash,"POLLRDNORM", newSViv(POLLRDNORM)); 492 newCONSTSUB(stash,"POLLWRNORM", newSViv(POLLWRNORM)); 495 newCONSTSUB(stash,"POLLRDBAND", newSViv(POLLRDBAND)); 498 newCONSTSUB(stash,"POLLWRBAND", newSViv(POLLWRBAND)); 501 newCONSTSUB(stash,"POLLNOR [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/utils/ |
H A D | perlcc.PL | 246 my $stash = grab_stash(); 299 my $command = "$BinPerl $taint -MO=$Backend,$addoptions$testsuite$max_line_len$stash,-o$cfile $Input"; 312 cc_harness_msvc($cfile,$stash) : 313 cc_harness($cfile,$stash) unless opt(c); 322 my ($cfile,$stash)=@_; 329 my @mods = split /-?u /, $stash; 339 my ($cfile,$stash)=@_; 344 my @mods = split /-?u /, $stash; 384 my @stash = @$stash_r; 392 foreach my $i ( @stash ) { [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/ |
H A D | defsubs_h.PL | 70 newCONSTSUB(stash,"$sym",newSViv($sym));
|
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/File/ |
H A D | File.xs | 23 # Define the stash pointers if required and create and populate @_Constants. 232 HV *stash; 238 stash = sv ? SvSTASH(sv) : NULL; 239 if (stash != Sun_Solaris_Exacct_Object_Item_stash && 240 stash != Sun_Solaris_Exacct_Object_Group_stash) {
|
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/Object/ |
H A D | Object.xs | 176 # Define the stash pointers if required and create and populate @_Constants. 387 HV *stash; 435 stash = SvROK(value) ? SvSTASH(SvRV(value)) : NULL; 436 if (stash != Sun_Solaris_Exacct_Object_Item_stash && 437 stash != Sun_Solaris_Exacct_Object_Group_stash) { 492 HV *stash; 493 stash = SvROK(ST(i)) ? SvSTASH(SvRV(ST(i))) : NULL; 494 if (stash != Sun_Solaris_Exacct_Object_Item_stash && 495 stash != Sun_Solaris_Exacct_Object_Group_stash) { 680 HV *stash; [all...] |
/osnet-11/usr/src/lib/libuvfs/ |
H A D | Makefile.com | 34 stash.o \
|
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/ |
H A D | Exacct.xs | 21 * Object stash pointers - caching these speeds up the creation and 51 * This function populates the various stash pointers used by the ::Exacct 53 * stash pointers are initialised on startup. 84 HV *stash; 89 stash = gv_stashpv(pkg, TRUE); 99 newCONSTSUB(stash, (char *)cvp->name, newSVuv(cvp->value)); 421 # Define the stash pointers if required and create and populate @_Constants. 533 HV *stash; 539 stash = SvROK(value) ? SvSTASH(SvRV(value)) : NULL; 540 if (stash [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/CN/ |
H A D | Makefile.PL | 117 HV *stash = gv_stashpv("Encode::XS", TRUE); 118 SV *sv = sv_bless(newRV_noinc(newSViv(PTR2IV(enc))),stash);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/EBCDIC/ |
H A D | Makefile.PL | 98 HV *stash = gv_stashpv("Encode::XS", TRUE); 99 SV *sv = sv_bless(newRV_noinc(newSViv(PTR2IV(enc))),stash);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/JP/ |
H A D | Makefile.PL | 117 HV *stash = gv_stashpv("Encode::XS", TRUE); 118 SV *sv = sv_bless(newRV_noinc(newSViv(PTR2IV(enc))),stash);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/KR/ |
H A D | Makefile.PL | 115 HV *stash = gv_stashpv("Encode::XS", TRUE); 116 SV *sv = sv_bless(newRV_noinc(newSViv(PTR2IV(enc))),stash);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/Symbol/ |
H A D | Makefile.PL | 103 HV *stash = gv_stashpv("Encode::XS", TRUE); 104 SV *sv = sv_bless(newRV_noinc(newSViv(PTR2IV(enc))),stash);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/TW/ |
H A D | Makefile.PL | 113 HV *stash = gv_stashpv("Encode::XS", TRUE); 114 SV *sv = sv_bless(newRV_noinc(newSViv(PTR2IV(enc))),stash);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/ |
H A D | Util.xs | 212 HV *stash; 229 cv = sv_2cv(block, &stash, &gv, 0); 267 HV *stash; 280 cv = sv_2cv(block, &stash, &gv, 0); 517 HV *stash = gv_stashpvn("Scalar::Util", 12, TRUE); 518 GV *vargv = *(GV**)hv_fetch(stash, "EXPORT_FAIL", 11, TRUE); 521 gv_init(vargv, stash, "Scalar::Util", 12, TRUE);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/Byte/ |
H A D | Makefile.PL | 141 HV *stash = gv_stashpv("Encode::XS", TRUE); 142 SV *sv = sv_bless(newRV_noinc(newSViv(PTR2IV(enc))),stash);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/via/ |
H A D | via.xs | 12 HV * stash; 46 GV *gv = gv_fetchmeth(s->stash, method, strlen(method), 0); 48 Perl_warn(aTHX_ "Lookup %s::%s => %p", HvNAME(s->stash), method, gv); 90 GV *gv = newGVgen(HvNAME(s->stash)); 138 s->stash = gv_stashpvn(pkg, pkglen, FALSE); 139 if (!s->stash) { 144 s->stash = gv_stashpvn(SvPVX(s->obj), pkglen + 13, FALSE); 146 if (s->stash) { 585 stash and obj have been set up by the implied push
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | attributes.pm | 77 my $stash = _guess_stash $svref; 78 $stash = caller unless defined $stash; 80 $pkgmeth = UNIVERSAL::can($stash, "FETCH_${svtype}_ATTRIBUTES") 81 if defined $stash && $stash ne ''; 83 (_fetch_attrs($svref), $pkgmeth->($stash, $svref)) :
|