Gecko [ paxlifestyle.com ]

Name	Size	Permission	Date
EXTERN.h	1.55 KB	-rw-r--r--	2025-07-10 00:00
INTERN.h	1.26 KB	-rw-r--r--	2025-07-10 00:00
XSUB.h	23.73 KB	-rw-r--r--	2025-07-10 00:00
av.h	7.08 KB	-rw-r--r--	2025-07-10 00:00
bitcount.h	1.01 KB	-rw-r--r--	2025-07-10 00:00
charclass_invlists.h	4.32 MB	-rw-r--r--	2025-07-10 00:00
config.h	165.58 KB	-rw-r--r--	2025-07-10 00:00
cop.h	56.42 KB	-rw-r--r--	2025-07-10 00:00
cv.h	14.42 KB	-rw-r--r--	2025-07-10 00:00
dosish.h	3.6 KB	-rw-r--r--	2025-07-10 00:00
ebcdic_tables.h	48.75 KB	-rw-r--r--	2025-07-10 00:00
embed.h	148.46 KB	-rw-r--r--	2025-07-10 00:00
embedvar.h	23.79 KB	-rw-r--r--	2025-07-10 00:00
fakesdio.h	3.13 KB	-rw-r--r--	2025-07-10 00:00
feature.h	18.51 KB	-rw-r--r--	2025-07-10 00:00
form.h	1.43 KB	-rw-r--r--	2025-07-10 00:00
git_version.h	357 B	-rw-r--r--	2025-07-10 00:00
gv.h	12.34 KB	-rw-r--r--	2025-07-10 00:00
handy.h	143.45 KB	-rw-r--r--	2025-07-10 00:00
hv.h	27.62 KB	-rw-r--r--	2025-07-10 00:00
hv_func.h	7.72 KB	-rw-r--r--	2025-07-10 00:00
hv_macro.h	3.1 KB	-rw-r--r--	2025-07-10 00:00
inline.h	133.63 KB	-rw-r--r--	2025-07-10 00:00
intrpvar.h	38.22 KB	-rw-r--r--	2025-07-10 00:00
invlist_inline.h	11.22 KB	-rw-r--r--	2025-07-10 00:00
iperlsys.h	62.5 KB	-rw-r--r--	2025-07-10 00:00
keywords.h	6.68 KB	-rw-r--r--	2025-07-10 00:00
l1_char_class_tab.h	118.13 KB	-rw-r--r--	2025-07-10 00:00
libperl.so	3.62 MB	-rwxr-xr-x	2025-07-10 00:00
locale_table.h	6.04 KB	-rw-r--r--	2025-07-10 00:00
malloc_ctl.h	1.49 KB	-rw-r--r--	2025-07-10 00:00
metaconfig.h	2.48 KB	-rw-r--r--	2025-07-10 00:00
mg.h	3.56 KB	-rw-r--r--	2025-07-10 00:00
mg_data.h	5.54 KB	-rw-r--r--	2025-07-10 00:00
mg_raw.h	4.71 KB	-rw-r--r--	2025-07-10 00:00
mg_vtable.h	10.23 KB	-rw-r--r--	2025-07-10 00:00
mydtrace.h	1.65 KB	-rw-r--r--	2025-07-10 00:00
nostdio.h	3.53 KB	-rw-r--r--	2025-07-10 00:00
op.h	40.88 KB	-rw-r--r--	2025-07-10 00:00
op_reg_common.h	5.9 KB	-rw-r--r--	2025-07-10 00:00
opcode.h	96.81 KB	-rw-r--r--	2025-07-10 00:00
opnames.h	9.21 KB	-rw-r--r--	2025-07-10 00:00
overload.h	3.21 KB	-rw-r--r--	2025-07-10 00:00
pad.h	19.62 KB	-rw-r--r--	2025-07-10 00:00
parser.h	6.95 KB	-rw-r--r--	2025-07-10 00:00
patchlevel.h	7.36 KB	-rw-r--r--	2025-07-10 00:00
perl.h	326.07 KB	-rw-r--r--	2025-07-10 00:00
perl_inc_macro.h	5.88 KB	-rw-r--r--	2025-07-10 00:00
perl_langinfo.h	7.88 KB	-rw-r--r--	2025-07-10 00:00
perl_siphash.h	5.06 KB	-rw-r--r--	2025-07-10 00:00
perlapi.h	635 B	-rw-r--r--	2025-07-10 00:00
perldtrace.h	3.22 KB	-rw-r--r--	2025-07-10 00:00
perlio.h	9.48 KB	-rw-r--r--	2025-07-10 00:00
perliol.h	13.27 KB	-rw-r--r--	2025-07-10 00:00
perlsdio.h	527 B	-rw-r--r--	2025-07-10 00:00
perlstatic.h	894 B	-rw-r--r--	2025-07-10 00:00
perlvars.h	16.72 KB	-rw-r--r--	2025-07-10 00:00
perly.h	9.89 KB	-rw-r--r--	2025-07-10 00:00
pp.h	29.79 KB	-rw-r--r--	2025-07-10 00:00
pp_proto.h	20.46 KB	-rw-r--r--	2025-07-10 00:00
proto.h	337.94 KB	-rw-r--r--	2025-07-10 00:00
reentr.h	85.34 KB	-rw-r--r--	2025-07-10 00:00
regcharclass.h	270.27 KB	-rw-r--r--	2025-07-10 00:00
regcomp.h	68.54 KB	-rw-r--r--	2025-07-10 00:00
regcomp_internal.h	60.55 KB	-rw-r--r--	2025-07-10 00:00
regexp.h	45.69 KB	-rw-r--r--	2025-07-10 00:00
reginline.h	1.54 KB	-rw-r--r--	2025-07-10 00:00
regnodes.h	126.98 KB	-rw-r--r--	2025-07-10 00:00
sbox32_hash.h	54.43 KB	-rw-r--r--	2025-07-10 00:00
scope.h	12.19 KB	-rw-r--r--	2025-07-10 00:00
scope_types.h	5.1 KB	-rw-r--r--	2025-07-10 00:00
sv.h	106.01 KB	-rw-r--r--	2025-07-10 00:00
sv_inline.h	28.33 KB	-rw-r--r--	2025-07-10 00:00
thread.h	19.53 KB	-rw-r--r--	2025-07-10 00:00
time64.h	900 B	-rw-r--r--	2025-07-10 00:00
time64_config.h	2.02 KB	-rw-r--r--	2025-07-10 00:00
uni_keywords.h	557.44 KB	-rw-r--r--	2025-07-10 00:00
unicode_constants.h	57.28 KB	-rw-r--r--	2025-07-10 00:00
unixish.h	5.44 KB	-rw-r--r--	2025-07-10 00:00
utf8.h	59.93 KB	-rw-r--r--	2025-07-10 00:00
utfebcdic.h	11.48 KB	-rw-r--r--	2025-07-10 00:00
util.h	10.47 KB	-rw-r--r--	2025-07-10 00:00
uudmap.h	1.03 KB	-rw-r--r--	2025-07-10 00:00
vutil.h	3.96 KB	-rw-r--r--	2025-07-10 00:00
warnings.h	11.86 KB	-rw-r--r--	2025-07-10 00:00
zaphod32_hash.h	9.47 KB	-rw-r--r--	2025-07-10 00:00

