#!/usr/bin/env perl
BEGIN { $|=1; }
use warnings;
use utf8;

$userchain =$ARGV[0];
if (! $userchain) {$userchain = "stav";}

my ($binDir) = $0 =~ /^(.*)\/.*/;
$ENV{DANGRAM_LEX} = "$binDir/../lex";

eval(require "$binDir/genmorf.subs");
if ($@) {
    print "Couldn't load genmorf.subs!\n";
    return -1;
}

#my $lex;
#my $inflexion;
use DB_File;
use DBM_Filter;
use Encode;
my $lexDir = $ENV{DANGRAM_LEX} || "/usr/local/visl/lex/";

if ($ENV{DANGRAM_USEDB} == 1) {
    my $Tlex =     tie %lex, "DB_File", "$lexDir/dan.lex3.db", O_RDONLY;
    $Tlex->Filter_Push('utf8');
    my $Tinflexion =     tie %inflexion, "DB_File", "$lexDir/inflexion.db", O_RDONLY;
    $Tinflexion->Filter_Push('utf8');
} else {
    my $lex = GenmorfLoadLex();
    my $inflexion = GenmorfLoadInflexion();
}

#print "--lexDir =$lexDir, binDir=$binDir\n";

while(<STDIN>) {
    print Genmorf($_, $lex, $inflexion, $userchain);
}
