sig
type t = {
mutable text_line : int;
mutable text_char : int;
mutable global_offset : int;
mutable buf_pos : int;
}
val create :
?text_line:int ->
?text_char:int ->
?buf_pos:int -> ?global_offset:int -> unit -> Pre_sexp.Parse_pos.t
val with_buf_pos : Pre_sexp.Parse_pos.t -> int -> Pre_sexp.Parse_pos.t
end