* http://helm.cs.unibo.it/
*)
-exception Parse_error of string
+exception Parse_error of Token.flocation * string
(** {2 Parsing functions} *)
-val parse_term: char Stream.t -> CicTextualParser2Ast.term
+val parse_term: char Stream.t -> DisambiguateTypes.term
+val parse_statement:
+ char Stream.t -> (CicAst.term, TacticAst.obj,string) TacticAst.statement
+val parse_statements:
+ char Stream.t -> (CicAst.term, TacticAst.obj, string) TacticAst.statement list
(** {2 Grammar extensions} *)
-val term: CicTextualParser2Ast.term Grammar.Entry.e
+val term: CicAst.term Grammar.Entry.e (** recursive rule *)
+val term0: CicAst.term Grammar.Entry.e (** top level rule *)
-val return_term: CicTextualParser2Ast.location -> CicTextualParser2Ast.term -> CicTextualParser2Ast.term
+val return_term: CicAst.location -> CicAst.term -> CicAst.term
(** raise a parse error *)
-val fail: CicTextualParser2Ast.location -> string -> 'a
+val fail: CicAst.location -> string -> 'a
+
+(**/**)
+
+(** {2 Interface for gTopLevel} *)
+
+module EnvironmentP3:
+ (* environment parser/pretty-printer *)
+ sig
+ type t = DisambiguateTypes.environment
+ val empty : string
+ val to_string : t -> string
+ val of_string : string -> t
+ end