Gecko [ www.habutechnology.com ]

Name	Size	Permission
EXTERN.h	1.54 KB	-rw-r--r--
INTERN.h	1.25 KB	-rw-r--r--
XSUB.h	23.65 KB	-rw-r--r--
av.h	6.82 KB	-rw-r--r--
bitcount.h	1.01 KB	-rw-r--r--
charclass_invlists.h	4.27 MB	-rw-r--r--
config.h	163.31 KB	-rw-r--r--
cop.h	50.21 KB	-rw-r--r--
cv.h	12.3 KB	-rw-r--r--
dosish.h	3.3 KB	-rw-r--r--
ebcdic_tables.h	52 KB	-rw-r--r--
embed.h	100.96 KB	-rw-r--r--
embedvar.h	14.77 KB	-rw-r--r--
fakesdio.h	3.13 KB	-rw-r--r--
feature.h	13.59 KB	-rw-r--r--
form.h	1.43 KB	-rw-r--r--
git_version.h	357 B	-rw-r--r--
gv.h	11.63 KB	-rw-r--r--
handy.h	133.69 KB	-rw-r--r--
hv.h	26.61 KB	-rw-r--r--
hv_func.h	7.03 KB	-rw-r--r--
hv_macro.h	3.09 KB	-rw-r--r--
inline.h	103.44 KB	-rw-r--r--
intrpvar.h	35.86 KB	-rw-r--r--
invlist_inline.h	7.29 KB	-rw-r--r--
iperlsys.h	62.76 KB	-rw-r--r--
keywords.h	6.54 KB	-rw-r--r--
l1_char_class_tab.h	118.12 KB	-rw-r--r--
malloc_ctl.h	1.49 KB	-rw-r--r--
metaconfig.h	766 B	-rw-r--r--
mg.h	3.56 KB	-rw-r--r--
mg_data.h	5.2 KB	-rw-r--r--
mg_raw.h	4.27 KB	-rw-r--r--
mg_vtable.h	9.52 KB	-rw-r--r--
mydtrace.h	1.65 KB	-rw-r--r--
nostdio.h	3.32 KB	-rw-r--r--
op.h	39.7 KB	-rw-r--r--
op_reg_common.h	5.77 KB	-rw-r--r--
opcode.h	93.47 KB	-rw-r--r--
opnames.h	9 KB	-rw-r--r--
overload.h	3.2 KB	-rw-r--r--
pad.h	17.17 KB	-rw-r--r--
parser.h	6.95 KB	-rw-r--r--
patchlevel-debian.h	6.34 KB	-rw-r--r--
patchlevel.h	6.42 KB	-rw-r--r--
perl.h	296.47 KB	-rw-r--r--
perl_inc_macro.h	6.2 KB	-rw-r--r--
perl_langinfo.h	2.85 KB	-rw-r--r--
perl_siphash.h	5.06 KB	-rw-r--r--
perlapi.h	634 B	-rw-r--r--
perlio.h	9.49 KB	-rw-r--r--
perliol.h	13.27 KB	-rw-r--r--
perlsdio.h	527 B	-rw-r--r--
perlvars.h	12.01 KB	-rw-r--r--
perly.h	8.87 KB	-rw-r--r--
pp.h	28.99 KB	-rw-r--r--
pp_proto.h	12.35 KB	-rw-r--r--
proto.h	277.8 KB	-rw-r--r--
reentr.h	85.18 KB	-rw-r--r--
regcharclass.h	270.17 KB	-rw-r--r--
regcomp.h	51.69 KB	-rw-r--r--
regexp.h	37.97 KB	-rw-r--r--
regnodes.h	109.14 KB	-rw-r--r--
sbox32_hash.h	54.4 KB	-rw-r--r--
scope.h	13.08 KB	-rw-r--r--
sv.h	96.71 KB	-rw-r--r--
sv_inline.h	17.03 KB	-rw-r--r--
thread.h	18 KB	-rw-r--r--
time64.h	900 B	-rw-r--r--
time64_config.h	2.02 KB	-rw-r--r--
uconfig.h	163.02 KB	-rw-r--r--
uni_keywords.h	551.47 KB	-rw-r--r--
unicode_constants.h	56.41 KB	-rw-r--r--
unixish.h	5.16 KB	-rw-r--r--
utf8.h	57.62 KB	-rw-r--r--
utfebcdic.h	11.48 KB	-rw-r--r--
util.h	10.32 KB	-rw-r--r--
uudmap.h	1.03 KB	-rw-r--r--
vutil.h	3.96 KB	-rw-r--r--
warnings.h	11.14 KB	-rw-r--r--
zaphod32_hash.h	9.43 KB	-rw-r--r--

Code Editor : hv_func.h

