#! /usr/bin/php
<?php
/**
 * Class used to isolate functions and vars that needs to keep defined while
 * evaluating users code.
 */
class PHPc{
 
  const PROMPT = 'php>';
  const PSIZE = 5;//Prompt's size +1
 
  public static $lines = array();
  public static $code_to_eval;
  public static function readChar(){
    $ret = exec('stty cbreak -echo;c=`dd bs=1 count=1 2>/dev/null`;stty -cbreak echo;echo "$c."');
    if($ret=='.') return "\n";
    return substr($ret, 0, 1);
  }
  public static function delChar(&$line, $pos){
    $line = substr($line, 0, $pos).substr($line, $pos+1);
  }
  public static function setLine(&$from, $to){
    $size = strlen($from);
    $goto = strlen($to)+self::PSIZE;
    echo "\033[".self::PSIZE."G\033[{$size}P{$to}\033[{$goto}G";
    $from = $to;
    return $goto;
  }
}
echo <<<INTRO
PHP Command 0.9 Created by Hugo Vacher (korri.fr)
 
Code is interpreted when line end with ';' or '}' and that all '{' are closed.
 
You are free to use, modify and redistribute this code, please leave me a comment if you do it.
 
INTRO;
 
  while(true){
    PHPc::$code_to_eval = '';
    $continue = true;
    while($continue){
      //Reset history index
      $index = 0;
      //Say that line isn't finished
      $ln = true;
      //Reset cursor pos
      $c = PHPc::PSIZE;
      $total = PHPc::PSIZE;
 
      $line = '';
      echo PHPc::PROMPT;
      //Add empty line
      array_unshift(PHPc::$lines, '');
 
      while($ln){
        $char = PHPc::readChar();
        $cod = ord($char);
 
        //Gonna parse each key
        if($cod == 10){//Enter
          echo "\033[".PHPc::PSIZE."G\n";
          $ln = false;
        }else if($cod == 127){//Ret arriere
          if($c > PHPc::PSIZE){
            PHPc::delChar($line, --$c-PHPc::PSIZE);
            --$total;
            echo "\033[D\033[1P";
          }
        }else if($cod == 4){//Ctrl + D
          break 3;//We exit programm
        }else if($cod == 27){
          $key = PHPc::readChar().PHPc::readChar();
          switch($key){
            case '[3'://Del
              PHPc::readChar();
              if($c < $total){
                PHPc::delChar($line, $c-PHPc::PSIZE);
                --$total;
                echo "\033[1P";
              }
              break;
            case '[A'://up
              if(isset(PHPc::$lines[$index+1])){
                if($index==0) PHPc::$lines[0] = $line;
                $to = PHPc::$lines[++$index];
                $c = PHPc::setLine($line, $to);
                $total = $c;
              }
              break;
            case '[B'://down
              if($index > 0){
                $to = PHPc::$lines[--$index];
                $c = PHPc::setLine($line, $to);
                $total = $c;
              }
              break;
            case '[D'://left
              if($c > PHPc::PSIZE) echo "\033[".--$c.'G';
              break;
            case '[C'://right
              if($c<$total) echo "\033[".++$c.'G';
              break;
            default:
              //We don't do nothing, here we'll handle F1 key
          }
        }else{
          echo "\033[4h$char\033[4l";//Echo char in insert mode
		  //Get the 2 next chars (special keys are at least 3chars
          $line  = substr($line, 0, $c - PHPc::PSIZE);
		  $line .= $char.substr($line, $c - PHPc::PSIZE);
          ++$c; ++$total;
        }
      }
      PHPc::$lines[0] = $line;
      PHPc::$code_to_eval .= $line;
      if(substr($line,-1)==';' || substr($line,-1)=='}'){
        $cnto = substr_count(PHPc::$code_to_eval, '{');
        $cntc = substr_count(PHPc::$code_to_eval, '}');
 
        if($cntc >= $cnto){
          $continue = false;
        }
      }
    }
    //Clear local vars
    unset($c, $total, $line, $continue, $char, $cod, $cnto, $cntc, $to, $index);
 
    ob_start();
    eval(PHPc::$code_to_eval);
    $txt = ob_get_contents();
    ob_end_flush();
    if($txt!='' && substr($txt, -1) != "\n") echo "\n";
  }
  echo "\nExit\n";
?>