[Pkg-ocaml-maint-commits] r1010 - tools/show-ocaml-depends/src

[Samuel Mimram]

Author: smimram-guest
Date: 2005-03-17 18:33:01 +0100 (Thu, 17 Mar 2005)
New Revision: 1010

Modified:
   tools/show-ocaml-depends/src/scd.ml
Log:
Small cleanups.

Modified: tools/show-ocaml-depends/src/scd.ml
===================================================================
--- tools/show-ocaml-depends/src/scd.ml	2005-03-17 17:29:37 UTC (rev 1009)
+++ tools/show-ocaml-depends/src/scd.ml	2005-03-17 17:33:01 UTC (rev 1010)
@@ -1,3 +1,11 @@
+(*
+  Show the list in which order ocaml packages should be uploaded.
+
+  You should call get-controls first to get the list of controls.
+
+  @author Samuel Mimram
+*)
+
 exception Split_deps_error
 
 let verbose = ref false
@@ -117,10 +125,6 @@
 	       (fun p ->
 		  List.exists
 		    (fun dep ->
-		       (*if pkg.name = "ocaml-mad" && dep = "ocaml-nox-3.08" then
-			 (
-			   show_list p.pkgs
-			 ); *)
 		       List.mem dep p.pkgs
 		    )
 		    pkg.build_deps
@@ -134,6 +138,5 @@
 	       false
 	     )
 	) !pkgs;
-      (* Printf.printf "list len: %d\n%!" (List.length !pkgs); *)
       Printf.printf "==========\n%!"
     done