HaxeFoundation.haxe/std/php/Boot.hx

/*
 * Copyright (C)2005-2015 Haxe Foundation
 *
 * Permission is hereby granted, free of charge, to any person obtaining a
 * copy of this software and associated documentation files (the "Software"),
 * to deal in the Software without restriction, including without limitation
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
 * and/or sell copies of the Software, and to permit persons to whom the
 * Software is furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
 * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
 * DEALINGS IN THE SOFTWARE.
 */
package php;

@:keep
class Boot {
	static var qtypes;
	static var ttypes;
	static var tpaths;
	static var skip_constructor = false;
	static function __init__() : Void {
		var _hx_class_prefix = untyped __prefix__();
		untyped __php__("
function _hx_add($a, $b) {
	if (!_hx_is_numeric($a) || !_hx_is_numeric($b)) {
		return _hx_string_or_null($a) . _hx_string_or_null($b);
	} else {
		return $a + $b;
	}
}

function _hx_anonymous($arr = array()) {
	$o = new _hx_anonymous();
	foreach($arr as $k => $v)
		$o->$k = $v;
	return $o;
}

class _hx_array implements ArrayAccess, IteratorAggregate {
	var $a;
	var $length;
	function __construct($a = array()) {
		$this->a = $a;
		$this->length = count($a);
	}

	function concat($a) {
		return new _hx_array(array_merge($this->a, $a->a));
	}

	function copy() {
		return new _hx_array($this->a);
	}

	function &get($index) {
		if(isset($this->a[$index])) return $this->a[$index];
		return null;
	}

	function insert($pos, $x) {
		array_splice($this->a, $pos, 0, array($x));
		$this->length++;
	}

	function iterator() {
		return new _hx_array_iterator($this->a);
	}

	function getIterator() {
		return $this->iterator();
	}

	function join($sep) {
		return implode($sep, array_map('_hx_string_rec',$this->a,array()));
	}

	function pop() {
		$r = array_pop($this->a);
		$this->length = count($this->a);
		return $r;
	}

	function push($x) {
		$this->a[] = $x;
		return ++$this->length;
	}

	function remove($x) {
		for($i = 0; $i < count($this->a); $i++)
			if($this->a[$i] === $x) {
				unset($this->a[$i]);
				$this->a = array_values($this->a);
				$this->length--;
				return true;
			}
		return false;
	}

	function indexOf($x, $fromIndex) {
		$i = ($fromIndex === null) ? 0 : $fromIndex;
		$len = $this->length;
		$a = $this->a;
		if ($i < 0) {
			$i += $len;
			if ($i < 0) $i = 0;
		}
		while ($i < $len) {
			if ($a[$i] === $x)
				return $i;
			$i++;
		}
		return -1;
	}

	function lastIndexOf($x, $fromIndex) {
		$len = $this->length;
		$i = ($fromIndex === null) ? $len - 1 : $fromIndex;
		$a = $this->a;
		if ($i >= $len)
			$i = $len - 1;
		else if ($i < 0)
			$i += $len;
		while ($i >= 0) {
			if ($a[$i] === $x)
				return $i;
			$i--;
		}
		return -1;
	}

	function removeAt($pos) {
		if(array_key_exists($pos, $this->a)) {
			unset($this->a[$pos]);
			$this->length--;
			return true;
		} else
			return false;
	}

	function reverse() {
		$this->a = array_reverse($this->a, false);
	}

	function shift() {
		$r = array_shift($this->a);
		$this->length = count($this->a);
		return $r;
	}

	function slice($pos, $end) {
		if($end === null)
			return new _hx_array(array_slice($this->a, $pos));
		else
			return new _hx_array(array_slice($this->a, $pos, $end-$pos));
	}

	function sort($f) {
		usort($this->a, $f);
	}

	function splice($pos, $len) {
		if($len < 0) $len = 0;
		$nh = new _hx_array(array_splice($this->a, $pos, $len));
		$this->length = count($this->a);
		return $nh;
	}

	function toString() {
		return '['.implode(',', array_map('_hx_string_rec',$this->a,array())).']';
	}

	function __toString() {
		return $this->toString();
	}

	function unshift($x) {
		array_unshift($this->a, $x);
		$this->length++;
	}

	function map($f) {
		return new _hx_array(array_map($f, $this->a));
	}

	function reduce($f, $first) {
		return array_reduce($this->a, $f, $first);
	}

	function filter($f) {
		return new _hx_array(array_values(array_filter($this->a,$f)));
	}

	// ArrayAccess methods:
	function offsetExists($offset) {
		return isset($this->a[$offset]);
	}

	function offsetGet($offset) {
		if(isset($this->a[$offset])) return $this->a[$offset];
		return null;
	}

	function offsetSet($offset, $value) {
		if($this->length <= $offset) {
			$this->a = array_merge($this->a, array_fill(0, $offset+1-$this->length, null));
			$this->length = $offset+1;
		}
		return $this->a[$offset] = $value;
	}

	function offsetUnset($offset) {
		return $this->removeAt($offset);
	}
}

class _hx_array_iterator implements Iterator {
	private $a;
	private $i;
	public function __construct($a) {
		$this->a = $a;
		$this->i = 0;
	}

	public function next() {
		if(!$this->hasNext()) return null;
		return $this->a[$this->i++];
	}

	public function hasNext() {
		return $this->i < count($this->a);
	}

	public function current() {
		if (!$this->hasNext()) return false;
		return $this->a[$this->i];
	}

	public function key() {
		return $this->i;
	}

	public function valid() {
		return $this->current() !== false;
	}

	public function rewind() {
		$this->i = 0;
	}
	public function size() {
		return count($this->a);
	}
}

function _hx_array_get($a, $pos) { return $a[$pos]; }

function _hx_array_increment($a, $pos) { return $a[$pos] += 1; }
function _hx_array_decrement($a, $pos) { return $a[$pos] -= 1; }

function _hx_array_assign($a, $i, $v) { return $a[$i] = $v; }

class _hx_break_exception extends Exception {}

function _hx_cast($v, $type) {
	if(Std::is($v, $type)) {
		return $v;
	} else {
		throw new HException('Class cast error');
	}
}

function _hx_char_at($o, $i) {
	if ($i < 0)
		return '';
	$c = substr($o, $i, 1);
	return FALSE === $c ? '' : $c;
}

function _hx_char_code_at($s, $pos) {
	if($pos < 0 || $pos >= strlen($s)) return null;
	return ord($s{$pos});
}

function _hx_deref($o) { return $o; }

function _hx_equal($x, $y) {
	if(is_null($x)) {
		return is_null($y);
	} else {
		if(is_null($y)) {
			return false;
		} else {
			if((is_float($x) || is_int($x)) && (is_float($y) || is_int($y))) {
				return $x == $y;
			} else {
				return $x === $y;
			}
		}
	}
}

function _hx_mod($x, $y) {
	if (is_int($x) && is_int($y)) {
		if ($y == 0) return 0;
		return $x % $y;
	}
	if (!is_nan($x) && !is_nan($y) && !is_finite($y) && is_finite($x)) {
		return $x;
	}
	return fmod($x, $y);
}

function _hx_error_handler($errno, $errmsg, $filename, $linenum, $vars) {
	if (!(error_reporting() & $errno)) {
		return false;
	}
	$msg = $errmsg . ' (errno: ' . $errno . ') in ' . $filename . ' at line #' . $linenum;
	$e = new HException($msg, $errmsg, $errno, _hx_anonymous(array('fileName' => 'Boot.hx', 'lineNumber' => __LINE__, 'className' => 'php.Boot', 'methodName' => '_hx_error_handler')));
	$e->setFile($filename);
	$e->setLine($linenum);
	throw $e;
	return null;
}

function _hx_exception_handler($e) {
	if(0 == strncasecmp(PHP_SAPI, 'cli', 3)) {
		$msg   = $e-> getMessage();
		$nl    = \"\\n\";
		$pre   = '';
		$post  = '';
	} else {
		$msg   = '<b>' . $e-> getMessage() . '</b>';
		$nl    = \"<br />\";
		$pre   = '<pre>';
		$post  = '</pre>';
	}
	if(isset($GLOBALS['%s'])) {
		$stack = '';
		$i = $GLOBALS['%s']->length;
		while(--$i >= 0)
			$stack .= 'Called from '.$GLOBALS['%s'][$i].$nl;
		die($pre.'uncaught exception: '.$msg.$nl.$nl.$stack.$post);
	} else
		die($pre.'uncaught exception: '.$msg.$nl.$nl.'in file: '.$e->getFile().' line '.$e->getLine().$nl.$e->getTraceAsString().$post);
}

function _hx_explode($delimiter, $s) {
	if($delimiter == '')
		return new _hx_array(str_split($s, 1));
	return new _hx_array(explode($delimiter, $s));
}

function _hx_explode2($s, $delimiter) {
	if($delimiter == '')
		return new _hx_array(str_split($s, 1));
	return new _hx_array(explode($delimiter, $s));
}

function _hx_field($o, $field) {
	if(_hx_has_field($o, $field)) {
		if($o instanceof _hx_type) {
			if(is_callable($c = array($o->__tname__, $field)) && !property_exists($o->__tname__, $field)) {
				return $c;
			} else {
				$name = $o->__tname__;
				return eval('return '.$name.'::$'.$field.';');
			}
		} else {
			if(is_string($o)) {
				if($field == 'length') {
					return strlen($o);
				} else {
					switch($field) {
						case 'charAt'     : return array(new _hx_lambda(array(&$o), '_hx_char_at'), 'execute');
						case 'charCodeAt' : return array(new _hx_lambda(array(&$o), '_hx_char_code_at'), 'execute');
						case 'indexOf'    : return array(new _hx_lambda(array(&$o), '_hx_index_of'), 'execute');
						case 'lastIndexOf': return array(new _hx_lambda(array(&$o), '_hx_last_index_of'), 'execute');
						case 'split'      : return array(new _hx_lambda(array(&$o), '_hx_explode2'), 'execute');
						case 'substr'     : return array(new _hx_lambda(array(&$o), '_hx_substr'), 'execute');
						case 'toUpperCase': return array(new _hx_lambda(array(&$o), 'strtoupper'), 'execute');
						case 'toLowerCase': return array(new _hx_lambda(array(&$o), 'strtolower'), 'execute');
						case 'toString'   : return array(new _hx_lambda(array(&$o), '_hx_deref'), 'execute');
					}
					return null;
				}
			} else {
				if(property_exists($o, $field)) {
					if(is_array($o->$field) && is_callable($o->$field)) {
						return $o->$field;
					} else {
						if(is_string($o->$field) && _hx_is_lambda($o->$field)) {
							return array($o, $field);
						} else {
							return $o->$field;
						}
					}
				} else if(isset($o->__dynamics) && isset($o->__dynamics[$field])) {
					return $o->__dynamics[$field];
				} else {
					return array($o, $field);
				}
			}
		}
	} else {
		return null;
	}
}

function _hx_get_object_vars($o) {
	$a = array_keys(get_object_vars($o));
	if(isset($o->__dynamics))
		$a = array_merge($a, array_keys($o->__dynamics));
	$arr = array();
	for($i=0;$i<count($a); $i++)
	{
		$arr[] = '' . $a[$i];
	}
	return $arr;
}

function _hx_has_field($o, $field) {
	return
		(is_object($o) && (method_exists($o, $field) || isset($o->$field) || property_exists($o, $field) || isset($o->__dynamics[$field])))
		||
		(is_string($o) && (in_array($field, array('toUpperCase', 'toLowerCase', 'charAt', 'charCodeAt', 'indexOf', 'lastIndexOf', 'split', 'substr', 'toString', 'length'))))
	;
}

function _hx_index_of($s, $value, $startIndex = null) {
	$x = strpos($s, $value, $startIndex);
	if($x === false)
		return -1;
	else
		return $x;
}

function _hx_instanceof($v, $t) {
	if($t === null) {
		return false;
	}
	switch($t->__tname__) {
		case 'Array'  : return is_array($v);
		case 'String' : return is_string($v) && !_hx_is_lambda($v);
		case 'Bool'   : return is_bool($v);
		case 'Int'    : return (is_int($v) || (is_float($v) && intval($v) == $v && !is_nan($v))) && abs($v) <= 0x80000000;
		case 'Float'  : return is_float($v) || is_int($v);
		case 'Dynamic': return true;
		case 'Class'  : return ($v instanceof _hx_class || $v instanceof _hx_interface) && $v->__tname__ != 'Enum';
		case 'Enum'   : return $v instanceof _hx_enum;
		default       : return is_a($v, $t->__tname__);
	}
}

function _hx_is_lambda($s) {
	return (is_string($s) && substr($s, 0, 8) == chr(0).'lambda_') || (is_array($s) && count($s) > 0 && (is_a($s[0], '_hx_lambda') || is_a($s[0], '_hx_lambda2')));
}

function _hx_is_numeric($v)
{
	return is_numeric($v) && !is_string($v);
}

function _hx_last_index_of($s, $value, $startIndex = null) {
	$x = strrpos($s, $value, $startIndex === null ? 0 : $startIndex-strlen($s));
	if($x === false)
		return -1;
	else
		return $x;
}

function _hx_len($o) {
	return is_string($o) ? strlen($o) : $o->length;
}

class _hx_list_iterator implements Iterator {
	private $h;
	private $list;
	private $counter;
	public function __construct($list) {
		$this->list = $list;
		$this->rewind();
	}

	public function next() {
		if($this->h == null) return null;
		$this->counter++;
		$x = $this->h[0];
		$this->h = $this->h[1];
		return $x;
	}

	public function hasNext() {
		return $this->h != null;
	}

	public function current() {
		if (!$this->hasNext()) return null;
		return $this->h[0];
	}

	public function key() {
		return $this->counter;
	}

	public function valid() {
		return $this->current() !== null;
	}

	public function rewind() {
		$this->counter = -1;
		$this->h = $this->list->h;
	}

	public function size() {
		return $this->list->length;
	}
}

function _hx_null() { return null; }

class _hx_nullob {
	function _throw()       { throw new HException('Null object'); }
	function __call($f, $a) { $this->_throw(); }
	function __get($f)      { $this->_throw(); }
	function __set($f, $v)  { $this->_throw(); }
	function __isset($f)    { $this->_throw(); }
	function __unset($f)    { $this->_throw(); }
	function __toString()   { return 'null'; }
	static $inst;
}

_hx_nullob::$inst = new _hx_nullob();

function _hx_nullob() { return _hx_nullob::$inst; }

function _hx_qtype($n) {
	return isset(php_Boot::$qtypes[$n]) ? php_Boot::$qtypes[$n] : null;
}

function _hx_register_type($t) {
	php_Boot::$qtypes[$t->__qname__] = $t;
	php_Boot::$ttypes[$t->__tname__] = $t;
	if($t->__path__ !== null)
		php_Boot::$tpaths[$t->__tname__] = $t->__path__;
}

function _hx_set_method($o, $field, $func) {
	$value[0]->scope = $o;
	$o->$field = $func;
}

function _hx_shift_right($v, $n) {
	return ($n == 0) ? $v : ($v >= 0) ? ($v >> $n) : ($v >> $n) & (0x7fffffff >> ($n-1));
}

function _hx_string_call($s, $method, $params) {
	if(!is_string($s)) return call_user_func_array(array($s, $method), $params);
	switch($method) {
		case 'toUpperCase': return strtoupper($s);
		case 'toLowerCase': return strtolower($s);
		case 'charAt'     : return substr($s, $params[0], 1);
		case 'charCodeAt' : return _hx_char_code_at($s, $params[0]);
		case 'indexOf'    : return _hx_index_of($s, $params[0], (count($params) > 1 ? $params[1] : null));
		case 'lastIndexOf': return _hx_last_index_of($s, $params[0], (count($params) > 1 ? $params[1] : null));
		case 'split'      : return _hx_explode($params[0], $s);
		case 'substr'     : return _hx_substr($s, $params[0], (count($params) > 1 ? $params[1] : null));
		case 'toString'   : return $s;
		default           : throw new HException('Invalid Operation: ' . $method);
	}
}

function _hx_string_or_null($s) {
	return $s === null ? 'null' : $s;
}

function _hx_string_rec($o, $s) {
	if($o === null)                return 'null';
	if(strlen($s) >= 5)            return '<...>';
	if(is_int($o) || is_float($o)) return '' . $o;
	if(is_bool($o))                return $o ? 'true' : 'false';
	if(is_object($o)) {
		$c = get_class($o);
		if($o instanceof Enum) {
			$b = $o->tag;
			if(!empty($o->params)) {
				$s .= \"\t\";
				$b .= '(';
				for($i = 0; $i < count($o->params); $i++) {
					if($i > 0)
						$b .= ',' . _hx_string_rec($o->params[$i], $s);
					else
						$b .= _hx_string_rec($o->params[$i], $s);
				}
				$b .= ')';
			}
			return $b;
		} else {
			if ($o instanceof _hx_anonymous) {
				if ($o->toString && is_callable($o->toString)) {
					return call_user_func($o->toString);
				}
				$rfl = new ReflectionObject($o);
				$b2 = \"{\n\";
				$s .= \"\t\";
				$properties = $rfl->getProperties();

				for($i = 0; $i < count($properties); $i++) {
					$prop = $properties[$i];
					$f = $prop->getName();
					if($i > 0)
						$b2 .= \", \n\";
					$b2 .= $s . $f . ' : ' . _hx_string_rec($o->$f, $s);
				}
				$s = substr($s, 1);
				$b2 .= \"\n\" . $s . '}';
				return $b2;
			} else {
				if($o instanceof _hx_type)
					return $o->__qname__;
				else {
					if(is_callable(array($o, 'toString')))
						return $o->toString();
					else {
						if(is_callable(array($o, '__toString')))
							return $o->__toString();
						else
							return '[' . _hx_ttype($c) . ']';
					}
				}
			}
		}
	}
	if(is_string($o)) {
		if(_hx_is_lambda($o)) return '<function>';
//		if(strlen($s) > 0)    return '\"' . str_replace('\"', '\\\"', $o) . '\"';
		else                  return $o;
	}
	if(is_array($o)) {
		if(is_callable($o)) return '<function>';
		$str = '[';
		$s .= \"\t\";
		$first = true;
		$assoc = true;
		foreach($o as $k => $v)
		{
			if ($first && $k === 0)
				$assoc = false;
			$str .= ($first ? '' : ',') . ($assoc
				? _hx_string_rec($k, $s) . '=>' . _hx_string_rec($o[$k], $s)
				: _hx_string_rec($o[$k], $s)
			);
			$first = false;
		}
		$str .= ']';
		return $str;
	}
	return '';
}

function _hx_substr($s, $pos, $len) {
	if($pos !== null && $pos !== 0 && $len !== null && $len < 0) return '';
	if($len === null) $len = strlen($s);
	if($pos < 0) {
		$pos = strlen($s) + $pos;
		if($pos < 0) $pos = 0;
	} else if($len < 0 )
		$len = strlen($s) + $len - $pos;
	$s = substr($s, $pos, $len);
	if($s === false)
		return '';
	else
		return $s;
}

function _hx_substring($s, $startIndex, $endIndex) {
	$len = strlen($s);
	if ($endIndex === null)
		$endIndex = $len;
	else if ($endIndex < 0)
		$endIndex = 0;
	else if ($endIndex > $len)
		$endIndex  = $len;

	if ($startIndex < 0)
		$startIndex = 0;
	else if ($startIndex > $len)
		$startIndex = $len;

	if ($startIndex > $endIndex) {
		$tmp = $startIndex;
		$startIndex = $endIndex;
		$endIndex = $tmp;
	}
	return _hx_substr($s, $startIndex, $endIndex - $startIndex);
}

function _hx_trace($v, $i) {
	$msg = $i !== null ? $i->fileName.':'.$i->lineNumber.': ' : '';
	echo $msg._hx_string_rec($v, '').\"\n\";
}

function _hx_ttype($n) {
	return isset(php_Boot::$ttypes[$n]) ? php_Boot::$ttypes[$n] : null;
}

function _hx_make_var_args() {
	$args = func_get_args();
	$f = array_shift($args);
	return call_user_func($f, new _hx_array($args));
}

class _hx_anonymous extends stdClass {
	public function __call($m, $a) {
		return call_user_func_array($this->$m, $a);
	}

	public function __set($n, $v) {
		$this->$n = $v;
	}

	public function &__get($n) {
		if(isset($this->$n))
			return $this->$n;
		$null = null;
		return $null;
	}

	public function __isset($n) {
		return isset($this->$n);
	}

	public function __unset($n) {
		unset($this->$n);
	}

	public function __toString() {
		$rfl = new ReflectionObject($this);
		$b = '{ ';
		$properties = $rfl->getProperties();
		$first = true;
		while(list(, $prop) = each($properties)) {
			if($first)
				$first = false;
			else
				$b .= ', ';
			$f = $prop->getName();
			$b .= $f . ' => ' . $this->$f;
		}
		$b .= ' }';
		return $b;
	}
}

class _hx_type {
	public $__tname__;
	public $__qname__;
	public $__path__;
	public function __construct($cn, $qn, $path = null) {
		$this->__tname__ = $cn;
		$this->__qname__ = $qn;
		$this->__path__ = $path;
		if(property_exists($cn, '__meta__'))
			$this->__meta__ =  eval($cn.'::$__meta__');
	}

	public function toString()   { return $this->__toString(); }

	public function __toString() {
		return $this->__qname__;
	}

	private $rfl = false;
	public function __rfl__() {
		if($this->rfl !== false) return $this->rfl;
		if(class_exists($this->__tname__) || interface_exists($this->__tname__))
			$this->rfl = new ReflectionClass($this->__tname__);
		else
			$this->rfl = null;
		return $this->rfl;
	}

	public function __call($n, $a) {
		return call_user_func_array(array($this->__tname__, $n), $a);
	}

	public function __get($n) {
		if(($r = $this->__rfl__())==null) return null;
		if($r->hasProperty($n))
			return $r->getStaticPropertyValue($n);
		else if($r->hasMethod($n))
			return array($r->name, $n);
		else
			return null;
	}

	public function __set($n, $v) {
		if(($r = $this->__rfl__())==null) return null;
		return $r->setStaticPropertyValue($n, $v);
	}

	public function __isset($n) {
		if(($r = $this->__rfl__())==null) return null;
		return $r->hasProperty($n) || $r->hasMethod($n);
	}
}

class _hx_class extends _hx_type {}

class _hx_enum extends _hx_type {}

class _hx_interface extends _hx_type {}

class HException extends Exception {
	public function __construct($e, $message = null, $code = null, $p = null) {
		$message = _hx_string_rec($e, '') . $message;
		parent::__construct($message,$code);
		$this->e = $e;
		$this->p = $p;
	}
	public $e;
	public $p;
	public function setLine($l) {
		$this->line = $l;
	}
	public function setFile($f) {
		$this->file = $f;
	}
}

class _hx_lambda {
	public function __construct($locals, $func) {
		$this->locals = $locals;
		$this->func = $func;
	}
	public $locals;
	public $func;

	public function execute() {
		// if use $this->locals directly in array_merge it works only if I make the assignement loop,
		// so I've decided to reference $arr
		$arr = array();
		for ($i = 0; $i<count($this->locals);$i++)
			$arr[] = & $this->locals[$i];
		$args = func_get_args();
		return call_user_func_array($this->func, array_merge($arr, $args));
	}
}

class Enum {
	public function __construct($tag, $index, $params = null) { $this->tag = $tag; $this->index = $index; $this->params = $params; }
	public $tag;
	public $index;
	public $params;

	public function __toString() {
		return $this->tag;
	}
}

error_reporting(E_ALL & ~E_STRICT);
set_error_handler('_hx_error_handler', E_ALL & ~E_STRICT);
set_exception_handler('_hx_exception_handler');

php_Boot::$qtypes = array();
php_Boot::$ttypes = array();
php_Boot::$tpaths = array();

_hx_register_type(new _hx_class('String',  'String'));
_hx_register_type(new _hx_class('_hx_array', 'Array'));
_hx_register_type(new _hx_class('Int',     'Int'));
_hx_register_type(new _hx_class('Float',   'Float'));
_hx_register_type(new _hx_class('Class',   'Class'));
_hx_register_type(new _hx_class('Enum',    'Enum'));
_hx_register_type(new _hx_class('Dynamic', 'Dynamic'));
_hx_register_type(new _hx_enum('Bool',     'Bool'));
_hx_register_type(new _hx_enum('Void',     'Void'));


$_hx_libdir = dirname(__FILE__) . '/..';
$_hx_autload_cache_file = $_hx_libdir . '/../cache/haxe_autoload.php';
if(!file_exists($_hx_autload_cache_file)) {
	function _hx_build_paths($d, &$_hx_types_array, $pack, $prefix) {
		$h = opendir($d);
		while(false !== ($f = readdir($h))) {
			$p = $d.'/'.$f;
			if($f == '.' || $f == '..')
				continue;
				if (is_file($p) && substr($f, -4) == '.php') {
				$bn = basename($f, '.php');
				if ($prefix)
				{
					if ($prefix != substr($bn, 0, $lenprefix = strlen($prefix)))
						continue;
					$bn = substr($bn, $lenprefix);
				}
				if(substr($bn, -6) == '.class') {
					$bn = substr($bn, 0, -6);
					$t = 0;
				} else if(substr($bn, -5) == '.enum') {
					$bn = substr($bn, 0, -5);
					$t = 1;
				} else if(substr($bn, -10) == '.interface') {
					$bn = substr($bn, 0, -10);
					$t = 2;
				} else if(substr($bn, -7) == '.extern') {
					$bn = substr($bn, 0, -7);
					$t = 3;
				} else
					continue;
				$qname = ($bn == 'HList' && empty($pack)) ? 'List' : join(array_merge($pack, array($bn)), '.');
				$_hx_types_array[] = array(
					'path' => $p,
					'name' => $prefix . $bn,
					'type' => $t,
					'qname' => $qname,
					'phpname' => join(array_merge($pack, array($prefix . $bn)), '_')
				);
			} else if(is_dir($p))
				_hx_build_paths($p, $_hx_types_array, array_merge($pack, array($f)), $prefix);
		}
		closedir($h);
	}

	$_hx_cache_content = '<?php\n\n';
	$_hx_types_array = array();

	_hx_build_paths($_hx_libdir, $_hx_types_array, array(), $_hx_class_prefix);

	for($i=0;$i<count($_hx_types_array);$i++) {
		$_hx_cache_content .= '_hx_register_type(new ';
		$t = null;
		if($_hx_types_array[$i]['type'] == 0) {
			$t = new _hx_class($_hx_types_array[$i]['phpname'], $_hx_types_array[$i]['qname'], $_hx_types_array[$i]['path']);
			$_hx_cache_content .= '_hx_class';
		} else if($_hx_types_array[$i]['type'] == 1) {
			$t = new _hx_enum($_hx_types_array[$i]['phpname'], $_hx_types_array[$i]['qname'], $_hx_types_array[$i]['path']);
			$_hx_cache_content .= '_hx_enum';
		} else if($_hx_types_array[$i]['type'] == 2) {
			$t = new _hx_interface($_hx_types_array[$i]['phpname'], $_hx_types_array[$i]['qname'], $_hx_types_array[$i]['path']);
			$_hx_cache_content .= '_hx_interface';
		} else if($_hx_types_array[$i]['type'] == 3) {
			$t = new _hx_class($_hx_types_array[$i]['name'], $_hx_types_array[$i]['qname'], $_hx_types_array[$i]['path']);
			$_hx_cache_content .= '_hx_class';
		}
		_hx_register_type($t);
		$_hx_cache_content .= '(\\''.($_hx_types_array[$i]['type'] == 3 ? $_hx_types_array[$i]['name'] : $_hx_types_array[$i]['phpname']).'\\', \\''.$_hx_types_array[$i]['qname'].'\\', \\''.$_hx_types_array[$i]['path'].'\\'));\n';
	}
	try {
		file_put_contents($_hx_autload_cache_file, $_hx_cache_content);
	} catch(Exception $e) {}
	unset($_hx_types_array);
	unset($_hx_cache_content);
} else {
	require($_hx_autload_cache_file);
}

function _hx_autoload($name) {
	if(!isset(php_Boot::$tpaths[$name])) return false;
	require_once(php_Boot::$tpaths[$name]);
	return true;
}

if(!ini_get('date.timezone'))
	date_default_timezone_set('UTC');

spl_autoload_register('_hx_autoload')");
	}
}