#!/usr/bin/perl

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

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

dom($obj);
rels($obj);
fuldot($obj);
termdot($obj,"animal");

OML fuldot
 begin      => sub{ open(F,">","fuldot.dot") or die;
                    print F "digraph t \{\n" }.
 $o $rel $t => sub{ print F "$o -> $t\n"}.
 end        => sub{ print F "\}\n"; close F; }.
ENDOML

OML dom
 begin    => sub{ open(F,">","dom.txt") or die; }.
 term($o) => sub{ print F "$o\n"}.
 end      => sub{ close F; }.
ENDOML

OML rels
 begin    => sub{ open(F,">","rels.txt") or die; }.
 rel($r) => sub{ print F "$r\n"}.
 end      => sub{ close F; }.
ENDOML

OML termdot(o)
 begin      => sub{ open(F,">:utf8","termdot.dot") or die;
                    print F "digraph termo \{\n" }.
 o $rel $t  => sub{ print F o," -> $t\[label=$rel\]\n"}.
 $t $rel o  => sub{ print F "$t -> ",o,"[label=$rel]\n"}.
 end        => sub{ print F "\}\n"; close F; }.
ENDOML