Use of standard OCaml syntax

[helm.git] / matita / components / content_pres / cicNotationParser.mli

diff --git a/matita/components/content_pres/cicNotationParser.mli b/matita/components/content_pres/cicNotationParser.mli
index b70eb141f7ad2a3b3da7bab8bb276cd936748325..5d2014b020cef683c800c759ae218d6c8332c5a6 100644 (file)
--- a/matita/components/content_pres/cicNotationParser.mli
+++ b/matita/components/content_pres/cicNotationParser.mli
@@ -33,15 +33,21 @@ class type g_status =
   method notation_parser_db: db
  end
 
-class status:
+class virtual status: keywords:string list ->
  object('self)
+  inherit NCic.status
   inherit g_status
   method set_notation_parser_db: db -> 'self
-  method set_notation_parser_status: 'status. #g_status as 'status -> 'self
+  method set_notation_parser_status: 'status. (#g_status as 'status) -> 'self
  end
 
 type checked_l1_pattern = private CL1P of NotationPt.term * int
 
+val refresh_uri_in_checked_l1_pattern:
+ refresh_uri_in_term:(NCic.term -> NCic.term) ->
+ refresh_uri_in_reference:(NReference.reference -> NReference.reference) ->
+  checked_l1_pattern -> checked_l1_pattern 
+
 (** {2 Parsing functions} *)
 
   (** concrete syntax pattern: notation level 1, the 
@@ -58,7 +64,7 @@ val check_l1_pattern: (* level1_pattern, pponly, precedence, assoc *)
  NotationPt.term -> bool ->  int -> Gramext.g_assoc -> checked_l1_pattern
 
 val extend:
-  #status as 'status -> 
+  (#status as 'status) -> 
   checked_l1_pattern ->
   (NotationEnv.t -> NotationPt.location -> NotationPt.term) ->
     'status
@@ -73,12 +79,13 @@ val term : #status -> NotationPt.term Grammar.Entry.e
 val let_defs : #status ->
   (NotationPt.term NotationPt.capture_variable list * NotationPt.term NotationPt.capture_variable * NotationPt.term * int) list
     Grammar.Entry.e
+val let_codefs : #status ->
+  (NotationPt.term NotationPt.capture_variable list * NotationPt.term NotationPt.capture_variable * NotationPt.term * int) list
+    Grammar.Entry.e
 
 val protected_binder_vars : #status ->
   (NotationPt.term list * NotationPt.term option) Grammar.Entry.e
 
-val parse_term: #status -> Ulexing.lexbuf -> NotationPt.term
-
 (** {2 Debugging} *)
 
   (** print "level2_pattern" entry on stdout, flushing afterwards *)