#!/usr/bin/perl -s

our($f,$id,$k,$src,$lang,$t);

$id   ||= "corpora";
$lang ||= "pt.en";
$src  ||= "eur-lex.europa.eu";
$t    ||= "sd";   ## until stardict

$f    ||= "$id.$lang.gwb";   ## start from...

use Slay::Makefile;
use YAML;
use strict;
my $m    = new Slay::Makefile;
my $arg1 = shift;

my $g= { 'to' => 'sd',
         'lang' => $lang,
         'k' => [
                   'gato',
                   'rato',
                   'piriquito do mato'
                ],
         'src' => 'eur-lex.europa.eu',
         'file' => 'jj.de.it.gwb',
         'id' => 'jj'
};

if($arg1 =~ /.*.gwb/){ $g = YAML::LoadFile($arg1); }


my $makefile = join("", <DATA>);
$m->parse_string($makefile);
$m->make(@ARGV);



__DATA__

{qr/(.*).tmx/}: $1.pairs
	mkterminum $1.pairs
	cp $1.tmxdir/$1.tmx .

{qr/((.*)\.(.*?)\.(.*?))\.ptd/}: $1.tmx
	nat-create -land=$3..$4 -i=$2.cor -tmx $1.tmx
	jj-PTDfilter $1.cor

{qr/(.*)\.ptd/}: $1.tmx
	nat-create -land=l1..l2 -i=$1.cor -tmx $1.tmx
	jj-PTDfilter $1.cor

{qr/(.*).sd/}: $1.ptd
	geraStarDict -name=$1 $1.ptd

{qr/(.*).pairs/}: $1.gwb
	getwebbitext $1.gwb