mirror of
https://github.com/moses-smt/mosesdecoder.git
synced 2024-09-20 15:48:05 +03:00
patch to fix fiddly env variable and directory stuff, provided by Eric Kow@
git-svn-id: https://mosesdecoder.svn.sourceforge.net/svnroot/mosesdecoder/trunk@1943 1f5c12ca-751b-0410-a591-d2e778427230
This commit is contained in:
parent
32029561da
commit
254284e57e
@ -37,9 +37,17 @@
|
||||
# Original version by Philipp Koehn
|
||||
|
||||
use FindBin qw($Bin);
|
||||
use File::Basename;
|
||||
my $SCRIPTS_ROOTDIR = $Bin;
|
||||
if ($SCRIPTS_ROOTDIR eq '') {
|
||||
$SCRIPTS_ROOTDIR = dirname(__FILE__);
|
||||
}
|
||||
$SCRIPTS_ROOTDIR =~ s/\/training$//;
|
||||
$SCRIPTS_ROOTDIR = $ENV{"SCRIPTS_ROOTDIR"} if defined($ENV{"SCRIPTS_ROOTDIR"});
|
||||
if (defined($ENV{"SCRIPTS_ROOTDIR"})) {
|
||||
$SCRIPTS_ROOTDIR = $ENV{"SCRIPTS_ROOTDIR"};
|
||||
} else {
|
||||
$ENV{"SCRIPTS_ROOTDIR"} = $SCRIPTS_ROOTDIR;
|
||||
}
|
||||
|
||||
# for each _d_istortion, _l_anguage _m_odel, _t_ranslation _m_odel and _w_ord penalty, there is a list
|
||||
# of [ default value, lower bound, upper bound ]-triples. In most cases, only one triple is used,
|
||||
|
@ -3,6 +3,7 @@
|
||||
use strict;
|
||||
use Getopt::Long "GetOptions";
|
||||
use FindBin qw($Bin);
|
||||
use File::Basename;
|
||||
|
||||
# Train Factored Phrase Model
|
||||
# (c) 2006-2008 Philipp Koehn
|
||||
@ -11,6 +12,9 @@ use FindBin qw($Bin);
|
||||
# -----------------------------------------------------
|
||||
$ENV{"LC_ALL"} = "C";
|
||||
my $SCRIPTS_ROOTDIR = $Bin;
|
||||
if ($SCRIPTS_ROOTDIR eq '') {
|
||||
$SCRIPTS_ROOTDIR = dirname(__FILE__);
|
||||
}
|
||||
$SCRIPTS_ROOTDIR =~ s/\/training$//;
|
||||
$SCRIPTS_ROOTDIR = $ENV{"SCRIPTS_ROOTDIR"} if defined($ENV{"SCRIPTS_ROOTDIR"});
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user