<?php

class PostgreSQL implements Service
{
    private $con; //Conexão com o banco de dados
    private $config; //Configuração
    public  $error = false; //Armazena um erro caso ocorra
    
    public function find ( $uri, $justthese = false, $criteria = false ){
                   
        $map =  Config::get($uri['concept'], 'PostgreSQL.mapping');
        
	$criteria = ($criteria !== false) ? $this->parseCriteria ( $criteria , $map) : '';

	$justthese = self::parseJustthese($justthese, $map);

	return $this->execSql( 'SELECT '.$justthese['select'].' FROM '. (Config::get($uri['concept'],'PostgreSQL.concept')) .' '.$criteria );
    }

   public function read ( $uri, $justthese = false , $criteria = false){
   
      $map =  Config::get($uri['concept'], 'PostgreSQL.mapping');   
      $justthese = self::parseJustthese($justthese, $map);
      $criteria = ($criteria !== false) ? $this->parseCriteria ( $criteria , $map , ' WHERE '.$map['id'].' = \''.addslashes( $uri['id'] ).'\'') : ' WHERE '.$map['id'].' = \''.addslashes( $uri['id'] ).'\'';
   
      return $this->execSql( 'SELECT '.$justthese['select'].' FROM '. (Config::get($uri['concept'],'PostgreSQL.concept')) .$criteria , true );
    }
	
    public function deleteAll ( $uri,   $justthese = false, $criteria = false ){
            $map = Config::get($uri['concept'], 'PostgreSQL.mapping');
	    if(!self::parseCriteria ( $criteria , $map)) return false; //Validador para não apagar tabela inteira
	    return $this->execSql( 'DELETE FROM '.(Config::get($uri['concept'],'PostgreSQL.concept')).' '.self::parseCriteria ( $criteria ,$map) );
    }

    public function delete ( $uri, $justthese = false, $criteria = false ){
            if(!isset($uri['id']) && !is_int($uri['id'])) return false; //Delete chamado apenas passando id inteiros
	    $map = Config::get($uri['concept'], 'PostgreSQL.mapping');
	    $criteria = ($criteria !== false) ? $this->parseCriteria ( $criteria , $map , ' WHERE '.$map['id'].' = \''.addslashes( $uri['id'] ).'\'') : ' WHERE '.$map['id'].' = \''.addslashes( $uri['id'] ).'\'';
	    return $this->execSql('DELETE FROM '.(Config::get($uri['concept'],'PostgreSQL.concept')).$criteria);
    }

    public function replace ( $uri,  $data, $criteria = false ){
            $map = Config::get($uri['concept'], 'PostgreSQL.mapping');
	    return $this->execSql('UPDATE '.(Config::get($uri['concept'],'PostgreSQL.concept')).' '. self::parseUpdateData( $data ,$map).' '.self::parseCriteria($criteria , $map));
    }
		
    public function update ( $uri,  $data, $criteria = false ){
            $map = Config::get($uri['concept'], 'PostgreSQL.mapping');
	    $criteria = ($criteria !== false) ? $this->parseCriteria ( $criteria , $map , ' WHERE '.$map['id'].' = \''.addslashes( $uri['id'] ).'\'') : ' WHERE '.$map['id'].' = \''.addslashes( $uri['id'] ).'\'';
	    return $this->execSql('UPDATE '.(Config::get($uri['concept'],'PostgreSQL.concept')).' '. self::parseUpdateData( $data ,$map).$criteria);
    }

    public function create ( $uri,  $data ){	
	    return $this->execSql( 'INSERT INTO '.(Config::get($uri['concept'],'PostgreSQL.concept')).' '.self::parseInsertData( $data , $uri['concept'] ), true );
    }

