let fp = open_in filename in
let lexbuf = Lexing.from_channel fp in
lexbuf.lex_curr_p <- { lexbuf.lex_curr_p with pos_fname = filename };
let fp = open_in filename in
let lexbuf = Lexing.from_channel fp in
lexbuf.lex_curr_p <- { lexbuf.lex_curr_p with pos_fname = filename };
let lexbuf = Lexing.from_string str in
lexbuf.lex_curr_p <- { lexbuf.lex_curr_p with pos_fname = "<command line>" };
parse_expr lexbuf
let lexbuf = Lexing.from_string str in
lexbuf.lex_curr_p <- { lexbuf.lex_curr_p with pos_fname = "<command line>" };
parse_expr lexbuf