- factorized DisambiguateChoices module

[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 a2b2251438cf91c18c1823a5c9af7d2e19b22bb0..0f13d116a34d4f48ffc3563f6ae816f0a643a3f2 100644 (file)
--- a/helm/ocaml/cic_disambiguation/cicTextualParser2.mli
+++ b/helm/ocaml/cic_disambiguation/cicTextualParser2.mli
@@ -31,11 +31,8 @@ val parse_term: char Stream.t -> CicTextualParser2Ast.term
 
 (** {2 Grammar extensions} *)
 
-  (** recursive rule *)
-val term: CicTextualParser2Ast.term Grammar.Entry.e
-
-  (** top level rule *)
-val term0: CicTextualParser2Ast.term Grammar.Entry.e
+val term: CicTextualParser2Ast.term Grammar.Entry.e (** recursive rule *)
+val term0: CicTextualParser2Ast.term Grammar.Entry.e (** top level rule *)
 
 val return_term:
   CicTextualParser2Ast.location -> CicTextualParser2Ast.term ->
@@ -44,3 +41,16 @@ val return_term:
   (** raise a parse error *)
 val fail: CicTextualParser2Ast.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
+