let parsing_buffer ?filename () = {unfinished_line = None; lines = Queue.create (); parsed_lines = 0; filename}