Source file `lines.ml`

1
2
3
4
5
6
7
8
9
10
11
12
open CFStream

include Biocaml_unix.Lines

let file_mapper inbed outbed ~f =
  In_channel.with_file inbed ~f:(fun ic ->
      Out_channel.with_file outbed ~f:(fun oc ->
          read ic
          |> Stream.concat_map ~f:(fun x -> Stream.of_list (f x))
          |> write oc
        )
    )