<?php

/**

 * $Id: JSON.php 40 2007-06-18 11:43:15Z spocke $

 *

 * @package MCManager.utils

 * @author Moxiecode

 * @copyright Copyright © 2007, Moxiecode Systems AB, All rights reserved.

 */

define('JSON_BOOL', 1);

define('JSON_INT', 2);

define('JSON_STR', 3);

define('JSON_FLOAT', 4);

define('JSON_NULL', 5);

define('JSON_START_OBJ', 6);

define('JSON_END_OBJ', 7);

define('JSON_START_ARRAY', 8);

define('JSON_END_ARRAY', 9);

define('JSON_KEY', 10);

define('JSON_SKIP', 11);

define('JSON_IN_ARRAY', 30);

define('JSON_IN_OBJECT', 40);

define('JSON_IN_BETWEEN', 50);

class Moxiecode_JSONReader {

	var $_data, $_len, $_pos;

	var $_value, $_token;

	var $_location, $_lastLocations;

	var $_needProp;

	function Moxiecode_JSONReader($data) {

		$this->_data = $data;

		$this->_len = strlen($data);

		$this->_pos = -1;

		$this->_location = JSON_IN_BETWEEN;

		$this->_lastLocations = array();

		$this->_needProp = false;

	}

	function getToken() {

		return $this->_token;

	}

	function getLocation() {

		return $this->_location;

	}

	function getTokenName() {

		switch ($this->_token) {

			case JSON_BOOL:

				return 'JSON_BOOL';

			case JSON_INT:

				return 'JSON_INT';

			case JSON_STR:

				return 'JSON_STR';

			case JSON_FLOAT:

				return 'JSON_FLOAT';

			case JSON_NULL:

				return 'JSON_NULL';

			case JSON_START_OBJ:

				return 'JSON_START_OBJ';

			case JSON_END_OBJ:

				return 'JSON_END_OBJ';

			case JSON_START_ARRAY:

				return 'JSON_START_ARRAY';

			case JSON_END_ARRAY:

				return 'JSON_END_ARRAY';

			case JSON_KEY:

				return 'JSON_KEY';

		}

		return 'UNKNOWN';

	}

	function getValue() {

		return $this->_value;

	}

	function readToken() {

		$chr = $this->read();

		if ($chr != null) {

			switch ($chr) {

				case '[':

					$this->_lastLocation[] = $this->_location;

					$this->_location = JSON_IN_ARRAY;

					$this->_token = JSON_START_ARRAY;

					$this->_value = null;

					$this->readAway();

					return true;

				case ']':

					$this->_location = array_pop($this->_lastLocation);

					$this->_token = JSON_END_ARRAY;

					$this->_value = null;

					$this->readAway();

					if ($this->_location == JSON_IN_OBJECT)

						$this->_needProp = true;

					return true;

				case '{':

					$this->_lastLocation[] = $this->_location;

					$this->_location = JSON_IN_OBJECT;

					$this->_needProp = true;

					$this->_token = JSON_START_OBJ;

					$this->_value = null;

					$this->readAway();

					return true;

				case '}':

					$this->_location = array_pop($this->_lastLocation);

					$this->_token = JSON_END_OBJ;

					$this->_value = null;

					$this->readAway();

					if ($this->_location == JSON_IN_OBJECT)

						$this->_needProp = true;

					return true;

				// String

				case '"':

				case '\'':

					return $this->_readString($chr);

				// Null

				case 'n':

					return $this->_readNull();

				// Bool

				case 't':

				case 'f':

					return $this->_readBool($chr);

				default:

					// Is number

					if (is_numeric($chr) || $chr == '-' || $chr == '.')

						return $this->_readNumber($chr);

					return true;

			}

		}

		return false;

	}

	function _readBool($chr) {

		$this->_token = JSON_BOOL;

		$this->_value = $chr == 't';

		if ($chr == 't')

			$this->skip(3); // rue

		else

			$this->skip(4); // alse

		$this->readAway();

		if ($this->_location == JSON_IN_OBJECT && !$this->_needProp)

			$this->_needProp = true;

		return true;

	}

	function _readNull() {

		$this->_token = JSON_NULL;

		$this->_value = null;

		$this->skip(3); // ull

		$this->readAway();

		if ($this->_location == JSON_IN_OBJECT && !$this->_needProp)

			$this->_needProp = true;

		return true;

	}

	function _readString($quote) {

		$output = "";

		$this->_token = JSON_STR;

		$endString = false;

		while (($chr = $this->peek()) != -1) {

			switch ($chr) {

				case '\\':

					// Read away slash

					$this->read();

					// Read escape code

					$chr = $this->read();

					switch ($chr) {

							case 't':

								$output .= "\t";

								break;

							case 'b':

								$output .= "\b";

								break;

							case 'f':

								$output .= "\f";

								break;

							case 'r':

								$output .= "\r";

								break;

							case 'n':

								$output .= "\n";

								break;

							case 'u':

								$output .= $this->_int2utf8(hexdec($this->read(4)));

								break;

							default:

								$output .= $chr;

								break;

					}

					break;

					case '\'':

					case '"':

						if ($chr == $quote)

							$endString = true;

						$chr = $this->read();

						if ($chr != -1 && $chr != $quote)

							$output .= $chr;

						break;

					default:

						$output .= $this->read();

			}

			// String terminated

			if ($endString)

				break;

		}

		$this->readAway();

		$this->_value = $output;

		// Needed a property

		if ($this->_needProp) {

			$this->_token = JSON_KEY;

			$this->_needProp = false;

			return true;

		}

		if ($this->_location == JSON_IN_OBJECT && !$this->_needProp)

			$this->_needProp = true;

		return true;

	}

