<?php

/**
 * Hoa
 *
 *
 * @license
 *
 * New BSD License
 *
 * Copyright © 2007-2017, Hoa community. All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are met:
 *     * Redistributions of source code must retain the above copyright
 *       notice, this list of conditions and the following disclaimer.
 *     * Redistributions in binary form must reproduce the above copyright
 *       notice, this list of conditions and the following disclaimer in the
 *       documentation and/or other materials provided with the distribution.
 *     * Neither the name of the Hoa nor the names of its contributors may be
 *       used to endorse or promote products derived from this software without
 *       specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS AND CONTRIBUTORS BE
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 */

namespace Hoa\Stream;

use Hoa\Consistency;
use Hoa\Event;
use Hoa\Protocol;

/**
 * Class \Hoa\Stream.
 *
 * Static register for all streams (files, sockets etc.).
 *
 * @copyright  Copyright © 2007-2017 Hoa community
 * @license    New BSD License
 */
abstract class Stream implements IStream\Stream, Event\Listenable
{
    use Event\Listens;

    /**
     * Name index in the stream bucket.
     *
     * @const int
     */
    const NAME                = 0;

    /**
     * Handler index in the stream bucket.
     *
     * @const int
     */
    const HANDLER             = 1;

    /**
     * Resource index in the stream bucket.
     *
     * @const int
     */
    const RESOURCE            = 2;

    /**
     * Context index in the stream bucket.
     *
     * @const int
     */
    const CONTEXT             = 3;

    /**
     * Default buffer size.
     *
     * @const int
     */
    const DEFAULT_BUFFER_SIZE = 8192;

    /**
     * Current stream bucket.
     *
     * @var array
     */
    protected $_bucket          = [];

    /**
     * Static stream register.
     *
     * @var array
     */
    private static $_register   = [];

    /**
     * Buffer size (default is 8Ko).
     *
     * @var bool
     */
    protected $_bufferSize      = self::DEFAULT_BUFFER_SIZE;

    /**
     * Original stream name, given to the stream constructor.
     *
     * @var string
     */
    protected $_streamName      = null;

    /**
     * Context name.
     *
     * @var string
     */
    protected $_context         = null;

    /**
     * Whether the opening has been deferred.
     *
     * @var bool
     */
    protected $_hasBeenDeferred = false;

    /**
     * Whether this stream is already opened by another handler.
     *
     * @var bool
     */
    protected $_borrowing       = false;


    /**
     * Set the current stream.
     * If not exists in the register, try to call the
     * `$this->_open()` method. Please, see the `self::_getStream()` method.
     *
     * @param   string  $streamName    Stream name (e.g. path or URL).
     * @param   string  $context       Context ID (please, see the
     *                                 `Hoa\Stream\Context` class).
     * @param   bool    $wait          Differ opening or not.
     */
    public function __construct($streamName, $context = null, $wait = false)
    {
        $this->_streamName      = $streamName;
        $this->_context         = $context;
        $this->_hasBeenDeferred = $wait;
        $this->setListener(
            new Event\Listener(
                $this,
                [
                    'authrequire',
                    'authresult',
                    'complete',
                    'connect',
                    'failure',
                    'mimetype',
                    'progress',
                    'redirect',
                    'resolve',
                    'size'
                ]
            )
        );

        if (true === $wait) {
            return;
        }

        $this->open();

        return;
    }

    /**
     * Get a stream in the register.
     * If the stream does not exist, try to open it by calling the
     * $handler->_open() method.
     *
     * @param   string       $streamName    Stream name.
     * @param   \Hoa\Stream  $handler       Stream handler.
     * @param   string       $context       Context ID (please, see the
     *                                      \Hoa\Stream\Context class).
     * @return  array
     * @throws  \Hoa\Stream\Exception
     */
    final private static function &_getStream(
        $streamName,
        Stream $handler,
        $context = null
    ) {
        $name = md5($streamName);

        if (null !== $context) {
            if (false === Context::contextExists($context)) {
                throw new Exception(
                    'Context %s was not previously declared, cannot retrieve ' .
                    'this context.',
                    0,
                    $context
                );
            }

            $context = Context::getInstance($context);
        }

        if (!isset(self::$_register[$name])) {
            self::$_register[$name] = [
                self::NAME     => $streamName,
                self::HANDLER  => $handler,
                self::RESOURCE => $handler->_open($streamName, $context),
                self::CONTEXT  => $context
            ];
            Event::register(
                'hoa://Event/Stream/' . $streamName,
                $handler
            );
            // Add :open-ready?
            Event::register(
                'hoa://Event/Stream/' . $streamName . ':close-before',
                $handler
            );
        } else {
            $handler->_borrowing = true;
        }

        if (null === self::$_register[$name][self::RESOURCE]) {
            self::$_register[$name][self::RESOURCE]
                = $handler->_open($streamName, $context);
        }

        return self::$_register[$name];
    }

