#!/usr/bin/perl
# Script reads debian/control to get list of the binary packages. Then
# for each package reads  debian/${package}.in (or debian/packages.d/${package}.in)
# it at the line which are equal to %filename%, where filename can be any file name.
#
# When called without any arguments, the text  between that line and the next %filename% 
# are written to the file debian/package.filename (or debian/filename)
#
# When called with the "clean" argument it removes debian/package.filename files
# With the "gendeps" argument returns names of all the debian/package.in files
# With the "makedeps", it returns list of all the debian/package.filename files
#
# Usage in debian/rules:
# ----------------------
# include /usr/share/dbs/dbs-build.mk # see $dh_mak_deps and $dh_gen_deps in 
#                                     # that file
# clean:                        
# 	perl /usr/share/dbs/dbs_split clean
# 	# other clean stuff
# 



$control = 'debian/control';
if ( -d 'debian/packages.d' ) {
    $dir = 'debian/packages.d';
} else {
    $dir = 'debian';
}
$needclean = 0;
$needlist = 0;
$needdeps = 0;

if (defined($ENV{'DH_COMPAT'})) {
    $dh = $ENV{'DH_COMPAT'};
} elsif (-e 'debian/compat') {
    $dh = 4;
} else {
    $dh = 0;
}

if (@ARGV) {
    $temp = shift;
    if ($temp eq "clean") { $needclean = 1; }
    elsif ($temp eq "makedeps") { $needlist = 1; }
    elsif ($temp eq "gendeps") { $needdeps = 1; }
}

@packages = ();
$first_package = "";

open (CONTROL, "< $control");

while (<CONTROL>) {
    if (m/^Package:/) {
	$package = (split)[1];
	if ($first_package eq "" and $dh < 2) {
		$first_package = $package;
	}
	if ( -f "${dir}/${package}.in" ) {
	    push @packages, $package;
	}
    }
}

close CONTROL;

while (@packages) {
    $package = shift(@packages);
    $inhead = 1;
    $opened = 0;
    if ($needdeps) {
	print "${dir}/${package}.in ";
	next;
    }
    open (IN, "< ${dir}/${package}.in");
    while (<IN>) {
	if (m/^\%(.*)\%$/) {
	    if ($needclean) {
		if ($package ne $first_package) {
		    system("rm -f debian/${package}.${1}");
		} else {
		    system("rm -f debian/${1}");
		}
	    } elsif ($needlist) {
		if ($package ne $first_package) {
		    print "debian/${package}.${1} ";
		} else {
		    print "debian/${1} ";
		}
	    } else {
		$inhead = 0;
		if ($opened) { close OUT; } else { $opened = 1; }
		if ($package ne $first_package) {
		    open OUT, "> debian/${package}.${1}";
		} else {
		    open OUT, "> debian/${1}";
		}
	    }
	} elsif (!$inhead) {
	    print OUT $_;
	}
    }
    close OUT;
    close IN;
}
