1:   2:   3:   4:   5:   6:   7:   8:   9:  10:  11:  12:  13:  14:  15:  16:  17:  18:  19:  20:  21:  22:  23:  24:  25:  26:  27:  28:  29:  30:  31:  32:  33:  34:  35:  36:  37:  38:  39:  40:  41:  42:  43:  44:  45:  46:  47:  48:  49:  50:  51:  52:  53:  54:  55:  56:  57:  58:  59:  60:  61:  62:  63:  64:  65:  66:  67:  68:  69:  70:  71:  72:  73:  74:  75:  76:  77:  78:  79:  80:  81:  82:  83:  84:  85:  86:  87:  88:  89:  90:  91:  92:  93:  94:  95:  96:  97:  98:  99: 100: 101: 102: 103: 104: 105: 106: 107: 108: 109: 110: 111: 112: 113: 114: 115: 116: 117: 118: 119: 120: 121: 122: 123: 124: 125: 126: 

<?php

/**
 * MvcCore
 *
 * This source file is subject to the BSD 3 License
 * For the full copyright and license information, please view
 * the LICENSE.md file that are distributed with this source code.
 *
 * @copyright   Copyright (c) 2016 Tom Flidr (https://github.com/mvccore)
 * @license  https://mvccore.github.io/docs/mvccore/5.0.0/LICENCE.md
 */

namespace MvcCore\Tool;

trait StringConversions {

    /**
     * @inheritDocs
     * @param string $pascalCase
     * @return string
     */
    public static function GetDashedFromPascalCase ($pascalCase = '') {
        /*
        // This commented version converts `MyWFTValue` to `my-wtf-value`, which 
        // is cool, but inputs `MyWFTValue` and `MyWtfValue` have the same 
        // inconsistent output `my-wtf-value`, which is wrong.
        $result = preg_replace_callback("#[A-Z]{2,}#", function ($match) {
            $str = $match[0];
            $length = strlen($str);
            $result = substr($str, 0, 1);
            if ($length > 2)
                $result .= strtolower(substr($str, 1, $length - 2));
            return $result . '-' . strtolower(substr($str, $length - 1));
        }, $pascalCase);
        return strtolower(preg_replace("#([a-zA-Z])([A-Z])#", "$1-$2", lcfirst($result)));
        */
        return strtolower(preg_replace(
            "#([a-z])([A-Z])#", 
            "$1-$2", 
            lcfirst(preg_replace_callback(
                "#[A-Z]{2,}#", 
                function ($match) {
                    $str = $match[0];
                    return substr($str, 0, 1) . '-' . strtolower(implode('-', str_split(substr($str, 1))));
                }, $pascalCase)
            )
        ));
    }

    /**
     * @inheritDocs
     * @param string $dashed
     * @return string
     */
    public static function GetPascalCaseFromDashed ($dashed = '') {
        $a = explode('/', $dashed);
        if (PHP_VERSION_ID < 50432) {
            foreach ($a as & $b) $b = ucfirst(str_replace('-', '', static::upperCaseWords($b, '-')));
        } else {
            foreach ($a as & $b) $b = ucfirst(str_replace('-', '', ucwords($b, '-')));
        }
        return ucfirst(implode('/', $a));
    }

    /**
     * @inheritDocs
     * @param string $pascalCase
     * @return string
     */
    public static function GetUnderscoredFromPascalCase ($pascalCase = '') {
        /*
        // This commented version converts `MyWFTValue` to `my_wtf_value`, which 
        // is cool, but inputs `MyWFTValue` and `MyWtfValue` have the same 
        // inconsistent output `my_wtf_value`, which is wrong.
        $result = preg_replace_callback("#[A-Z]{2,}#", function ($match) {
            $str = $match[0];
            $length = strlen($str);
            $result = substr($str, 0, 1);
            if ($length > 2) $result .= strtolower(substr($str, 1, $length - 2));
            return $result . '_' . strtolower(substr($str, $length - 1));
        }, $pascalCase);
        return strtolower(preg_replace("#([a-zA-Z])([A-Z])#", "$1_$2", lcfirst($result)));
        */
        return strtolower(preg_replace(
            "#([a-z])([A-Z])#", 
            "$1_$2", 
            lcfirst(preg_replace_callback(
                "#[A-Z]{2,}#", 
                function ($match) {
                    $str = $match[0];
                    return substr($str, 0, 1) . '_' . strtolower(implode('_', str_split(substr($str, 1))));
                }, $pascalCase)
            )
        ));
    }

    /**
     * @inheritDocs
     * @param string $underscored
     * @return string
     */
    public static function GetPascalCaseFromUnderscored ($underscored = '') {
        $a = explode('/', $underscored);
        if (PHP_VERSION_ID < 50432) {
            foreach ($a as & $b) $b = ucfirst(str_replace('_', '', static::upperCaseWords($b, '_')));
        } else {
            foreach ($a as & $b) $b = ucfirst(str_replace('_', '', ucwords($b, '_')));
        }
        return ucfirst(implode('/', $a));
    }
    
    /**
     * PHP < 5.4.32 compatible method.
     * @param string $str 
     * @param string $delimiter 
     * @return string
     */
    protected static function upperCaseWords ($str, $delimiter) {
        $words = explode($delimiter, $str);
        foreach ($words as $index => $word) 
            $words[$index] = mb_strtoupper(mb_substr($word, 0, 1)) . mb_substr($word, 1);
        return implode($delimiter, $words);
    }
}