<?php

/**
 * @package Dotclear
 *
 * @copyright Olivier Meunier & Association Dotclear
 * @copyright AGPL-3.0
 */
declare(strict_types=1);

namespace Dotclear\Schema\Database\PdoSqlite;

use Collator;
use Dotclear\Database\AbstractPdoHandler;
use PDO;

/**
 * @class Handler
 *
 * SQLite Database handler
 */
class Handler extends AbstractPdoHandler
{
    /**
     * @var string HANDLER_NAME
     */
    public const HANDLER_NAME = 'SQLite (PDO)';

    /**
     * @var string HANDLER_DRIVER
     */
    public const HANDLER_DRIVER = 'pdosqlite';

    /**
     * @var string HANDLER_SYNTAX
     */
    public const HANDLER_SYNTAX = 'sqlite';

    /**
     * @var string HANDLER_PDO
     */
    public const HANDLER_PDO = 'sqlite';

    /**
     * UTF-8 Collator (if class exists)
     *
     * @var        mixed    $utf8_unicode_ci
     */
    protected $utf8_unicode_ci;

    protected bool $vacuum = false;

    public function db_dsn(string $host, string $user, string $password, string $database): string
    {
        $handler = static::HANDLER_PDO;

        return $handler . ':' . $database;
    }

    protected function db_post_connect(PDO $handle): void
    {
        $this->db_exec($handle, 'PRAGMA short_column_names = 1');
        $this->db_exec($handle, 'PRAGMA encoding = "UTF-8"');
        $handle->sqliteCreateFunction('now', $this->now(...), 0);
        if (class_exists('Collator')) {
            $this->utf8_unicode_ci = new Collator('root');
            if (!$handle->sqliteCreateCollation('utf8_unicode_ci', $this->utf8_unicode_ci->compare(...))) {
                $this->utf8_unicode_ci = null;
            }
        }
    }

    public function db_close($handle): void
    {
        if ($handle instanceof PDO) {
            if ($this->vacuum) {
                $this->db_exec($handle, 'VACUUM');
            }

            $handle       = null;
            $this->__link = null;
        }
    }

    public function escapeSystem(string $str): string
    {
        return "'" . $this->escapeStr($str) . "'";
    }

    public function db_write_lock(string $table): void
    {
        $this->execute('BEGIN EXCLUSIVE TRANSACTION');
    }

    public function vacuum(string $table): void
    {
        $this->vacuum = true;
    }

    public function dateFormat(string $field, string $pattern): string
    {
        return "strftime('" . $this->escapeStr($pattern) . "'," . $field . ')';
    }

    public function orderBy(array|string ...$args): string
    {
        $res     = [];
        $default = [
            'order'   => '',
            'collate' => false,
        ];
        foreach ($args as $v) {
            if (is_string($v)) {
                $res[] = $v;
            } elseif (!empty($v['field'])) {
                $v     = array_merge($default, $v);
                $order = strtoupper($v['order']);
                $order = ($order === 'DESC' ? $order : '');
                if ($v['collate'] === true) {
                    if ($this->utf8_unicode_ci instanceof Collator) {
                        $res[] = $v['field'] . ' COLLATE utf8_unicode_ci ' . $order;
                    } else {
                        $res[] = 'LOWER(' . $v['field'] . ') ' . $order;
                    }
                } else {
                    $res[] = $v['field'] . ' ' . $order;
                }
            }
        }

        return $res === [] ? '' : ' ORDER BY ' . implode(',', $res) . ' ';
    }

    public function lexFields(array|string ...$args): string
    {
        $res = [];
        $fmt = $this->utf8_unicode_ci instanceof Collator ? '%s COLLATE utf8_unicode_ci' : 'LOWER(%s)';
        foreach ($args as $v) {
            if (is_string($v)) {
                $res[] = sprintf($fmt, $v);
            } else {
                $res = array_map(fn (string $i): string => sprintf($fmt, $i), $v);
            }
        }

        return implode(',', $res);
    }

    # Internal SQLite function that adds NOW() SQL function.
    public function now(): string|false
    {
        return date('Y-m-d H:i:s');
    }
}
