Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: bbec7e32b4
Fetching contributors…

Cannot retrieve contributors at this time

executable file 34 lines (29 sloc) 0.648 kb
#!/usr/bin/perl -w
BEGIN {
unshift @INC, ($::ENV{'BUILD_DIR'} || '/usr/lib/build');
}
use Build;
use strict;
my ($dist, $configdir, $archs);
while (@ARGV) {
if ($ARGV[0] eq '--dist') {
shift @ARGV;
$dist = shift @ARGV;
next;
}
if ($ARGV[0] eq '--archpath') {
shift @ARGV;
$archs = shift @ARGV;
next;
}
if ($ARGV[0] eq '--configdir') {
shift @ARGV;
$configdir = shift @ARGV;
next;
}
last;
}
die("Usage: getmacros --dist <dist> [--configdir <configdir>]\n") if @ARGV;
my $cf = Build::read_config_dist($dist, $archs, $configdir);
print $cf->{'rawmacros'} if exists $cf->{'rawmacros'};
exit(0);
Jump to Line
Something went wrong with that request. Please try again.