<?php

namespace PhpOffice\PhpSpreadsheet\Cell;

use PhpOffice\PhpSpreadsheet\Exception;
use PhpOffice\PhpSpreadsheet\Worksheet\Worksheet;

/**
 * Helper class to manipulate cell coordinates.
 *
 * Columns indexes and rows are always based on 1, **not** on 0. This match the behavior
 * that Excel users are used to, and also match the Excel functions `COLUMN()` and `ROW()`.
 */
abstract class Coordinate
{

>     public const A1_COORDINATE_REGEX = '/^(?<absolute_col>\$?)(?<col_ref>[A-Z]{1,3})(?<absolute_row>\$?)(?<row_ref>\d{1,7})$/i';
    /**
> 


     * Default range variable constant.
     *
     * @var string
     */
    const DEFAULT_RANGE = 'A1:A1';

    /**
     * Coordinate from string.
     *

<      * @param string $pCoordinateString eg: 'A1'



>      * @param string $cellAddress eg: 'A1'


     *

<      * @return string[] Array containing column and row (indexes 0 and 1)



>      * @return array{0: string, 1: string} Array containing column and row (indexes 0 and 1)


     */

<     public static function coordinateFromString($pCoordinateString)



>     public static function coordinateFromString($cellAddress)


    {

<         if (preg_match('/^([$]?[A-Z]{1,3})([$]?\\d{1,7})$/', $pCoordinateString, $matches)) {
<             return [$matches[1], $matches[2]];
<         } elseif (self::coordinateIsRange($pCoordinateString)) {



>         if (preg_match(self::A1_COORDINATE_REGEX, $cellAddress, $matches)) {
>             return [$matches['absolute_col'] . $matches['col_ref'], $matches['absolute_row'] . $matches['row_ref']];
>         } elseif (self::coordinateIsRange($cellAddress)) {


            throw new Exception('Cell coordinate string can not be a range of cells');

<         } elseif ($pCoordinateString == '') {



>         } elseif ($cellAddress == '') {


            throw new Exception('Cell coordinate can not be zero-length string');
        }


<         throw new Exception('Invalid cell coordinate ' . $pCoordinateString);



>         throw new Exception('Invalid cell coordinate ' . $cellAddress);
>     }
> 
>     /**
>      * Get indexes from a string coordinates.
>      *
>      * @param string $coordinates eg: 'A1', '$B$12'
>      *
>      * @return array{0: int, 1: int} Array containing column index and row index (indexes 0 and 1)
>      */
>     public static function indexesFromString(string $coordinates): array
>     {
>         [$col, $row] = self::coordinateFromString($coordinates);
> 
>         return [
>             self::columnIndexFromString(ltrim($col, '$')),
>             (int) ltrim($row, '$'),
>         ];


    }

    /**

<      * Checks if a coordinate represents a range of cells.



>      * Checks if a Cell Address represents a range of cells.


     *

<      * @param string $coord eg: 'A1' or 'A1:A2' or 'A1:A2,C1:C2'



>      * @param string $cellAddress eg: 'A1' or 'A1:A2' or 'A1:A2,C1:C2'


     *
     * @return bool Whether the coordinate represents a range of cells
     */

<     public static function coordinateIsRange($coord)



>     public static function coordinateIsRange($cellAddress)


    {

<         return (strpos($coord, ':') !== false) || (strpos($coord, ',') !== false);



>         return (strpos($cellAddress, ':') !== false) || (strpos($cellAddress, ',') !== false);


    }

    /**
     * Make string row, column or cell coordinate absolute.
     *

<      * @param string $pCoordinateString e.g. 'A' or '1' or 'A1'



>      * @param string $cellAddress e.g. 'A' or '1' or 'A1'


     *                    Note that this value can be a row or column reference as well as a cell reference
     *
     * @return string Absolute coordinate        e.g. '$A' or '$1' or '$A$1'
     */

<     public static function absoluteReference($pCoordinateString)



>     public static function absoluteReference($cellAddress)


    {

<         if (self::coordinateIsRange($pCoordinateString)) {



>         if (self::coordinateIsRange($cellAddress)) {


            throw new Exception('Cell coordinate string can not be a range of cells');
        }

        // Split out any worksheet name from the reference

<         [$worksheet, $pCoordinateString] = Worksheet::extractSheetTitle($pCoordinateString, true);



>         [$worksheet, $cellAddress] = Worksheet::extractSheetTitle($cellAddress, true);


        if ($worksheet > '') {
            $worksheet .= '!';
        }

        // Create absolute coordinate

<         if (ctype_digit($pCoordinateString)) {
<             return $worksheet . '$' . $pCoordinateString;
<         } elseif (ctype_alpha($pCoordinateString)) {
<             return $worksheet . '$' . strtoupper($pCoordinateString);



>         if (ctype_digit($cellAddress)) {
>             return $worksheet . '$' . $cellAddress;
>         } elseif (ctype_alpha($cellAddress)) {
>             return $worksheet . '$' . strtoupper($cellAddress);


        }


<         return $worksheet . self::absoluteCoordinate($pCoordinateString);



>         return $worksheet . self::absoluteCoordinate($cellAddress);


    }

    /**
     * Make string coordinate absolute.
     *

<      * @param string $pCoordinateString e.g. 'A1'



>      * @param string $cellAddress e.g. 'A1'


     *
     * @return string Absolute coordinate        e.g. '$A$1'
     */

<     public static function absoluteCoordinate($pCoordinateString)



>     public static function absoluteCoordinate($cellAddress)


    {

<         if (self::coordinateIsRange($pCoordinateString)) {



>         if (self::coordinateIsRange($cellAddress)) {


            throw new Exception('Cell coordinate string can not be a range of cells');
        }

        // Split out any worksheet name from the coordinate

<         [$worksheet, $pCoordinateString] = Worksheet::extractSheetTitle($pCoordinateString, true);



>         [$worksheet, $cellAddress] = Worksheet::extractSheetTitle($cellAddress, true);


        if ($worksheet > '') {
            $worksheet .= '!';
        }

        // Create absolute coordinate

<         [$column, $row] = self::coordinateFromString($pCoordinateString);



>         [$column, $row] = self::coordinateFromString($cellAddress);


        $column = ltrim($column, '$');
        $row = ltrim($row, '$');

        return $worksheet . '$' . $column . '$' . $row;
    }

    /**
     * Split range into coordinate strings.
     *

<      * @param string $pRange e.g. 'B4:D9' or 'B4:D9,H2:O11' or 'B4'



>      * @param string $range e.g. 'B4:D9' or 'B4:D9,H2:O11' or 'B4'


     *
     * @return array Array containing one or more arrays containing one or two coordinate strings
     *                                e.g. ['B4','D9'] or [['B4','D9'], ['H2','O11']]
     *                                        or ['B4']
     */

<     public static function splitRange($pRange)



>     public static function splitRange($range)


    {
        // Ensure $pRange is a valid range

<         if (empty($pRange)) {
<             $pRange = self::DEFAULT_RANGE;



>         if (empty($range)) {
>             $range = self::DEFAULT_RANGE;


        }


<         $exploded = explode(',', $pRange);



>         $exploded = explode(',', $range);


        $counter = count($exploded);
        for ($i = 0; $i < $counter; ++$i) {
            $exploded[$i] = explode(':', $exploded[$i]);
        }

        return $exploded;
    }

    /**
     * Build range from coordinate strings.
     *

<      * @param array $pRange Array containg one or more arrays containing one or two coordinate strings



>      * @param array $range Array containing one or more arrays containing one or two coordinate strings


     *
     * @return string String representation of $pRange
     */

<     public static function buildRange(array $pRange)



>     public static function buildRange(array $range)


    {
        // Verify range

<         if (empty($pRange) || !is_array($pRange[0])) {



>         if (empty($range) || !is_array($range[0])) {


            throw new Exception('Range does not contain any information');
        }

        // Build range

<         $counter = count($pRange);



>         $counter = count($range);


        for ($i = 0; $i < $counter; ++$i) {

<             $pRange[$i] = implode(':', $pRange[$i]);



>             $range[$i] = implode(':', $range[$i]);


        }


<         return implode(',', $pRange);



>         return implode(',', $range);


    }

    /**
     * Calculate range boundaries.
     *

<      * @param string $pRange Cell range (e.g. A1:A1)



>      * @param string $range Cell range (e.g. A1:A1)


     *
     * @return array Range coordinates [Start Cell, End Cell]
     *                    where Start Cell and End Cell are arrays (Column Number, Row Number)
     */

<     public static function rangeBoundaries($pRange)



>     public static function rangeBoundaries($range)


    {
        // Ensure $pRange is a valid range

<         if (empty($pRange)) {
<             $pRange = self::DEFAULT_RANGE;



>         if (empty($range)) {
>             $range = self::DEFAULT_RANGE;


        }

        // Uppercase coordinate

<         $pRange = strtoupper($pRange);



>         $range = strtoupper($range);



        // Extract range

<         if (strpos($pRange, ':') === false) {
<             $rangeA = $rangeB = $pRange;



>         if (strpos($range, ':') === false) {
>             $rangeA = $rangeB = $range;


        } else {

<             [$rangeA, $rangeB] = explode(':', $pRange);



>             [$rangeA, $rangeB] = explode(':', $range);


        }

        // Calculate range outer borders
        $rangeStart = self::coordinateFromString($rangeA);
        $rangeEnd = self::coordinateFromString($rangeB);

        // Translate column into index
        $rangeStart[0] = self::columnIndexFromString($rangeStart[0]);
        $rangeEnd[0] = self::columnIndexFromString($rangeEnd[0]);

        return [$rangeStart, $rangeEnd];
    }

    /**
     * Calculate range dimension.
     *

<      * @param string $pRange Cell range (e.g. A1:A1)



>      * @param string $range Cell range (e.g. A1:A1)


     *
     * @return array Range dimension (width, height)
     */

<     public static function rangeDimension($pRange)



>     public static function rangeDimension($range)


    {
        // Calculate range outer borders

<         [$rangeStart, $rangeEnd] = self::rangeBoundaries($pRange);



>         [$rangeStart, $rangeEnd] = self::rangeBoundaries($range);



        return [($rangeEnd[0] - $rangeStart[0] + 1), ($rangeEnd[1] - $rangeStart[1] + 1)];
    }

    /**
     * Calculate range boundaries.
     *

<      * @param string $pRange Cell range (e.g. A1:A1)



>      * @param string $range Cell range (e.g. A1:A1)


     *
     * @return array Range coordinates [Start Cell, End Cell]
     *                    where Start Cell and End Cell are arrays [Column ID, Row Number]
     */

<     public static function getRangeBoundaries($pRange)



>     public static function getRangeBoundaries($range)


    {
        // Ensure $pRange is a valid range

<         if (empty($pRange)) {
<             $pRange = self::DEFAULT_RANGE;



>         if (empty($range)) {
>             $range = self::DEFAULT_RANGE;


        }

        // Uppercase coordinate

<         $pRange = strtoupper($pRange);



>         $range = strtoupper($range);



        // Extract range

<         if (strpos($pRange, ':') === false) {
<             $rangeA = $rangeB = $pRange;



>         if (strpos($range, ':') === false) {
>             $rangeA = $rangeB = $range;


        } else {

<             [$rangeA, $rangeB] = explode(':', $pRange);



>             [$rangeA, $rangeB] = explode(':', $range);


        }

        return [self::coordinateFromString($rangeA), self::coordinateFromString($rangeB)];
    }

    /**
     * Column index from string.
     *

<      * @param string $pString eg 'A'



>      * @param string $columnAddress eg 'A'


     *
     * @return int Column index (A = 1)
     */

<     public static function columnIndexFromString($pString)



>     public static function columnIndexFromString($columnAddress)


    {
        //    Using a lookup cache adds a slight memory overhead, but boosts speed
        //    caching using a static within the method is faster than a class static,
        //        though it's additional memory overhead
        static $indexCache = [];


<         if (isset($indexCache[$pString])) {
<             return $indexCache[$pString];



>         if (isset($indexCache[$columnAddress])) {
>             return $indexCache[$columnAddress];


        }
        //    It's surprising how costly the strtoupper() and ord() calls actually are, so we use a lookup array rather than use ord()
        //        and make it case insensitive to get rid of the strtoupper() as well. Because it's a static, there's no significant
        //        memory overhead either
        static $columnLookup = [
            'A' => 1, 'B' => 2, 'C' => 3, 'D' => 4, 'E' => 5, 'F' => 6, 'G' => 7, 'H' => 8, 'I' => 9, 'J' => 10, 'K' => 11, 'L' => 12, 'M' => 13,
            'N' => 14, 'O' => 15, 'P' => 16, 'Q' => 17, 'R' => 18, 'S' => 19, 'T' => 20, 'U' => 21, 'V' => 22, 'W' => 23, 'X' => 24, 'Y' => 25, 'Z' => 26,
            'a' => 1, 'b' => 2, 'c' => 3, 'd' => 4, 'e' => 5, 'f' => 6, 'g' => 7, 'h' => 8, 'i' => 9, 'j' => 10, 'k' => 11, 'l' => 12, 'm' => 13,
            'n' => 14, 'o' => 15, 'p' => 16, 'q' => 17, 'r' => 18, 's' => 19, 't' => 20, 'u' => 21, 'v' => 22, 'w' => 23, 'x' => 24, 'y' => 25, 'z' => 26,
        ];


<         //    We also use the language construct isset() rather than the more costly strlen() function to match the length of $pString



>         //    We also use the language construct isset() rather than the more costly strlen() function to match the length of $columnAddress


        //        for improved performance

<         if (isset($pString[0])) {
<             if (!isset($pString[1])) {
<                 $indexCache[$pString] = $columnLookup[$pString];



>         if (isset($columnAddress[0])) {
>             if (!isset($columnAddress[1])) {
>                 $indexCache[$columnAddress] = $columnLookup[$columnAddress];




<                 return $indexCache[$pString];
<             } elseif (!isset($pString[2])) {
<                 $indexCache[$pString] = $columnLookup[$pString[0]] * 26 + $columnLookup[$pString[1]];



>                 return $indexCache[$columnAddress];
>             } elseif (!isset($columnAddress[2])) {
>                 $indexCache[$columnAddress] = $columnLookup[$columnAddress[0]] * 26 + $columnLookup[$columnAddress[1]];




<                 return $indexCache[$pString];
<             } elseif (!isset($pString[3])) {
<                 $indexCache[$pString] = $columnLookup[$pString[0]] * 676 + $columnLookup[$pString[1]] * 26 + $columnLookup[$pString[2]];



>                 return $indexCache[$columnAddress];
>             } elseif (!isset($columnAddress[3])) {
>                 $indexCache[$columnAddress] = $columnLookup[$columnAddress[0]] * 676 + $columnLookup[$columnAddress[1]] * 26 + $columnLookup[$columnAddress[2]];




<                 return $indexCache[$pString];



>                 return $indexCache[$columnAddress];


            }
        }


<         throw new Exception('Column string index can not be ' . ((isset($pString[0])) ? 'longer than 3 characters' : 'empty'));



>         throw new Exception('Column string index can not be ' . ((isset($columnAddress[0])) ? 'longer than 3 characters' : 'empty'));


    }

    /**
     * String from column index.
     *
     * @param int $columnIndex Column index (A = 1)
     *
     * @return string
     */
    public static function stringFromColumnIndex($columnIndex)
    {
        static $indexCache = [];

        if (!isset($indexCache[$columnIndex])) {
            $indexValue = $columnIndex;
            $base26 = null;
            do {
                $characterValue = ($indexValue % 26) ?: 26;
                $indexValue = ($indexValue - $characterValue) / 26;
                $base26 = chr($characterValue + 64) . ($base26 ?: '');
            } while ($indexValue > 0);
            $indexCache[$columnIndex] = $base26;
        }

        return $indexCache[$columnIndex];
    }

    /**
     * Extract all cell references in range, which may be comprised of multiple cell ranges.
     *
     * @param string $cellRange Range: e.g. 'A1' or 'A1:C10' or 'A1:E10,A20:E25' or 'A1:E5 C3:G7' or 'A1:C1,A3:C3 B1:C3'
     *
     * @return array Array containing single cell references
     */
    public static function extractAllCellReferencesInRange($cellRange): array
    {
        [$ranges, $operators] = self::getCellBlocksFromRangeString($cellRange);

        $cells = [];
        foreach ($ranges as $range) {
            $cells[] = self::getReferencesForCellBlock($range);
        }

        $cells = self::processRangeSetOperators($operators, $cells);

        if (empty($cells)) {
            return [];
        }

        $cellList = array_merge(...$cells);
        $cellList = self::sortCellReferenceArray($cellList);

        return $cellList;
    }

    private static function processRangeSetOperators(array $operators, array $cells): array
    {

<         for ($offset = 0; $offset < count($operators); ++$offset) {



>         $operatorCount = count($operators);
>         for ($offset = 0; $offset < $operatorCount; ++$offset) {


            $operator = $operators[$offset];
            if ($operator !== ' ') {
                continue;
            }

            $cells[$offset] = array_intersect($cells[$offset], $cells[$offset + 1]);
            unset($operators[$offset], $cells[$offset + 1]);
            $operators = array_values($operators);
            $cells = array_values($cells);
            --$offset;

>             --$operatorCount;


        }

        return $cells;
    }

    private static function sortCellReferenceArray(array $cellList): array
    {
        //    Sort the result by column and row
        $sortKeys = [];
        foreach ($cellList as $coord) {
            [$column, $row] = sscanf($coord, '%[A-Z]%d');
            $sortKeys[sprintf('%3s%09d', $column, $row)] = $coord;
        }
        ksort($sortKeys);

        return array_values($sortKeys);
    }

    /**
     * Get all cell references for an individual cell block.
     *
     * @param string $cellBlock A cell range e.g. A4:B5
     *
     * @return array All individual cells in that range
     */
    private static function getReferencesForCellBlock($cellBlock)
    {
        $returnValue = [];

        // Single cell?
        if (!self::coordinateIsRange($cellBlock)) {
            return (array) $cellBlock;
        }

        // Range...
        $ranges = self::splitRange($cellBlock);
        foreach ($ranges as $range) {
            // Single cell?
            if (!isset($range[1])) {
                $returnValue[] = $range[0];

                continue;
            }

            // Range...
            [$rangeStart, $rangeEnd] = $range;
            [$startColumn, $startRow] = self::coordinateFromString($rangeStart);
            [$endColumn, $endRow] = self::coordinateFromString($rangeEnd);
            $startColumnIndex = self::columnIndexFromString($startColumn);
            $endColumnIndex = self::columnIndexFromString($endColumn);
            ++$endColumnIndex;

            // Current data
            $currentColumnIndex = $startColumnIndex;
            $currentRow = $startRow;

            self::validateRange($cellBlock, $startColumnIndex, $endColumnIndex, $currentRow, $endRow);

            // Loop cells
            while ($currentColumnIndex < $endColumnIndex) {
                while ($currentRow <= $endRow) {
                    $returnValue[] = self::stringFromColumnIndex($currentColumnIndex) . $currentRow;
                    ++$currentRow;
                }
                ++$currentColumnIndex;
                $currentRow = $startRow;
            }
        }

        return $returnValue;
    }

    /**
     * Convert an associative array of single cell coordinates to values to an associative array
     * of cell ranges to values.  Only adjacent cell coordinates with the same
     * value will be merged.  If the value is an object, it must implement the method getHashCode().
     *
     * For example, this function converts:
     *
     *    [ 'A1' => 'x', 'A2' => 'x', 'A3' => 'x', 'A4' => 'y' ]
     *
     * to:
     *
     *    [ 'A1:A3' => 'x', 'A4' => 'y' ]
     *

<      * @param array $pCoordCollection associative array mapping coordinates to values



>      * @param array $coordinateCollection associative array mapping coordinates to values


     *
     * @return array associative array mapping coordinate ranges to valuea
     */

<     public static function mergeRangesInCollection(array $pCoordCollection)



>     public static function mergeRangesInCollection(array $coordinateCollection)


    {
        $hashedValues = [];
        $mergedCoordCollection = [];


<         foreach ($pCoordCollection as $coord => $value) {



>         foreach ($coordinateCollection as $coord => $value) {


            if (self::coordinateIsRange($coord)) {
                $mergedCoordCollection[$coord] = $value;

                continue;
            }

            [$column, $row] = self::coordinateFromString($coord);
            $row = (int) (ltrim($row, '$'));
            $hashCode = $column . '-' . (is_object($value) ? $value->getHashCode() : $value);

            if (!isset($hashedValues[$hashCode])) {
                $hashedValues[$hashCode] = (object) [
                    'value' => $value,
                    'col' => $column,
                    'rows' => [$row],
                ];
            } else {
                $hashedValues[$hashCode]->rows[] = $row;
            }
        }

        ksort($hashedValues);

        foreach ($hashedValues as $hashedValue) {
            sort($hashedValue->rows);
            $rowStart = null;
            $rowEnd = null;
            $ranges = [];

            foreach ($hashedValue->rows as $row) {
                if ($rowStart === null) {
                    $rowStart = $row;
                    $rowEnd = $row;
                } elseif ($rowEnd === $row - 1) {
                    $rowEnd = $row;
                } else {
                    if ($rowStart == $rowEnd) {
                        $ranges[] = $hashedValue->col . $rowStart;
                    } else {
                        $ranges[] = $hashedValue->col . $rowStart . ':' . $hashedValue->col . $rowEnd;
                    }

                    $rowStart = $row;
                    $rowEnd = $row;
                }
            }

            if ($rowStart !== null) {
                if ($rowStart == $rowEnd) {
                    $ranges[] = $hashedValue->col . $rowStart;
                } else {
                    $ranges[] = $hashedValue->col . $rowStart . ':' . $hashedValue->col . $rowEnd;
                }
            }

            foreach ($ranges as $range) {
                $mergedCoordCollection[$range] = $hashedValue->value;
            }
        }

        return $mergedCoordCollection;
    }

    /**
     * Get the individual cell blocks from a range string, removing any $ characters.
     *      then splitting by operators and returning an array with ranges and operators.
     *
     * @param string $rangeString
     *
     * @return array[]
     */
    private static function getCellBlocksFromRangeString($rangeString)
    {
        $rangeString = str_replace('$', '', strtoupper($rangeString));

        // split range sets on intersection (space) or union (,) operators
        $tokens = preg_split('/([ ,])/', $rangeString, -1, PREG_SPLIT_DELIM_CAPTURE);
        // separate the range sets and the operators into arrays
        $split = array_chunk($tokens, 2);
        $ranges = array_column($split, 0);
        $operators = array_column($split, 1);

        return [$ranges, $operators];
    }

    /**
     * Check that the given range is valid, i.e. that the start column and row are not greater than the end column and
     * row.
     *
     * @param string $cellBlock The original range, for displaying a meaningful error message
     * @param int $startColumnIndex
     * @param int $endColumnIndex
     * @param int $currentRow
     * @param int $endRow
     */
    private static function validateRange($cellBlock, $startColumnIndex, $endColumnIndex, $currentRow, $endRow): void
    {
        if ($startColumnIndex >= $endColumnIndex || $currentRow > $endRow) {
            throw new Exception('Invalid range: "' . $cellBlock . '"');
        }
    }
}