File tree Expand file tree Collapse file tree 2 files changed +6
-5
lines changed Expand file tree Collapse file tree 2 files changed +6
-5
lines changed Original file line number Diff line number Diff line change @@ -77,8 +77,8 @@ checker/%.cmx: checker/%.ml
77
77
78
78
md5chk:
79
79
$(SHOW)'MD5SUM cic.mli'
80
- $(HIDE)if grep -q "^MD5 `$( OCAML) tools/md5sum.ml checker/cic.mli` $$" checker/values.ml; \
81
- then true; else echo "Error: outdated checker/values.ml"; false; fi
80
+ $(HIDE)if grep -q "^MD5 $$($( OCAML) tools/md5sum.ml checker/cic.mli) $$" checker/values.ml; \
81
+ then true; else echo "Error: outdated checker/values.ml" >&2 ; false; fi
82
82
83
83
.PHONY: md5chk
84
84
Original file line number Diff line number Diff line change @@ -7,8 +7,9 @@ let get_content file =
7
7
git checkout has included return characters.
8
8
See: https://github.com/coq/coq/pull/6305 *)
9
9
| c -> Buffer. add_char buf c; fill ()
10
+ | exception End_of_file -> close_in ic; Buffer. contents buf
10
11
in
11
- try fill () with End_of_file -> Buffer. contents buf
12
+ fill ()
12
13
13
14
let () =
14
15
match Sys. argv with
@@ -18,6 +19,6 @@ let () =
18
19
print_string (md5 ^ " " ^ file)
19
20
| _ ->
20
21
prerr_endline " Error: This program needs exactly one parameter." ;
21
- prerr_endline " Usage: ocaml md5sum.ml [ FILE] " ;
22
- prerr_endline " Print MD5 (128-bit) checksum." ;
22
+ prerr_endline " Usage: ocaml md5sum.ml < FILE> " ;
23
+ prerr_endline " Print MD5 (128-bit) checksum of the file content modulo \\ r ." ;
23
24
exit 1
You can’t perform that action at this time.
0 commit comments