The R Project SVN R

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
6994 pd 1 
#-*- mode: perl; perl-indent-level: 4; cperl-indent-level: 4 -*-
2 
#
3 
# process bundle files.
4 
# args:  bundle srcdir destdir
5 
 
6 
($bundle, $srcdir, $destdir) = @ARGV;
7 
 
8 
open bundledesc, "< $srcdir/$bundle/DESCRIPTION" || die "no DESCRIPTION found";
9 
while(<bundledesc>) {
10 
    if(/^Contains:/) {
11 
	s/^Contains://; s/,/ /;
12 
	@pkgs = split " ";
13 
    }
14 
}
15 
close bundledesc;
16 
 
17 
foreach $pkg (@pkgs) {
21860 ripley 18 
    print "\n---- Building package $pkg from bundle $bundle -----";
6994 pd 19 
    open pkgdesc, "> $srcdir/$bundle/$pkg/DESCRIPTION"
20 
	|| die "cannot write $pkg/DESCRIPTION";
21 
    if (open pkgdescin, "< $srcdir/$bundle/$pkg/DESCRIPTION.in") {
22 
	while(<pkgdescin>) { print pkgdesc $_; }
23 
	close pkgdescin;
24 
    } else {
25 
	print "no DESCRIPTION.in found for package $pkg";
26 
	print pkgdesc "Package: $pkg\n";
27 
    }
28 
    open bundledesc, "< $srcdir/$bundle/DESCRIPTION"
29 
	|| die "no DESCRIPTION found";
30 
    while(<bundledesc>) {
31 
	if(!/^Contains:/) {print pkgdesc $_;}
32 
    }
33 
    close bundledesc;
34 
    close pkgdesc;
35 
    $cmd = "make PKGDIR=$srcdir/$bundle RLIB=$destdir pkg-$pkg";
36 
#    print "$cmd\n";
37 
    system($cmd);
38 
}