#-*- mode: perl; perl-indent-level: 4; cperl-indent-level: 4 -*-
#
# process bundle files.
# args:  bundle srcdir destdir

($bundle, $srcdir, $destdir) = @ARGV;

open bundledesc, "< $srcdir/$bundle/DESCRIPTION" || die "no DESCRIPTION found";
while(<bundledesc>) {
    if(/^Contains:/) {
	s/^Contains://; s/,/ /;
	@pkgs = split " ";
    }
}
close bundledesc;

my $res;

foreach $pkg (@pkgs) {
    print "\n---- Building package $pkg from bundle $bundle -----";
    open pkgdesc, "> $srcdir/$bundle/$pkg/DESCRIPTION" 
	|| die "cannot write $pkg/DESCRIPTION";
    if (open pkgdescin, "< $srcdir/$bundle/$pkg/DESCRIPTION.in") {
	while(<pkgdescin>) { print pkgdesc $_ if $_ =~ /\S/; }
	close pkgdescin;
    } else {
	print "no DESCRIPTION.in found for package $pkg";
	print pkgdesc "Package: $pkg\n";
    }
    open bundledesc, "< $srcdir/$bundle/DESCRIPTION" 
	|| die "no DESCRIPTION found";
    while(<bundledesc>) {print pkgdesc $_;}
    close bundledesc;
    close pkgdesc;
    $cmd = "make PKGDIR=$srcdir/$bundle RLIB=$destdir pkg-$pkg";
#    print "$cmd\n";
    $res = system($cmd);
    if($res) { exit 3; }
}
