//include "verb_forms.php4";
include_once "utf8/utf8.class.php";
$inputfile = $_REQUEST['inputFile'];
$outputfile = $_REQUEST['inputFile'];
$xfst_path = "/spd25/htdocs/hyperlex2/nahuatl/xfst_dir/xfst -utf8 -q -e 'loadd SurfaceForms.fsm' -e 'regex GlSR;'";
//$in = file("Burroh.html");
$in = file($inputfile);
unset($words);
$verbs = array();
$commands = $xfst_path;
$verbStem;
foreach($in as $line) {
    $line = strtolower($line);
    $line = utf8_encode($line);
    $line = ereg_replace("[.?,;']","",$line);
    $line = explode(" ",$line);
    foreach($line as $word) {
	$word = trim($word);
	if(($word != "") && !ereg("=|[0-9]|Roman",$word)){
	    $word = ereg_replace("<.*>","",$word);
	    $word = ereg_replace("[<>|{]","",$word);
	    $commands .= " -e 'apply up $word'";
	}
    }
}
$commands .= " -stop";
unset($parsable);
exec($commands,$parsable);
$commands = $xfst_path;
foreach($parsable as $p) {
    $commands .= " -e 'apply down $p'";
}
$commands .= " -stop";
unset($verbs);
exec($commands,$verbs);
sort($verbs);
$verbs = array_unique($verbs);
/*
foreach($verbs as $v) {
    echo "$v 
";
}
*/
//$in = file("Burroh.html");
$in = file($inputfile);
$s = "";
foreach($in as $line) {
    $s .= $line;
}
$newLink = "";
$other="";
foreach($verbs as $v) {
    $v = utf8_decode($v);
    //$s = ereg_replace($v,"$v",$s);
	//$newLink = " $v";
	 
	//$other = getVerbSenses($v);
$s = ereg_replace($v,$newLink,$s);	
}
//"  " and $
//$out = fopen("Burroh_with_links_lg.html","w");
$out = fopen($outputfile,"w");
fwrite($out,$s);
fclose($out);
//echo ";
function GetSenses($word){
	global $verbStem;
	
	$urltoSenses = "http://hyperlex2.ldc.upenn.edu/nahuatl/search_results.php4?user_lang=english&condition=word_search&word=".$verbStem."&entry_template=englishwordsense.html&bg_template=english%senses_template.html";
	$strIframe = htmlentities (" | 
");
	return $strIframe;
}
function GetVerbSenses($word){
{
	global $verbStem;
	$table = "";
	
    $word = strtolower($word);
    //$word = utf8_encode($word);
    $utfConverter = new utf8(); 
    $word = $utfConverter->strToUtf8($word);
    $xfst_path = "/spd25/htdocs/hyperlex2/nahuatl/xfst_dir/xfst -utf8 -e 'loadd SurfaceForms.fsm' -e 'regex GlSR;'";
    $command = $xfst_path." -e 'apply up $word' -stop";
    unset($parse);
    exec($command,$parse);
    //$result = utf8_decode(trim($parse[3]));
    $result = $utfConverter->utf8ToStr(trim($parse[3]));
    if($result != "") {
	$command = "/spd25/htdocs/hyperlex2/nahuatl/xfst_dir/xfst -utf8 -e 'loadd SurfaceForms.fsm'";
	//$command = "xfst -utf8 -e 'loadd SurfaceForms.fsm'";
	$command .= " -e 'regex GlUR;' -e 'apply down $result' -stop";
	unset($parse);
	$foo = exec($command,$parse);
	$temp = $parse[3];
			/*
			foreach($parse2 as $p) {
				echo utf8_decode($p)."
";
			}
				*/
	if($temp != "") {
		$table  = "
| ";
	    $table  = $table . "Parse: |  $temp ";
		$table  = $table . " | 
";
	}	
	$table  = $table . "| ";
	$table  = $table .  "Gloss: |  $result ";
	$table  = $table . " | 
";
	$parts = explode("-",$result);
	$index = count($parts)-2;
	
	$results[0] = $parts[$index];
	$verbStem = $results[0];
	$table  = $table . "| ";
	$table  = $table . "Verb stem: | ";
	 
	$table  = $table . "".$results[0]."";
	$table  = $table . " | 
";
	
	if($index == 1) {
	    $table  = $table . "| ";
		$results[1] = "intrans";
	    $table  = $table . "Part of speech:  | Intransitive Oapan verb";
		$table  = $table . " | 
";
	}
	else if($index == 2) {
		$table  = $table . "| ";
	    $results[1] = "trans";
	    $table  = $table . "Part of speech:  | Transitive Oapan verb";
		//$table  = $table . " | 
";
		$table  = $table . "";
	}
	return $table;
    }
    return "";
}
}
?>