19 lines
393 B
OCaml
19 lines
393 B
OCaml
|
let read_file f =
|
||
|
|
let ic = open_in f in
|
||
|
|
let n = in_channel_length ic in
|
||
|
|
let s = Bytes.create n in
|
||
|
|
really_input ic s 0 n;
|
||
|
|
close_in ic;
|
||
|
|
Bytes.to_string s
|
||
|
|
|
||
|
|
let read_lines filename =
|
||
|
|
let lines = ref [] in
|
||
|
|
let chan = open_in filename in
|
||
|
|
try
|
||
|
|
while true; do
|
||
|
|
lines := input_line chan :: !lines
|
||
|
|
done; !lines
|
||
|
|
with End_of_file ->
|
||
|
|
close_in chan;
|
||
|
|
List.rev !lines
|