source: ProjectBuilder/devel/pb/bin/pb.pl@ 18

Last change on this file since 18 was 18, checked in by Bruno Cornec, 17 years ago

cms2build roughly working
  • Property svn:executable set to *
File size: 9.3 KB
Line 
1#!/usr/bin/perl -w
2#
3# Project Builder main application
4#
5# $Id$
6#
7# Copyright B. Cornec 2007
8# Provided under the GPL v2
9
10# Syntax: pb [-p project] <action> [<params>...]
11
12use strict 'vars';
13use Switch;
14use Getopt::Std;
15use Data::Dumper;
16use English;
17use AppConfig qw(:argcount :expand);
18use File::Basename;
19use Archive::Tar;
20use Time::localtime qw(localtime);
21use POSIX qw(strftime);
22
23use vars qw (%defpkgdir %extpkgdir %version %confparam %filteredfiles);
24use lib qw (lib);
25use common qw (env_init);
26use pb qw (pb_init);
27use distro qw (distro_init);
28use cms;
29use changelog qw (changelog);
30
31my %opts; # CLI Options
32my $action; # action to realize
33my $test = "FALSE";
34my $option = "";
35my @pkgs;
36my $pbtag; # Global TAG variable
37my $pbver; # Global VERSION variable
38my $pbrev; # GLOBAL REVISION variable
39my @date=(localtime->sec(), localtime->min(), localtime->hour(), localtime->mday(), localtime->mon(), localtime->year(), localtime->wday(), localtime->yday(), localtime->isdst());
40my $pbdate = strftime("%Y-%m-%d", @date);
41
42getopts('p:t',\%opts);
43
44# Handles project name if any
45if (defined $opts{'p'}) {
46 $ENV{'PBPROJ'} = env_init($opts{'p'});
47} else {
48 $ENV{'PBPROJ'} = env_init();
49}
50# Handles test option
51if (defined $opts{'t'}) {
52 $test = "TRUE";
53 # Works only for SVN
54 $option = "-r BASE";
55}
56
57# Get Action
58$action = shift @ARGV;
59die "Syntax: pb [-p project] <action> [<params>...]" if (not defined $action);
60
61print "Project $ENV{'PBPROJ'}\n";
62#print "Action: $action - ARGV:".Dumper(\@ARGV);
63
64# Act depending on action
65if ($action =~ /^cms2build$/) {
66 print "Action: cms2build\n";
67 # Get packages list
68 if (not defined $ARGV[0]) {
69 @pkgs = keys %defpkgdir;
70 } elsif ($ARGV[0] =~ /^all$/) {
71 @pkgs = keys %defpkgdir;
72 if (defined %extpkgdir) {
73 my $k = keys %extpkgdir;
74 if (defined $k) {
75 push(@pkgs, keys %extpkgdir);
76 }
77 }
78 } else {
79 @pkgs = @ARGV;
80 }
81 print "Packages:\n";
82 print Dumper(@pkgs);
83 cms_init();
84
85 foreach my $pkg (@pkgs) {
86
87 if (-f "$ENV{'PBROOT'}/$pkg/VERSION") {
88 open(V,"$ENV{'PBROOT'}/$pkg/VERSION") || die "Unable to open $ENV{'PBROOT'}/$pkg/VERSION";
89 $pbver = <V>;
90 chomp($pbver);
91 close(V);
92 } else {
93 $pbver = $ENV{'PBVER'};
94 }
95
96 if (-f "$ENV{'PBROOT'}/$pkg/TAG") {
97 open(T,"$ENV{'PBROOT'}/$pkg/TAG") || die "Unable to open $ENV{'PBROOT'}/$pkg/TAG";
98 $pbtag = <T>;
99 chomp($pbtag);
100 close(T);
101 } else {
102 $pbtag = $ENV{'PBTAG'};
103 }
104 $pbrev = $ENV{'PBREVISION'};
105 print "Management of $pkg $pbver-$pbtag (rev $pbrev)\n";
106 die "Unable to get env var PBDESTDIR" if (not defined $ENV{'PBDESTDIR'});
107 # Clean up dest if necessary. The export will recreate it
108 my $dest = "$ENV{'PBDESTDIR'}/$pkg-$pbver";
109 pbrm_rf($dest) if (-d $dest);
110
111 # Export CMS tree for the concerned package to dest
112 # And generate some additional files
113 $OUTPUT_AUTOFLUSH=1;
114 print "$ENV{'PBCMSEXP'} of $pkg...";
115 # computes in which dir we have to work
116 my $dir = $defpkgdir{$pkg};
117 $dir = $extpkgdir{$pkg} if (not defined $dir);
118 system("$ENV{'PBCMSEXP'} $option $ENV{'PBROOT'}/$dir $dest 1>/dev/null");
119 if ($? == -1) {
120 print "failed to execute: $!\n";
121 } elsif ($? & 127) {
122 printf "child died with signal %d, %s coredump\n", ($? & 127), ($? & 128) ? 'with' : 'without';
123 } else {
124 print " Done under $dest\n";
125 }
126
127 # Creates a REVISION file
128 open(R,"> $dest/REVISION") || die "Unable to create $dest/REVISION";
129 print R "$pbrev\n";
130 close(R);
131
132 # Extract cms log history and store it
133 system("$ENV{'PBCMSLOG'} $option $ENV{'PBROOT'}/$dir > $dest/$ENV{'PBCMSLOGFILE'}");
134 print "$ENV{'PBCMSLOG'} of $pkg...";
135 if ($? == -1) {
136 print "failed to execute: $!\n";
137 } elsif ($? & 127) {
138 printf "child died with signal %d, %s coredump\n", ($? & 127), ($? & 128) ? 'with' : 'without';
139 } else {
140 print " OK\n";
141 }
142 open(D,"$ENV{'PBCONF'}/DISTROS") || die "Unable to find $ENV{'PBCONF'}/DISTROS\n";
143 while (<D>) {
144 my $d = $_;
145 my ($dir,$ver) = split(/_/,$d);
146 chomp($ver);
147 print "Generating build files for $dir ($ver)\n";
148 my ($ddir, $dver, $dfam, $dtype, $dsuf) = distro_init($dir,$ver);
149 #print Dumper($ddir, $dver, $dfam, $dtype, $dsuf);
150 #print "Filtering DDD => $pbdate, TTT => $pbtag, RRR => $pbtag$dsuf, VVV => $pbver\n";
151
152 # Filter build files from the less precise up to the most with overloading
153 # Filter all files found, keeping the name, and generating in dest
154
155 # Find all build files first relatively to PBROOT
156 my %bfiles;
157 #print "dir: $ENV{'PBCONF'}/$pkg\n";
158 if (-d "$ENV{'PBCONF'}/$pkg/$dtype") {
159 opendir(BDIR,"$ENV{'PBCONF'}/$pkg/$dtype" || die "Unable to open dir $ENV{'PBCONF'}/$pkg/$dtype: $!");
160 foreach my $f (readdir(BDIR)) {
161 next if ($f =~ /^\./);
162 $bfiles{$f} = "$ENV{'PBCONF'}/$pkg/$dtype/$f";
163 $bfiles{$f} =~ s~$ENV{'PBROOT'}~~;
164 }
165 closedir(BDIR);
166 } elsif (-d "$ENV{'PBCONF'}/$pkg/$dfam") {
167 opendir(BDIR,"$ENV{'PBCONF'}/$pkg/$dfam" || die "Unable to open dir $ENV{'PBCONF'}/$pkg/$dfam: $!");
168 foreach my $f (readdir(BDIR)) {
169 next if ($f =~ /^\./);
170 $bfiles{$f} = "$ENV{'PBCONF'}/$pkg/$dfam/$f";
171 $bfiles{$f} =~ s~$ENV{'PBROOT'}~~;
172 }
173 closedir(BDIR);
174 } elsif (-d "$ENV{'PBCONF'}/$pkg/$ddir") {
175 opendir(BDIR,"$ENV{'PBCONF'}/$pkg/$ddir" || die "Unable to open dir $ENV{'PBCONF'}/$pkg/$ddir: $!");
176 foreach my $f (readdir(BDIR)) {
177 next if ($f =~ /^\./);
178 $bfiles{$f} = "$ENV{'PBCONF'}/$pkg/$ddir/$f";
179 $bfiles{$f} =~ s~$ENV{'PBROOT'}~~;
180 }
181 closedir(BDIR);
182 } elsif (-d "$ENV{'PBCONF'}/$pkg/$ddir-$dver") {
183 opendir(BDIR,"$ENV{'PBCONF'}/$pkg/$ddir-$dver" || die "Unable to open dir $ENV{'PBCONF'}/$pkg/$ddir-$dver: $!");
184 foreach my $f (readdir(BDIR)) {
185 next if ($f =~ /^\./);
186 $bfiles{$f} = "$ENV{'PBCONF'}/$pkg/$ddir-$dver/$f";
187 $bfiles{$f} =~ s~$ENV{'PBROOT'}~~;
188 }
189 closedir(BDIR);
190 } else {
191 print "No Build Files found for $ddir-$dver\n";
192 next;
193 }
194 print "bfiles: ".Dumper(\%bfiles)."\n";
195
196 # Get all filters to apply
197 # They're cumulative from less specific to most specific
198 # suffix is .pbf
199 my @ffiles;
200 my ($ffile0, $ffile1, $ffile2, $ffile3);
201 if (-d "$ENV{'PBCONF'}/$pkg/pbfilter") {
202 $ffile0 = "$ENV{'PBCONF'}/$pkg/pbfilter/$dtype.pbf" if (-f "$ENV{'PBCONF'}/$pkg/pbfilter/$dtype.pbf");
203 $ffile1 = "$ENV{'PBCONF'}/$pkg/pbfilter/$dfam.pbf" if (-f "$ENV{'PBCONF'}/$pkg/pbfilter/$dfam.pbf");
204 $ffile2 = "$ENV{'PBCONF'}/$pkg/pbfilter/$ddir.pbf" if (-f "$ENV{'PBCONF'}/$pkg/pbfilter/$ddir.pbf");
205 $ffile3 = "$ENV{'PBCONF'}/$pkg/pbfilter/$ddir-$dver.pbf" if (-f "$ENV{'PBCONF'}/$pkg/pbfilter/$ddir-$dver.pbf");
206 push @ffiles,$ffile0 if (defined $ffile0);
207 push @ffiles,$ffile1 if (defined $ffile1);
208 push @ffiles,$ffile2 if (defined $ffile2);
209 push @ffiles,$ffile3 if (defined $ffile3);
210 }
211 my $config = AppConfig->new({
212 # Auto Create variables mentioned in Conf file
213 CREATE => 1,
214 DEBUG => 0,
215 GLOBAL => {
216 # Each conf item is a hash
217 ARGCOUNT => AppConfig::ARGCOUNT_HASH
218 }
219 });
220 print "ffiles: ".Dumper(\@ffiles)."\n";
221 if (@ffiles) {
222 $config->file(@ffiles);
223 my $ptr = $config->get("filter");
224 print "f:".Dumper($ptr)."\n";
225
226 # Apply now all the filters on all the files concerned
227 # All files are relative to PBROOT
228 # destination dir depends on the type of file
229 if (defined $ptr) {
230 foreach my $f (values %bfiles) {
231 filter_file($f,$ptr,"$dest/pbconf/$ddir-$dver/".basename($f),$pkg,$dtype,$dsuf);
232 }
233 foreach my $f (keys %filteredfiles) {
234 filter_file($f,$ptr,"$dest/$f",$pkg,$dtype,$dsuf);
235 }
236 }
237 }
238 }
239 close(D);
240 # Prepare the dest directory for archive
241 if (-x "$ENV{'PBCONF'}/$pkg/pbpkginit") {
242 system("cd $dest ; $ENV{'PBCONF'}/$pkg/pbinit");
243 if ($? == -1) {
244 print "failed to execute: $!\n";
245 } elsif ($? & 127) {
246 printf "child died with signal %d, %s coredump\n", ($? & 127), ($? & 128) ? 'with' : 'without';
247 } else {
248 print " $dest\n";
249 }
250 }
251 # Archive dest dir
252 chdir "$dest/..";
253 print "Creating $pkg tar files (gzip... ";
254 system("tar cfphz $pkg-$pbver.tar.gz $pkg-$pbver");
255 if ($? == -1) {
256 print "failed to execute: $!\n";
257 } elsif ($? & 127) {
258 printf "child died with signal %d, %s coredump\n", ($? & 127), ($? & 128) ? 'with' : 'without';
259 } else {
260 print " OK)\n";
261 print "Under $dest/../$pkg-$pbver.tar.gz\n";
262 }
263 }
264} else {
265 print "'$action' is not available\n";
266 print "Available actions are:\n";
267 print " cms2build\n";
268}
269
270# Function which applies filter on files
271sub filter_file {
272
273my $f=shift;
274my $ptr=shift;
275my %filter=%$ptr;
276my $destfile=shift;
277my $pkg=shift;
278my $dtype=shift;
279my $dsuf=shift;
280
281print "From $f to $destfile\n";
282pbmkdir_p(dirname($destfile)) if (! -d dirname($destfile));
283open(DEST,"> $destfile") || die "Unable to create $destfile";
284open(FILE,"$ENV{'PBROOT'}/$f") || die "Unable to open $f: $!";
285while (<FILE>) {
286 my $line = $_;
287 foreach my $s (keys %filter) {
288 # Process single variables
289 #print "debug: $filter{$s}\n";
290 my $tmp = $filter{$s};
291 next if (not defined $tmp);
292 # Expand variables if any single one found
293 if ($tmp =~ /\$/) {
294 eval { $tmp =~ s/(\$\w+)/$1/eeg };
295 # special case for ChangeLog
296 } elsif (($tmp =~ /^yes$/) && ($s =~ /^PBLOG$/)) {
297 my $p = $defpkgdir{$pkg};
298 $p = $extpkgdir{$pkg} if (not defined $p);
299 $tmp = changelog($dtype, $pkg, $pbtag, $dsuf, $p, \*DEST);
300 }
301 $line =~ s|$s|$tmp|;
302 }
303 print DEST $line;
304}
305close(FILE);
306close(DEST);
307}
Note: See TracBrowser for help on using the repository browser.