version 0.7.1

[helm.git] / helm / ocaml / cic_notation / test_parser.ml

diff --git a/helm/ocaml/cic_notation/test_parser.ml b/helm/ocaml/cic_notation/test_parser.ml
index 5b42822c22b218d2495b4f32fe9d038f8a113ff3..1585f43e28df6f1da4f06bee1e2be4bb2dcd943f 100644 (file)
--- a/helm/ocaml/cic_notation/test_parser.ml
+++ b/helm/ocaml/cic_notation/test_parser.ml
@@ -26,8 +26,23 @@
 open Printf
 
 let _ =
-  Helm_registry.load_from "test_parser.conf.xml";
-  Http_getter.init ()
+  Helm_registry.load_from "test_parser.conf.xml"
+(*   Http_getter.init () *)
+
+let xml_stream_of_markup =
+  let rec print_box (t: CicNotationPres.boxml_markup) =
+    Box.box2xml print_mpres t
+  and print_mpres (t: CicNotationPres.mathml_markup) =
+    Mpresentation.print_mpres print_box t
+  in
+  print_mpres
+
+let dump_xml t id_to_uri fname =
+  print_endline (sprintf "dumping MathML to %s ..." fname);
+  flush stdout;
+  let oc = open_out fname in
+  Xml.pp_to_outchan (CicNotationPres.render_to_boxml id_to_uri t) oc;
+  close_out oc
 
 let _ =
   let module P = CicNotationPt in
@@ -35,40 +50,6 @@ let _ =
   let arg_spec = [ "-level", Arg.Set_int level, "set the notation level" ] in
   let usage = "test_parser -level { 1 | 2 | 3 }" in
   Arg.parse arg_spec (fun _ -> raise (Arg.Bad usage)) usage;
-  if !level = 2 then begin
-    let id =
-      CicNotationParser.extend ~precedence:50 ~associativity:Gramext.LeftA
-        (P.Layout (P.Box (P.H,
-          [
-            P.Magic
-              (P.List1
-                (P.Layout (P.Box (P.H,
-                  [ P.Literal (`Symbol "|");
-                    P.Variable (P.TermVar "ugo");
-                    P.Magic (P.Opt (P.Layout (P.Box (P.H,
-                      [ P.Literal (`Symbol ",");
-                        P.Variable (P.TermVar "pino")]))));
-                    P.Literal (`Symbol "|");
-                  ])),
-                  Some (`Symbol ";")));
-(*             P.Literal (`Symbol "+");
-            P.Magic (P.Opt (P.Layout (P.Box (P.H,
-              [
-                P.Variable (P.TermVar "ugo");
-                P.Literal (`Symbol "+");
-                P.Variable (P.TermVar "pino")
-              ])))); *)
-(*           P.Variable (P.TermVar "a");
-            P.Literal (`Symbol "+");
-            P.Variable (P.TermVar "b"); *)
-          ])))
-        (fun env _ ->
-          prerr_endline "reducing rule" ;
-          prerr_endline (sprintf "env = [ %s ]" (CicNotationPp.pp_env env));
-          P.Sort `Prop)
-    in
-    CicNotationParser.print_l2_pattern ()
-  end;
   let ic = stdin in
   try
     printf "Parsing notation level %d\n" !level; flush stdout;
@@ -83,7 +64,9 @@ let _ =
                 prerr_endline "====";
                 print_endline (CicNotationPp.pp_term t); flush stdout;
                 let t' = CicNotationRew.pp_ast t in
-                print_endline (CicNotationPp.pp_term t'); flush stdout
+                print_endline (CicNotationPp.pp_term t'); flush stdout;
+                let tbl = Hashtbl.create 0 in
+                dump_xml t' tbl "out.xml"
             | P.Notation (l1, associativity, precedence, l2) ->
                 print_endline "Extending parser ..."; flush stdout;
                 let time1 = Unix.gettimeofday () in
@@ -103,14 +86,13 @@ let _ =
             | P.Interpretation (l2, l3) ->
                 print_endline "Adding interpretation ..."; flush stdout;
                 let time1 = Unix.gettimeofday () in
-(*                 ignore (CicNotationRew.add_interpretation l2 l3); *)
+                ignore (CicNotationRew.add_interpretation l2 l3);
                 let time2 = Unix.gettimeofday () in
                 printf "done (patterns compilation took %f seconds)\n"
                   (time2 -. time1);
                 flush stdout
             | P.Render uri ->
-                assert false
-(*                 let obj, _ = CicEnvironment.get_obj CicUniv.empty_ugraph uri in
+                let obj, _ = CicEnvironment.get_obj CicUniv.empty_ugraph uri in
                 let annobj, _, _, id_to_sort, _, _, _ =
                   Cic2acic.acic_object_of_cic_object obj
                 in
@@ -133,7 +115,8 @@ let _ =
                 let t' = CicNotationRew.pp_ast t in
                 let time4 = Unix.gettimeofday () in
                 printf "pretty printing took %f seconds\n" (time4 -. time3);
-                print_endline (CicNotationPp.pp_term t'); flush stdout *)
+                dump_xml t' id_to_uri "out.xml";
+                print_endline (CicNotationPp.pp_term t'); flush stdout
                 )
 (*                 CicNotationParser.print_l2_pattern ()) *)
         | 1 -> ignore (CicNotationParser.parse_syntax_pattern istream)