Navigation

Changeset 4551

Timestamp:

02/09/07 16:00:32 (1 year ago)

Author:

morris

Message:

Fix building multiple targets

Files:

r4547	r4551
44	44
45	45	sub main {
46		my($style, $project, $target) = @_;
47
48		unless($project) {
49		usage();
50		}
51
52		$target = "all" unless $target;
	46	my($style, $project) = @_;
53	47
54	48	my $c = Config::INI::Simple->new();
…	…
60	54	}
61	55
62		build($style, $project, $target, $config);
	56	if($project) {
	57	build($style, $project, $config);
	58	}
	59	elsif($config->{"projects"}) {
	60	map { build($style, $_, $config); } split(/\s+/, $config->{"projects"});
	61	}
	62	else {
	63	opendir(DH, $PROJECTS_PATH) or die "$PROJECTS_PATH: $!";
	64	map { build($style, $_, $config); } grep { !/^\./ } readdir(DH);
	65	closedir(DH);
	66	}
63	67	}
64	68
65	69
66	70	sub build {
67		my($style, $project, $~~target, $~~config) = @_;
	71	my($style, $project, $config) = @_;
68	72
69	73	my($host, $os, $arch) = hostinfo();
…	…
267	271
268	272
269		sub usage {
270		my($string) = @_;
271		my $self = File::Basename::basename($0);
272
273		print "Usage: $self project [target]\n";
274
275		exit(2);
276		}
277
278
279
280		sub error {
281		my($string) = @_;
282		my $self = File::Basename::basename($0);
283
284		print "$self: $string\n";
285
286		exit(2);
287		}
288
289
290		main($ARGV[0], $ARGV[1], $ARGV[2]);
	273	main($ARGV[0], $ARGV[1]);

r4548	r4551
1	1	#!/bin/sh
2	2
3		$(dirname $0)/scripts/build.pl $(basename $0) $~~1 $2~~
	3	$(dirname $0)/scripts/build.pl $(basename $0) $*