       (let [data' (byte-array width)]
         (System/arraycopy data 0 data' 0 (count data))
         data'))))
-
-
-(defn- lookup-algo
-  "Look up algorithm details by code number."
-  [code]
-  (some #(when (= code (:code (val %)))
-           (assoc (val %) :name (key %)))
-        digest-algorithms))
-
-
-(defn- code->name
-  "Return a keyword corresponding to the given algorithm code."
-  [code]
-  (if (app-code? code)
-    (keyword (str "app-" code))
-    (:name (lookup-algo code))))
 
 
 

  "True if the given code number is assigned to the application-specfic range."
  [code]
  (< 0 code 0x10))




  (:import
    java.security.MessageDigest))


;; ## Hash Function Algorithms

(def ^:const digest-algorithms
  "Map of content hashing algorithms to system names and byte encodings."
