Move up to date the parser test expectation.

[lhc/web/wiklou.git] / maintenance / eval.php

diff --git a/maintenance/eval.php b/maintenance/eval.php
old mode 100755 (executable)
new mode 100644 (file)
index c53da36..7b449bb
--- a/maintenance/eval.php
+++ b/maintenance/eval.php
@@ -1,22 +1,72 @@
 <?php
 /**
- * @todo document
- * @package MediaWiki
- * @subpackage Maintenance
+ * PHP lacks an interactive mode, but this can be very helpful when debugging.
+ * This script lets a command-line user start up the wiki engine and then poke
+ * about by issuing PHP commands directly.
+ *
+ * Unlike eg Python, you need to use a 'return' statement explicitly for the
+ * interactive shell to print out the value of the expression. Multiple lines
+ * are evaluated separately, so blocks need to be input without a line break.
+ * Fatal errors such as use of undeclared functions can kill the shell.
+ *
+ * To get decent line editing behavior, you should compile PHP with support
+ * for GNU readline (pass --with-readline to configure).
+ *
+ * @file
+ * @ingroup Maintenance
  */
 
+$wgUseNormalUser = (bool)getenv( 'MW_WIKIUSER' );
+
+$optionsWithArgs = array( 'd' );
+
 /** */
 require_once( "commandLine.inc" );
 
-do {
-       $line = readconsole( "> " );
-       eval( $line . ";" );
-       if ( function_exists( "readline_add_history" ) ) {
-               readline_add_history( $line );
+if ( isset( $options['d'] ) ) {
+       $d = $options['d'];
+       if ( $d > 0 ) {
+               $wgDebugLogFile = '/dev/stdout';
+       }
+       if ( $d > 1 ) {
+               $lb = wfGetLB();
+               foreach ( $lb->mServers as $i => $server ) {
+                       $lb->mServers[$i]['flags'] |= DBO_DEBUG;
+               }
+       }
+       if ( $d > 2 ) {
+               $wgDebugFunctionEntry = true;
        }
-} while ( 1 );
+}
 
+if ( function_exists( 'readline_add_history' )
+       && posix_isatty( 0 /*STDIN*/ ) )
+{
+       $useReadline = true;
+} else {
+       $useReadline = false;
+}
+
+if ( $useReadline ) {
+       $historyFile = "{$_ENV['HOME']}/.mweval_history";
+       readline_read_history( $historyFile );
+}
+
+while ( ( $line = readconsole( '> ' ) ) !== false ) {
+       if ( $useReadline ) {
+               readline_add_history( $line );
+               readline_write_history( $historyFile );
+       }
+       $val = eval( $line . ";" );
+       if ( is_null( $val ) ) {
+               echo "\n";
+       } elseif ( is_string( $val ) || is_numeric( $val ) ) {
+               echo "$val\n";
+       } else {
+               var_dump( $val );
+       }
+}
 
+print "\n";
 
 
-?>