1 #define PERL_NO_GET_CONTEXT
2 #define MATH_INT64_NATIVE_IF_AVAILABLE
7 #include "perl_math_int64.h"
10 #include "highwayhash.c"
14 uint64_t HighwayHash64(const uint8_t* data, size_t size, const uint64_t key[4]);
16 void HighwayHash128(const uint8_t* data, size_t size,
17 const uint64_t key[4], uint64_t hash[2]);
19 void HighwayHash256(const uint8_t* data, size_t size,
20 const uint64_t key[4], uint64_t hash[4]);
23 void process_key(pTHX_ AV *key_av, uint64_t *key) {
27 if(av_len(key_av) + 1 != 4)
28 croak("Key for highway_hash must be a 4-element array");
29 for(i = 0 ; i < 4 ; i++) {
30 elt = *av_fetch(key_av, i, false);
38 uint64_t highway_hash64(AV *key_av, char *bytes, uint64_t size) {
41 process_key(aTHX_ key_av, key);
42 return HighwayHash64(bytes, size, key);
45 AV* highway_hash128(AV *key_av, char *bytes, uint64_t size) {
50 process_key(aTHX_ key_av, key);
51 HighwayHash128(bytes, size, key, hash);
53 av_push(result, sv_2mortal(newSVu64(hash[0])));
54 av_push(result, sv_2mortal(newSVu64(hash[1])));
58 AV* highway_hash256(AV *key_av, char *bytes, uint64_t size) {
63 process_key(aTHX_ key_av, key);
64 HighwayHash256(bytes, size, key, hash);
66 av_push(result, sv_2mortal(newSVu64(hash[0])));
67 av_push(result, sv_2mortal(newSVu64(hash[1])));
68 av_push(result, sv_2mortal(newSVu64(hash[2])));
69 av_push(result, sv_2mortal(newSVu64(hash[3])));
73 MODULE = Digest::HighwayHash PACKAGE = Digest::HighwayHash
75 PERL_MATH_INT64_LOAD_OR_CROAK;
77 uint64_t highway_hash64(AV *key_av, char *bytes, uint64_t length(bytes))
79 AV* highway_hash128(AV *key_av, char *bytes, uint64_t length(bytes))
81 AV* highway_hash256(AV *key_av, char *bytes, uint64_t length(bytes))