<?php

namespace BBOrm;

abstract class Entity {

    const table_name = '';
    const connection_name = 'default';
    const softdelete = false;
    const _ignore = Array(
        'classname',
        '_properties',
        '_ignore',
        'connection_name',
        'timestamps',
        'softdelete',
        'table_name'
    );

    const _properties = Array();

    public function teste() {
        return static::class;
    }

    public static function get_properties() {
        $properties = Array();
        foreach (static::_properties as $propertie) {
            $obj = new \stdClass();
            $obj->data = $propertie;
            $properties[] = $obj;
        }
        return json_encode($properties);
    }

    function __construct() {
        if (isset($this->timestamps) && $this->timestamps) {
            $this->created_at = date('Y-m-d h:m:s');
            $this->updated_at = date('Y-m-d h:m:s');
        }
    }

    public function __set($property, $value) {
        if (in_array($property, static::_ignore)) {
            return;
        }
        $this->$property = $value;
    }

    public function save() {
        if (isset($this->id)) {
            $this->update();
        } else {
            $this->create();
        }
    }

    private function update() {
        $updatekeys = static::_ignore;
        $updatekeys[] = 'id';
        $columns = array_diff(array_keys(get_object_vars($this)), $updatekeys);
        $obj = (array) $this;

        $update_string = '';
        $update_data = Array();
        $update_data['_update_id'] = $this->id;

        foreach ($columns as $column) {
            $update_string .= $column . ":$column, ";
            $update_data[$column] = $obj[$column];
        }

        $update_string = rtrim($update_string, ', ');

        $sql = "UPDATE " . static::table_name . " SET $update_string WHERE id = :_update_id";
        DBInstance::execute($sql, $this->connection_name, $update_data);
    }

    private function create() {
        $columns = array_diff(array_keys(get_object_vars($this)), static::_ignore);
        $obj = (array) $this;

        $first_argument = '';
        $second_argument = '';
        $insert_data = Array();

        foreach ($columns as $column) {
            $first_argument .= $column . ', ';

            $insert_data[$column] = $obj[$column];
            $second_argument .= ":$column, ";
        }

        $first_argument = rtrim($first_argument, ', ');
        $second_argument = rtrim($second_argument, ', ');

        $sql = "INSERT INTO " . static::table_name . " ($first_argument) VALUES ($second_argument)";
        DBInstance::execute($sql, static::connection_name, $insert_data);
        $this->id = DBInstance::last_insert();
    }

    public function delete() {
        if (isset($this->softdelete) && $this->softdelete) {
            $this->deleted_at = date('Y-m-d h:m:s');
            $this->update();
            return;
        }
        $this->purge();
    }

    public function load($id = false) {
        if (!$id) {
            return;
        }

        $sql = "SELECT * FROM " . static::table_name . " WHERE id = ?";

        $this->fill(DBInstance::query_prepare($sql, Array($id), static::connection_name)[0]);
    }

    public function purge() {
        $sql = "DELETE FROM " . static::table_name . " WHERE id = :id";
        DBInstance::execute($sql, static::connection_name, Array('id' => $this->id));
    }

    private function fill($data) {
        $data = (array) $data;

        foreach ($data as $key => $value) {
            $this->$key = $value;
        }
    }

    /**
     * Find All
     * 
     * This method will load all instances from the class.
     * Limits are avaliable for paginations.
     * 
     * @param Array $select Columns to select. Array('id', 'name')
     * @param Array $limits Array( 'offset'=> 10, 'limit' => 10 )
     * @param boolean $trashed Bring trashed elements?
     */
    public static function find_all($select = Array('*'), $limits = Array(), $trashed = false) {
        $criteria = '';
        $limits_sql = '';

        foreach ($select as $value) {
            $criteria .= $value . ', ';
        }

        $criteria = rtrim($criteria, ', ');

        foreach ($limits as $key => $value) {
            $limits_sql .= "$key $value ";
        }

        if (static::softdelete && !$trashed) {
            $sql = "SELECT $criteria FROM " . static::table_name . " WHERE deleted_at is null $limits_sql";
        } else {
            $sql = "SELECT $criteria FROM " . static::table_name . " $limits_sql";
        }

        $results = DBInstance::query($sql, static::connection_name);
        $objects = Array();

        foreach ($results as $value) {
            $static = static::class;
            $object = new $static;
            $object->fill($value);
            $objects[] = $object;
        }
        return $objects;
    }

