<?php

namespace App\Lib\Helpers;

use Illuminate\Contracts\Database\Eloquent\Builder;
use Illuminate\Contracts\Pagination\LengthAwarePaginator;
use Illuminate\Database\Eloquent\Model;
use Illuminate\Http\Request;
use Illuminate\Support\Facades\File;
use Illuminate\Support\Facades\Route;
use Illuminate\Support\Facades\Storage;
use Illuminate\Support\Facades\Validator;
use Illuminate\Validation\Rule;
use Illuminate\Validation\ValidationException;
use Symfony\Component\HttpKernel\Exception\NotFoundHttpException;

class ToolboxHelper
{
    /**
     * Compute plain text to html representation.
     *
     * @param string $text
     * @return string
     */
    public static function plainToHtml(string $text): string
    {
        $text = e($text);
        // * url replace and email replace
        $text = preg_replace_callback(
            // phpcs:ignore Generic.Files.LineLength.TooLong
            '/(?P<email>[^\s@]+@([^\s@.,]+\.)+[^\s@.,]{2,})|(?P<user>@\w*)|(?P<url>(?:http[s]?:\/\/.)?(?:www\.)?[-a-zA-Z0-9@%._\+~#=]{2,256}\.[a-z]{2,6}\b(?:[-a-zA-Z0-9@:%_\+.~#?&\/\/=]*))/',
            function ($matches) {
                $match = collect($matches)->first() ?? '';
                if (filter_var($match, FILTER_VALIDATE_EMAIL)) {
                    return strlen($match) ? "<a href=\"mailto:$match\">$match</a>" : $match;
                } elseif (isset($matches['user']) and strlen($matches['user'])) {
                    return sprintf(
                        '<span class="text-primary fw-bold font-weight-bold">%s</span>',
                        $matches['user']
                    );
                } else {
                    $url = $match;
                    if (\strpos($url, 'http') === false and \strpos($url, 'https') === false) {
                        $url = sprintf(
                            '%s://%s',
                            config('app.env') !== 'local' ? 'https' : 'http',
                            $url
                        );
                    }
                    $fsligthbox = self::isImageFile($url) ? 'data-fslightbox="gallery"' : '';
                    return strlen($match) ? "<a $fsligthbox href=\"$url\" target=\"_blank\">$match</a>" : $match;
                }
            },
            $text
        );
        return nl2br($text);
    }

    /**
     * Check uri points to image file
     *
     * @param string $url
     * @return boolean
     */
    public static function isImageFile(string $url): bool
    {
        $m = [];
        return \preg_match('/(\.png|\.jpg|\.jpeg|\.gif)$/', $url, $m) === 1;
    }

    /**
     * Check uri points to pdf file
     *
     * @param string $url
     * @return boolean
     */
    public static function isPdfFile(string $url): bool
    {
        $m = [];
        return \preg_match('/(\.pdf)$/', $url, $m) === 1;
    }

    /**
     * Strip scheme (https) on oembed urls
     * Only embed allowed are for MP4 self hosted videos right now
     *
     * https is force by ckeditor MediaElements which natively supports
     * only cloud hosted medias (youtube, spotify etc..)
     *
     * @param string $input
     * @return string
     */
    public static function stripCkEditorSchemesOnMediaInputs(string $input): string
    {
        $input = \preg_replace('/(?<=<oembed url=")(https:\/\/)(?=.*?">)/m', '', $input);
        return $input;
    }

    /**
     * Assert That no Back Office url is present on txt
     *
     * @param string $field
     * @param string $text
     * @return string
     * @throws \Illuminate\Validation\ValidationException If url is a bo url.
     */
    public static function assertNoInternalBoUrls(string $field, string $text): string
    {
        $routes = Route::getRoutes();
        // * Url replace and email replace.
        $text = preg_replace_callback(
            // phpcs:ignore Generic.Files.LineLength.TooLong
            '/(?P<url>(?:http[s]?:\/\/.)?(?:www\.)?[-a-zA-Z0-9@%._\+~#=]{2,256}\.[a-z]{2,6}\b(?:[-a-zA-Z0-9@:%_\+.~#?&\/\/=]*))/',
            function ($matches) use ($routes, $field) {
                $match = collect($matches)->first() ?? '';
                $url   = $match;
                try {
                    $request = Request::create($url);
                    // If a route is match then it do not throws exception.
                    if (
                        \parse_url(config('app.url'), \PHP_URL_HOST) === \parse_url($url, \PHP_URL_HOST) &&
                        trim($routes->match($request)->getPrefix() ?? '', '/') === 'bo'
                    ) {
                        // Removes the matched url.
                        throw ValidationException::withMessages([
                            $field => trans(
                                'crud.libs.toolbox.assertNoInternalBoUrls',
                                ['attribute' => $field]
                            )
                        ]);
                    }
                    return $match;
                } catch (NotFoundHttpException $e) {
                    return $match;
                }
            },
            $text
        );
        return $text;
    }

