/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | hv.h | 0 /* hv.h 92 /* Only hv.c and mod_perl should be doing this. */ 179 #define HvARRAY(hv) (*(HE***)&((XPVHV*) SvANY(hv))->xhv_array) 180 #define HvFILL(hv) ((XPVHV*) SvANY(hv))->xhv_fill 181 #define HvMAX(hv) ((XPVHV*) SvANY(hv))->xhv_max 182 #define HvRITER(hv) ((XPVHV*) SvANY(hv)) [all...] |
H A D | hv.c | 0 /* hv.c 172 /* (klen == HEf_SVKEY) is special for MAGICAL hv entries, meaning key slot 207 Perl_hv_store(pTHX_ HV *hv, const char *key, I32 klen_i32, SV *val, U32 hash) argument 220 hek = hv_fetch_common (hv, NULL, key, klen, flags, 226 Perl_hv_store_flags(pTHX_ HV *hv, const char *key, I32 klen, SV *val, argument 229 HE *hek = hv_fetch_common (hv, NULL, key, klen, flags, 264 Perl_hv_store_ent(pTHX_ HV *hv, SV *keysv, SV *val, U32 hash) argument 266 return hv_fetch_common(hv, keysv, NULL, 0, 0, HV_FETCH_ISSTORE, val, hash); 279 Perl_hv_exists(pTHX_ HV *hv, const char *key, I32 klen_i32) argument 291 return hv_fetch_common(hv, NUL 310 Perl_hv_fetch(pTHX_ HV *hv, const char *key, I32 klen_i32, I32 lval) argument 340 Perl_hv_exists_ent(pTHX_ HV *hv, SV *keysv, U32 hash) argument 366 Perl_hv_fetch_ent(pTHX_ HV *hv, SV *keysv, I32 lval, register U32 hash) argument 373 S_hv_fetch_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen, int flags, int action, SV *val, register U32 hash) argument 783 S_hv_magic_check(pTHX_ HV *hv, bool *needs_copy, bool *needs_store) argument 810 Perl_hv_scalar(pTHX_ HV *hv) argument 842 Perl_hv_delete(pTHX_ HV *hv, const char *key, I32 klen_i32, I32 flags) argument 868 Perl_hv_delete_ent(pTHX_ HV *hv, SV *keysv, I32 flags, U32 hash) argument 874 S_hv_delete_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen, int k_flags, I32 d_flags, U32 hash) argument 1049 S_hsplit(pTHX_ HV *hv) argument 1203 Perl_hv_ksplit(pTHX_ HV *hv, IV newmax) argument 1292 register HV *hv; local 1314 HV *hv = newHV(); local 1390 Perl_hv_free_ent(pTHX_ HV *hv, register HE *entry) argument 1412 Perl_hv_delayfree_ent(pTHX_ HV *hv, register HE *entry) argument 1439 Perl_hv_clear(pTHX_ HV *hv) argument 1501 Perl_hv_clear_placeholders(pTHX_ HV *hv) argument 1548 S_hfreeentries(pTHX_ HV *hv) argument 1596 Perl_hv_undef(pTHX_ HV *hv) argument 1634 Perl_hv_iterinit(pTHX_ HV *hv) argument 1669 Perl_hv_iternext(pTHX_ HV *hv) argument 1690 Perl_hv_iternext_flags(pTHX_ HV *hv, I32 flags) argument 1874 Perl_hv_iterval(pTHX_ HV *hv, register HE *entry) argument 1898 Perl_hv_iternextsv(pTHX_ HV *hv, char **key, I32 *retlen) argument 1916 Perl_hv_magic(pTHX_ HV *hv, GV *gv, int how) argument [all...] |
H A D | scope.c | 350 HV *ohv, *hv; local 358 hv = GvHVn(gv); 360 SvMAGIC(hv) = SvMAGIC(ohv); 361 SvFLAGS((SV*)hv) |= SvMAGICAL(ohv); 365 SvSETMAGIC((SV*)hv); 368 return hv; 570 Perl_save_delete(pTHX_ HV *hv, char *key, I32 klen) argument 575 SSPUSHPTR(SvREFCNT_inc(hv)); 636 Perl_save_helem(pTHX_ HV *hv, SV *key, SV **sptr) argument 640 SSPUSHPTR(SvREFCNT_inc(hv)); 686 register HV *hv; local [all...] |
H A D | universal.c | 37 HV* hv = Nullhv; local 58 && (hv = GvHV(gv))) 62 SV** svp = (SV**)hv_fetch(hv, name, len, FALSE); 72 hv_clear(hv); 80 if (!hv || !subgen) { 88 if (!hv) 89 hv = GvHVn(gv); 95 if (hv) { 111 (void)hv_store(hv,name,len,&PL_sv_yes,0); 115 (void)hv_store(hv,nam 548 HV *hv = (HV *) SvRV(ST(0)); local 705 HV *hv = (HV *) SvRV(ST(0)); local [all...] |
H A D | cop.h | 60 # define CopSTASH_set(c,hv) CopSTASHPV_set(c, (hv) ? HvNAME(hv) : Nullch) 61 # define CopSTASH_eq(c,hv) ((hv) \ 62 && (CopSTASHPV(c) == HvNAME(hv) \ 63 || (CopSTASHPV(c) && HvNAME(hv) \ 64 && strEQ(CopSTASHPV(c), HvNAME(hv))))) 84 # define CopSTASH_set(c,hv) ((c)->cop_stash = (hv)) [all...] |
H A D | doop.c | 306 HV* hv = (HV*)SvRV(rv); local 307 SV** svp = hv_fetch(hv, "NONE", 4, FALSE); 330 svp = hv_fetch(hv, "FINAL", 5, FALSE); 401 HV* hv = (HV*)SvRV(rv); local 402 SV** svp = hv_fetch(hv, "NONE", 4, FALSE); 443 HV* hv = (HV*)SvRV(rv); local 444 SV** svp = hv_fetch(hv, "NONE", 4, FALSE); 470 svp = hv_fetch(hv, "FINAL", 5, FALSE); 954 HV* hv = (HV*)sv; local 956 (void)hv_iterinit(hv); 1032 HV* hv = (HV*)sv; local 1336 HV *hv = (HV*)POPs; local [all...] |
H A D | op.h | 316 # define PmopSTASH_set(o,hv) PmopSTASHPV_set(o, ((hv) ? HvNAME(hv) : Nullch)) 321 # define PmopSTASH_set(o,hv) ((o)->op_pmstash = (hv))
|
H A D | pp.c | 3764 HV *hv; local 3769 hv = (HV*)POPs; 3770 hvtype = SvTYPE(hv); 3773 sv = hv_delete_ent(hv, *MARK, discard, 0); 3780 sv = av_delete((AV*)hv, SvIV(*MARK), discard); 3786 sv = avhv_delete_ent((AV*)hv, *MARK, discard, 0); 3806 hv = (HV*)POPs; 3807 if (SvTYPE(hv) == SVt_PVHV) 3808 sv = hv_delete_ent(hv, keysv, discard, 0); 3809 else if (SvTYPE(hv) 3829 HV *hv; local 3865 register HV *hv = (HV*)POPs; local 4016 HV* hv = (HV*)sv_2mortal((SV*)newHV()); local [all...] |
H A D | pp_hot.c | 771 HV *hv; local 778 hv = (HV*)SvRV(sv); 779 if (SvTYPE(hv) != SVt_PVHV && SvTYPE(hv) != SVt_PVAV) 782 SETs((SV*)hv); 788 SETs((SV*)hv); 797 hv = (HV*)sv; 799 SETs((SV*)hv); 806 SETs((SV*)hv); 855 hv 1702 HV *hv = (HV*)POPs; local [all...] |
H A D | gv.c | 856 HV* hv = GvHVn(gv); local 858 hv_magic(hv, Nullgv, PERL_MAGIC_overload); 863 HV *hv; local 871 hv = GvHVn(gv); 872 hv_magic(hv, Nullgv, PERL_MAGIC_sig); 875 init = hv_fetch(hv, PL_sig_name[i], strlen(PL_sig_name[i]), 1); 1085 HV *hv = GvSTASH(gv); local 1086 if (!hv) { 1091 if (keepmain || strNE(HvNAME(hv), "main")) { 1092 sv_catpv(sv,HvNAME(hv)); 1160 HV *hv; local [all...] |
H A D | dump.c | 57 HV *hv; local 65 && (hv = GvHV(gv)) && hv != PL_defstash) 66 dump_packsubs(hv); /* nested package */ 1291 HV *hv = (HV*)sv; local 1294 hv_iterinit(hv); 1295 while ((he = hv_iternext_flags(hv, HV_ITERNEXT_WANTPLACEHOLDERS)) 1304 elt = hv_iterval(hv, he); 1313 hv_iterinit(hv); /* Return to status quo */
|
H A D | utf8.c | 1408 HV *hv; local 1411 if ((hv = get_hv(special, FALSE)) && 1412 (svp = hv_fetch(hv, (const char*)tmpbuf, UNISKIP(uv1), FALSE)) && 1634 HV* hv = (HV*)SvRV(sv); local 1682 if (hv == PL_last_swash_hv && 1691 SV** svp = hv_fetch(hv, (char*)ptr, klen, FALSE); 1729 svp = hv_store(hv, (char*)ptr, klen, retval, 0); 1735 PL_last_swash_hv = hv;
|
/osnet-11/usr/src/cmd/sendmail/src/ |
H A D | ratectrl.c | 227 unsigned int hv; local 235 hv = 0xABC3D20F; 278 hv = (hv << 5) ^ (hv >> 23) ^ *p; 279 hv = (hv ^ (hv >> 16)); 285 hv += (c<<11) ^ (c>>1); 286 hv [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/Peek/ |
H A D | Peek.xs | 177 _mstats_to_hv(HV *hv, struct mstats_buffer *b, int level) 183 svp = hv_fetch(hv, "topbucket", 9, 1); 186 svp = hv_fetch(hv, "topbucket_ev", 12, 1); 189 svp = hv_fetch(hv, "topbucket_odd", 13, 1); 192 svp = hv_fetch(hv, "totfree", 7, 1); 195 svp = hv_fetch(hv, "total", 5, 1); 198 svp = hv_fetch(hv, "total_chain", 11, 1); 201 svp = hv_fetch(hv, "total_sbrk", 10, 1); 204 svp = hv_fetch(hv, "sbrks", 5, 1); 207 svp = hv_fetch(hv, "sbrk_goo [all...] |
/osnet-11/usr/src/lib/libpkg/common/ |
H A D | nhash.c | 57 int hv = 0; local 67 hv += ((int)*cp++); 72 return (hv % hsz);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/ |
H A D | Dumper.xs | 922 HV *hv; 971 && (hv = (HV*)SvRV((SV*)href)) 972 && SvTYPE(hv) == SVt_PVHV) { 974 if ((svp = hv_fetch(hv, "seen", 4, FALSE)) && SvROK(*svp)) 976 if ((svp = hv_fetch(hv, "todump", 6, FALSE)) && SvROK(*svp)) 978 if ((svp = hv_fetch(hv, "names", 5, FALSE)) && SvROK(*svp)) 980 if ((svp = hv_fetch(hv, "indent", 6, FALSE))) 982 if ((svp = hv_fetch(hv, "purity", 6, FALSE))) 984 if ((svp = hv_fetch(hv, "terse", 5, FALSE))) 987 if ((svp = hv_fetch(hv, "useq [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/ |
H A D | Bytecode.pm | 148 my $hv = shift; 149 my $ix = $svtab{$$hv}; 152 my $name = $hv->NAME; 156 asm "sv_flags", $hv->FLAGS; 157 $svtab{$$hv} = $varix = $ix = $tix++; 159 # my $pmrootix = $hv->PMROOT->ix; # XXX 164 asm "newsvx", $hv->FLAGS; 165 $svtab{$$hv} = $varix = $ix = $tix++; 166 my $stashix = $hv->SvSTASH->ix; 167 for (@array = $hv [all...] |
H A D | C.pm | 1248 my ($hv) = @_; 1249 my $sym = objsym($hv); 1251 my $name = $hv->NAME; 1258 #my $adpmroot = ${$hv->PMROOT}; 1260 $decl->add("static HV *hv$hv_index;"); 1262 $init->add(qq[hv$hv_index = gv_stashpv("$name", TRUE);]); 1264 $init->add(sprintf("HvPMROOT(hv$hv_index) = (PMOP*)s\\_%x;", 1267 $sym = savesym($hv, "hv$hv_index"); 1273 $hv [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/ |
H A D | Storable.xs | 72 #define HvSHAREKEYS_off(hv) /* Ignore */ 1023 static int store_hash(pTHX_ stcxt_t *cxt, HV *hv); 2150 * Key flags are as for hv.h 2152 static int store_hash(pTHX_ stcxt_t *cxt, HV *hv) 2156 HvTOTALKEYS(hv); 2158 HvKEYS(hv); 2164 int flagged_hash = ((SvREADONLY(hv) 2166 || HvHASKFLAGS(hv) 2169 unsigned char hash_flags = (SvREADONLY(hv) ? SHV_RESTRICTED : 0); 2173 TRACEME(("store_hash (0x%"UVxf") (flags %x)", PTR2UV(hv), [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Opcode/ |
H A D | Opcode.xs | 266 HV *hv; 269 hv = gv_stashpv(Package, GV_ADDWARN); /* should exist already */ 271 if (strNE(HvNAME(hv),"main")) { 272 Safefree(HvNAME(hv)); 273 HvNAME(hv) = savepv("main"); /* make it think it's in main:: */ 274 hv_store(hv,"_",1,(SV *)PL_defgv,0); /* connect _ to global */
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/XS/Typemap/ |
H A D | Typemap.xs | 128 T_HVREF( hv ) 129 HV * hv 131 RETVAL = hv;
|
/osnet-11/usr/src/lib/brand/solaris/zone/ |
H A D | p2v.ksh | 165 for i in $(egrep -hv "^#" \ 181 for i in $(egrep -hv "^#" /usr/lib/brand/solaris/pkgrm.lst \
|
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/ |
H A D | Exacct.xs | 176 HV *hv; 179 hv = (HV *)SvRV(*svp); 180 PERL_ASSERT(hv != NULL); 181 svp = hv_fetch(hv, "value", 5, FALSE);
|
/osnet-11/usr/src/lib/libc/port/i18n/ |
H A D | gettext_util.c | 341 uint32_t hv, hidx; local 369 hv = get_hashid(ms, NULL); 370 hidx = search_msg(p, ms, hv, m); 388 hv = get_hashid(ms, NULL); 389 hidx = search_msg(p, ms, hv, m);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/XS/APItest/ |
H A D | APItest.pm | 144 Hugo van der Sanden E<lt>hv@crypt.compulink.co.ukE<gt>
|