let from_channel ic = let f s n = try IO.input ic s 0 n with IO.No_more_input -> 0 in { lexbuf = Lexing.from_function f ; fname = "from-input-channel" }