Update crypto interface per upstream.

diff --git a/src/mcrypt/mcrypt.pkg b/src/mcrypt/mcrypt.pkg
index 83352ec7f1e2eb212f540173d8a9601ecfb6c586..13b85646046d8aff7a33290250a9e85cc031aa4d 100644 (file)
--- 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 b891fea0878dccc63487f050708862c5b540b054..ef23d3daef54c1eb343494f8833889d836149828 100644 (file)
--- 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 84062c1f9044a985c7325b63567a250af60fa19a..e52e84b11c305f8664a325937b000ed1ec0507d9 100644 (file)
--- 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 82d73e4efba0cfe2aaaa09dec4382ece4b746b1c..0d2025a955a9787e78c9ee17cda61230137b390a 100644 (file)
--- 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
        ))))