Vendor uuid5

Author: tkf

Project.toml

@@ -4,6 +4,7 @@ version = "0.1.0"
 
 [deps]
 Logging = "56ddb016-857b-54e1-b83d-db4d58db5568"
+SHA = "ea8e919c-243c-51af-8825-aaa63cd721ce"
 UUIDs = "cf7118a7-6976-5b1a-9a39-7adc72f591a4"
 
 [compat]

src/ProgressLogging.jl

@@ -6,9 +6,33 @@ module ProgressLogging
 export @progress, @progressid, @withprogress, @logprogress
 
 using Base.Meta: isexpr
-using UUIDs: UUID, uuid4, uuid5
+using UUIDs: UUID, uuid4
 using Logging: Logging, @logmsg, LogLevel
 
+if VERSION >= v"1.1-"
+    using UUIDs: uuid5
+else
+    import SHA
+    function uuid5(ns::UUID, name::String)
+        nsbytes = zeros(UInt8, 16)
+        nsv = ns.value
+        for idx in Base.OneTo(16)
+            nsbytes[idx] = nsv >> 120
+            nsv = nsv << 8
+        end
+        hash_result = SHA.sha1(append!(nsbytes, convert(Vector{UInt8}, codeunits(unescape_string(name)))))
+        # set version number to 5
+        hash_result[7] = (hash_result[7] & 0x0F) | (0x50)
+        hash_result[9] = (hash_result[9] & 0x3F) | (0x80)
+        v = zero(UInt128)
+        #use only the first 16 bytes of the SHA1 hash
+        for idx in Base.OneTo(16)
+            v = (v << 0x08) | hash_result[idx]
+        end
+        return UUID(v)
+    end
+end
+
 const ProgressLevel = LogLevel(-1)
 
 """