#!/usr/bin/perl -w -s

use strict;
use Biblio::Thesaurus;
use XML::TMX::Writer;

our ($comment);

my $thesaurus = shift or die_usage();
my $the = thesaurusLoad($thesaurus);

my $tmx = new XML::TMX::Writer();

$tmx->start_tmx();
my $blang = $the->baselang();
my $tu;

$the->downtr( {
	       -default  => sub {
		 $tu->{$rel} = join(", ",@terms) if $the->{languages}{$rel};
		 ""
	       },
	       -eachTerm => sub {
		 if ($term ne "_top_") {
		   $tu->{$blang} = $term;
		   $tmx->add_tu(%$tu);
		 }
		 $tu = {};
	       },
	      });
$tmx->end_tmx();


sub die_usage {
  die "Usage: $0 <thesaurus>\n";
}