    public function execSql( $sql, $unique = false )
    {
	    if(!$this->con) $this->open( $this->config );

	    $rs = pg_query( $this->con, $sql );

	    if( is_bool( $rs ) )
	    {
		if ( !$rs )
		  $this->error = pg_last_error ( $this->con );

		return( $rs );
	    }

	    if( pg_num_rows( $rs ) <= 0 )
		return array();

	    $return = array();

	    while( $row = pg_fetch_assoc( $rs ) )
		$return[] = $row;

	    return( $unique ? $return[0] : $return );
    }

    //@DEPRECATED
    public function execResultSql( $sql, $unique = false ){
	    return $this->execSql( $sql, $unique );
    }

    public function begin( $uri ) {
   
	if(!$this->con)
	    $this->open( $this->config );
        
        $this->error = false;
	pg_query($this->con, "BEGIN WORK"); 
    }

    public function commit($uri ) {
   
	if( $this->error !== false )
	{
	    $error = $this->error;
	    $this->error = false;

	    throw new Exception( $error );
	}

	pg_query($this->con, "COMMIT");

	return( true );
    }

    public function rollback( $uri ){
    
	pg_query($this->con, "ROLLBACK");
    }

    public function open  ( $config ){
        		
        $this->config = $config;
        
        $rs = '';
        $rs .= ( isset($this->config['host']) && $this->config['host'] )  ? ' host='.$this->config['host'] : '' ;
        $rs .= ( isset($this->config['user']) && $this->config['user'] )  ? ' user='.$this->config['user'] : '' ;
        $rs .= ( isset($this->config['password']) && $this->config['password'] )  ? ' password='.$this->config['password'] : '' ;
        $rs .= ( isset($this->config['dbname']) && $this->config['dbname'] )  ? ' dbname='.$this->config['dbname'] : '' ;
        $rs .= ( isset($this->config['port']) && $this->config['port'] )  ? ' port='.$this->config['port'] : '' ;

	if($this->con = pg_connect( $rs ))
	    return $this->con;

	throw new Exception('It was not possible to enable the target connection!');
	//$this->con = pg_connect('host='.$config['host'].' user='.$config['user'].' password='.$config['password'].' dbname='.$config['dbname'].'  options=\'--client_encoding=UTF8\'');
    }

    public function close(){

	    pg_close($this->con);
            
            $this->con = false;

    }

    public function setup(){}

    public function teardown(){}

    private static function parseInsertData( $data , $concept){
	 
            $map = Config::get($concept, 'PostgreSQL.mapping');
        
	    $ind = array();
	    $val = array();
	    
	    foreach ($data as $i => $v){
                    if(!isset($map[$i])) continue;
                
		    $ind[] = $map[$i];
		    $val[] = '\''.addslashes($v).'\'';
	    }
	    
	    return '('.implode(',', $ind).') VALUES ('.implode(',', $val).') RETURNING '.$map['id'].' as id';
    }
	
    private static function parseUpdateData( $data , &$map){
	                                    
	    $d = array();
	    foreach ($data as $i => $v)
            {
                if(!isset($map[$i])) continue;
                
                $d[] = $map[$i].' = \''.addslashes ($v).'\'';
            }
	    
	    return 'SET '.implode(',', $d);
    }

