X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_disambiguation%2FcicTextualParser2.mli;h=c95485e52661b20b1028c53d8eddf42cb672c967;hb=79186eb29bc877d9092db853990e752f5cab2eed;hp=0f13d116a34d4f48ffc3563f6ae816f0a643a3f2;hpb=6459acbd4bb69475cfaa0b37a9771ced94193667;p=helm.git

diff --git a/helm/ocaml/cic_disambiguation/cicTextualParser2.mli b/helm/ocaml/cic_disambiguation/cicTextualParser2.mli
index 0f13d116a..c95485e52 100644
--- a/helm/ocaml/cic_disambiguation/cicTextualParser2.mli
+++ b/helm/ocaml/cic_disambiguation/cicTextualParser2.mli
@@ -23,23 +23,25 @@
  * 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 -> CicTextualParser2Ast.term
+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} *)
 
-val term: CicTextualParser2Ast.term Grammar.Entry.e (** recursive rule *)
-val term0: CicTextualParser2Ast.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:
-  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
 
 (**/**)