umgeher/erlware_commons
0
Fork 0
Code Issues Pull requests Releases Activity

Factorized digest-to-hex transform; used in three functions

Browse source
This commit is contained in:
Ariel Otilibili 2023-12-20 23:58:44 +01:00
parent bbdbbf313f
commit 6781f1ba6a
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/ec_file.erl
View file

@ -143,20 +143,23 @@ try_write_group(To, #file_info{gid=OwnerId}) ->
%% named after the UNIX utility. %% named after the UNIX utility.
-spec md5sum(string() | binary()) -> string(). -spec md5sum(string() | binary()) -> string().
md5sum(Value) -> md5sum(Value) ->
hex(binary_to_list(erlang:md5(Value))). turn_digest_into_hex(erlang:md5(Value)).
%% @doc return the SHA-1 digest of a string or a binary, %% @doc return the SHA-1 digest of a string or a binary,
%% named after the UNIX utility. %% named after the UNIX utility.
-ifdef(deprecated_crypto). -ifdef(deprecated_crypto).
-spec sha1sum(string() | binary()) -> string(). -spec sha1sum(string() | binary()) -> string().
sha1sum(Value) -> sha1sum(Value) ->
hex(binary_to_list(crypto:sha(Value))). turn_digest_into_hex(crypto:sha(Value)).
-else. -else.
-spec sha1sum(string() | binary()) -> string(). -spec sha1sum(string() | binary()) -> string().
sha1sum(Value) -> sha1sum(Value) ->
hex(binary_to_list(crypto:hash(sha, Value))). turn_digest_into_hex(crypto:hash(sha, Value)).
-endif. -endif.
turn_digest_into_hex(Digest) ->
hex(binary_to_list(Digest)).
%% @doc delete a file. Use the recursive option for directories. %% @doc delete a file. Use the recursive option for directories.
%% <pre> %% <pre>
%% Example: remove("./tmp_dir", [recursive]). %% Example: remove("./tmp_dir", [recursive]).