package php;
class Boot {
static var qtypes;
static var ttypes;
static var tpaths;
static var skip_constructor = false;
static function __init__() : Void {
untyped __php__("
function _hx_add($a, $b) {
if(is_numeric($a) && is_numeric($b)) {
return $a + $b;
} else {
return $a . $b;
}
}
function _hx_anonymous($arr = array()) {
$o = new _hx_anonymous();
reset($arr);
while(list($k, $v) = each($arr))
$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($this->»a, $sep);
}
function pop() {
$r = array_pop($this->»a);
$this->length = count($this->»a);
return $r;
}
function push($x) {
$this->»a[] = $x;
$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 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($this->»a, ', ').']';
}
function __toString() {
return $this->toString();
}
function unshift($x) {
array_unshift($this->»a, $x);
$this->length++;
}
// 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_assign($a, $i, $v) {
return $a[$i] = $v;
}
class _hx_break_exception extends Exception {}
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_error_handler($errno, $errmsg, $filename, $linenum, $vars) {
$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 = '' . $e-> getMessage() . '';
$nl = \"
\";
$pre = '
'; $post = ''; } 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_field($o, $field) { if(_hx_has_field($o, $field)) { if($o instanceof _hx_type) { if(is_callable(array($o->__tname__, $field))) { return array($o->__tname__, $field); } else { return eval('return '.$o->__tname__.'::$'.$field.';'); } } else { if(is_string($o)) { if($field == 'length') { return strlen($o); } else { switch($field) { case 'charAt' : return array(new _hx_lambda(array('o' => &$o), null, array('index'), 'return substr($o,$index,1);'), 'execute1'); case 'charCodeAt' : return array(new _hx_lambda(array('o' => &$o), null, array('index'), 'return ord(substr($o, $index, 1));'), 'execute1'); case 'indexOf' : return array(new _hx_lambda(array('o' => &$o), null, array('value','startIndex'), 'return _hx_index_of($o, $value, $startIndex);'), 'execute1'); case 'lastIndexOf': return array(new _hx_lambda(array('o' => &$o), null, array('value','startIndex'), 'return _hx_last_index_of($o, $value, $startIndex);'), 'execute1'); case 'split' : return array(new _hx_lambda(array('o' => &$o), null, array('delimiter'), 'return _hx_explode($delimiter, $o);'), 'execute1'); case 'substr' : return array(new _hx_lambda(array('o' => &$o), null, array('pos','len'), 'return _hx_substr($o, $pos, $len);'), 'execute2'); case 'toUpperCase': return array(new _hx_lambda(array('o' => &$o), null, array(), 'return strtoupper($o);'), 'execute0'); case 'toLowerCase': return array(new _hx_lambda(array('o' => &$o), null, array(), 'return strtolower($o);'), 'execute0'); case 'toString' : return array(new _hx_lambda(array('o' => &$o), null, array(), 'return $o;'), 'execute0'); } 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[$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(); while($k = current($a)) { if(substr($k, 0, 1) != '»') $arr[] = $k; next($a); } 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) { $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); 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')); } function _hx_last_index_of($s, $value, $startIndex) { $x = strrpos($s, $value, $startIndex === null ? null : strlen($s) - $startIndex); 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) { $z = 0x80000000; if ($z & $v) { $v = ($v>>1); $v &= (~$z); $v |= 0x40000000; $v = ($v>>($n-1)); } else $v = ($v>>$n); return $v; } 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, (count($params) > 1 ? $params[1] : null), null); case 'split' : return _hx_explode($params[0], $s); case 'substr' : return _hx_substr($s, $params[0], (count($params) > 1 ? $params[1] : null)); default : throw new HException('Invalid Operation: ' . $method); } } 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) { $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\"; for($i = 0; $i < count($o); $i++) $str .= ($i > 0 ? ', ' : '') . _hx_string_rec($o[$i], $s); $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_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; } 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; } 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, $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, $scope, $args, $body) { $this->locals = $locals; $this->scope = $scope; $this->args = $args; $this->body = $body; } public $locals; public $scope; public $args; public $body; public $params = array(); public function execute() { $»arr = array_keys($this->locals); while($»k = current($»arr)) { ${$»k} =& $this->locals[$»k]; next($»arr); } for($»i = 0; $»i < count($this->args); $»i++) ${$this->args[$»i]} =& $this->params[$»i]; return eval($this->body); } public function makeArgs() { $this->params = array(func_get_args()); return $this->execute(); } public function execute0() { $this->params = array(); return $this->execute(); } public function execute1($_1) { if($this->scope == null) $this->scope= $_1; $this->params = array($_1); return $this->execute(); } public function execute2($_1, $_2) { if($this->scope == null) $this->scope= $_1; $this->params = array($_1, $_2); return $this->execute(); } public function execute3($_1, $_2, $_3) { if($this->scope == null) $this->scope= $_1; $this->params = array($_1, $_2, $_3); return $this->execute(); } public function execute4($_1, $_2, $_3, $_4) { if($this->scope == null) $this->scope= $_1; $this->params = array($_1, $_2, $_3, $_4); return $this->execute(); } public function execute5($_1, $_2, $_3, $_4, $_5) { if($this->scope == null) $this->scope= $_1; $this->params = array($_1, $_2, $_3, $_4, $_5); return $this->execute(); } public function execute6($_1, $_2, $_3, $_4, $_5, $_6) { if($this->scope == null) $this->scope= $_1; $this->params = array($_1, $_2, $_3, $_4, $_5, $_6); return $this->execute(); } public function execute7($_1, $_2, $_3, $_4, $_5, $_6, $_7) { if($this->scope == null) $this->scope= $_1; $this->params = array($_1, $_2, $_3, $_4, $_5, $_6, $_7); return $this->execute(); } } 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; } } set_error_handler('_hx_error_handler', E_ALL); 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) { $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(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' => $bn, 'type' => $t, 'qname' => $qname, 'phpname' => join(array_merge($pack, array($bn)), '_') ); } else if(is_dir($p)) _hx_build_paths($p, $_hx_types_array, array_merge($pack, array($f))); } closedir($h); } $_hx_cache_content = '