use ddmf;
use jspell;
jspell_dict("port");

$d1 = mkddmf(
   sub{my $a=shift;
       [nlgrep({max=>200},$a,"/home/jj/public_html/pln/proverbio.dic")]},
   {id=>"proverbios" });      

$d2 = mkmttab("/home/jj/DICIONARIOS/pt-en-sp.Linguafone/pt-en-sp",
        {sep => ":", type => "list", id=>"linguafone"},
        "Portuguese","English","Spanish");

$rr=[
     [ sub{my $ff=shift;
                   ($ff->{FSEM} eq "mento") },
       sub{my $ef= shift;
         delete($ef->{FSEM});
         $ef->{semantic}= "The action of '$ef->{rad}'";
         if($ef->{T} ne "i"){#not intransitive
            $ef->{grammar}= "It accepts the preposition phrase 'de' with the
                   direct attribute"; }
         $ef} ],
     rren("G","gender"),
     rren("rad","radical"),
     rren("N","number"),
     subs("s","singular"),
     subs("m","masculine"),
     subs("nc","common name"),
    ];
$d3 = mkddmfrr($rr,sub{[fea(shift)]},{id=>"jspell"}) ;

$d4 = mkdbddmf("/home/jj/cvs/dpl/example/calao.dic",{id=>"jspell",lang=>"pt"});
 
$d6 = mktagcompar( [$d4,$d3, $d1,$d2]);

domrestrict($d6, qw( gato piopardo cavalo elefante) );

print "\n\n===================================================\n\n";

domrestrict($d6, {file => 1}, "ex15.lista");