module Parse_pos: sig
.. end
type
t = private Pre_sexp.Parse_pos.t
= private {
|
mutable text_line : int ; |
|
mutable text_char : int ; |
|
mutable global_offset : int ; |
|
mutable buf_pos : int ; |
}
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 ()
Returns a parse position with the given parameters.
text_line
: default = 1
text_char
: default = 0
buf_pos
: default = 0
global_offset
: default = 0
val with_buf_pos : t -> int -> t
with_buf_pos t pos
Returns a copy of the parse position t
where
buf_pos
is set to pos
.