    /**
     * Open the stream and return the associated resource.
     * Note: This method is protected, but do not forget that it could be
     * overloaded into a public context.
     *
     * @param   string               $streamName    Stream name (e.g. path or URL).
     * @param   \Hoa\Stream\Context  $context       Context.
     * @return  resource
     * @throws  \Hoa\Exception\Exception
     */
    abstract protected function &_open($streamName, Context $context = null);

    /**
     * Close the current stream.
     * Note: this method is protected, but do not forget that it could be
     * overloaded into a public context.
     *
     * @return  bool
     */
    abstract protected function _close();

    /**
     * Open the stream.
     *
     * @return  \Hoa\Stream
     * @throws  \Hoa\Stream\Exception
     */
    final public function open()
    {
        $context = $this->_context;

        if (true === $this->hasBeenDeferred()) {
            if (null === $context) {
                $handle = Context::getInstance(uniqid());
                $handle->setParameters([
                    'notification' => [$this, '_notify']
                ]);
                $context = $handle->getId();
            } elseif (true === Context::contextExists($context)) {
                $handle     = Context::getInstance($context);
                $parameters = $handle->getParameters();

                if (!isset($parameters['notification'])) {
                    $handle->setParameters([
                        'notification' => [$this, '_notify']
                    ]);
                }
            }
        }

        $this->_bufferSize = self::DEFAULT_BUFFER_SIZE;
        $this->_bucket     = self::_getStream(
            $this->_streamName,
            $this,
            $context
        );

        return $this;
    }

    /**
     * Close the current stream.
     *
     * @return  void
     */
    final public function close()
    {
        $streamName = $this->getStreamName();
        $name       = md5($streamName);

        if (!isset(self::$_register[$name])) {
            return;
        }

        Event::notify(
            'hoa://Event/Stream/' . $streamName . ':close-before',
            $this,
            new Event\Bucket()
        );

        if (false === $this->_close()) {
            return;
        }

        unset(self::$_register[$name]);
        $this->_bucket[self::HANDLER] = null;
        Event::unregister(
            'hoa://Event/Stream/' . $streamName
        );
        Event::unregister(
            'hoa://Event/Stream/' . $streamName . ':close-before'
        );

        return;
    }

    /**
     * Get the current stream name.
     *
     * @return  string
     */
    public function getStreamName()
    {
        if (empty($this->_bucket)) {
            return null;
        }

        return $this->_bucket[self::NAME];
    }

    /**
     * Get the current stream.
     *
     * @return  resource
     */
    public function getStream()
    {
        if (empty($this->_bucket)) {
            return null;
        }

        return $this->_bucket[self::RESOURCE];
    }

    /**
     * Get the current stream context.
     *
     * @return  \Hoa\Stream\Context
     */
    public function getStreamContext()
    {
        if (empty($this->_bucket)) {
            return null;
        }

        return $this->_bucket[self::CONTEXT];
    }

    /**
     * Get stream handler according to its name.
     *
     * @param   string  $streamName    Stream name.
     * @return  \Hoa\Stream
     */
    public static function getStreamHandler($streamName)
    {
        $name = md5($streamName);

        if (!isset(self::$_register[$name])) {
            return null;
        }

        return self::$_register[$name][self::HANDLER];
    }

    /**
     * Set the current stream. Useful to manage a stack of streams (e.g. socket
     * and select). Notice that it could be unsafe to use this method without
     * taking time to think about it two minutes. Resource of type “Unknown” is
     * considered as valid.
     *
     * @return  resource
     * @throws  \Hoa\Stream\Exception
     */
    public function _setStream($stream)
    {
        if (false === is_resource($stream) &&
            ('resource' !== gettype($stream) ||
             'Unknown'  !== get_resource_type($stream))) {
            throw new Exception(
                'Try to change the stream resource with an invalid one; ' .
                'given %s.',
                1,
                gettype($stream)
            );
        }

        $old                           = $this->_bucket[self::RESOURCE];
        $this->_bucket[self::RESOURCE] = $stream;

        return $old;
    }

    /**
     * Check if the stream is opened.
     *
     * @return  bool
     */
    public function isOpened()
    {
        return is_resource($this->getStream());
    }

    /**
     * Set the timeout period.
     *
     * @param   int     $seconds         Timeout period in seconds.
     * @param   int     $microseconds    Timeout period in microseconds.
     * @return  bool
     */
    public function setStreamTimeout($seconds, $microseconds = 0)
    {
        return stream_set_timeout($this->getStream(), $seconds, $microseconds);
    }

    /**
     * Whether the opening of the stream has been deferred
     */
    protected function hasBeenDeferred()
    {
        return $this->_hasBeenDeferred;
    }

    /**
     * Check whether the connection has timed out or not.
     * This is basically a shortcut of `getStreamMetaData` + the `timed_out`
     * index, but the resulting code is more readable.
     *
     * @return bool
     */
    public function hasTimedOut()
    {
        $metaData = $this->getStreamMetaData();

        return true === $metaData['timed_out'];
    }

    /**
     * Set blocking/non-blocking mode.
     *
     * @param   bool    $mode    Blocking mode.
     * @return  bool
     */
    public function setStreamBlocking($mode)
    {
        return stream_set_blocking($this->getStream(), (int) $mode);
    }

