propagating the arithmetics library, partial commit

[helm.git] / matita / matita / contribs / lambdadelta / bin / recomm / recommOutput.ml

diff --git a/matita/matita/contribs/lambdadelta/bin/recomm/recommOutput.ml b/matita/matita/contribs/lambdadelta/bin/recomm/recommOutput.ml
index e0f3f1d70397327d87a3dd60e1181a238e44cdb7..c48ba9304804a8adc1802271ee09b12eea018723 100644 (file)
--- a/matita/matita/contribs/lambdadelta/bin/recomm/recommOutput.ml
+++ b/matita/matita/contribs/lambdadelta/bin/recomm/recommOutput.ml
@@ -1,3 +1,4 @@
+module EL = RecommLib
 module ET = RecommTypes
 
 let width = ref 78
@@ -13,8 +14,8 @@ let string_length_utf8 s =
   in
   l - aux 0 0
 
-let complete s =
-  let l = !width - string_length_utf8 s - 6 in
+let complete s n =
+  let l = !width - string_length_utf8 s - 5 - n in
   if l < 0 then begin
     Printf.eprintf "overfull: %S\n" s;
     ""
@@ -23,21 +24,24 @@ let complete s =
   end
 
 let out_src och = function
-  | ET.Line s             ->
+  | ET.Line s                ->
     Printf.fprintf och "%s" s
-  | ET.Text s             ->
+  | ET.Text s                ->
     Printf.fprintf och "%s" s
-  | ET.Mark s             ->
+  | ET.Mark s                ->
     Printf.fprintf och "(* *%s*)" s
-  | ET.Key (s1, s2)       ->
-    Printf.fprintf och "(* %s%s*)" s1 s2
-  | ET.Title ss           ->
+  | ET.Key (s1, s2)          ->
+    let s3 =
+      if s1 = "NOTE" then complete (s1^s2) 0 else ""
+    in
+    Printf.fprintf och "(* %s%s%s*)" s1 s2 s3
+  | ET.Title ss              ->
     let s = String.concat " " ss in
-    Printf.fprintf och "(* %s %s*)" s (complete s)
-  | ET.Slice ss           ->
+    Printf.fprintf och "(* %s %s*)" s (complete s 1)
+  | ET.Slice ss              ->
     let s = String.capitalize_ascii (String.concat " " ss) in
-    Printf.fprintf och "(* %s %s*)" s (complete s)
-  | ET.Other (s1, s2, s3) ->
+    Printf.fprintf och "(* %s %s*)" s (complete s 1)
+  | ET.Other (_, s1, s2, s3) ->
     Printf.fprintf och "%s%s%s" s1 s2 s3
 
 let write_srcs file srcs =
@@ -52,3 +56,33 @@ let write_srcs file srcs =
   let och = open_out target in
   List.iter (out_src och) srcs;
   close_out och
+
+let write_subst och n s =
+  Printf.fprintf och "%s %s\n" s n
+
+let rec write_fst och = function
+  | []                                                    -> ()
+  | ET.Other (2, _, s, _) :: ET.Line _ :: ET.Text t :: tl ->
+    write_snd och tl s (EL.split_on_char ' ' t)
+  | ET.Other (2, _, s, _) :: tl                           ->
+    Printf.eprintf "skipping fst: %S\n" s;
+    write_fst och tl
+  | _ :: tl                                  -> write_fst och tl
+
+and write_snd och tl s = function
+  | "definition" :: n :: _
+  | "fact" :: n :: _
+  | "lemma" :: n :: _
+  | "inductive" :: n :: _
+  | "theorem" :: n :: _     ->
+    let ss = EL.split_on_char ' ' s in
+    List.iter (write_subst och n) (List.tl ss);
+    write_fst och tl
+  | t :: _       ->
+    Printf.eprintf "skipping snd: %S %S\n" s t;
+    write_fst och tl
+  | []             ->
+    Printf.eprintf "skipping snd: %S\n" s;
+    write_fst och tl
+
+let write_substs = write_fst