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

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

Author: glondu-guest
Date: Sat Mar 14 00:14:17 2009
New Revision: 6333

URL: http://svn.debian.org/wsvn/?sc=1&rev=6333
Log:
Take all packages maintained by d-o-m

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=6333&op=diff
==============================================================================
--- trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll (original)
+++ trunk/tools/ocaml_transition_monitor/ocaml_transition_monitor.mll Sat Mar 14 00:14:17 2009
@@ -16,6 +16,8 @@
   let suite = "unstable"
   let section = "main"
 
+  let dom_mail = "Debian OCaml Maintainers <debian-ocaml-maint at lists.debian.org>"
+
   (** Basename of all files handled by this script *)
   let basename = "ocaml_transition_monitor"
 
@@ -32,6 +34,7 @@
 
   type source_package = {
     sname: string;
+    smaint: string;
     sdeps: string list;
     sbins : string list;
     sversion: string;
@@ -121,12 +124,17 @@
 rule entry accu = parse
   | ([^':' '\n']+ as header) ":"
       {
-        if List.mem header headers_to_keep then
-          (entry ((header, values [] lexbuf)::accu) lexbuf)
-        else
-          (skip lexbuf; entry accu lexbuf)
+        match header with
+          | "Maintainer" ->
+              entry ((header, [maintainer lexbuf])::accu) lexbuf
+          | s when List.mem s headers_to_keep ->
+              entry ((header, values [] lexbuf)::accu) lexbuf
+          | _ ->
+              (skip lexbuf; entry accu lexbuf)
       }
   | eof | '\n' { if accu = [] then raise End_of_file else accu }
+and maintainer = parse
+  | ' '+ ([^'\n']+ as email) '\n' { email }
 and values accu = parse
   | name as name { values (name::accu) lexbuf }
   | [' ' ',' '|']+ { values accu lexbuf }
@@ -158,8 +166,10 @@
     let rec aux () =
       let entry = entry [] lexbuf in
       let name = get_one (assoc "Package" entry) in
+      let maint = get_one (assoc "Maintainer" entry) in
       let entry = {
         sname = name;
+        smaint = maint;
         sdeps = (assoc ~default:[] "Build-Depends" entry) @ (assoc ~default:[] "Build-Depends-Indep" entry);
         sbins = assoc "Binary" entry;
         sversion = get_one (assoc "Version" entry);
@@ -256,7 +266,7 @@
           if Str.string_match build_ocaml_regexp x 0 then
             true
           else aux xs
-    in aux x.sdeps
+    in x.smaint = dom_mail || aux x.sdeps
 
   let get_binaries arch =
     let file = "Packages."^arch in
@@ -270,9 +280,7 @@
     progress "\n%!";
     let sources = M.fold
       (fun k pkg accu ->
-         if build_depends_on_ocaml pkg
-           || pkg.sname = "ocaml"
-           || pkg.sname = "dh-ocaml" then M.add k pkg accu else accu)
+         if build_depends_on_ocaml pkg then M.add k pkg accu else accu)
       sources M.empty in
     sources