- moved command as sub-entries of tactical grammars (as per tactics)

[helm.git] / helm / ocaml / cic_disambiguation / cicTextualParser2.mli

diff --git a/helm/ocaml/cic_disambiguation/cicTextualParser2.mli b/helm/ocaml/cic_disambiguation/cicTextualParser2.mli
index 0d600cc20ef8eb93db280260904e6ae394cc6d61..351d929e27e75fafb8404c9e0f62842fcb09a42b 100644 (file)
--- a/helm/ocaml/cic_disambiguation/cicTextualParser2.mli
+++ b/helm/ocaml/cic_disambiguation/cicTextualParser2.mli
@@ -27,14 +27,30 @@ exception Parse_error of string
 
 (** {2 Parsing functions} *)
 
-val parse_term: char Stream.t -> CicTextualParser2Ast.term
+val parse_term:     char Stream.t -> DisambiguateTypes.term
+val parse_tactic:   char Stream.t -> DisambiguateTypes.tactic
+val parse_tactical: char Stream.t -> DisambiguateTypes.tactical
 
 (** {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