Up

module Parse_info

: sig

#

type t = {

# name	: string	;
# col	: int	;
# line	: int	;
# idx	: int	;
# fol	: bool option	;

}

#

val zero : t

#

type lineinfo

#

val make_lineinfo_from_file : string -> lineinfo

#

val make_lineinfo_from_string : string -> lineinfo

#

val make_lineinfo_from_channel : Pervasives.in_channel -> lineinfo * string

#

val t_of_lexbuf : lineinfo -> Lexing.lexbuf -> t

end