1 #define PERL_NO_GET_CONTEXT
2 #define MATH_INT64_NATIVE_IF_AVAILABLE
7 #include "perl_math_int64.h"
10 #include "highwayhash.c"
12 void process_key(pTHX_ AV *key_av, uint64_t *key) {
16 if(av_len(key_av) + 1 != 4)
17 croak("Key for highway_hash must be a 4-element array");
18 for(i = 0 ; i < 4 ; i++) {
19 elt = *av_fetch(key_av, i, 0);
27 uint64_t highway_hash64(AV *key_av, unsigned char *bytes, uint64_t size) {
30 process_key(aTHX_ key_av, key);
31 return HighwayHash64(bytes, size, key);
34 AV* highway_hash128(AV *key_av, unsigned char *bytes, uint64_t size) {
39 process_key(aTHX_ key_av, key);
40 HighwayHash128(bytes, size, key, hash);
42 av_push(result, sv_2mortal(newSVu64(hash[0])));
43 av_push(result, sv_2mortal(newSVu64(hash[1])));
47 AV* highway_hash256(AV *key_av, unsigned char *bytes, uint64_t size) {
52 process_key(aTHX_ key_av, key);
53 HighwayHash256(bytes, size, key, hash);
55 av_push(result, sv_2mortal(newSVu64(hash[0])));
56 av_push(result, sv_2mortal(newSVu64(hash[1])));
57 av_push(result, sv_2mortal(newSVu64(hash[2])));
58 av_push(result, sv_2mortal(newSVu64(hash[3])));
62 MODULE = Digest::HighwayHash PACKAGE = Digest::HighwayHash
65 PERL_MATH_INT64_LOAD_OR_CROAK;
67 uint64_t highway_hash64(AV *key_av, unsigned char *bytes, uint64_t length(bytes))
69 AV* highway_hash128(AV *key_av, unsigned char *bytes, uint64_t length(bytes))
71 AV* highway_hash256(AV *key_av, unsigned char *bytes, uint64_t length(bytes))