/* hash a key
 *--------------------------------------------------------------------------------------
 * The "hash seed" feature was added in Perl 5.8.1 to perturb the results
 * to avoid "algorithmic complexity attacks".
 *
 * If USE_HASH_SEED is defined, hash randomisation is done by default
 * (see also perl.c:perl_parse() and S_init_tls_and_interp() and util.c:get_hash_seed())
 */
#ifndef PERL_SEEN_HV_FUNC_H_ /* compile once */
#define PERL_SEEN_HV_FUNC_H_
#include "hv_macro.h"

#if !( 0 \
        || defined(PERL_HASH_FUNC_SIPHASH) \
        || defined(PERL_HASH_FUNC_SIPHASH13) \
        || defined(PERL_HASH_FUNC_ZAPHOD32) \
    )
#   ifdef CAN64BITHASH
#       define PERL_HASH_FUNC_SIPHASH13
#   else
#       define PERL_HASH_FUNC_ZAPHOD32
#   endif
#endif

#ifndef PERL_HASH_USE_SBOX32_ALSO
#define PERL_HASH_USE_SBOX32_ALSO 1
#endif

#ifndef SBOX32_MAX_LEN
#define SBOX32_MAX_LEN 24
#endif

/* this must be after the SBOX32_MAX_LEN define */
#include "sbox32_hash.h"

#if defined(PERL_HASH_FUNC_SIPHASH)
# define __PERL_HASH_FUNC "SIPHASH_2_4"
# define __PERL_HASH_WORD_TYPE U64
# define __PERL_HASH_WORD_SIZE sizeof(__PERL_HASH_WORD_TYPE)
# define __PERL_HASH_SEED_BYTES (__PERL_HASH_WORD_SIZE * 2)
# define __PERL_HASH_STATE_BYTES (__PERL_HASH_WORD_SIZE * 4)
# define __PERL_HASH_SEED_STATE(seed,state) S_perl_siphash_seed_state(seed,state)
# define __PERL_HASH_WITH_STATE(state,str,len) S_perl_hash_siphash_2_4_with_state((state),(U8*)(str),(len))
#elif defined(PERL_HASH_FUNC_SIPHASH13)
# define __PERL_HASH_FUNC "SIPHASH_1_3"
# define __PERL_HASH_WORD_TYPE U64
# define __PERL_HASH_WORD_SIZE sizeof(__PERL_HASH_WORD_TYPE)
# define __PERL_HASH_SEED_BYTES (__PERL_HASH_WORD_SIZE * 2)
# define __PERL_HASH_STATE_BYTES (__PERL_HASH_WORD_SIZE * 4)
# define __PERL_HASH_SEED_STATE(seed,state) S_perl_siphash_seed_state(seed,state)
# define __PERL_HASH_WITH_STATE(state,str,len) S_perl_hash_siphash_1_3_with_state((state),(U8*)(str),(len))
#elif defined(PERL_HASH_FUNC_ZAPHOD32)
# define __PERL_HASH_FUNC "ZAPHOD32"
# define __PERL_HASH_WORD_TYPE U32
# define __PERL_HASH_WORD_SIZE sizeof(__PERL_HASH_WORD_TYPE)
# define __PERL_HASH_SEED_BYTES (__PERL_HASH_WORD_SIZE * 3)
# define __PERL_HASH_STATE_BYTES (__PERL_HASH_WORD_SIZE * 3)
# define __PERL_HASH_SEED_STATE(seed,state) zaphod32_seed_state(seed,state)
# define __PERL_HASH_WITH_STATE(state,str,len) (U32)zaphod32_hash_with_state((state),(U8*)(str),(len))
# include "zaphod32_hash.h"
#endif

#ifndef __PERL_HASH_WITH_STATE
#error "No hash function defined!"
#endif
#ifndef __PERL_HASH_SEED_BYTES
#error "__PERL_HASH_SEED_BYTES not defined"
#endif
#ifndef __PERL_HASH_FUNC
#error "__PERL_HASH_FUNC not defined"
#endif

/* Some siphash static functions are needed by XS::APItest even when
   siphash isn't the current hash.  For SipHash builds this needs to
   be before the S_perl_hash_with_seed() definition.
*/
#include "perl_siphash.h"

#define __PERL_HASH_SEED_roundup(x, y)   ( ( ( (x) + ( (y) - 1 ) ) / (y) ) * (y) )
#define _PERL_HASH_SEED_roundup(x) __PERL_HASH_SEED_roundup(x,__PERL_HASH_WORD_SIZE)

#define PL_hash_seed ((U8 *)PL_hash_seed_w)
#define PL_hash_state ((U8 *)PL_hash_state_w)

#if PERL_HASH_USE_SBOX32_ALSO != 1
# define _PERL_HASH_FUNC                        __PERL_HASH_FUNC
# define _PERL_HASH_SEED_BYTES                  __PERL_HASH_SEED_BYTES
# define _PERL_HASH_STATE_BYTES                 __PERL_HASH_STATE_BYTES
# define _PERL_HASH_SEED_STATE(seed,state)      __PERL_HASH_SEED_STATE(seed,state)
# define _PERL_HASH_WITH_STATE(state,str,len)   __PERL_HASH_WITH_STATE(state,str,len)
#else

