+
+
+ // remove everything in brackets and quotes, we don't need nested statements nor literal strings which would
+ // only complicate separating individual arguments
+ $c = strlen( $passedParameters );
+ $inString = $escaped = FALSE;
+ $i = 0;
+ $inBrackets = 0;
+ while ( $i < $c ) {
+ $letter = $passedParameters[$i];
+ if ( $inString === FALSE ) {
+ if ( $letter === '\'' || $letter === '"' ) {
+ $inString = $letter;
+ } elseif ( $letter === '(' ) {
+ $inBrackets++;
+ } elseif ( $letter === ')' ) {
+ $inBrackets--;
+ if ( $inBrackets === -1 ) { //this means we are out of the brackets that denote passed parameters
+ $passedParameters = substr( $passedParameters, 0, $i );
+ break;
+ }
+ }
+ } elseif ( $letter === $inString && !$escaped ) {
+ $inString = FALSE;
+ }
+
+ // place an untype-able character instead of whatever was inside quotes or brackets, we don't
+ // need that info. We'll later replace it with '...'
+ if ( $inBrackets > 0 ) {
+ if ( $inBrackets > 1 || $letter !== '(' ) {
+ $passedParameters[$i] = "\x07";
+ }
+ }
+ if ( $inString !== FALSE ) {
+ if ( $letter !== $inString || $escaped ) {
+ $passedParameters[$i] = "\x07";
+ }
+ }
+
+ $escaped = ( $letter === '\\' );
+ $i++;
+ }
+ // by now we have an unnested arguments list, lets make it to an array for processing further
+ $arguments = explode( ',', preg_replace( "#\x07+#", '...', $passedParameters ) );
+
+ // test each argument whether it was passed literary or was it an expression or a variable name
+ $parameters = array();
+ $blacklist = array( 'null', 'true', 'false', 'array(...)', '"..."', 'b"..."', );
+ foreach ( $arguments as $argument ) {
+
+ if ( is_numeric( $argument )
+ || in_array( str_replace( "'", '"', strtolower( $argument ) ), $blacklist, true ) )
+ {
+ $parameters[] = null;
+ } else {
+ $parameters[] = trim( $argument );
+ }
+ }
+
+ return array( $parameters, $modifier, $callee, $previousCaller );
+ }
+
+ /**
+ * removes comments and zaps whitespace & semicolons from php code, makes for easier further parsing
+ *
+ * @param string $source
+ *
+ * @return string
+ */
+ private static function _removeAllButCode( $source )
+ {
+ $newStr = '';
+ $tokens = token_get_all( $source );
+
+ $commentTokens = array( T_COMMENT, T_INLINE_HTML, T_OPEN_TAG );
+ if ( defined( 'T_DOC_COMMENT' ) ) {
+ $commentTokens[] = constant( 'T_DOC_COMMENT' );
+ }
+ if ( defined( 'T_ML_COMMENT' ) ) {
+ $commentTokens[] = constant( 'T_ML_COMMENT' );
+ }
+
+ foreach ( $tokens as $token ) {
+ if ( is_array( $token ) ) {
+ if ( in_array( $token[0], $commentTokens, true ) ) continue;
+
+ if ( $token[0] === T_WHITESPACE || $token[0] === T_CLOSE_TAG ) {
+ $token = "\x07";
+ } else {
+ $token = $token[1];
+ }
+ } elseif ( $token === ';' ) {
+ $token = "\x07";
+ }
+
+ $newStr .= $token;
+ }
+ return $newStr;
+ }
+
+ protected static function _escape( $value )
+ {
+ return htmlentities( $value, ENT_QUOTES );
+ }
+
+}
+
+
+if ( !function_exists( 'd' ) ) {
+ /**
+ * Alias of Kint::dump()
+ *
+ * @return string
+ */
+ function d()
+ {
+ if ( !Kint::enabled() ) return null;
+
+ $args = func_get_args();
+ return call_user_func_array( array( 'Kint', 'dump' ), $args );
+ }
+
+
+ /**
+ * Alias of Kint::dump()
+ * [!!!] IMPORTANT: execution will halt after call to this function
+ *
+ * @return string
+ */
+ function dd()
+ {
+ if ( !Kint::enabled() ) return;
+
+ $args = func_get_args();
+ call_user_func_array( array( 'Kint', 'dump' ), $args );
+ die;
+ }
+}
+
+if ( !function_exists( 's' ) ) {
+
+ /**
+ * Alias of kintLite()
+ *
+ * @return string
+ */
+ function s()
+ {
+ if ( !Kint::enabled() ) return;
+
+ $argv = func_get_args();
+ echo '';
+ foreach ( $argv as $k => $v ) {
+ $k && print( "\n\n" );
+ echo kintLite( $v );
+ }
+ echo '';
+ }
+
+ /**
+ * Alias of kintLite()
+ * [!!!] IMPORTANT: execution will halt after call to this function
+ *
+ * @return string
+ */
+ function sd()
+ {
+ if ( !Kint::enabled() ) return;
+
+ echo '';
+ foreach ( func_get_args() as $k => $v ) {
+ $k && print( "\n\n" );
+ echo kintLite( $v );
+ }
+ echo '';
+ die;
+
+ }
+
+}
+
+
+/**
+ * lightweight version of Kint::dump(). Uses whitespace for formatting instead of html
+ * sadly not DRY yet
+ *
+ * @param $var
+ * @param int $level
+ *
+ * @return string
+ */
+function kintLite( &$var, $level = 0 )
+{
+
+ // initialize function names into variables for prettier string output (html and implode are also DRY)
+ $html = "htmlspecialchars";
+ $implode = "implode";
+ $strlen = "strlen";
+ $count = "count";
+ $getClass = "get_class";
+
+
+ if ( $var === NULL ) {
+ return 'NULL';
+ }
+ elseif ( is_bool( $var ) ) {
+ return 'bool ' . ( $var ? 'TRUE' : 'FALSE' );
+ }
+ elseif ( is_bool( $var ) ) {
+ return 'bool ' . ( $var ? 'TRUE' : 'FALSE' );
+ }
+ elseif ( is_float( $var ) ) {
+ return 'float ' . $var;
+ }
+ elseif ( is_int( $var ) ) {
+ return 'integer ' . $var;
+ }
+ elseif ( is_resource( $var ) ) {
+ if ( ( $type = get_resource_type( $var ) ) === 'stream' AND $meta = stream_get_meta_data( $var ) ) {
+
+ if ( isset( $meta['uri'] ) ) {
+ $file = $meta['uri'];
+
+ return "resource ({$type}) {$html($file,0)}";
+ }
+ else {
+ return "resource ({$type})";
+ }
+ }
+ else {
+ return "resource ({$type})";
+ }
+ }
+ elseif ( is_string( $var ) ) {
+ return "string ({$strlen($var)}) \"{$html($var)}\"";
+ }
+ elseif ( is_array( $var ) ) {
+ $output = array();
+ $space = str_repeat( $s = ' ', $level );
+
+ static $marker;
+
+ if ( $marker === NULL ) {
+ // Make a unique marker
+ $marker = uniqid( "\x00" );
+ }
+
+ if ( empty( $var ) ) {
+ return "array()";
+ }
+ elseif ( isset( $var[$marker] ) ) {
+ $output[] = "[\n$space$s*RECURSION*\n$space]";
+ }
+ elseif ( $level < 7 ) {
+ $isSeq = array_keys( $var ) === range( 0, count( $var ) - 1 );
+
+ $output[] = "[";
+
+ $var[$marker] = TRUE;
+
+
+ foreach ( $var as $key => &$val ) {
+ if ( $key === $marker ) continue;
+
+ $key = $space . $s . ( $isSeq ? "" : "'{$html($key,0)}' => " );
+
+ $dump = kintLite( $val, $level + 1 );
+ $output[] = "{$key}{$dump}";
+ }
+
+ unset( $var[$marker] );
+ $output[] = "$space]";
+
+ }
+ else {
+ $output[] = "[\n$space$s*depth too great*\n$space]";
+ }
+ return "array({$count($var)}) {$implode("\n", $output)}";
+ }
+ elseif ( is_object( $var ) ) {
+ if ( $var instanceof SplFileInfo ) {
+ return "object SplFileInfo " . $var->getRealPath();
+ }
+
+ // Copy the object as an array
+ $array = (array)$var;
+
+ $output = array();
+ $space = str_repeat( $s = ' ', $level );
+
+ $hash = spl_object_hash( $var );
+
+ // Objects that are being dumped
+ static $objects = array();
+
+ if ( empty( $array ) ) {
+ return "object {$getClass($var)} {}";
+ }
+ elseif ( isset( $objects[$hash] ) ) {
+ $output[] = "{\n$space$s*RECURSION*\n$space}";
+ }
+ elseif ( $level < 7 ) {
+ $output[] = "{";
+ $objects[$hash] = TRUE;
+
+ $reflection = new ReflectionClass( $var );
+ foreach ( $reflection->getProperties( ReflectionProperty::IS_STATIC ) as $property ) {
+ if ( $property->isPrivate() ) {
+ $property->setAccessible( true );
+ $access = "private";
+ } elseif ( $property->isProtected() ) {
+ $property->setAccessible( true );
+ $access = "protected";
+ } else {
+ $access = 'public';
+ }
+ $access = $access . " static";
+ $key = $property->getName();
+
+ $value = $property->getValue();
+ $output[] = "$space$s{$access} {$key} :: " . kintLite( $value, $level + 1 );
+ }
+
+ foreach ( $array as $key => & $val ) {
+ if ( $key[0] === "\x00" ) {
+
+ $access = $key[1] === "*" ? "protected" : "private";
+
+ // Remove the access level from the variable name
+ $key = substr( $key, strrpos( $key, "\x00" ) + 1 );
+ }
+ else {
+ $access = "public";
+ }
+
+ $output[] = "$space$s$access $key -> " . kintLite( $val, $level + 1 );
+ }
+ unset( $objects[$hash] );
+ $output[] = "$space}";
+
+ }
+ else {
+ $output[] = "{\n$space$s*depth too great*\n$space}";
+ }
+
+ return "object {$getClass($var)} ({$count($array)}) {$implode("\n", $output)}";
+ }
+ else {
+ return gettype( $var ) . htmlspecialchars( var_export( $var, true ), ENT_NOQUOTES );
+ }
+}
+
+Kint::_init();
\ No newline at end of file