sig
  type t =
    Pre_sexp.Parse_pos.t = private {
    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 -> Sexp_intf.S.Parse_pos.t
  val with_buf_pos :
    Sexp_intf.S.Parse_pos.t -> int -> Sexp_intf.S.Parse_pos.t
end