[Pkg-ocaml-maint-commits] [SCM] dh-ocaml packaging branch, master, updated. debian/0.5.0-7-g2c80f72

[Sylvain Le Gall]

The following commit has been merged in the master branch:
commit 988f631fc3a7073d69d8b02d7a238de94f01bed7
Author: Sylvain Le Gall <gildor at debian.org>
Date:   Sun Jul 19 17:27:14 2009 +0200

    Add --dump-provides option to ocaml-md5sums.

diff --git a/ocaml-md5sums/ocaml-md5sums b/ocaml-md5sums/ocaml-md5sums
index 955fff7..735447b 100755
--- a/ocaml-md5sums/ocaml-md5sums
+++ b/ocaml-md5sums/ocaml-md5sums
@@ -207,6 +207,27 @@ sub print_dep
   print "$self->{dev} $self->{runtime} $self->{version}\n";
 };
 
+use Digest::MD5 qw/md5_hex/;
+
+sub dump_provides
+{
+  my ($self, $file) = @_;
+  my $hex = md5_hex(join("",keys(%{$self->{"defined"}})));
+  my $sig = hex(substr($hex, 0, 6));
+  my $fact;
+  my @fact_print;
+  for (my $i = 0; $i < 5; $i++)
+  {
+    $fact = $sig % 36;
+    $sig = $sig / 36;
+    push(@fact_print, (chr ($fact + ($fact < 10 ? (ord '0') : ((ord 'a') - 10)))));
+  };
+
+  open(FH, ">", $file) || die "Cannot open file $file";
+  print FH ($self->{dev},"-", at fact_print);
+  close(FH);
+};
+
 1;
 
 package main;
@@ -225,6 +246,7 @@ my $package_version;
 my $dump_info_fn;
 my $load_info_fn;
 my $print_version;
+my $dump_provides;
 my @md5sums_dirs=("/var/lib/ocaml/md5sums");
 
 sub process_not_option
@@ -247,17 +269,18 @@ sub get_objects
 }
 
 GetOptions(
-  "package=s"     => \$package_dev,
-  "runtime=s"     => \$package_runtime,
-  "version=s"     => \$package_version,
-  "dump-info=s"   => \$dump_info_fn,
-  "load-info=s"   => \$load_info_fn,
-  "md5sums-dir=s" => \@md5sums_dirs,
-  "my-version"    => \$print_version,
-  "v+"            => \$verbose,
-  "<>"            => \&process_not_option, 
-  "help|?"        => \$help, 
-  "man"           => \$man) or pod2usage(2);
+  "package=s"       => \$package_dev,
+  "runtime=s"       => \$package_runtime,
+  "version=s"       => \$package_version,
+  "dump-info=s"     => \$dump_info_fn,
+  "load-info=s"     => \$load_info_fn,
+  "dump-provides=s" => \$dump_provides,
+  "md5sums-dir=s"   => \@md5sums_dirs,
+  "my-version"      => \$print_version,
+  "v+"              => \$verbose,
+  "<>"              => \&process_not_option,
+  "help|?"          => \$help,
+  "man"             => \$man) or pod2usage(2);
 pod2usage(1) if $help;
 pod2usage(-exitstatus => 0, -verbose => 2) if $man;
 
@@ -306,6 +329,11 @@ if ($action eq "compute" || $action eq "dep")
       };
     };
   }
+
+  if (defined($dump_provides))
+  {
+    $md5sums->dump_provides($dump_provides);
+  };
 }
 elsif ($action eq "update")
 {

-- 
dh-ocaml packaging