Rename

/* 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
#  if defined(PERL_HASH_USE_SBOX32) || !defined(PERL_HASH_NO_SBOX32)
#    define PERL_HASH_USE_SBOX32_ALSO 1
#  else
#    define PERL_HASH_USE_SBOX32_ALSO 0
#  endif
#endif

#undef PERL_HASH_USE_SBOX32
#undef PERL_HASH_NO_SBOX32
#if PERL_HASH_USE_SBOX32_ALSO != 0
#  define PERL_HASH_USE_SBOX32
#else
#  define PERL_HASH_NO_SBOX32
#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_DEFINE "PERL_HASH_FUNC_SIPHASH"
# define PVT__PERL_HASH_FUNC "SIPHASH_2_4"
# define PVT__PERL_HASH_WORD_TYPE U64
# define PVT__PERL_HASH_WORD_SIZE sizeof(PVT__PERL_HASH_WORD_TYPE)
# define PVT__PERL_HASH_SEED_BYTES (PVT__PERL_HASH_WORD_SIZE * 2)
# define PVT__PERL_HASH_STATE_BYTES (PVT__PERL_HASH_WORD_SIZE * 4)
# define PVT__PERL_HASH_SEED_STATE(seed,state) S_perl_siphash_seed_state(seed,state)
# define PVT__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_DEFINE "PERL_HASH_FUNC_SIPHASH13"
# define PVT__PERL_HASH_FUNC "SIPHASH_1_3"
# define PVT__PERL_HASH_WORD_TYPE U64
# define PVT__PERL_HASH_WORD_SIZE sizeof(PVT__PERL_HASH_WORD_TYPE)
# define PVT__PERL_HASH_SEED_BYTES (PVT__PERL_HASH_WORD_SIZE * 2)
# define PVT__PERL_HASH_STATE_BYTES (PVT__PERL_HASH_WORD_SIZE * 4)
# define PVT__PERL_HASH_SEED_STATE(seed,state) S_perl_siphash_seed_state(seed,state)
# define PVT__PERL_HASH_WITH_STATE(state,str,len) S_perl_hash_siphash_1_3_with_state((state),(const U8*)(str),(len))
#elif defined(PERL_HASH_FUNC_ZAPHOD32)
# define PERL_HASH_FUNC_DEFINE "PERL_HASH_FUNC_ZAPHOD32"
# define PVT__PERL_HASH_FUNC "ZAPHOD32"
# define PVT__PERL_HASH_WORD_TYPE U32
# define PVT__PERL_HASH_WORD_SIZE sizeof(PVT__PERL_HASH_WORD_TYPE)
# define PVT__PERL_HASH_SEED_BYTES (PVT__PERL_HASH_WORD_SIZE * 3)
# define PVT__PERL_HASH_STATE_BYTES (PVT__PERL_HASH_WORD_SIZE * 3)
# define PVT__PERL_HASH_SEED_STATE(seed,state) zaphod32_seed_state(seed,state)
# define PVT__PERL_HASH_WITH_STATE(state,str,len) (U32)zaphod32_hash_with_state((state),(U8*)(str),(len))
# include "zaphod32_hash.h"
#endif

#ifndef PVT__PERL_HASH_WITH_STATE
#error "No hash function defined!"
#endif
#ifndef PVT__PERL_HASH_SEED_BYTES
#error "PVT__PERL_HASH_SEED_BYTES not defined"
#endif
#ifndef PVT__PERL_HASH_FUNC
#error "PVT__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 PVT__PERL_HASH_SEED_roundup(x, y)   ( ( ( (x) + ( (y) - 1 ) ) / (y) ) * (y) )
#define PVT_PERL_HASH_SEED_roundup(x) PVT__PERL_HASH_SEED_roundup(x,PVT__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 == 0
# define PVT_PERL_HASH_FUNC                        PVT__PERL_HASH_FUNC
# define PVT_PERL_HASH_SEED_BYTES                  PVT__PERL_HASH_SEED_BYTES
# define PVT_PERL_HASH_STATE_BYTES                 PVT__PERL_HASH_STATE_BYTES
# define PVT_PERL_HASH_SEED_STATE(seed,state)      PVT__PERL_HASH_SEED_STATE(seed,state)
# define PVT_PERL_HASH_WITH_STATE(state,str,len)   PVT__PERL_HASH_WITH_STATE(state,str,len)
#else

#define PVT_PERL_HASH_FUNC         "SBOX32_WITH_" PVT__PERL_HASH_FUNC
/* note the 4 in the below code comes from the fact the seed to initialize the SBOX is 128 bits */
#define PVT_PERL_HASH_SEED_BYTES   ( PVT__PERL_HASH_SEED_BYTES + (int)( 4 * sizeof(U32)) )

