Up
module
Parsing_aux
:
sig
#
exception
Warning
of
Location
.
t
* string
#
val
warnings : exn list
Pervasives
.
ref
option
Std
.fluid
#
val
raise_warning : exn
->
unit
#
val
prerr_warning :
Location
.
t
->
Warnings
.
t
->
unit
#
val
catch_warnings : exn list
Pervasives
.
ref
->
(unit
->
'a)
->
'a
#
val
location_union :
Location
.
t
->
Location
.
t
->
Location
.
t
#
val
compare_pos :
Std
.Lexing.position
->
Location
.
t
->
int
#
val
with_bag_of_holding :
Location
.
t
->
exn
->
Location
.
t
#
val
bag_of_holding :
Location
.
t
->
exn
#
val
pack_fake_location : fake:
Location
.
t
->
Location
.
t
->
Location
.
t
#
val
unpack_fake_location :
Location
.
t
->
Location
.
t
end