#!/usr/bin/perl

use lib "$Bin/../lib";

#use strict;
use Biblio::Thesaurus;
use Biblio::Thesaurus::ModRewrite::Embed;
use Data::Dumper;

my $obj = thesaurusLoad(shift(@ARGV));

#print join("\n",$obj->allTerms),"\n";
#print Dumper($obj);

print "-------------------------------------------------------- 1\n";
dom($obj);
print "-------------------------------------------------------- 2\n";
rels($obj);
print "-------------------------------------------------------- 3\n";
fuldot($obj);
print "-------------------------------------------------------- 4\n";
#termdot($obj,"animal");
#print "-------------------------------------------------------- 5\n";

OML fuldot
 begin      => sub{ print  "digraph t {\n" }.
 $o $rel $t => sub{ print  "$o -> $t\n"}.
 end        => sub{ print  "}\n#fim\n"; }.
ENDOML

OML dom
 term($o) => sub{ print "$o\n"}.
ENDOML

OML rels
 rel($r) => sub{ print "$r\n"}.
ENDOML

OML termdot(o)
 begin      => sub{ print "digraph t {\n#start}\n" }.
 o $rel $t  => sub{ print o," -> $t\n"}.
 $t $rel o  => sub{ print "$t -> ",o,"\n"}.
 end        => sub{ print "{#fim}\n";}.
ENDOML