[Pkg-ocaml-maint-commits] r6297 - /trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll

[glondu-guest at users.alioth.debian.org]

Author: glondu-guest
Date: Sun Mar  1 19:14:18 2009
New Revision: 6297

URL: http://svn.debian.org/wsvn/?sc=1&rev=6297
Log:
Add round numbers in round headers

Modified:
    trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll

Modified: trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll
URL: http://svn.debian.org/wsvn/trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll?rev=6297&op=diff
==============================================================================
--- trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll (original)
+++ trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll Sun Mar  1 19:14:18 2009
@@ -107,6 +107,12 @@
       | [] -> ()
       | x::xs -> f i x; aux (i+1) xs
     in aux 0 xs
+
+  let list_rev_mapi f xs =
+    let rec aux i accu = function
+      | [] -> accu
+      | x::xs -> aux (i+1) ((f i x)::accu) xs
+    in aux 0 [] xs
 }
 
 let name = ['A'-'Z' 'a'-'z' '0'-'9' '-' '.' ':' '~' '+']+
@@ -410,13 +416,17 @@
               in td ~a:[a_class [x]] [small [pcdata xx]])
            (M.find pkg sources_status))
 
-      let format_section section =
-        let thead = tr (th [pcdata "source"]) (List.map (fun arch -> th [small [pcdata arch]]) architectures) in
+      let format_section i section =
+        let thead = tr
+          (th [pcdata "source ";
+               small [pcdata (sprintf " (round %d)" i)];
+              ])
+          (List.map (fun arch -> th [small [pcdata arch]]) architectures) in
         thead::(List.map format_package section)
 
       let summary_contents = List.fold_left
         (fun accu section -> section at accu)
-        [] (List.rev_map format_section sections)
+        [] (list_rev_mapi format_section sections)
 
       let summary = match summary_contents with x::xs -> table x xs | _ -> assert false
       let page_title = "Monitoring OCaml transition to "^ocaml_version