    /**
     * Assert That only external url is present on txt
     *
     * @param string $field
     * @param string $text
     * @return string
     * @throws \Illuminate\Validation\ValidationException If url is a bo url.
     */
    public static function assertNoInternalUrls(string $field, string $text): string
    {
        self::assertNoInternalBoUrls($field, $text);
        $routes = Route::getRoutes();
        // * Url replace and email replace.
        $text = preg_replace_callback(
            // phpcs:ignore Generic.Files.LineLength.TooLong
            '/(?P<url>(?:http[s]?:\/\/.)?(?:www\.)?[-a-zA-Z0-9@%._\+~#=]{2,256}\.[a-z]{2,6}\b(?:[-a-zA-Z0-9@:%_\+.~#?&\/\/=]*))/',
            function ($matches) use ($routes, $field) {
                $match = collect($matches)->first() ?? '';
                $url   = $match;
                try {
                    $request = Request::create($url);
                    // If a route is match then it do not throws exception.
                    if (
                        \parse_url(config('app.url'), \PHP_URL_HOST) === \parse_url($url, \PHP_URL_HOST) &&
                        $routes->match($request)
                    ) {
                        // Removes the matched url.
                        throw ValidationException::withMessages([
                            $field => trans(
                                'crud.libs.toolbox.assertNoInternalUrls',
                                ['attribute' => $field, 'appname' => config('app.name')]
                            )
                        ]);
                    }
                    return $match;
                } catch (NotFoundHttpException $e) {
                    return $match;
                }
            },
            $text
        );
        return $text;
    }

    /**
     * Assert Is Unique
     *
     * @param \Illuminate\Database\Eloquent\Model $model
     * @param array<string>                       $columns
     * @return void
     * @throws \Illuminate\Validation\ValidationException If a model like this already exists.
     */
    public static function assertIsUnique(Model $model, array $columns): void
    {
        $columns = collect($columns);
        /** @var string|null */
        $firstColumn = $columns->pull($columns->keys()->first());
        if (!$firstColumn) {
            return;
        }
        $modelClass = \get_class($model);
        $uniqueRule = Rule::unique((new $modelClass())->getTable());
        if ($model->id) {
            $uniqueRule->ignore($model->id);
        }
        $uniqueRule->where(function ($q) use ($model, $columns) {
            $columns->map(function (string $column) use ($model, $q) {
                $q->where($column, $model->{$column});
            });
        });
        Validator::make([$firstColumn => $model->{$firstColumn}], [
            $firstColumn => ['required', $uniqueRule]
        ])->validate();
    }

    /**
     * @param array<int|string, mixed> $array1
     * @param array<int|string, mixed> $array2
     *
     * @return array<int|string, mixed>
     */
    public static function arrayMergeRecursiveDistinct(array &$array1, array &$array2): array
    {
        $merged = $array1;
        foreach ($array2 as $key => &$value) {
            if (is_array($value) && isset($merged[$key]) && is_array($merged[$key])) {
                $merged[$key] = self::arrayMergeRecursiveDistinct($merged[$key], $value);
            } else {
                $merged[$key] = $value;
            }
        }

        return $merged;
    }

    /**
     * Mutltibyte string replace
     *
     * @param array|string $search
     * @param array|string $replace
     * @param array|string $subject
     * @param integer      $count
     * @return array|string
     */
    public static function mbReplace(
        array|string $search,
        array|string $replace,
        array|string $subject,
        int &$count = 0
    ): array|string {
        if (!is_array($search) && is_array($replace)) {
            return false;
        }
        if (is_array($subject)) {
            // Call mb_replace for each single string in $subject .
            foreach ($subject as &$string) {
                $string = &self::mbReplace($search, $replace, $string, $count);
            }
        } elseif (is_array($search)) {
            if (!is_array($replace)) {
                foreach ($search as &$string) {
                    $subject = self::mbReplace($string, $replace, $subject, $count);
                }
            } else {
                $n = max(count($search), count($replace));
                while ($n--) {
                    $subject = self::mbReplace(current($search), current($replace), $subject, $count);
                    next($search);
                    next($replace);
                }
            }
        } else {
            $parts   = mb_split(preg_quote($search), $subject);
            $count   = count($parts) - 1;
            $subject = implode($replace, $parts);
        } //end if
        return $subject;
    }