    /**
     * Set stream buffer.
     * Output using fwrite() (or similar function) is normally buffered at 8 Ko.
     * This means that if there are two processes wanting to write to the same
     * output stream, each is paused after 8 Ko of data to allow the other to
     * write.
     *
     * @param   int     $buffer    Number of bytes to buffer. If zero, write
     *                             operations are unbuffered. This ensures that
     *                             all writes are completed before other
     *                             processes are allowed to write to that output
     *                             stream.
     * @return  bool
     */
    public function setStreamBuffer($buffer)
    {
        // Zero means success.
        $out = 0 === stream_set_write_buffer($this->getStream(), $buffer);

        if (true === $out) {
            $this->_bufferSize = $buffer;
        }

        return $out;
    }

    /**
     * Disable stream buffering.
     * Alias of $this->setBuffer(0).
     *
     * @return  bool
     */
    public function disableStreamBuffer()
    {
        return $this->setStreamBuffer(0);
    }

    /**
     * Get stream buffer size.
     *
     * @return  int
     */
    public function getStreamBufferSize()
    {
        return $this->_bufferSize;
    }

    /**
     * Get stream wrapper name.
     *
     * @return  string
     */
    public function getStreamWrapperName()
    {
        if (false === $pos = strpos($this->getStreamName(), '://')) {
            return 'file';
        }

        return substr($this->getStreamName(), 0, $pos);
    }

    /**
     * Get stream meta data.
     *
     * @return  array
     */
    public function getStreamMetaData()
    {
        return stream_get_meta_data($this->getStream());
    }

    /**
     * Whether this stream is already opened by another handler.
     *
     * @return  bool
     */
    public function isBorrowing()
    {
        return $this->_borrowing;
    }

    /**
     * Notification callback.
     *
     * @param   int     $ncode          Notification code. Please, see
     *                                  STREAM_NOTIFY_* constants.
     * @param   int     $severity       Severity. Please, see
     *                                  STREAM_NOTIFY_SEVERITY_* constants.
     * @param   string  $message        Message.
     * @param   int     $code           Message code.
     * @param   int     $transferred    If applicable, the number of transferred
     *                                  bytes.
     * @param   int     $max            If applicable, the number of max bytes.
     * @return  void
     */
    public function _notify(
        $ncode,
        $severity,
        $message,
        $code,
        $transferred,
        $max
    ) {
        static $_map = [
            STREAM_NOTIFY_AUTH_REQUIRED => 'authrequire',
            STREAM_NOTIFY_AUTH_RESULT   => 'authresult',
            STREAM_NOTIFY_COMPLETED     => 'complete',
            STREAM_NOTIFY_CONNECT       => 'connect',
            STREAM_NOTIFY_FAILURE       => 'failure',
            STREAM_NOTIFY_MIME_TYPE_IS  => 'mimetype',
            STREAM_NOTIFY_PROGRESS      => 'progress',
            STREAM_NOTIFY_REDIRECTED    => 'redirect',
            STREAM_NOTIFY_RESOLVE       => 'resolve',
            STREAM_NOTIFY_FILE_SIZE_IS  => 'size'
        ];

        $this->getListener()->fire($_map[$ncode], new Event\Bucket([
            'code'        => $code,
            'severity'    => $severity,
            'message'     => $message,
            'transferred' => $transferred,
            'max'         => $max
        ]));

        return;
    }

    /**
     * Call the $handler->close() method on each stream in the static stream
     * register.
     * This method does not check the return value of $handler->close(). Thus,
     * if a stream is persistent, the $handler->close() should do anything. It
     * is a very generic method.
     *
     * @return  void
     */
    final public static function _Hoa_Stream()
    {
        foreach (self::$_register as $entry) {
            $entry[self::HANDLER]->close();
        }

        return;
    }

    /**
     * Transform object to string.
     *
     * @return  string
     */
    public function __toString()
    {
        return $this->getStreamName();
    }

    /**
     * Close the stream when destructing.
     *
     * @return  void
     */
    public function __destruct()
    {
        if (false === $this->isOpened()) {
            return;
        }

        $this->close();

        return;
    }
}

/**
 * Class \Hoa\Stream\_Protocol.
 *
 * The `hoa://Library/Stream` node.
 *
 * @copyright  Copyright © 2007-2017 Hoa community
 * @license    New BSD License
 */
class _Protocol extends Protocol\Node
{
    /**
     * Component's name.
     *
     * @var string
     */
    protected $_name = 'Stream';


    /**
     * ID of the component.
     *
     * @param   string  $id    ID of the component.
     * @return  mixed
     */
    public function reachId($id)
    {
        return Stream::getStreamHandler($id);
    }
}

/**
 * Flex entity.
 */
Consistency::flexEntity('Hoa\Stream\Stream');

/**
 * Shutdown method.
 */
Consistency::registerShutdownFunction(xcallable('Hoa\Stream\Stream::_Hoa_Stream'));

/**
 * Add the `hoa://Library/Stream` node. Should be use to reach/get an entry
 * in the stream register.
 */
$protocol              = Protocol::getInstance();
$protocol['Library'][] = new _Protocol();