diff options
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/md5sum.ml | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tools/md5sum.ml b/tools/md5sum.ml new file mode 100644 index 000000000..d6cac9377 --- /dev/null +++ b/tools/md5sum.ml @@ -0,0 +1,10 @@ +let () = + match Sys.argv with + | [|_; file|] -> + let md5 = Digest.to_hex (Digest.file file) in + print_endline (md5 ^ " " ^ file) + | _ -> + prerr_endline "Error: This program needs exactly one parameter."; + prerr_endline "Usage: ocaml md5sum.ml [FILE]"; + prerr_endline "Print MD5 (128-bit) checksum."; + exit 1 |