Expresso Livre Comunidade

<?php

$stdin = file_get_contents( "php://stdin" );

define( 'FOUT', $argv[1] );

define( 'DEBUG', $argv[2] === '1' );

file_put_contents( FOUT, '<?php'.PHP_EOL );

$i = 0;

function getArg( $str ) {

        $str = trim( $str );

        if ( DEBUG ) echo PHP_EOL."®".$str."®".PHP_EOL.PHP_EOL;

        $d = substr( $str, 0, 1 );

        $c = substr( $str, 1 );

        if ( $d === '\'' || $d === '"' ) {

                $p = explode( $d, preg_replace( '#'.preg_quote( '\\'.$d ).'#', '®', preg_replace( '#'.preg_quote( '\\\\' ).'#', 'ŧ', $c ) ), 2 );

                foreach( $p as $k => $v ) $p[$k] = preg_replace( array( '#®#', '#ŧ#' ), array( '\\'.$d, '\\\\\\' ), $v );

                $d2 = substr( trim( $p[1] ), 0, 1 );

                if ( $d === '"' ) {

                        if ( DEBUG ) print_r( $p[0] );

                        preg_match_all( '/\$([a-zA-Z0-9_]+(->[a-zA-Z0-9_]+)*)(\[[^\]]*\])*/', $p[0], $matches );

                        if ( DEBUG ) print_r( array( 'subject' => $p[0], 'matches' => $matches ) );

                        foreach( $matches[0] as $match ) {

                                if ( preg_match( '/\[/', $match ) ) {

                                        $p[0] = preg_replace( '/®/', preg_replace( '/\[[^\]]*\]/', '', $match ), preg_replace( '/'.preg_quote( $match ).'/', '®', $p[0] ) );

                                        $match = preg_replace( '/\[[^\]]*\]/', '', $match );

                                }

                                if ( preg_match( '/->/', $match ) ) {

                                        $p[0] = preg_replace( '/®/', preg_replace( '/->/', '_', $match ), preg_replace( '/'.preg_quote( $match ).'/', '®', $p[0] ) );

                                        $match = preg_replace( '/->/', '_', $match );

                                }

                                file_put_contents( FOUT, $match.'=\'\'; ', FILE_APPEND );

                        }

                }

                if ( DEBUG ) print_r( array( $str, $p, $d2 ) );

                return $d.$p[0].$d.( $d2 === '.'? $d2.getArg( substr( trim( $p[1] ), 1 ) ) : '');

        }

        if ( $d == "$" ) {

                $p = trim( preg_replace( '#^[a-zA-Z0-9_]*(\->[a-zA-Z0-9_]*)?(\[[^\]]*\])*#' ,'', $c ) );

                $d2 = substr( $p, 0, 1 );

                $c2 = substr( $p, 1 );

                $var = '$v'.($GLOBALS['i']++);

                if ( DEBUG ) print_r( array( $c, $p, $d2, $c2 ) );

                file_put_contents( FOUT, $var.'=\'\'; ', FILE_APPEND );

                return $var.($d2==="."?$d2.getArg( $c2 ):"");

        }

        if ( ord( $d )  === 17 ) return getArg( $c );

        if ( ord( $d )  === 35 ) return getArg( preg_replace( '/^[^\x11]*/', '', $c ) );

        if ( ord( $d )  === 47 && ord( substr( $c, 0, 1 ) ) === 47 ) return getArg( preg_replace( '/^[^\x11]*/', '', $c ) );

        if ( preg_match( '#^array_keys\(#', $str ) ) return 'array_keys(array())';

        if ( preg_match( '#^array\(#', $str ) ) return 'array()';

        if ( DEBUG ) echo '// ERROR ('.ord($d).') <'.preg_replace( '/\?\>/', '', $str ).'>';

        file_put_contents( FOUT, '// ERROR ('.ord($d).') <'.preg_replace( '/\?\>/', '', $str ).'>', FILE_APPEND );

        return "ERROR";

}

foreach ( explode( "\n", $stdin ) as $line ) {

        if ( $line === '' ) continue;

        list( $fl, $ln, $buf ) = explode( ':', $line, 3 );

        foreach ( array_filter( preg_split( '/preg_/', substr( $buf, stripos( $buf, 'preg_' ) ) ) ) as $preg ) {

                list( $fnc, $args ) = explode( '(', $preg, 2 );

                $fnc = trim( $fnc );

                $arg = getArg( $args );

                $extras = ',\'\'';

                if ( $fnc === 'replace' || $fnc === 'filter' ) $extras .= ',\'\'';

                if ( $fnc === 'grep' ) $extras = ',array()';

                if ( $fnc === 'replace_callback' ) $extras = ',function(){return \'\';},\'\'';

                file_put_contents( FOUT, 'preg_'.$fnc.'('.$arg.$extras.');                                           // '.$fl.':'.$ln.PHP_EOL, FILE_APPEND );

        }

}