| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
| H A D | hv.c | 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);
340 Perl_hv_exists_ent(pTHX_ HV *hv, SV *keysv, U32 hash) argument
342 return hv_fetch_common(hv, keysv, NULL, 0, 0, HV_FETCH_ISEXISTS, 0, hash)
366 Perl_hv_fetch_ent(pTHX_ HV *hv, SV *keysv, I32 lval, register U32 hash) argument
368 return hv_fetch_common(hv, keysv, NULL, 0, 0,
373 S_hv_fetch_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen, argument
387 if (keysv) {
390 key = SvPV(keysv, klen);
392 is_utf8 = (SvUTF8(keysv) !
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
1457 SV* keysv = hv_iterkeysv(entry); local
[all...] |
| H A D | av.c | 946 S_avhv_index(pTHX_ AV *av, SV *keysv, U32 hash) argument
953 he = hv_fetch_ent(keys, keysv, FALSE, hash);
955 Perl_croak(aTHX_ "No such pseudo-hash field \"%s\"", SvPV(keysv,n_a));
981 Perl_avhv_store_ent(pTHX_ AV *av, SV *keysv, SV *val, U32 hash) argument
983 return av_store(av, avhv_index(av, keysv, hash), val);
987 Perl_avhv_fetch_ent(pTHX_ AV *av, SV *keysv, I32 lval, U32 hash) argument
989 return av_fetch(av, avhv_index(av, keysv, hash), lval);
993 Perl_avhv_delete_ent(pTHX_ AV *av, SV *keysv, I32 flags, U32 hash) argument
998 he = hv_fetch_ent(keys, keysv, FALSE, hash);
1009 Perl_avhv_exists_ent(pTHX_ AV *av, SV *keysv, U3 argument
[all...] |
| H A D | dump.c | 1297 SV *elt, *keysv; local
1302 keysv = hv_iterkeysv(he);
1303 keypv = SvPV(keysv, len);
1306 if (SvUTF8(keysv))
1307 PerlIO_printf(file, "[UTF8 \"%s\"] ", sv_uni_display(d, keysv, 8 * sv_len_utf8(keysv), UNI_DISPLAY_QQ));
|
| H A D | pp.c | 3805 SV *keysv = POPs; local
3808 sv = hv_delete_ent(hv, keysv, discard, 0);
3811 sv = av_delete((AV*)hv, SvIV(keysv), discard);
3813 sv = avhv_delete_ent((AV*)hv, keysv, discard, 0);
3890 SV *keysv = *MARK; local
3896 realhv ? hv_exists_ent(hv, keysv, 0)
3897 : avhv_exists_ent((AV*)hv, keysv, 0);
3901 HE *he = hv_fetch_ent(hv, keysv, lval, 0);
3905 svp = avhv_fetch_ent((AV*)hv, keysv, lval, 0);
3910 DIE(aTHX_ PL_no_helem, SvPV(keysv, n_
[all...] |
| H A D | pp_hot.c | 1701 SV *keysv = POPs; local
1706 U32 hash = (SvFAKE(keysv) && SvREADONLY(keysv)) ? SvUVX(keysv) : 0;
1726 ) ? hv_exists_ent(hv, keysv, 0) : 1;
1729 he = hv_fetch_ent(hv, keysv, lval && !defer, hash);
1735 svp = avhv_fetch_ent((AV*)hv, keysv, lval && !defer, hash);
1746 DIE(aTHX_ PL_no_helem, SvPV(keysv, n_a));
1751 sv_magic(lv, key2 = newSVsv(keysv), PERL_MAGIC_defelem, Nullch, 0);
1764 char *key = SvPV(keysv, keyle
[all...] |
| H A D | op.c | 6830 SV* keysv; local
6836 keysv = sv_2mortal(newSViv(index));
6838 he = hv_fetch_ent(PL_custom_op_names, keysv, 0, 0);
6848 SV* keysv; local
6854 keysv = sv_2mortal(newSViv(index));
6856 he = hv_fetch_ent(PL_custom_op_descs, keysv, 0, 0);
|
| H A D | proto.h | 60 PERL_CALLCONV SV* Perl_avhv_delete_ent(pTHX_ AV *ar, SV* keysv, I32 flags, U32 hash);
61 PERL_CALLCONV bool Perl_avhv_exists_ent(pTHX_ AV *ar, SV* keysv, U32 hash);
62 PERL_CALLCONV SV** Perl_avhv_fetch_ent(pTHX_ AV *ar, SV* keysv, I32 lval, U32 hash);
63 PERL_CALLCONV SV** Perl_avhv_store_ent(pTHX_ AV *ar, SV* keysv, SV* val, U32 hash);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/ |
| H A D | Dumper.xs | 608 SV* keysv;
623 keysv = svp ? *svp : sv_mortalcopy(&PL_sv_undef);
624 key = SvPV(keysv, keylen);
626 SvUTF8(keysv) ? -(I32)keylen : keylen, 0);
630 keysv = hv_iterkeysv(entry);
634 do_utf8 = DO_UTF8(keysv);
635 key = SvPV(keysv, keylen);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/ |
| H A D | Storable.xs | 5057 SV *keysv;
5058 TRACEME(("(#%d) keysv, flags=%d", i, flags));
5059 keysv = retrieve(aTHX_ cxt, 0);
5060 if (!keysv)
5063 if (!hv_store_ent(hv, keysv, sv, 0))
|