| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/ |
| H A D | SubstrHash.pm | 46 my ($klen, $vlen, $tsize) = @_;
47 my $rlen = 1 + $klen + $vlen;
50 local $self = bless ["\0", $klen, $vlen, $tsize, $rlen, 0, -1];
64 local($klen, $vlen, $tsize, $rlen) = @$self[1..4];
74 elsif (substr($record, 1, $klen) eq $key) {
75 return substr($record, 1+$klen, $vlen);
83 local($klen, $vlen, $tsize, $rlen) = @$self[1..4];
104 elsif (substr($record, 1, $klen) eq $key) {
116 local($klen, $vlen, $tsize, $rlen) = @$self[1..4];
126 elsif (substr($record, 1, $klen) e
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
| H A D | hv.c | 153 S_hv_notallowed(pTHX_ int flags, const char *key, I32 klen, argument
158 sv_setpvn(sv, key, klen);
163 sv_usepvn(sv, (char *) key, klen);
172 /* (klen == HEf_SVKEY) is special for MAGICAL hv entries, meaning key slot
183 Stores an SV in a hash. The hash key is specified as C<key> and C<klen> is
210 STRLEN klen; local
214 klen = -klen_i32;
217 klen = klen_i32;
220 hek = hv_fetch_common (hv, NULL, key, klen, flags,
226 Perl_hv_store_flags(pTHX_ HV *hv, const char *key, I32 klen, S argument
281 STRLEN klen; local
313 STRLEN klen; local
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
844 STRLEN klen; local
874 S_hv_delete_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen, int k_flags, I32 d_flags, U32 hash) argument
[all...] |
| H A D | utf8.c | 1635 U32 klen; local
1653 * So the key in the hash (klen) is length of encoded char -1
1655 klen = UTF8SKIP(ptr) - 1;
1656 off = ptr[klen];
1658 if (klen == 0)
1664 off = NATIVE_TO_UTF(ptr[klen]);
1670 off = NATIVE_TO_UTF(ptr[klen]) & UTF_CONTINUATION_MASK;
1683 klen == PL_last_swash_klen &&
1684 (!klen || memEQ((char *)ptr, (char *)PL_last_swash_key, klen)) )
[all...] |
| H A D | universal.c | 579 STRLEN klen; local
580 char *key = SvPV(*varp, klen);
584 if (klen == 5 && memEQ(key, "input", 5)) {
590 if (klen == 6 && memEQ(key, "output", 6)) {
596 if (klen == 7 && memEQ(key, "details", 7)) {
|
| H A D | mg.c | 350 Perl_mg_copy(pTHX_ SV *sv, SV *nsv, const char *key, I32 klen) argument
357 count += CALL_FPTR(vtbl->svt_copy)(aTHX_ sv, mg, nsv, key, klen);
364 toLOWER(mg->mg_type), key, klen);
946 STRLEN len, klen; local
949 ptr = MgPV(mg,klen);
957 if ((valp = hv_fetch(GvHVn(PL_envgv), ptr, klen, FALSE)))
968 if (s && klen == 8 && strEQ(ptr, "DCL$PATH")) {
993 if (s && klen == 4 && strEQ(ptr,"PATH")) {
|
| H A D | scope.c | 570 Perl_save_delete(pTHX_ HV *hv, char *key, I32 klen) argument
573 SSPUSHINT(klen);
|
| H A D | proto.h | 261 PERL_CALLCONV SV* Perl_hv_delete(pTHX_ HV* tb, const char* key, I32 klen, I32 flags);
263 PERL_CALLCONV bool Perl_hv_exists(pTHX_ HV* tb, const char* key, I32 klen);
265 PERL_CALLCONV SV** Perl_hv_fetch(pTHX_ HV* tb, const char* key, I32 klen, I32 lval);
277 PERL_CALLCONV SV** Perl_hv_store(pTHX_ HV* tb, const char* key, I32 klen, SV* val, U32 hash);
279 PERL_CALLCONV SV** Perl_hv_store_flags(pTHX_ HV* tb, const char* key, I32 klen, SV* val, U32 hash, int flags);
433 PERL_CALLCONV int Perl_mg_copy(pTHX_ SV* sv, SV* nsv, const char* key, I32 klen);
626 PERL_CALLCONV void Perl_save_delete(pTHX_ HV* hv, char* key, I32 klen);
974 STATIC void S_hv_notallowed(pTHX_ int flags, const char *key, I32 klen, const char *msg);
1360 STATIC SV* S_hv_delete_common(pTHX_ HV* tb, SV* key_sv, const char* key, STRLEN klen, int k_flags, I32 d_flags, U32 hash);
1361 STATIC HE* S_hv_fetch_common(pTHX_ HV* tb, SV* key_sv, const char* key, STRLEN klen, in
[all...] |
| /osnet-11/usr/src/lib/nsswitch/files/common/ |
| H A D | getprinter.c | 43 int klen = strlen(keyp); local
51 while (linep+klen < limit && *linep != '|' && *linep != ':') {
52 if ((strncmp(linep, keyp, klen) == 0) &&
53 ((*(linep + klen) == '|') || (*(linep + klen) == ':'))) {
|
| /osnet-11/usr/src/lib/pkcs11/pkcs11_kernel/common/ |
| H A D | kernelSoftCommon.h | 53 CK_ULONG klen, int opflag);
|
| H A D | kernelSoftCommon.c | 105 CK_BYTE_PTR kval, CK_ULONG klen, int opflag)
136 OBJ_SEC_VALUE_LEN(key_p) = klen;
104 do_soft_hmac_init(void **s, CK_MECHANISM_PTR pMechanism, CK_BYTE_PTR kval, CK_ULONG klen, int opflag) argument
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/ |
| H A D | Dumper.xs | 527 I32 klen;
636 klen = keylen;
664 nlen = esc_q_utf8(aTHX_ retval, key, klen);
668 nticks = num_q(key, klen);
669 New(0, nkey_buffer, klen+nticks+3, char);
673 klen += esc_q(nkey+1, key, klen);
675 (void)Copy(key, nkey+1, klen, char);
676 nkey[++klen] = '\'';
677 nkey[++klen]
[all...] |
| /osnet-11/usr/src/lib/nsswitch/ldap/common/ |
| H A D | ldap_common.c | 719 int klen; local
724 klen = strlen(key);
729 find.keylen = klen;
754 ep->keylen = klen;
|
| /osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/ |
| H A D | Kstat.xs | 860 STRLEN klen;
906 key = HePV(entry3, klen);
907 hv_delete(hash3, key, klen, G_DISCARD);
921 key = HePV(entry2, klen);
922 hv_delete(hash2, key, klen, G_DISCARD);
929 key = HePV(entry1, klen);
930 hv_delete(hash1, key, klen, G_DISCARD);
1441 STRLEN klen;
1445 k = SvPV(key, klen);
1449 value = hv_fetch((HV *)self, k, klen, FALS
[all...] |