From: Matt Birkholz Date: Mon, 1 May 2017 16:47:59 +0000 (-0700) Subject: Update crypto interface per upstream. X-Git-Tag: mit-scheme-pucked-9.2.12~144 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9cba12eae232aa98a0d427183db3cb5a70322955;p=mit-scheme.git Update crypto interface per upstream. --- diff --git a/src/mcrypt/mcrypt.pkg b/src/mcrypt/mcrypt.pkg index 83352ec7f..13b856460 100644 --- a/src/mcrypt/mcrypt.pkg +++ b/src/mcrypt/mcrypt.pkg @@ -39,7 +39,9 @@ USA. mcrypt-block-algorithm? mcrypt-block-mode? mcrypt-context? + mcrypt-decrypt! mcrypt-encrypt + mcrypt-encrypt! mcrypt-encrypt-port mcrypt-end mcrypt-init diff --git a/src/md5/md5.pkg b/src/md5/md5.pkg index b891fea08..ef23d3dae 100644 --- a/src/md5/md5.pkg +++ b/src/md5/md5.pkg @@ -33,6 +33,7 @@ USA. ;; (md5 global) gets them just so that CREF will report any that go ;; missing. (export (md5 global) + md5-bytevector md5-file md5-string)) diff --git a/src/mhash/mhash.pkg b/src/mhash/mhash.pkg index 84062c1f9..e52e84b11 100644 --- a/src/mhash/mhash.pkg +++ b/src/mhash/mhash.pkg @@ -35,6 +35,7 @@ USA. ;; go missing. (export (mhash global) make-mhash-keygen-type + mhash-bytevector mhash-context? mhash-end mhash-file diff --git a/src/runtime/crypto.scm b/src/runtime/crypto.scm index 82d73e4ef..0d2025a95 100644 --- a/src/runtime/crypto.scm +++ b/src/runtime/crypto.scm @@ -76,7 +76,9 @@ USA. mcrypt-block-algorithm? mcrypt-block-mode? mcrypt-context? + mcrypt-decrypt! mcrypt-encrypt + mcrypt-encrypt! mcrypt-encrypt-port mcrypt-end mcrypt-init @@ -89,14 +91,13 @@ USA. mcrypt-supported-key-sizes ;; md5 + md5-bytevector md5-file md5-string - md5-substring - md5-sum->hexadecimal - md5-sum->number ;; mhash make-mhash-keygen-type + mhash-bytevector mhash-context? mhash-end mhash-file @@ -114,9 +115,6 @@ USA. mhash-keygen-uses-hash-algorithm mhash-keygen-uses-salt? mhash-string - mhash-substring - mhash-sum->hexadecimal - mhash-sum->number mhash-type-names mhash-update ))))