<?php
//get the words
$stdin = $_POST["words"];

//clean variable
if (!isset($_GLOBALS['magic_quotes_gpc']))
	$_GLOBALS['magic_quotes_gpc'] = ini_get("magic_quotes_gpc");if (isset($_GLOBALS['magic_quotes_gpc']))	$stdin=stripslashes($stdin);

//set command to aspell
$command = "/kunden/homepages/19/d146388052/htdocs/bin/aspell0606/bin/aspell -a --dict-dir=/kunden/homepages/19/d146388052/htdocs/bin/aspell0606/fr --encoding=UTF-8 -H --lang=".$_POST["lang"];
//talk to aspell (with stdin/stdout)
$rc = std($command,$stdin,$out,$err);
if(is_null($rc)){
    die("Could not run Aspell");
}
//parse result and make a json like :
/*
{response:[
	{ 
		mot :"tun", 
		offset:8, 
		length:3, 
		suggestion:["tune","tub","tu","un","tus","Sun","ton","tua","tue","tuf","tut","tué","tût","d'un","l'un"]
	},{ 
		mot :"tesst", 
		offset:12, 
		length:5, 
		suggestion:["tests","test","t'est","testa","teste","testé","est","lests","d'est","lest","t'es-tu","t'eusse","t'eut","t'eût","c'est","l'est","m'est","n'est","s'est"]
	}
]}
*/

$lines = split("\n",$out);
$result="{response:[ \n";
foreach ($lines as $line) {
	if(preg_match('/^& ([^ ]+) (\d+) (\d+): (.*)/',$line,$match)){
		// match with suggestions
		$word = $match[1];
		$off  = $match[3]-1;
		$len  = strlen(utf8_decode($word));
		$sugs  = split(', ',$match[4]);
		
		$result.="{ \nmot :\"$word\", \noffset:$off, \nlength:$len, \n";
		$result.="suggestion:[";
		foreach ($sugs as $sug) {
			$result.='"'.$sug.'",';
		}
		if (substr($result,-1)==",")
			$result=substr($result,0,-1);
		
		$result.="]";
		$result.="\n},";
    }
}

if (substr($result,-1)==",")
	$result=substr($result,0,-1);
	
$result.="\n]}";
echo $result;

//--------------------------------------------------
/*
 * Parse the stdout
 */
function std($command,$stdin,&$stdout,&$stderr) {
	$descriptorSpec = array(0 => array("pipe", "r"),
                    1 => array('pipe', 'w'),
                    2 => array('pipe', 'w'));

	$process = proc_open($command, $descriptorSpec, $pipes);
	if(!$process) return null;

	$txOff = 0;
    $txLen = strlen($stdin);
    $stdoutDone = false;
    $stderrDone = false;

    stream_set_blocking($pipes[0], 0); // Make stdin/stdout/stderr non-blocking
    stream_set_blocking($pipes[1], 0);
    stream_set_blocking($pipes[2], 0);

    if ($txLen == 0) fclose($pipes[0]);
    while (true) {
        $rx = array(); // The program's stdout/stderr
        if (!$stdoutDone) $rx[] = $pipes[1];
        if (!$stderrDone) $rx[] = $pipes[2];
        $tx = array(); // The program's stdin
        if ($txOff < $txLen) $tx[] = $pipes[0];
        stream_select($rx, $tx, $ex = NULL, NULL, NULL); // Block til r/w possible

        if (!empty($tx)) {
            $txRet = fwrite($pipes[0], substr($stdin, $txOff, 8192));
            if ($txRet !== false) $txOff += $txRet;
            if ($txOff >= $txLen) fclose($pipes[0]);
        }

        foreach ($rx as $r) {
            if ($r == $pipes[1]) {
                $stdout .= fread($pipes[1], 8192);
                if (feof($pipes[1])) {
                    fclose($pipes[1]);
                    $stdoutDone = true;
                }
            } else if ($r == $pipes[2]) {
                $stderr .= fread($pipes[2], 8192);
                if (feof($pipes[2])) {
                    fclose($pipes[2]);
                    $stderrDone = true;
                }
            }
        }
        if (!is_resource($process)) break;
        if ($txOff >= $txLen && $stdoutDone && $stderrDone) break;
    }
    return proc_close($process);
}
?>