    /**
     * Asserts that the field is unique
     *
     * @param string                                  $table
     * @param string                                  $field
     * @param string|integer|float|boolean|null|array $value
     * @param integer|null                            $id
     * @param callable|null                           $query
     * @return void
     * @throws \Illuminate\Validation\ValidationException If the field is not unique.
     */
    public static function assertFieldIsUnique(
        string $table,
        string $field,
        string|int|float|bool|null|array $value,
        ?int $id = null,
        ?callable $query = null
    ) {
        if (!$query) {
            Validator::make([$field => $value], [
                self::mbReplace('.', '\.', $field) => Rule::unique($table, $field)->ignore($id),
            ], [
                self::mbReplace('.', '\.', "{$field}.unique")
                => trans('crud.libs.toolbox.assertFieldIsUnique', ['attribute' => $field, 'value' => $value])
            ])->validate();
            return;
        }
        Validator::make([$field => $value], [
            $field => Rule::unique($table)->where($query)->ignore($id),
        ], [
            $field . '.unique' => trans(
                'crud.libs.toolbox.assertFieldIsUnique',
                ['attribute' => $field, 'value' => $value]
            )
        ])->validate();
    }

    /**
     * Get original polyfill with autotranslate behavior
     *
     * @param \Illuminate\Database\Eloquent\Model $model
     * @param string                              $attribute
     * @return mixed
     */
    public static function getOriginal(Model $model, string $attribute): mixed
    {
        if (\in_array('Spatie\Translatable\HasTranslations', \class_uses_recursive($model))) {
            return $model->getTranslation(
                $attribute,
                $model->getLocale(),
                $model->useFallbackLocale()
            );
        }
        return $model->getOriginal($attribute);
    }

    /**
     * Dynamic model query
     *
     * @param string                                          $defaultLocale
     * @param \Illuminate\Contracts\Database\Eloquent\Builder $q
     * @param string                                          $column
     * @param string                                          $value
     * @return \Illuminate\Contracts\Database\Eloquent\Builder
     */
    public static function queryColumnWithLocales(
        string $defaultLocale,
        Builder $q,
        string $column,
        string $value
    ): Builder {
        $currentLocale = app()->currentLocale();
        $locales       = collect(config('app.locales'))
            ->mapWithKeys(fn(string $locale) => [$locale => $locale]);
        if (!$locales->has($defaultLocale)) {
            // * Remove default locale.
            $locales->pull($defaultLocale);
        }
        if (!$locales->has($currentLocale)) {
            // * Remove current locale.
            $locales->pull($currentLocale);
        }

        return $q->where(function (Builder $q) use ($defaultLocale, $currentLocale, $locales, $column, $value) {
            // * Query default locale
            $q->whereRaw("JSON_EXTRACT({$column}, '$.{$defaultLocale}') = '{$value}'");
            if ($defaultLocale !== $currentLocale) {
                // * Query current locale
                $q->whereRaw("JSON_EXTRACT({$column}, '$.{$currentLocale}') = '{$value}'");
            }
            // * Query any other locale
            $locales->each(fn($locale) => $q->orWhereRaw(
                "JSON_EXTRACT({$column}, '$.{$locale}') = '{$value}'"
            ));
        });
    }

    /**
     * Generates an array from a dot separated string
     *
     * @param string $path
     * @param mixed  $value
     * @param string $separator
     * @return array
     */
    public static function dotStringToNestedArray(string $path, mixed $value, string $separator = '.'): array
    {
        $arr  = $value;
        $keys = array_reverse(explode($separator, $path));

        foreach ($keys as $key) {
            $arr = [$key => $arr];
        }
        return $arr;
    }

    /**
     * Convert deeply an object to array
     *
     * @param array|object $input
     * @return array
     * @throws \RuntimeException If $input var is a scalar value.
     */
    public static function objectToArray($input): array
    {
        // Only process if it's an object or array being passed to the function.
        if (is_object($input) or is_array($input)) {
            $ret = (array)$input;
            foreach ($ret as &$item) {
                // Recursively process EACH element only if not scalar.
                $item = (is_object($item) or is_array($item)) ?
                    self::objectToArray($item) : $item;
            }
            return $ret;
        } else {
            throw new \RuntimeException('Cannot handle $input of type ' . \gettype($input));
        }
    }