    /**
     * Count
     * 
     * Count how many records there is on the database
     * in relation with this class with the parameters filter
     * 
     * 
     * 
     * @param Array $criterias Criteras for WHERE Array('id' => Array('=', 10) )
     * @param boolean $trashed Bring trashed registers?
     * 
     */
    public static function count($criterias = Array(), $trashed = false) {
        $criteria_sql = "";
        $criteria_data = Array();
        foreach ($criterias as $key => $criteria) {
            if ($criteria_sql != "") {
                $criteria_sql .= " AND ";
            } else {
                $criteria_sql .= " WHERE ";
            }
            if (is_array($criteria[1])) {
                $crit_temp = '';
                foreach ($criteria[1] as $crit) {
                    $crit_temp .= '?, ';
                    $criteria_data[] = $crit;
                }
                $crit_temp = rtrim($crit_temp, ', ');
                $criteria_sql .= "$key $criteria[0] ($crit_temp)";
            } else {
                $criteria_sql .= "$key $criteria[0] (?) ";
                $criteria_data[] = $criteria[1];
            }
        }
        if (static::softdelete && !$trashed) {
            $sql = "SELECT COUNT(*) FROM " . static::table_name . " $criteria_sql AND deleted_at is null";
        } else {
            $sql = "SELECT COUNT(*) FROM " . static::table_name . " $criteria_sql";
        }

        $results = DBInstance::query_one($sql, static::connection_name, $criteria_data);
        return $results[0]->count;
    }

    /**
     * Find One
     * 
     * 
     * @param Array/Int $criterias Array('id' => Array('in', Array(10, 20, 30)))
     * @param Array $select Array(id, fullname)
     * @param Boolan $trashed true, false
     */
    public static function find_one($criterias = Array(), $select = Array('*'), $trashed = false) {
        $select_sql = "";
        $criteria_sql = "";
        $limits_sql = "";
        $criteria_data = Array();

        $limits = Array("LIMIT" => 1);
        
        if (is_numeric($criterias)) {
            $criteria_sql = "WHERE id = ? ";
            $criteria_data[] = $criterias;
        } else {
            foreach ($criterias as $key => $criteria) {
                if ($criteria_sql != "") {
                    $criteria_sql .= " AND ";
                } else {
                    $criteria_sql .= " WHERE ";
                }
                if (is_array($criteria[1])) {
                    $crit_temp = '';
                    foreach ($criteria[1] as $crit) {
                        $crit_temp .= '?, ';
                        $criteria_data[] = $crit;
                    }
                    $crit_temp = rtrim($crit_temp, ', ');
                    $criteria_sql .= "$key $criteria[0] ($crit_temp)";
                } else {
                    $criteria_sql .= "$key $criteria[0] (?) ";
                    $criteria_data[] = $criteria[1];
                }
            }
        }
        foreach ($select as $value) {
            $select_sql .= $value . ', ';
        }
        $select_sql = rtrim($select_sql, ', ');

        foreach ($limits as $key => $value) {
            $limits_sql .= "$key $value ";
        }

        if (static::softdelete && !$trashed) {
            $sql = "SELECT $select_sql FROM " . static::table_name . " $criteria_sql AND deleted_at is null $limits_sql";
        } else {
            $sql = "SELECT $select_sql FROM " . static::table_name . " $criteria_sql $limits_sql";
        }
        
        $results = DBInstance::query($sql, static::connection_name, $criteria_data);
        $objects = Array();

        foreach ($results as $value) {
            $class = static::class;
            $object = new $class;
            $object->fill($value);
            $objects[] = $object;
        }
        if (empty($objects)) {
            return false; //new $this->classname;
        }
        return $objects[0];
    }

    /**
     * Find Many
     * 
     * @param Array   $criterias Description
     * @param Array   $select    Description
     * @param Array   $limits    Description
     * @param boolean $trashed   Description
     * 
     */
    public static function find_many($criterias = Array(), $select = Array('*'), $limits = Array(), $trashed = false) {
        $select_sql = "";
        $criteria_sql = "";
        $limits_sql = "";

        foreach ($limits as $key => $value) {
            $limits_sql .= "$key $value ";
        }

        foreach ($criterias as $key => $criteria) {
            if ($criteria_sql != "") {
                $criteria_sql .= " AND ";
            } else {
                $criteria_sql .= " WHERE ";
            }
            if (is_string($criteria[1])) {
                $criteria_sql .= "$key $criteria[0] '$criteria[1]'";
            } else if (is_array($criteria[1])) {
                $criteria_sql .= "$key $criteria[0] (" . implode(', ', $criteria[1]) . ")";
            } else {
                $criteria_sql .= "$key $criteria[0] $criteria[1]";
            }
        }

        foreach ($select as $value) {
            $select_sql .= $value . ', ';
        }
        $select_sql = rtrim($select_sql, ', ');

        if (static::softdelete && !$trashed) {
            $sql = "SELECT $select_sql FROM " . static::table_name . " $criteria_sql AND deleted_at is null $limits_sql";
        } else {
            $sql = "SELECT $select_sql FROM " . static::table_name . " $criteria_sql $limits_sql";
        }

        $results = DBInstance::query($sql, static::connection_name);
        $objects = Array();

        foreach ($results as $value) {
            $class = static::class;
            $object = new $class;
            $object->fill($value);
            $objects[] = $object;
        }
        if (empty($objects)) {
            return Array();
        }
        return $objects;
    }

