package php; 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 $a . $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, $this->»a); } 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 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_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) { $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_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_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[$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$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); 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 ? 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)); case 'toString' : return $s; 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\"; $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_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, $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; $ilocals);$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); 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 = '