guix
/
guix
mirror of git://git.savannah.gnu.org/guix.git
3
5
Fork 0
Code Issues Releases Wiki Activity

daemon: Recognize SHA3 and BLAKE2s. 

* nix/libutil/hash.hh (HashType): Add htSHA3_256, htSHA3_512, and
htBLAKE2s_256.
* nix/libutil/hash.cc (parseHashType, printHashType): Recognize them.
* tests/store.scm ("add-to-store"): Test these algorithms.
This commit is contained in:
Ludovic Courtès 2020-06-23 16:33:38 +02:00
parent 8dc6c38785
commit 8e6c1415d8
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
3 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
nix/libutil/hash.cc
View File

@ -321,6 +321,9 @@ HashType parseHashType(const string & s)
else if (s == "sha1") return htSHA1;
else if (s == "sha256") return htSHA256;
else if (s == "sha512") return htSHA512;
else if (s == "sha3-256") return htSHA3_256;
else if (s == "sha3-512") return htSHA3_512;
else if (s == "blake2s-256") return htBLAKE2s_256;
else return htUnknown;
}
@ -331,6 +334,9 @@ string printHashType(HashType ht)
else if (ht == htSHA1) return "sha1";
else if (ht == htSHA256) return "sha256";
else if (ht == htSHA512) return "sha512";
else if (ht == htSHA3_256) return "sha3-256";
else if (ht == htSHA3_512) return "sha3-512";
else if (ht == htBLAKE2s_256) return "blake2s-256";
else throw Error("cannot print unknown hash type");
}

5
nix/libutil/hash.hh
View File

@ -16,7 +16,10 @@ typedef enum {
htMD5 = GCRY_MD_MD5,
htSHA1 = GCRY_MD_SHA1,
htSHA256 = GCRY_MD_SHA256,
htSHA512 = GCRY_MD_SHA512
htSHA512 = GCRY_MD_SHA512,
htSHA3_256 = GCRY_MD_SHA3_256,
htSHA3_512 = GCRY_MD_SHA3_512,
htBLAKE2s_256 = GCRY_MD_BLAKE2S_256
} HashType;
struct Hash

4
tests/store.scm
View File

@ -116,7 +116,7 @@
(list (stat:uid s) (stat:perms s))))
(test-equal "add-to-store"
'("sha1" "sha256" "sha512")
'("sha1" "sha256" "sha512" "sha3-256" "sha3-512" "blake2s-256")
(let* ((file (search-path %load-path "guix.scm"))
(content (call-with-input-file file get-bytevector-all)))
(map (lambda (hash-algo)
@ -125,7 +125,7 @@
(bytevector=? (call-with-input-file file get-bytevector-all)
content)
hash-algo)))
'("sha1" "sha256" "sha512"))))
'("sha1" "sha256" "sha512" "sha3-256" "sha3-512" "blake2s-256"))))
(test-equal "add-data-to-store"
#vu8(1 2 3 4 5)