type t
= private Pre_sexp.Parse_pos.t
=
{
mutable text_line : int;
(** Line position in parsed text *)
mutable text_char : int;
(** Character position in parsed text *)
mutable global_offset : int;
(** Global/logical offset *)
mutable buf_pos : int;
(** Read position in string buffer *)
}
Position information after complete parse
val create : ?text_line:int ‑> ?text_char:int ‑> ?buf_pos:int ‑> ?global_offset:int ‑> unit ‑> t
create ?text_line ?text_char ?buf_pos ?global_offset ()
1
0
val with_buf_pos : t ‑> int ‑> t
with_buf_pos t pos
t
buf_pos
pos