#!/usr/bin/perl
#-*-perl-*-


use strict;
use FindBin;
use lib $FindBin::Bin.'/../lib';

my $EP_OPUS=$ENV{HOME}.'/projects/OPUS/corpus/Europarl3';
my $EP_PACO=$ENV{HOME}.'/projects/PACO-MT/data/treebanks/Europarl3';


use Lingua::Align::Corpus::Parallel::OPUS;

my $corpus = new Lingua::Align::Corpus::Parallel::OPUS(
  -alignfile => $EP_OPUS.'xml/en-nl.ces.gz',

  -src_file => $EP_PACO.'/english/ep-00-01-17.stanford.factored.gz',
  -src_type => 'Penn',

  -trg_file => $EP_PACO.'/dutch/ep-00-01-17.data.dz',
  -trg_type => 'AlpinoXML');



my %srcsent=();
my %trgsent=();
my $links;

while ($corpus->next_alignment(\%srcsent,\%trgsent,\$links)){
    print "====================================================\n";
}