version 0.7.1

[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 e867d3435c500cfc620bda538c88f0bc8a44b016..c95485e52661b20b1028c53d8eddf42cb672c967 100644 (file)
--- a/helm/ocaml/cic_disambiguation/cicTextualParser2.mli
+++ b/helm/ocaml/cic_disambiguation/cicTextualParser2.mli
@@ -23,22 +23,15 @@
  * http://helm.cs.unibo.it/
  *)
 
-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
+exception Parse_error of Token.flocation * string
 
 (** {2 Parsing functions} *)
 
-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
+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} *)