    /**
     * Convert deeply an array to object
     *
     * @param array|object $input
     * @return object
     * @throws \RuntimeException If $input var is a scalar value.
     */
    public static function arrayToObject($input): object
    {
        // Only process if it's an object or array being passed to the function.
        if (is_object($input) or is_array($input)) {
            $ret = (object)$input;
            foreach ($ret as &$item) {
                // Recursively process EACH element only if not scalar.
                $item = (is_object($item) or is_array($item)) ?
                    self::arrayToObject($item) : $item;
            }
            return $ret;
        } else {
            throw new \RuntimeException('Cannot handle $input of type ' . \gettype($input));
        }
    }

    /**
     * Validate picture
     *
     * @param string      $attribute
     * @param string|null $value
     * @param callback    $fail
     * @param object      $sizes
     * @return void
     */
    public static function validatePicture(string $attribute, string|null $value, callable $fail, object $sizes)
    {
        if (!($useStorage = Storage::exists($value)) and !File::exists($value)) {
            $fail(trans(':attribute n\'existe pas dans le système de fichier', [
                'attribute' => $attribute
            ]));
            return;
        }
        /** @var string */
        $fileFullPath = self::getUploadedFileFullPath($value, $useStorage);
        if (
            !\in_array(self::getUploadedFileMimeType($value, $useStorage), [
                'image/jpeg',
                'image/jpg',
                'image/png',
                'image/gif'
            ])
        ) {
            $fail(trans(':attribute doit être une image de type \'image/jpeg,image/jpg,image/png,image/gif\'', [
                'attribute' => $attribute
            ]));
        }
        if (!($dimensions = \getimagesize($fileFullPath)) or !isset($dimensions[0]) or !isset($dimensions[1])) {
            $fail(trans(':attribute impossible de valider les dimensions', [
                'attribute' => $attribute
            ]));
        } else {
            $width  = intval($dimensions[0]);
            $height = intval($dimensions[1]);

            $xMessage = trans(
                ":attribute la largeur doit être comprise entre {$sizes->minWith}px et {$sizes->maxWith}px"
            );
            if ($sizes->minWith === $sizes->maxWith) {
                $xMessage = trans(":attribute la largeur doit être de {$sizes->minWith}px");
            }
            $yMessage = trans(
                ":attribute la hauteur doit être comprise entre {$sizes->minWith}px et {$sizes->maxWith}px"
            );
            if ($sizes->minHeight === $sizes->maxHeight) {
                $yMessage = trans(":attribute la hauteur doit être de {$sizes->minWith}px");
            }

            if (($width < $sizes->minWith) or ($width > $sizes->maxWith)) {
                $fail($xMessage);
            }
            if (($height < $sizes->minHeight) or ($height > $sizes->maxHeight)) {
                $fail($yMessage);
            }
        } //end if
    }

    /**
     * Get the file full path
     *
     * @param string  $value
     * @param boolean $useStorage
     * @return string
     */
    private static function getUploadedFileFullPath(string $value, bool $useStorage): string
    {
        /** @var \Illuminate\Filesystem\FilesystemAdapter */
        $disk = Storage::disk();
        return !$useStorage ? (realpath($value) ?: $value) : $disk->path($value);
    }

    /**
     * Get the file mimetype
     *
     * @param string  $value
     * @param boolean $useStorage
     * @return string|false
     */
    private static function getUploadedFileMimeType(string $value, bool $useStorage)
    {
        return !$useStorage ? File::mimeType($value) : Storage::mimeType($value);
    }

    /**
     * Return a json in a good format for schedule.
     *
     * @param \Illuminate\Pagination\LengthAwarePaginator $collectionPaginated
     * @param mixed                                       $formatFunction
     * @return \Illuminate\Http\JsonResponse
     */
    public static function jsonPaginate(
        LengthAwarePaginator $collectionPaginated,
        mixed $formatFunction = null
    ): \Illuminate\Http\JsonResponse {
        $collectionFormatted = $collectionPaginated->getCollection()
            ->map(function (Model $model) use ($formatFunction) {
                $model->name  = $formatFunction ? $model->$formatFunction($model) : $model->name;
                $model->label = $formatFunction ? $model->$formatFunction($model) : $model->name;
                $model->value = $model->id;
                return $model;
            });

        $models = new \Illuminate\Pagination\LengthAwarePaginator(
            $collectionFormatted,
            $collectionPaginated->total(),
            $collectionPaginated->perPage(),
            $collectionPaginated->currentPage(),
            [
                'path' => config('app.url') . '/' . request()->path(),
                'query' => [
                    'page' => $collectionPaginated->currentPage()
                ]
            ]
        );

        return \response()->json($models ?? 500);
    }
}