3 use File::FnMatch qw(fnmatch);
6 our $CROSSDIR = "@crossdir@";
7 (our $ME = $0) =~ s:^.*/::;
9 ###--------------------------------------------------------------------------
15 "usage: $ME [-kns] [-j N] =ARCHGLOB|:FLAVOUR ... [--] CMD [ARGS ...]\n";
19 print STDERR "$0: $msg\n";
23 ###--------------------------------------------------------------------------
24 ### Read and prepare the configuration.
27 open my $fh, "<", "$CROSSDIR/etc/config.sh" or barf "open config: $!";
30 if (/^\s*(#|$)/) { next; }
31 if (!/^([^=]+)='(.*)'$/) { barf "bad config line `$_'"; }
32 my ($k, $v) = ($1, $2);
39 for my $f (split ' ', $C{"FLAVOURS"}) {
40 (my $v = $f) =~ tr/-/_/;
41 my @a = split ' ', $C{"${v}_ARCHS"};
46 ###--------------------------------------------------------------------------
47 ### Parse the command line.
58 my $mo = new MdwOpt "hC:j:km:ns",
59 { "help" => { 'return' => "h" },
60 "directory" => { 'return' => 'C', 'arg' => 'req' },
61 "jobs" => { 'return' => "j", 'arg' => 'req' },
62 "keep-going" => { 'return' => "k" },
63 "marker" => { 'return' => "m", 'arg' => 'req' },
64 "dry-run" => { 'return' => "n" },
65 "silent" => { 'return' => "s" } },
70 my ($opt, $arg) = $mo->read;
71 last OPT unless defined $opt;
72 if ($opt eq "h") { usage STDOUT; exit 0; }
73 elsif ($opt eq "C") { $DIR = $arg; }
75 { $arg =~ /^[+]?\d+$/ or barf "bad integer `$arg'"; $JOBS = $arg; }
76 elsif ($opt eq "k") { $KEEPGOING = 1; }
77 elsif ($opt eq "m") { $MARKER = $arg; }
78 elsif ($opt eq "n") { $DRYRUN = $arg; }
79 elsif ($opt eq "s") { $SILENT = $arg; }
81 if ($arg =~ /^=(.*)$/) {
84 ARCH: for my $a (@ALLARCH) {
85 next ARCH unless fnmatch $pat, $a;
86 $match = 1; push @ARCH, $a;
88 $match or barf "no architectures match `$pat'";
89 } elsif ($arg =~ /^:(.*)$/) {
91 exists $FLAVOUR{$f} or barf "no architeture flavour `$f'";
92 push @ARCH, @{%FLAVOUR{$f}};
101 $bad = 1 unless @ARCH && @CMD;
102 push @CMD, $mo->rest, @{$mo->{argv}};
103 if ($bad) { usage STDERR; exit 2; }
105 ###--------------------------------------------------------------------------
106 ### Hack the arguments and run `make'.
112 $x =~ s/\Q$MARKER/\$*/g;
117 if ($CMD[0] eq 'make') { $TARGET = "run-make"; shift @CMD; }
118 our @MAKE = ("make");
119 push @MAKE, "-f$CROSSDIR/Makefile";
120 push @MAKE, "-j$JOBS" if defined $JOBS;
121 push @MAKE, "-k" if $KEEPGOING;
122 push @MAKE, "-n" if $DRYRUN;
123 push @MAKE, "-s" if $SILENT;
125 push @MAKE, "ARCHS=" . join " ", @ARCH;
126 push @MAKE, "ARGS=" . join " ", map { hack $_ } @CMD;
127 push @MAKE, "CROSSDIR=$CROSSDIR";
128 push @MAKE, "DIR=" . hack $DIR;
132 ###----- That's all, folks --------------------------------------------------