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
32 "file: %S, between (line,char) %d,%d and %d,%d"
33 file start_line start_char end_line end_char