#!/usr/bin/perl

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

## my $obj = thesaurusLoad(shift);
my $obj = shift;

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

OML fuldot
 begin      => sub{ open(F,">","fuldot.dot" or die;
                    print F "digraph t {#start}\n" }.
 $o $rel $t => sub{ print F "$o -> $t\n"}.
 end        => sub{ print F "{#fim}\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,">","termdot.dot" or die;
                    print F "digraph t {#start}\n" }.
 o $rel $t  => sub{ print F o," -> $t\n"}.
 $t $rel o  => sub{ print F "$t -> ",o,"\n"}.
 end        => sub{ print F "{#fim}\n"; close F; }.
ENDOML