Camlp4.Struct.Loc.of

let of_lexbuf lb =

          let start = Lexing.lexeme_start_p lb

          and stop = Lexing.lexeme_end_p lb in

          let loc =

            {

              file_name =

                better_file_name start.Lexing.pos_fname stop.Lexing.pos_fname;

              start = pos_of_lexing_position start;

              stop = pos_of_lexing_position stop;

              ghost = false;

            }

          in loc