    private static function parseCriteria( $criteria  , &$map , $query = '' ){               
	
	    if( isset($criteria["filter"]) && $criteria["filter"] !== NULL )
	    {
		    /*
		  * ex: array   ( 
		  *		  [0] 'OR',
		  *		  [1] array( 'OR', array( array( '=', 'campo', 'valor' ) ), 
		  *		  [2] array( '=', 'campo' , 'valor' ),
		  *		  [3] array( 'IN', 'campo', array( '1' , '2' , '3' ) )
		  *		)
		  * OR
		  *	    array( '=' , 'campo' , 'valor' )
		*/
                $query .= ($query === '') ?  'WHERE ('.self::parseFilter( $criteria['filter'] , $map).')' : ' AND ('.self::parseFilter( $criteria['filter'] , $map).')';
	    }
	    /*
	      * ex: array( 'table1' => 'table2' ,  'table1' => 'table2')
	      *		
	      */
	    if( isset($criteria["join"]) )
	    {
		foreach ($criteria["join"] as $i => $v)
		    $query .= ' AND '.$i.' = '.$v.' ';
	    }
	    
	    if( isset($criteria["group"]) )
	    {
		    $query .= ' GROUP BY '.( is_array($criteria["group"]) ? implode(', ', $criteria["group"]) : $criteria["group"] ).' ';
	    }
	    
	    if( isset($criteria["order"]) )
	    {
		    $query .= ' ORDER BY '.self::parseOrder( $criteria["order"], $map ).' ';
	    }
	    if( isset($criteria["limit"]) )
	    {
		    $query .= ' LIMIT '. $criteria["limit"] .' ';
	    }
	    if( isset($criteria["offset"]) )
	    {
		    $query .= ' OFFSET '. $criteria["offset"] .' ';
	    }
	    
	    return $query;
    }
    
    private static function parseFilter( $filter ,&$map){
    
	if( !is_array( $filter ) || count($filter) <= 0) return null;
                
	$op = self::parseOperator( array_shift( $filter ) );
        
	if( is_array($filter[0]) )
	{
	    $nested = array();

	    foreach( $filter as $i => $f )
                if( $n = self::parseFilter( $f , $map))
                    $nested[] = $n; 

                
	    return (count($nested) > 0 ) ? '('.implode( ' '.$op.' ', $nested ).')' : '';
	}

        if(!isset($map[$filter[0]])) return '';
                  
        $filter[0] = $map[$filter[0]];
        
	$igSuffix = $igPrefix = '';
                
	if( strpos( $op[0], 'i' ) === 0 )
	{
	    $op[0] = substr( $op[0], 1 );
	    $filter[0] = 'upper("'.$filter[0].'")';
	    $igPrefix = 'upper(';
	    $igSuffix = ')';
	}

	if( is_array($filter[1]) )
	    return( $filter[0].' '.$op[0]." ($igPrefix'".implode( "'$igSuffix,$igPrefix'", array_map("addslashes" , $filter[1]) )."'$igSuffix)" );

	return( $filter[0].' '.$op[0]." $igPrefix'".$op[1].addslashes( $filter[1] ).$op[2]."'$igSuffix" );
    }

    private static function parseOperator( $op ){
    
	switch(strtolower($op))
	{
	    case 'and':
	    case 'or': return( $op );
	    case 'in': return array( $op );
	    case '^': return array( 'like', '%',  '' );
	    case '$': return array( 'like',  '', '%' );
	    case '*': return array( 'like', '%', '%' );
	    case 'i^': return array( 'ilike', '%',  '' );
	    case 'i$': return array( 'ilike',  '', '%' );
	    case 'i*': return array( 'ilike', '%', '%' );
	    default : return array( $op,  '',  '' );
	}
    }
    
    private static function parseJustthese($justthese , &$map)
    {
                  
        if(!is_array($justthese)) //Caso seja um full select pegar todas as keys
            $justthese = array_keys($map);

        $return = array();

        foreach ($justthese as &$value) 
        {
            if(!isset($map[$value])) continue; //Escapa itens não existentes no mapa

            if(is_array($map[$value]))
                $return['deepness'][$value] = $map[$value];
            else
                $return['select'][] = $map[$value] .' as "'. $value. '"';
        }
        
        $return['select'] = implode(', ', $return['select']);
        return $return;  
    }

   private static function parseOrder($order , &$map)
    {
                  
        if($notArray = !is_array($order)) //Caso seja um full select pegar todas as keys
            $order = array( $order );

        $return = array();

        foreach ($order as &$value) 
        {
            if(!isset($map[$value])) continue; //Escapa itens não existentes no mapa

            $value = $map[$value];
        }

        return ( $notArray ?  $order[0] : implode(', ', $order) );
    }
}

?>