9 let of_lexing_positions
11 Lexing.({pos_fname=sfile; pos_lnum=sline; pos_bol=sbol; pos_cnum=scnum})
13 Lexing.({pos_fname=efile; pos_lnum=eline; pos_bol=ebol; pos_cnum=ecnum})
15 assert (sfile = efile);
17 ; start_char = scnum - sbol
19 ; end_char = ecnum - ebol