X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Focaml%2Fcic_disambiguation%2FcicTextualParser2.mli;h=f7510a9bd3b7f88e1f08858e384b07b8c80043c8;hb=0ba7fd95ab7e707e3d4242479d957badcc6009c1;hp=aec7c8f1d7580a7f62fada503f06d7b88bf39251;hpb=7aee283a4fee4fca3fc1d53619c366f793f1e694;p=helm.git

diff --git a/helm/ocaml/cic_disambiguation/cicTextualParser2.mli b/helm/ocaml/cic_disambiguation/cicTextualParser2.mli
index aec7c8f1d..f7510a9bd 100644
--- a/helm/ocaml/cic_disambiguation/cicTextualParser2.mli
+++ b/helm/ocaml/cic_disambiguation/cicTextualParser2.mli
@@ -23,16 +23,17 @@
  * 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 -> CicAst.term
+val parse_term:       char Stream.t -> DisambiguateTypes.term
+val parse_statement:  char Stream.t -> (CicAst.term, string) TacticAst.statement
 
 (** {2 Grammar extensions} *)
 
-val term: CicAst.term Grammar.Entry.e (** recursive rule *)
-val term0: CicAst.term Grammar.Entry.e (** top level rule *)
+val term: CicAst.term Grammar.Entry.e   (** recursive rule *)
+val term0: CicAst.term Grammar.Entry.e  (** top level rule *)
 
 val return_term: CicAst.location -> CicAst.term -> CicAst.term