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