Class mathViewer got rid of. The circular dependency between

[helm.git] / matita / components / grafite_parser / grafiteParser.ml

diff --git a/matita/components/grafite_parser/grafiteParser.ml b/matita/components/grafite_parser/grafiteParser.ml
index 8c2cbf9093554893d28cb6f9601854755e28aceb..9b5ecfe7c907cb23e94d618eededc5b8228c9071 100644 (file)
--- a/matita/components/grafite_parser/grafiteParser.ml
+++ b/matita/components/grafite_parser/grafiteParser.ml
@@ -42,6 +42,12 @@ let exc_located_wrapper f =
       raise (HExtlib.Localized 
         (floc,CicNotationParser.Parse_error (Printexc.to_string exn)))
 
+type parsable = Grammar.parsable
+
+let parsable_statement status buf =
+ let grammar = CicNotationParser.level2_ast_grammar status in
+  Grammar.parsable grammar (Obj.magic buf)
+
 let parse_statement grafite_parser parsable =
   exc_located_wrapper
     (fun () -> (Grammar.Entry.parse_parsable (Obj.magic grafite_parser) parsable))