/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...] |