<?php

/**
 * 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::MIXED :
			case self::ISTRING :
			case self::STRING :
			case self::TEXT :
			case self::ITEXT :
				return $var;
			case self::INT :
				if (is_string ( $var ) && ctype_digit ( $var )) {
					$var = ( int ) $var;
				}
				return $var;
			case self::FLOAT :
				if ((is_string ( $var ) && is_numeric ( $var )) || is_int ( $var )) {
					$var = ( float ) $var;
				}
				return $var;
			case self::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