Stan/0ad
1
0
Fork 0
forked from 0ad/0ad
Code Pull Requests Activity

Made the archive builder guess its location more correctly

Browse Source 
This was SVN commit r1674.
This commit is contained in:
Ykkrosh 2005-01-08 18:32:21 +00:00
parent fc4a8c3206
commit d56ae48aa1
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
source/tools/archbuilder/archbuild.pl
View File

@ -1,3 +1,5 @@
#!/usr/bin/perl
use strict;
use warnings;
@ -68,10 +70,23 @@ struct( FileData => [
my $XMB_VERSION = 'A'; # TODO: Find a way of not having to update this manually
my $bin_dir = get_opt('bindir', '../../../binaries');
my $bin_dir = get_opt('bindir', undef);
my $mod_name = get_opt('mod', 'official');
if (not defined $bin_dir) {
# We might be running from binaries/system
if (-e "../../binaries") {
$bin_dir = "../../binaries";
# or maybe sources/tools/archbuilder
} elsif (-e "../../../binaries") {
$bin_dir = "../../../binaries";
# or maybe we have no idea
} else {
$bin_dir = ".";
}
}
generate_archive($bin_dir, $mod_name);
@ -360,7 +375,7 @@ sub get_opt {
for (@ARGV) {
if (/^--\Q$name\E="?(.*)"?$/) {
return $1;
return $1;
}
}
return $default;