#!/usr/bin/perl -s

our ($r,$o) ; ## reverse  -o=outfile
use strict;
use Biblio::Thesaurus;

my $file=shift or die("usage $0 [-r] file.iso\n");
my $out=($o || undef);

if($r){
  my $obj = thesaurusRetrieve($file);
  if($file =~ /(.+)\.store$/){ $out ||= "$1.the";   }
  else                       { $out ||= "$file.the";}
  $obj->save($out);
  }
else {
  my $obj = thesaurusLoad($file);
  if($file =~ /(.+)\.(the|iso)$/){ $out ||= "$1.store";   }
  else                           { $out ||= "$file.store";}
  $obj->storeOn($out);
}
##$obj = thesaurusMultiLoad('iso-file1','iso-file2',...);