-let file_content =
- let buffer = Buffer.create 128 in
- begin fun f ->
- Buffer.clear buffer;
- try
- let in_f = open_in f in
- while true do
- let line = input_line in_f in
- Buffer.add_string buffer line;
- Buffer.add_char buffer ' ';
- done;
- failwith "finished"
- with
- e -> let s = Buffer.contents buffer in s
- end
+let read_lines f =
+ let lines = ref [] in
+ let in_f = open_in f in
+ try
+ while true do
+ let line = input_line in_f in
+ if String.length line != 0 then lines := line :: !lines
+ done;
+ []
+ with
+ End_of_file -> close_in in_f; List.rev !lines
+;;