<?php

namespace WPForms\Vendor;

/**
 * Performs safe variable parsing based on types which can be used by
 * users. This may not be able to represent all possible data inputs,
 * however.
 */
class HTMLPurifier_VarParser_Flexible extends HTMLPurifier_VarParser
{
    /**
     * @param mixed $var
     * @param int $type
     * @param bool $allow_null
     * @return array|bool|float|int|mixed|null|string
     * @throws HTMLPurifier_VarParserException
     */
    protected function parseImplementation($var, $type, $allow_null)
    {
        if ($allow_null && $var === null) {
            return null;
        }
        switch ($type) {
            // Note: if code "breaks" from the switch, it triggers a generic
            // exception to be thrown. Specific errors can be specifically
            // done here.
            case self::C_MIXED:
            case self::ISTRING:
            case self::C_STRING:
            case self::TEXT:
            case self::ITEXT:
                return $var;
            case self::C_INT:
                if (\is_string($var) && \ctype_digit($var)) {
                    $var = (int) $var;
                }
                return $var;
            case self::C_FLOAT:
                if (\is_string($var) && \is_numeric($var) || \is_int($var)) {
                    $var = (float) $var;
                }
                return $var;
            case self::C_BOOL:
                if (\is_int($var) && ($var === 0 || $var === 1)) {
                    $var = (bool) $var;
                } elseif (\is_string($var)) {
                    if ($var == 'on' || $var == 'true' || $var == '1') {
                        $var = \true;
                    } elseif ($var == 'off' || $var == 'false' || $var == '0') {
                        $var = \false;
                    } else {
                        throw new HTMLPurifier_VarParserException("Unrecognized value '{$var}' for {$type}");
                    }
                }
                return $var;
            case self::ALIST:
            case self::HASH:
            case self::LOOKUP:
                if (\is_string($var)) {
                    // special case: technically, this is an array with
                    // a single empty string item, but having an empty
                    // array is more intuitive
                    if ($var == '') {
                        return array();
                    }
                    if (\strpos($var, "\n") === \false && \strpos($var, "\r") === \false) {
                        // simplistic string to array method that only works
                        // for simple lists of tag names or alphanumeric characters
                        $var = \explode(',', $var);
                    } else {
                        $var = \preg_split('/(,|[\\n\\r]+)/', $var);
                    }
                    // remove spaces
                    foreach ($var as $i => $j) {
                        $var[$i] = \trim($j);
                    }
                    if ($type === self::HASH) {
                        // key:value,key2:value2
                        $nvar = array();
                        foreach ($var as $keypair) {
                            $c = \explode(':', $keypair, 2);
                            if (!isset($c[1])) {
                                continue;
                            }
                            $nvar[\trim($c[0])] = \trim($c[1]);
                        }
                        $var = $nvar;
                    }
                }
                if (!\is_array($var)) {
                    break;
                }
                $keys = \array_keys($var);
                if ($keys === \array_keys($keys)) {
                    if ($type == self::ALIST) {
                        return $var;
                    } elseif ($type == self::LOOKUP) {
                        $new = array();
                        foreach ($var as $key) {
                            $new[$key] = \true;
                        }
                        return $new;
                    } else {
                        break;
                    }
                }
                if ($type === self::ALIST) {
                    \trigger_error("Array list did not have consecutive integer indexes", \E_USER_WARNING);
                    return \array_values($var);
                }
                if ($type === self::LOOKUP) {
                    foreach ($var as $key => $value) {
                        if ($value !== \true) {
                            \trigger_error("Lookup array has non-true value at key '{$key}'; " . "maybe your input array was not indexed numerically", \E_USER_WARNING);
                        }
                        $var[$key] = \true;
                    }
                }
                return $var;
            default:
                $this->errorInconsistent(__CLASS__, $type);
        }
        $this->errorGeneric($var, $type);
    }
}
// vim: et sw=4 sts=4
