The unpac monorepo manager self-hosting as a monorepo using unpac
Make ocamltex CRLF-agnostic
+9
-1
+9
-1
tools/ocamltex.ml
+9
-1
tools/ocamltex.ml
···
587
587
| a :: q -> String.concat ~sep:"\n " ((toplevel_prompt^a)::q)
588
588
589
589
let process_file file =
590
-
let ic = try open_in file with _ -> failwith "Cannot read input file" in
590
+
let ic = try open_in_bin file with _ -> failwith "Cannot read input file" in
591
+
let input_line ic =
592
+
let line = input_line ic in
593
+
let last = String.length line - 1 in
594
+
if last >= 0 && line.[last] = '\r' then
595
+
String.sub line 0 last
596
+
else
597
+
line
598
+
in
591
599
let phrase_start = ref 1 and phrase_stop = ref 1 in
592
600
let incr_phrase_start () =
593
601
incr phrase_start;