blob: a7ddaff703e09c3a84c67e73cb7d4084f6ec2d63 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!/usr/bin/env perl
use warnings;
use strict;
use Getopt::Long "GetOptions";
use FindBin qw($RealBin);
my ($DIR,$F,$E,$ALIGNMENT,$CORPUS,$SETTINGS);
die("ERROR: syntax is --alignment FILE --corpus FILESTEM --f EXT --e EXT --DIR OUTDIR --settings STRING")
unless &GetOptions('DIR=s' => \$DIR,
'f=s' => \$F,
'e=s' => \$E,
'corpus=s' => \$CORPUS,
'alignment=s' => \$ALIGNMENT,
'settings=s' => \$SETTINGS)
&& defined($DIR) && defined($F) && defined($E) && defined($CORPUS) && defined($ALIGNMENT)
&& -e $ALIGNMENT && -e "$CORPUS.$F" && -e "$CORPUS.$E";
`mkdir $DIR`;
`$RealBin/../../bin/mtt-build < $CORPUS.$F -i -o $DIR/$F`;
`$RealBin/../../bin/mtt-build < $CORPUS.$E -i -o $DIR/$E`;
`$RealBin/../../bin/symal2mam < $ALIGNMENT $DIR/$F-$E.mam`;
`$RealBin/../../bin/mmlex-build $DIR/ $F $E -o $DIR/$F-$E.lex -c $DIR/$F-$E.cooc`;
|