    /**
     * Has One Local
     * 
     * Defines that, this object has a child an only one,
     * object in other class.
     * 
     * Table user  = (id, name)
     * Table phone = (id, number, userid)
     * 
     * This relation will be created on the User class
     * making reference to the Phone class
     * 
     * @param Object $foreign_object Class instance from the remote object
     * @param (int, string) $field_in_remote Field in local object matchin the remote id
     * 
     * @return Object Instance of the remote class
     * 
     */
    protected function has_one($foreign_object, $field_in_remote) {
        $obj = new $foreign_object;
        return $obj->find_one(Array($field_in_remote => Array('=', $this->id)));
    }

    /**
     * Has Many
     * 
     * Defines that, this object has many instances of other Object
     * 
     * Table Post    = (id, name, content)
     * Table Comment = (id, name, content, postid)
     * 
     * This relation will be created on the Post class
     * Making reference to the Comment class
     * 
     * @param type $foreign_object Instance of a remote class
     * @param (int, string) $field_in_foreign The field to match the local id
     * 
     */
    protected function has_many($foreign_object, $field_in_foreign) {
        $obj = new $foreign_object;
        return $obj->find_many(Array($field_in_foreign => Array('=', $this->id)));
    }

    /**
     * Belongs To
     * 
     * Defines that, this object is part of an other class.
     * The local field must match the id of an other class.
     * 
     * Table Post    = (id, name, content)
     * Table Comment = (id, name, content, postid) 
     * 
     * This relation will be created on the comment class
     * Making reference to the post class
     * 
     * @param Object $foreign_object Instance of a remote class
     * @param (int, String) $local_field Remote field relate to local Object
     * @param string $remote_field 
     */
    protected function belongs_to($foreign_object, $local_field, $remote_field = 'id') {
        $obj = new $foreign_object;
        return $obj->find_one(Array($remote_field => Array('=', $this->$local_field)));
    }

    /**
     * Belongs to Many
     * 
     * Defines that this object is related to many other instances
     * of other classes throw a pivot table.
     * 
     * Table Post    = (id, name, content)
     * Table Tag     = (id, name)
     * Table Post_Tag = (id, postid, tagid) 
     * 
     * This relation will be created in both classes
     * 
     * @param Object $foreign_object Instance of the remote class
     * @param string $pivot_table Name of the pivot table
     * @param int $local_in_pivot Name of field on the pivot in relation of the local class
     * @param int $remote_in_pivot Name of field on the pivot in relation of the remote class
     * @param Array $remote_filter Filters to the remote Array('id', Array('>', 50) )
     * @param Array $remote_limit Array( 'offset'=> 10, 'limit' => 10 )
     */
    protected function belongs_to_many($foreign_object, $pivot_table, $local_in_pivot, $remote_in_pivot, $remote_filter = Array(), $remote_limit = Array()) {
        $obj = new $foreign_object;
        $limits_sql = '';

        foreach ($remote_limit as $key => $value) {
            $limits_sql .= "$key $value ";
        }
        $sql = "SELECT $remote_in_pivot FROM $pivot_table WHERE $local_in_pivot = $this->id $limits_sql";

        $relations = DBInstance::query($sql, static::connection_name);
        $ids = Array();
        foreach ($relations as $relation) {
            $ids[] = $relation->$remote_in_pivot;
        }
        if (empty($ids)) {
            return Array();
        }
        return $obj->find_many(array_merge(Array('id' => Array('IN', $ids)), $remote_filter), Array('*'), $remote_limit);
    }

    /**
     * Belongs to Many Extended
     * 
     * Defines that this object is related to many other instances
     * of other classes throw a pivot table.
     * This relation will bring the pivot table with the elements inside
     * 
     * Table Post    = (id, name, content)
     * Table Tag     = (id, name)
     * Table Post_Tag = (id, postid, tagid) 
     * 
     * This relation will be created in both classes
     * 
     * @param Object $foreign_object Instance of the remote class
     * @param string $pivot_table Name of the pivot table
     * @param int $local_in_pivot Name of field on the pivot in relation of the local class
     * @param int $remote_in_pivot Name of field on the pivot in relation of the remote class
     * @param Array $remote_filter Filters to the remote Array('id', Array('>', 50) )
     * @param Array $pivot_limits Array( 'offset'=> 10, 'limit' => 10 )
     */
    protected function belongs_to_many_extended($foreign_object, $pivot_table, $local_in_pivot, $remote_in_pivot, $remote_filter = Array(), $pivot_limits = Array()) {
        $obj = new $foreign_object;
        $limits_sql = '';
        foreach ($pivot_limits as $key => $value) {
            $limits_sql .= "$key $value ";
        }

        $sql = "SELECT * FROM $pivot_table WHERE $local_in_pivot = $this->id $limits_sql";
        $relations = DBInstance::query($sql, static::connection_name);
        $objects = Array();

        if (empty($relations)) {
            return Array();
        }
        foreach ($relations as $relation) {
            $relation->child_element = $obj->find_one(array_merge(Array("id" => Array("=", $relation->$remote_in_pivot)), $remote_filter));
            $objects[] = $relation;
        }
        if (empty($objects)) {
            return Array();
        }
        return $objects;
    }

}