#!/usr/bin/perl -- -*- coding: utf-8 -*-

use English;
$OUTPUT_AUTOFLUSH = 1;
use lib "/afs/cs.cmu.edu/project/avenue-1/Avenue/Transfer/Arabic/Aragen-PAK";
use Aragen;

use IO::Socket::INET;
use Net::hostent;

my $bwdir = "/shared/code/Arabic/Morph/bama_ver2/data";

$diacritics = "FNKaui~o\`";


use POSIX ":sys_wait_h";

my $mode="generate";
my $debug = "NO";
my $debuglexicon = "NO";
my $directory= "directory=$bwdir/";

$encoding = "buckwalter";
print "Directory $directory\n";
&Aragen::initialize($mode,$debug,$debuglexicon,$encoding,$directory);

print STDERR "# Using [Aragen 2.0] By Nizar Habash. Copyright (c) 2004 University of Maryland College Park.\n";

while ($line = <STDIN>) {
    $line =~ s/[\r\n]*$//;
    @genlexs = &Aragen::AragenProcess($line);
    foreach $genlex (@genlexs) {
	print "$genlex\n";
    }
}