Comparison

libs/hashes: Support for luaossl (lua-luaossl on Debian)

comparison

equal deleted inserted replaced

-:33d566513eb0
+:5e2978489c95
 local _M = setmetatable({}, { __index = not_available });
 local function with(mod, f)
 	local ok, pkg = pcall(require, mod);
 	if ok then f(pkg); end
+end
+local function to_hex(data)
+	return (data:gsub(".", function (c)
+		return ("%02x"):format(c:byte());
+	end));
 end
 with("util.sha1", function (sha1)
 	_M.sha1 = sha1.sha1;
 end);
 			return (sha1.binary(data));
 		end
 	end;
 end);
+with("openssl.digest", function (digest)
+	local function make_digest_func(digest_name)
+		return function (data, hex)
+			local d = digest.new(digest_name):final(data);
+			if hex then
+				return to_hex(d);
+			end
+			return d;
+		end;
+	end
+	_M.sha1 = make_digest_func("sha1");
+end);
 return _M;