let on_newline lexbuf =
lexbuf.lex_curr_p <-
{
pos_fname = lexbuf.lex_curr_p.pos_fname;
pos_lnum = lexbuf.lex_curr_p.pos_lnum + 1;
pos_bol = lexbuf.lex_curr_p.pos_cnum;
pos_cnum = lexbuf.lex_curr_p.pos_cnum
}