#define _PERL_HASH_FUNC         "SBOX32_WITH_" __PERL_HASH_FUNC
/* note the 4 in the below code comes from the fact the seed to initialize the SBOX is 128 bits */
#define _PERL_HASH_SEED_BYTES   ( __PERL_HASH_SEED_BYTES + (int)( 4 * sizeof(U32)) )

#define _PERL_HASH_STATE_BYTES  \
    ( __PERL_HASH_STATE_BYTES + ( ( 1 + ( 256 * SBOX32_MAX_LEN ) ) * sizeof(U32) ) )

#define _PERL_HASH_SEED_STATE(seed,state) STMT_START {                                      \
    __PERL_HASH_SEED_STATE(seed,state);                                                     \
    sbox32_seed_state128(seed + __PERL_HASH_SEED_BYTES, state + __PERL_HASH_STATE_BYTES);    \
} STMT_END

#define _PERL_HASH_WITH_STATE(state,str,len)                                            \
    (LIKELY(len <= SBOX32_MAX_LEN)                                                      \
        ? sbox32_hash_with_state((state + __PERL_HASH_STATE_BYTES),(U8*)(str),(len))    \
        : __PERL_HASH_WITH_STATE((state),(str),(len)))

#endif

#define PERL_HASH_WITH_SEED(seed,hash,str,len) \
    (hash) = S_perl_hash_with_seed((const U8 *) seed, (const U8 *) str,len)
#define PERL_HASH_WITH_STATE(state,hash,str,len) \
    (hash) = _PERL_HASH_WITH_STATE((state),(U8*)(str),(len))

#define PERL_HASH_SEED_STATE(seed,state) _PERL_HASH_SEED_STATE(seed,state)
#define PERL_HASH_SEED_BYTES _PERL_HASH_SEED_roundup(_PERL_HASH_SEED_BYTES)
#define PERL_HASH_STATE_BYTES _PERL_HASH_SEED_roundup(_PERL_HASH_STATE_BYTES)
#define PERL_HASH_FUNC        _PERL_HASH_FUNC

#define PERL_HASH_SEED_WORDS (PERL_HASH_SEED_BYTES/__PERL_HASH_WORD_SIZE)
#define PERL_HASH_STATE_WORDS (PERL_HASH_STATE_BYTES/__PERL_HASH_WORD_SIZE)

#ifdef PERL_USE_SINGLE_CHAR_HASH_CACHE
#define PERL_HASH(state,str,len) \
    (hash) = ((len) < 2 ? ( (len) == 0 ? PL_hash_chars[256] : PL_hash_chars[(U8)(str)[0]] ) \
                       : _PERL_HASH_WITH_STATE(PL_hash_state,(U8*)(str),(len)))
#else
#define PERL_HASH(hash,str,len) \
    PERL_HASH_WITH_STATE(PL_hash_state,hash,(U8*)(str),(len))
#endif

/* Setup the hash seed, either we do things dynamically at start up,
 * including reading from the environment, or we randomly setup the
 * seed. The seed will be passed into the PERL_HASH_SEED_STATE() function
 * defined for the configuration defined for this perl, which will then
 * initialize whatever state it might need later in hashing. */

#ifndef PERL_HASH_SEED
#   if defined(USE_HASH_SEED)
#       define PERL_HASH_SEED PL_hash_seed
#   else
       /* this is a 512 bit seed, which should be more than enough for the
        * configuration of any of our hash functions (with or without sbox).
        * If you actually use a hard coded seed, you are strongly encouraged
        * to replace this with something else of the correct length
        * for the hash function you are using (24-32 bytes depending on build
        * options). Repeat, you are *STRONGLY* encouraged not to use the value
        * provided here.
        */
#       define PERL_HASH_SEED \
           ((const U8 *)"A long string of pseudorandomly "  \
                        "chosen bytes for hashing in Perl")
#   endif
#endif

/* legacy - only mod_perl should be doing this.  */
#ifdef PERL_HASH_INTERNAL_ACCESS
#define PERL_HASH_INTERNAL(hash,str,len) PERL_HASH(hash,str,len)
#endif

PERL_STATIC_INLINE U32
S_perl_hash_with_seed(const U8 * seed, const U8 *str, STRLEN len) {
    __PERL_HASH_WORD_TYPE state[PERL_HASH_STATE_WORDS];
    _PERL_HASH_SEED_STATE(seed,(U8*)state);
    return _PERL_HASH_WITH_STATE((U8*)state,str,len);
}

#endif /*compile once*/

/*
 * ex: set ts=8 sts=4 sw=4 et:
 */

${this.title}

Code Editor : hv_func.h