#! /bin/sh /usr/share/dpatch/dpatch-run
## 807_correspondent_docs_to_devs.dpatch by Dmitry Rozhkov <dmitry.rozhkov@nokia.com>
##
## All lines beginning with `## DP:' are a description of the patch.
## DP: An additional check for having doc packages for every dev package

@DPATCH@

Index: checks/control-file.desc
===================================================================
--- lintian.old/checks/control-file.desc	(revision 6821)
+++ lintian.new/checks/control-file.desc	(working copy)
@@ -85,3 +85,9 @@
  silently fix this problem by removing the dependency, but it may indicate
  a more subtle bug (misspelling or cutting and pasting the wrong package
  name).
+
+Tag: correspondent-doc-package-absent
+Type: warning
+Info: The given develepment package doesn't have a corresponding
+  documentation package which is supposed to describe the API
+  provided by the development package.
Index: checks/control-file
===================================================================
--- lintian.old/checks/control-file	(revision 6821)
+++ lintian.new/checks/control-file	(working copy)
@@ -135,8 +135,25 @@
 		if (!$category && $binary_control->{'section'} =~ m%^([^/]+)/% && $1 ne 'contrib');
 }
 
+# Check that all -dev packages are submitted to repository together with 
+# correspondent -doc packages
+my (@dev_bins, %doc_bins);
+for my $binary_control (@binary_controls){
+	if ($binary_control->{'package'} =~ m/^([\w|-]+)-dev$/){
+		push @dev_bins, $1;
+	}
+	if ($binary_control->{'package'} =~ m/^([\w|-]+)-doc$/){
+		$doc_bins{$1} = 1;
+	}
 }
+for my $dev_bin (@dev_bins){
+	if (! defined ($doc_bins{$dev_bin})){
+		tag "correspondent-doc-package-absent", "Package $dev_bin-dev";
+	}
+}
 
+}
+
 1;
 
 # Local Variables: