let read fname = C_parserhelper.reset fname; let chan = open_in fname in let lexbuf = Lexing.from_channel chan in let t = C_parser.translation_unit C_lexer.token lexbuf in close_in chan; t