X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_disambiguation%2FcicTextualParser2.mli;h=e867d3435c500cfc620bda538c88f0bc8a44b016;hb=8c058315b08e90f975895c2354941e3cef69051e;hp=a2b2251438cf91c18c1823a5c9af7d2e19b22bb0;hpb=f71aafaaa510ad5e484560c5af47f4c4f6015219;p=helm.git

diff --git a/helm/ocaml/cic_disambiguation/cicTextualParser2.mli b/helm/ocaml/cic_disambiguation/cicTextualParser2.mli
index a2b225143..e867d3435 100644
--- a/helm/ocaml/cic_disambiguation/cicTextualParser2.mli
+++ b/helm/ocaml/cic_disambiguation/cicTextualParser2.mli
@@ -25,22 +25,41 @@
 
 exception Parse_error of string
 
+(** {3 type shortands} *)
+
+type tactic = (CicAst.term, string) TacticAst.tactic
+type tactical = (CicAst.term, string) TacticAst.tactic TacticAst.tactical
+type command = CicAst.term CommandAst.command
+type script = CicAst.term CommandAst.Script.script
+
 (** {2 Parsing functions} *)
 
-val parse_term: char Stream.t -> CicTextualParser2Ast.term
+val parse_term:     char Stream.t -> CicAst.term
+val parse_tactic:   char Stream.t -> tactic
+val parse_tactical: char Stream.t -> tactical
+val parse_command:  char Stream.t -> command
+val parse_script:   char Stream.t -> script
 
 (** {2 Grammar extensions} *)
 
-  (** recursive rule *)
-val term: CicTextualParser2Ast.term Grammar.Entry.e
-
-  (** top level rule *)
-val term0: 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