<?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\Console;

use Hoa\Consistency;
use Hoa\Event;

/**
* Class \Hoa\Console\Mouse.
*
* Allow to listen the mouse.
*
* @copyright Copyright © 2007-2017 Hoa community
* @license New BSD License
*/
class Mouse implements Event\Listenable
{
use Event\Listens;

/**
* Pointer code for left button.
*
* @const int
*/
const BUTTON_LEFT = 0;

/**
* Pointer code for the middle button.
*
* @const int
*/
const BUTTON_MIDDLE = 1;

/**
* Pointer code for the right button.
*
* @const int
*/
const BUTTON_RIGHT = 2;

/**
* Pointer code for the release of the button.
*
* @const int
*/
const BUTTON_RELEASE = 3;

/**
* Pointer code for the wheel up.
*
* @const int
*/
const WHEEL_UP = 64;

/**
* Pointer code for the wheel down.
*
* @const int
*/
const WHEEL_DOWN = 65;

/**
* Singleton.
*
* @var \Hoa\Console\Mouse
*/
protected static $_instance = null;

/**
* Whether the mouse is tracked or not.
*
* @var bool
*/
protected static $_enabled = false;



/**
* Constructor.
*
*/
private function __construct()
{
$this->setListener(
new Event\Listener(
$this,
[
'mouseup',
'mousedown',
'wheelup',
'wheeldown',
]
)
);

return;
}

/**
* Singleton.
*
* @return \Hoa\Console\Mouse
*/
public static function getInstance()
{
if (null === static::$_instance) {
static::$_instance = new static();
}

return static::$_instance;
}

/**
* Track the mouse.
*
* @return bool
*/
public static function track()
{
if (true === static::$_enabled) {
return;
}

static::$_enabled = true;

Console::getOutput()->writeAll(
"\033[1;2'z" .
"\033[?1000h" .
"\033[?1003h"
);

$instance = static::getInstance();
$bucket = [
'x' => 0,
'y' => 0,
'button' => null,
'shift' => false,
'meta' => false,
'ctrl' => false
];
$input = Console::getInput();
$read = [$input->getStream()->getStream()];

while (true) {
if (false === @stream_select($read, $write, $except, 30)) {
static::untrack();

break;
}

$string = $input->readCharacter();

if ("\033" !== $string) {
continue;
}

$char = $input->readCharacter();

if ('[' !== $char) {
continue;
}

$char = $input->readCharacter();

if ('M' !== $char) {
continue;
}

$data = $input->read(3);
$cb = ord($data[0]);
$cx = ord($data[1]) - 32;
$cy = ord($data[2]) - 32;

$bucket['x'] = $cx;
$bucket['y'] = $cy;
$bucket['shift'] = 0 !== ($cb & 4);
$bucket['meta'] = 0 !== ($cb & 8);
$bucket['ctrl'] = 0 !== ($cb & 16);

$cb = ($cb | 28) ^ 28; // 28 = 4 | 8 | 16
$cb -= 32;

switch ($cb) {
case static::WHEEL_UP:
$instance->getListener()->fire(
'wheelup',
new Event\Bucket($bucket)
);

break;

case static::WHEEL_DOWN:
$instance->getListener()->fire(
'wheeldown',
new Event\Bucket($bucket)
);

break;

case static::BUTTON_RELEASE:
$instance->getListener()->fire(
'mouseup',
new Event\Bucket($bucket)
);
$bucket['button'] = null;

break;

default:
if (static::BUTTON_LEFT === $cb) {
$bucket['button'] = 'left';
} elseif (static::BUTTON_MIDDLE === $cb) {
$bucket['button'] = 'middle';
} elseif (static::BUTTON_RIGHT === $cb) {
$bucket['button'] = 'right';
} else {
// hover
continue 2;
}

$instance->getListener()->fire(
'mousedown',
new Event\Bucket($bucket)
);
}
}

return;
}

/**
* Untrack the mouse.
*
* @return void
*/
public static function untrack()
{
if (false === static::$_enabled) {
return;
}

Console::getOutput()->writeAll(
"\033[?1003l" .
"\033[?1000l"
);

static::$_enabled = false;

return;
}
}

/**
* Advanced interaction.
*/
Console::advancedInteraction();

/**
* Untrack mouse.
*/
Consistency::registerShutdownFunction(xcallable('Hoa\Console\Mouse::untrack'));