https://github.com/wilkeraziz/mosesdecoder
Tip revision: 030a0b2d76afc7d6859539c87aca9c3f36faf1bf authored by Hieu Hoang on 27 January 2016, 00:12:54 UTC
don't use Init()
don't use Init()
Tip revision: 030a0b2
ensure-regression-data-here.perl
#!/usr/bin/env perl
# downloads the regression data
use warnings;
use strict;
use MosesRegressionTesting;
my $data_version = MosesRegressionTesting::TESTING_DATA_VERSION;
exit 0 if -d "moses-reg-test-data-$data_version";
# data in place
safesystem("wget http://www.statmt.org/moses/reg-testing/moses-reg-test-data-$data_version.tgz")
or die "wget failed";
safesystem("tar xzf moses-reg-test-data-$data_version.tgz")
or die "untar failed";
safesystem("rm moses-reg-test-data-$data_version.tgz");
sub safesystem {
# print STDERR "Executing: @_\n";
system(@_);
if ($? == -1) {
print STDERR "Failed to execute: @_\n $!\n";
exit(1);
}
elsif ($? & 127) {
printf STDERR "Execution of: @_\n died with signal %d, %s coredump\n",
($? & 127), ($? & 128) ? 'with' : 'without';
exit(1);
}
else {
my $exitcode = $? >> 8;
print STDERR "Exit code: $exitcode\n" if $exitcode;
return ! $exitcode;
}
}