comparison vendor/nikic/php-parser/test_old/run.php @ 13:5fb285c0d0e3

Update Drupal core to 8.4.7 via Composer. Security update; I *think* we've
been lucky to get away with this so far, as we don't support self-registration
which seems to be used by the so-called "drupalgeddon 2" attack that 8.4.5
was vulnerable to.

         break;
     default:
         showHelp('Test type must be one of: PHP5, PHP7 or Symfony');
 }
 
-require_once dirname(__FILE__) . '/../lib/PhpParser/Autoloader.php';
-PhpParser\Autoloader::register();
-
-$parserName    = 'PhpParser\Parser\\' . $version;
-$parser        = new $parserName(new PhpParser\Lexer\Emulative);
+require_once __DIR__ . '/../vendor/autoload.php';
+
+$lexer = new PhpParser\Lexer\Emulative(['usedAttributes' => [
+    'comments', 'startLine', 'endLine', 'startTokenPos', 'endTokenPos',
+]]);
+$parserName = 'PhpParser\Parser\\' . $version;
+/** @var PhpParser\Parser $parser */
+$parser = new $parserName($lexer);
 $prettyPrinter = new PhpParser\PrettyPrinter\Standard;
-$nodeDumper    = new PhpParser\NodeDumper;
-
-$parseFail = $ppFail = $compareFail = $count = 0;
-
-$readTime = $parseTime = $ppTime = $reparseTime = $compareTime = 0;
+$nodeDumper = new PhpParser\NodeDumper;
+
+$cloningTraverser = new PhpParser\NodeTraverser;
+$cloningTraverser->addVisitor(new PhpParser\NodeVisitor\CloningVisitor);
+
+$parseFail = $fpppFail = $ppFail = $compareFail = $count = 0;
+
+$readTime = $parseTime = $cloneTime = 0;
+$fpppTime = $ppTime = $reparseTime = $compareTime = 0;
 $totalStartTime = microtime(true);
 
 foreach (new RecursiveIteratorIterator(
              new RecursiveDirectoryIterator($dir),
              RecursiveIteratorIterator::LEAVES_ONLY)

     if (!$fileFilter($file)) {
         continue;
     }
 
     $startTime = microtime(true);
-    $code = file_get_contents($file);
+    $origCode = file_get_contents($file);
     $readTime += microtime(true) - $startTime;
 
-    if (null === $code = $codeExtractor($file, $code)) {
+    if (null === $origCode = $codeExtractor($file, $origCode)) {
         continue;
     }
 
     set_time_limit(10);
 

         echo substr(str_pad('Testing file ' . $count . ': ' . substr($file, strlen($dir)), 79), 0, 79), "\r";
     }
 
     try {
         $startTime = microtime(true);
-        $stmts = $parser->parse($code);
+        $origStmts = $parser->parse($origCode);
         $parseTime += microtime(true) - $startTime;
 
-        $startTime = microtime(true);
-        $code = '<?php' . "\n" . $prettyPrinter->prettyPrint($stmts);
+        $origTokens = $lexer->getTokens();
+
+        $startTime = microtime(true);
+        $stmts = $cloningTraverser->traverse($origStmts);
+        $cloneTime += microtime(true) - $startTime;
+
+        $startTime = microtime(true);
+        $code = $prettyPrinter->printFormatPreserving($stmts, $origStmts, $origTokens);
+        $fpppTime += microtime(true) - $startTime;
+
+        if ($code !== $origCode) {
+            echo $file, ":\n Result of format-preserving pretty-print differs\n";
+            if ($verbose) {
+                echo "FPPP output:\n=====\n$code\n=====\n\n";
+            }
+
+            ++$fpppFail;
+        }
+
+        $startTime = microtime(true);
+        $code = "<?php\n" . $prettyPrinter->prettyPrint($stmts);
         $ppTime += microtime(true) - $startTime;
 
         try {
             $startTime = microtime(true);
             $ppStmts = $parser->parse($code);

         echo '    ', $parseFail,   ' parse failures.',        "\n";
     }
     if (0 !== $ppFail) {
         echo '    ', $ppFail,      ' pretty print failures.', "\n";
     }
+    if (0 !== $fpppFail) {
+        echo '    ', $fpppFail,      ' FPPP failures.', "\n";
+    }
     if (0 !== $compareFail) {
         echo '    ', $compareFail, ' compare failures.',      "\n";
     }
 }
 
 echo "\n",
      'Tested files:         ', $count,        "\n",
      "\n",
      'Reading files took:   ', $readTime,    "\n",
      'Parsing took:         ', $parseTime,   "\n",
+     'Cloning took:         ', $cloneTime,   "\n",
+     'FPPP took:            ', $fpppTime,    "\n",
      'Pretty printing took: ', $ppTime,      "\n",
      'Reparsing took:       ', $reparseTime, "\n",
      'Comparing took:       ', $compareTime, "\n",
      "\n",
      'Total time:           ', microtime(true) - $totalStartTime, "\n",