#define PVT_PERL_HASH_STATE_BYTES  \
    ( PVT__PERL_HASH_STATE_BYTES + ( ( 1 + ( 256 * SBOX32_MAX_LEN ) ) * sizeof(U32) ) )

#define PVT_PERL_HASH_SEED_STATE(seed,state) STMT_START {                                      \
    PVT__PERL_HASH_SEED_STATE(seed,state);                                                     \
    sbox32_seed_state128(seed + PVT__PERL_HASH_SEED_BYTES, state + PVT__PERL_HASH_STATE_BYTES);    \
} STMT_END

#define PVT_PERL_HASH_WITH_STATE(state,str,len)                                            \
    (LIKELY(len <= SBOX32_MAX_LEN)                                                      \
        ? sbox32_hash_with_state((state + PVT__PERL_HASH_STATE_BYTES),(const U8*)(str),(len))    \
        : PVT__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) = PVT_PERL_HASH_WITH_STATE((state),(const U8*)(str),(len))

#define PERL_HASH_SEED_STATE(seed,state) PVT_PERL_HASH_SEED_STATE(seed,state)
#define PERL_HASH_SEED_BYTES PVT_PERL_HASH_SEED_roundup(PVT_PERL_HASH_SEED_BYTES)
#define PERL_HASH_STATE_BYTES PVT_PERL_HASH_SEED_roundup(PVT_PERL_HASH_STATE_BYTES)
#define PERL_HASH_FUNC        PVT_PERL_HASH_FUNC

#define PERL_HASH_SEED_WORDS (PERL_HASH_SEED_BYTES/PVT__PERL_HASH_WORD_SIZE)
#define PERL_HASH_STATE_WORDS (PERL_HASH_STATE_BYTES/PVT__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]] ) \
                       : PVT_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) {
    PVT__PERL_HASH_WORD_TYPE state[PERL_HASH_STATE_WORDS];
    PVT_PERL_HASH_SEED_STATE(seed,(U8*)state);
    return PVT_PERL_HASH_WITH_STATE((U8*)state,str,len);
}

#endif /*compile once*/

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