	function _int2utf8($int) {

		$int = intval($int);

		switch ($int) {

			case 0:

				return chr(0);

			case ($int & 0x7F):

				return chr($int);

			case ($int & 0x7FF):

				return chr(0xC0 | (($int >> 6) & 0x1F)) . chr(0x80 | ($int & 0x3F));

			case ($int & 0xFFFF):

				return chr(0xE0 | (($int >> 12) & 0x0F)) . chr(0x80 | (($int >> 6) & 0x3F)) . chr (0x80 | ($int & 0x3F));

			case ($int & 0x1FFFFF):

				return chr(0xF0 | ($int >> 18)) . chr(0x80 | (($int >> 12) & 0x3F)) . chr(0x80 | (($int >> 6) & 0x3F)) . chr(0x80 | ($int & 0x3F));

		}

	}

	function _readNumber($start) {

		$value = "";

		$isFloat = false;

		$this->_token = JSON_INT;

		$value .= $start;

		while (($chr = $this->peek()) != -1) {

			if (is_numeric($chr) || $chr == '-' || $chr == '.') {

				if ($chr == '.')

					$isFloat = true;

				$value .= $this->read();

			} else

				break;

		}

		$this->readAway();

		if ($isFloat) {

			$this->_token = JSON_FLOAT;

			$this->_value = floatval($value);

		} else

			$this->_value = intval($value);

		if ($this->_location == JSON_IN_OBJECT && !$this->_needProp)

			$this->_needProp = true;

		return true;

	}

	function readAway() {

		while (($chr = $this->peek()) != null) {

			if ($chr != ':' && $chr != ',' && $chr != ' ')

				return;

			$this->read();

		}

	}

	function read($len = 1) {

		if ($this->_pos < $this->_len) {

			if ($len > 1) {

				$str = substr($this->_data, $this->_pos + 1, $len);

				$this->_pos += $len;

				return $str;

			} else

				return $this->_data[++$this->_pos];

		}

		return null;

	}

	function skip($len) {

		$this->_pos += $len;

	}

	function peek() {

		if ($this->_pos < $this->_len)

			return $this->_data[$this->_pos + 1];

		return null;

	}

}

/**

 * This class handles JSON stuff.

 *

 * @package MCManager.utils

 */

class Moxiecode_JSON {

	function Moxiecode_JSON() {

	}

	function decode($input) {

		$reader = new Moxiecode_JSONReader($input);

		return $this->readValue($reader);

	}

	function readValue(&$reader) {

		$this->data = array();

		$this->parents = array();

		$this->cur =& $this->data;

		$key = null;

		$loc = JSON_IN_ARRAY;

		while ($reader->readToken()) {

			switch ($reader->getToken()) {

				case JSON_STR:

				case JSON_INT:

				case JSON_BOOL:

				case JSON_FLOAT:

				case JSON_NULL:

					switch ($reader->getLocation()) {

						case JSON_IN_OBJECT:

							$this->cur[$key] = $reader->getValue();

							break;

						case JSON_IN_ARRAY:

							$this->cur[] = $reader->getValue();

							break;

						default:

							return $reader->getValue();

					}

					break;

				case JSON_KEY:

					$key = $reader->getValue();

					break;

				case JSON_START_OBJ:

				case JSON_START_ARRAY:

					if ($loc == JSON_IN_OBJECT)

						$this->addArray($key);

					else

						$this->addArray(null);

					$cur =& $obj;

					$loc = $reader->getLocation();

					break;

				case JSON_END_OBJ:

				case JSON_END_ARRAY:

					$loc = $reader->getLocation();

					if (count($this->parents) > 0) {

						$this->cur =& $this->parents[count($this->parents) - 1];

						array_pop($this->parents);

					}

					break;

			}

		}

		return $this->data[0];

	}

	// This method was needed since PHP is crapy and doesn't have pointers/references

	function addArray($key) {

		$this->parents[] =& $this->cur;

		$ar = array();

		if ($key)

			$this->cur[$key] =& $ar;

		else

			$this->cur[] =& $ar;

		$this->cur =& $ar;

	}

	function getDelim($index, &$reader) {

		switch ($reader->getLocation()) {

			case JSON_IN_ARRAY:

			case JSON_IN_OBJECT:

				if ($index > 0)

					return ",";

				break;

		}

		return "";

	}

	function encode($input) {

		switch (gettype($input)) {

			case 'boolean':

				return $input ? 'true' : 'false';

			case 'integer':

				return (int) $input;

			case 'float':

			case 'double':

				return (float) $input;

			case 'NULL':

				return 'null';

			case 'string':

				return $this->encodeString($input);

			case 'array':

				return $this->_encodeArray($input);

			case 'object':

				return $this->_encodeArray(get_object_vars($input));

		}

		return '';

	}

	function encodeString($input) {

		// Needs to be escaped

		if (preg_match('/[^a-zA-Z0-9]/', $input)) {

			$output = '';

			for ($i=0; $i<strlen($input); $i++) {

				switch ($input[$i]) {

					case "\b":

						$output .= "\\b";

						break;

					case "\t":

						$output .= "\\t";

						break;

					case "\f":

						$output .= "\\f";

						break;

					case "\r":

						$output .= "\\r";

						break;

					case "\n":

						$output .= "\\n";

						break;

					case '\\':

						$output .= "\\\\";

						break;

					case '\'':

						$output .= "\\'";

						break;

					case '"':

						$output .= '\"';

						break;

					default:

						$byte = ord($input[$i]);

						if (($byte & 0xE0) == 0xC0) {

							$char = pack('C*', $byte, ord($input[$i + 1]));

							$i += 1;

							$output .= sprintf('\u%04s', bin2hex($this->_utf82utf16($char)));