File indexing completed on 2024-12-29 04:15:17

 <?php
 /*
     SPDX-FileCopyrightText: 2008 Niko Sams <niko.sams@gmail.com>
     SPDX-FileCopyrightText: 2010 Milian Wolff <mail@milianw.de>
 
     SPDX-License-Identifier: LGPL-2.0-or-later
 */
 
 if (!isset($_SERVER['argv'][1])) {
     $msg = "Usage:\n".$_SERVER['argv'][0]." [path to phpdoc]\n";
     $msg .= "you may checkout from the php svn server using this command:\n";
     $msg .= "svn checkout http://svn.php.net/repository/phpdoc/en/trunk ./phpdoc-en\n";
     $msg .= "\nTo debug files/directories use this: ".$_SERVER['argv'][0]." --debug PATH ...\n";
     file_put_contents('php://stderr', $msg);
     exit(-1);
 }
 
 $skipClasses = array();
 
 $skipClasses[] = 'self';
 $skipClasses[] = 'parent';
 $skipClasses[] = '__php_incomplete_class';
 $skipClasses[] = 'php_user_filter';
 $skipClasses[] = 'static'; // O_o where does that come from?
 $skipClasses[] = 'componere\abstract\definition'; // invalid namespace identifier, discussed in https://github.com/krakjoe/componere/issues/5
 
 // interfaces wrongly declared as classes
 $interfaceClasses = array();
 $interfaceClasses[] = 'sessionhandlerinterface';
 $interfaceClasses[] = 'yaf_route_interface';
 $interfaceClasses[] = 'yaf_view_interface';
 
 $abstractClasses[] = array();
 $abstractClasses[] = 'reflectionfunctionabstract';
 $abstractClasses[] = 'xmldiff\base';
 $abstractClasses[] = 'yaf_action_abstract';
 
 $skipComments = array();
 $skipComments[] = ':';
 $skipComments[] = '(method):';
 $skipComments[] = 'Description here.';
 $skipComments[] = 'Description here...';
 $skipComments[] = 'Description';
 $skipComments[] = 'The function description goes here.';
 
 $classes = array();
 $constants = array();
 $constants_comments = array();
 $variables = array();
 $existingFunctions = array();
 $versions = array();
 
 if ($_SERVER['argv'][1] == '--debug') {
     // only debug given file
     define('DEBUG', true);
     $dirs = array();
     foreach ( $_SERVER['argv'] as $i => $v ) {
         if ( $i <= 1 ) {
             continue;
         } else if ( is_dir($v) ) {
             $dirs[] = $v;
         } else if ( file_exists($v) ) {
             parseFile(new SplFileInfo($v));
         } else {
             trigger_error("bad argument: ".$v, E_USER_ERROR);
         }
     }
 } else {
     define('DEBUG', false);
 
     if (!file_exists($_SERVER['argv'][1])) {
         file_put_contents('php://stderr', "phpdoc path not found");
         exit(-1);
     }
 
     $dirs = array(
         $_SERVER['argv'][1]."/reference",
         $_SERVER['argv'][1]."/features",
         $_SERVER['argv'][1]."/appendices",
         $_SERVER['argv'][1]."/language/predefined/"
     );
 }
 
 foreach ($dirs as $dir) {
     $dirIt = new RecursiveIteratorIterator( new RecursiveDirectoryIterator($dir));
     foreach ($dirIt as $file) {
         parseFile($file);
     }
 }
 
 unset($existingFunctions);
 
 /*
  Here be dirty hacks! PHP's documentation isn't as good as could be wished for...
  */
 
 // Add constant only classes
 foreach (array_keys($constants) as $c) {
     if ($pos = strpos($c, '::')) {
         $class = substr($c, 0, $pos);
         $isInterface = false;
         $isAbstractClass = false;
         newClassEntry($class);
     }
 }
 
 $skipFunctions = array();
 // remove delete() function which only acts as a pointer to unlink
 // in the documentation but does not actually exist as a alias in PHP
 $skipFunctions[] = 'delete';
 
 // awesome uncallable functions - noone knows wth that should be...
 $skipMethods = array();
 $skipMethods[] = 'list';
 $skipMethods[] = 'declare';
 $skipMethods[] = 'do';
 $skipMethods[] = 'echo';
 $skipMethods[] = 'function';
 
 /*
  Here ends the hackings...
  */
 
 function constTypeValue($ctype) {
     if ($ctype == 'integer' || $ctype == 'int') {
         return "0";
     } else if ($ctype == 'string') {
         return "''";
     } else if ($ctype == 'bool') {
         return "false";
     } else if ($ctype == 'float') {
         return "0.0";
     } else {
         // default to integer const type
         return "0";
     }
 }
 
 function removeTag($xml, $tag) {
     $tag = preg_quote($tag, '#');
     return trim(preg_replace('#(^<'.$tag.'[^>]*>|</'.$tag.'>$)#s', '', trim($xml)));
 }
 
 function cleanupComment($comment) {
     // <function|parameter>...</> to {@link ...}
     $comment = preg_replace('#<(function|parameter)>(.+)</\1>#U', '{@link $2}', $comment);
     // remove <para> and other stuff
     ///TODO: support web-links, lists and tables
     $comment = strip_tags($comment);
     $comment = html_entity_decode($comment);
 
     // make sure no */ occurs in a comment...
     $comment = preg_replace('#\*/#', '* /', $comment);
 
     $comment = preg_replace('#(?<=[^\n])\n(?=[^\n])#s', ' ', $comment);
 
     $comment = preg_replace('#  +#', ' ', $comment);
     $comment = preg_replace('#^ | $#m', '', $comment);
     $comment = preg_replace("#\n{3,}#", "\n\n", $comment);
 
     $comment = trim($comment);
     return $comment;
 }
 
 function prepareComment($comment, array $more, $indent = '') {
     $comment = cleanupComment($comment);
     if (empty($comment) && empty($more)) {
         return '';
     }
     $comment = wordwrap($comment, 70, "\n", false);
     if ( !empty($more) ) {
         if ( !empty($comment) ) {
             $comment .= "\n\n";
         }
         foreach($more as $s) {
             $comment .= str_replace("\n", "\n  ", // indent
                             wordwrap(cleanupComment($s), 68, "\n", false)
                         )."\n";
         }
     }
     $comment = rtrim($comment);
     // add indentation and asterisk
     $comment = preg_replace("#^#m", $indent." * ", $comment);
     $comment = str_replace(" * \n", " *\n", $comment);
     return $indent."/**\n".
                    $comment."\n".
            $indent." **/\n";
 }
 
 function sortByName($a, $b) {
     return strnatcasecmp($a['name'], $b['name']);
 }
 
 $fileHeader  = "<?php\n";
 $fileHeader .= "// THIS FILE IS GENERATED\n";
 $fileHeader .= "// WARNING! All changes made in this file will be lost!\n\n";
 
 $declarationCount = 0;
 $out = $fileHeader;
 
 // make sure the output it somehow ordered to prevent huge svn diffs
 uksort($variables, 'strnatcasecmp');
 uksort($classes, 'strnatcasecmp');
 uksort($constants, 'strnatcasecmp');
 
 // put some base classes up front
 $baseClasses = [ 'exception', 'error', 'throwable', 'iterator', 'traversable' ];
 foreach ($baseClasses as $baseClass) {
     if (array_key_exists($baseClass, $classes)) {
         $base = $classes[$baseClass];
         unset($classes[$baseClass]);
         $classes = array_merge(array($baseClass => $base), $classes);
         reset($classes);
     }
 }
 
 foreach ($variables as $name=>$var) {
     $declarationCount++;
     $moreDesc = array();
     if ($var['deprecated']) {
         $moreDesc[] = "@deprecated";
     }
     if (isset($var['superglobal']) && $var['superglobal']) {
         $moreDesc[] = "@superglobal";
     }
     $out .= prepareComment($var['desc'], $moreDesc);
     $out .= "$name = array();\n\n";
 }
 
 // make skipclasses lowercase
 foreach ($skipClasses as &$name) {
     $name = strtolower($name);
 }
 
 foreach ($classes as $class => $i) {
     if (in_array($class, $skipClasses)) continue; //skip those as they are documented in spl.php
     if ($class != 'global') {
         if (isset($i['desc'])) {
             $out .= prepareComment($i['desc'], array());
         }
         if (!empty($i['namespace'])) {
             $out .= 'namespace ' . $i['namespace'] . " {\n";
         }
         $class = $i['prettyName'];
         $out .= ($i['isAbstract']) ? 'abstract ' : '';
         $out .= ($i['isFinal'] && !$i['isInterface']) ? 'final ' : '';
         $out .= ($i['isInterface'] ? 'interface' : 'class') . " " . $class;
         if (isset($i['extends'])) {
             if (!is_array($i['extends']) && !in_array(strtolower($i['extends']), $skipClasses)) {
                 $out .= " extends {$i['extends']}";
             } elseif (is_array($i['extends'])) {
                 $out .= " extends ";
                 foreach ($i['extends'] as $entry) {
                     if (!in_array(strtolower($entry), $skipClasses)) {
                         $out .= "$entry, ";
                     }
                 }
                 $out = rtrim($out, ', ');
             }
         }
         if (isset($i['implements'])) {
             $out .= " implements ".implode(", ", $i['implements']);
         }
         $out .= " {\n";
         $declarationCount++;
     }
 
     $indent = '';
     if ($class != 'global') $indent = '    ';
 
     if (array_key_exists('extends', $i)) {
         if (!is_array($i['extends'])) {
             $extends = [ $i['extends'] ];
         } else {
             $extends = $i['extends'];
         }
 
         foreach ($extends as $entry) {
             if (in_array(strtolower($entry), $skipClasses)) {
                 $base = $classes[strtolower($entry)];
 
                 $i['properties'] = array_merge($i['properties'], $base['properties']);
                 $i['functions']  = array_merge($i['functions'], $base['functions']);
             }
         }
     }
 
     foreach ($constants as $c=>$ctype) {
         if ($pos = strpos($c, '::')) {
             if (substr($c, 0, $pos) == $class) {
                 $moreDesc = array();
                 $moreDesc[] = "@var {$ctype}";
                 if ( isset($constants_comments[$c]) ) {
                     $out .= prepareComment($constants_comments[$c], $moreDesc, $indent);
                 }
                 unset($constants[$c]);
                 $c = substr($c, $pos+2);
                 $out .= "    const $c = ".constTypeValue($ctype).";\n\n";
                 $declarationCount++;
             }
         }
     }
 
     usort($i['properties'], 'sortByName');
     $handled = [];
     foreach ($i['properties'] as $f) {
         if (in_array($f['name'], $handled)) {
             continue;
         }
         $handled[] = $f['name'];
         $moreDesc = array();
         if ($f['type']) {
             $moreDesc[] = "@var {$f['type']}";
         }
         ///HACK the directory stuff has really bad documentation
         if ($class != 'directory') {
             $out .= prepareComment($f['desc'], $moreDesc, $indent);
         }
         if ($class != 'global' && array_key_exists('modifiers', $f) && is_array($f['modifiers'])) {
             $f['modifiers'] = array_filter($f['modifiers'], function ($value){ return $value != 'readonly'; });
             $modifiers  = implode(' ', $f['modifiers']);
             $modifiers .= empty($modifiers) ? 'public ' : ' ';
         }
         $out .= "{$indent}{$modifiers}$".$f['name'].";\n\n";
         $declarationCount++;
     }
 
     usort($i['functions'], 'sortByName');
     $handled = [];
     foreach ($i['functions'] as $f) {
         if (in_array($f['name'], $handled)) {
             continue;
         }
         $handled[] = $f['name'];
         if ( $class == 'global' && in_array($f['name'], $skipFunctions) ) {
             continue;
         } else if ( $class != 'global' && in_array($f['name'], $skipMethods) ) {
             continue;
         }
         if ($endpos = strrpos($f['name'], '\\')) {
             $out .= 'namespace ' . substr($f['name'], 0, $endpos) . " {\n\n";
             $f['name'] = substr($f['name'], $endpos + 1);
         }
         $moreDesc = array();
         foreach ($f['params'] as $pi=>$param) {
             $desc = '';
             if ( isset($param['desc']) ) {
                 $desc = trim($param['desc']);
             }
             $param_name = str_replace('$...', '...$', '$'.$param['name']);
             $moreDesc[] = "@param {$param['type']} $param_name $desc";
         }
         if ($f['type']) {
             $moreDesc[] = rtrim("@return {$f['type']} {$f['return_desc']}");
         }
         $version_key = strtolower(($class == 'global' ? '' : $class.'::') . $f['name']);
         if (isset($versions[$version_key])) {
             $moreDesc[] = "@since {$versions[$version_key]}";
         }
         ///HACK the directory stuff has really bad documentation
         if ($class != 'directory') {
             $out .= prepareComment($f['desc'], $moreDesc, $indent);
         }
         if ($f['name'] == '__construct' && strtolower($class) == 'eventutil') {
             //HACK: PHP doesn't allow abstract final classes, so make the constructor private instead.
             $f['modifiers'] = [ 'private' ];
         }
         if ($class != 'global' && array_key_exists('modifiers', $f) && is_array($f['modifiers'])) {
             if ($i['isInterface'] === true) {
                 $f['modifiers'] = array_filter($f['modifiers'], function ($value){ return $value != 'abstract' && $value != 'final'; });
             }
             $modifiers  = implode(' ', $f['modifiers']);
             $modifiers .= empty($modifiers) ? '' : ' ';
         } else {
             $modifiers = '';
         }
         $out .= "{$indent}{$modifiers}function ".$f['name'];
         $out .= "(";
         $first = true;
         $params_total = count($f['params'])-1;
         foreach ($f['params'] as $pi=>$param) {
             $param_name = str_replace('$...', '...$', '$'.$param['name']);
             $param_name = str_replace('"', '', $param_name);
             if (substr($param_name, 0, 3) == '...' && $pi < $params_total) {
                 // varargs in the middle of arguments are invalid syntax.
                 // print the documentation, but ignore them in the function signature
                 continue;
             }
             if (!$first) $out .= ", ";
             $first = false;
             if ($param['isRef']) $out .= "&";
             $out .= $param_name;
         }
         $out .= ")";
         if ( $i['isInterface'] || (array_key_exists('modifiers', $f) && in_array('abstract', $f['modifiers'])) ) {
             $out .= ";";
         } else {
             $out .= "{}";
         }
         $out .= "\n\n";
         if ($endpos) $out .= "}\n\n";
         $declarationCount++;
     }
 
     if ($class != 'global') $out .= "}\n";
     if (!empty($i['namespace'])) $out .= "}\n";
 }
 foreach ($constants as $c=>$ctype) {
     if (strpos($c, '::')===false) {
         if ( isset($constants_comments[$c]) ) {
           $out .= prepareComment($constants_comments[$c], array());
         }
         $out .= "define('$c', ".constTypeValue($ctype).");\n";
         $declarationCount++;
     }
 }
 chdir(dirname(__FILE__));
 if ( !DEBUG ) {
     echo "saving phpfunctions.php file\n";
     file_put_contents("phpfunctions.php", $out);
 
     if ( shell_exec("which php-parser") ) {
         echo "making sure phpfunctions file is valid...\n";
         system("php-parser phpfunctions.php", $ret);
         if ( $ret != 0 ) {
             die("could not parse file, aborting\n");
         }
     } else {
         echo "note: put php-parser in your path and I can check the generated file directly...\n";
     }
 
     echo "done\n";
 } else {
     echo "phpfunctions.php\n~~~~\n$out\n~~~~\n";
 }
 echo "wrote ".$declarationCount." declarations\n";
 
 /**
  * Parse file
  *
  * @param SplFileInfo  $file  File handler
  * @return  bool
  */
 function parseFile($file, $funcOverload="", $classOverload="") {
 global $existingFunctions, $constants, $constants_comments, $variables, $classes, $isInterface, $isAbstractClass, $isFinalClass, $versions;
 
     if (substr($file->getFilename(), -4) != '.xml') return false;
     if (substr($file->getFilename(), 0, 9) == 'entities.') return false;
     $string = file_get_contents($file->getPathname());
     $isInterface = (strpos($string, '<phpdoc:classref') !== false &&
                    strpos($string, '&reftitle.interfacesynopsis;') !== false) ||
                    strpos($string, ' interface</title>') !== false;
     $isAbstractClass = false;
     $isFinalClass = false;
 
     $string = str_replace('&null;', 'NULL', $string);
     $string = str_replace('&true;', 'TRUE', $string);
     $string = str_replace('&false;', 'FALSE', $string);
     $string = preg_replace('#(?:(&amp;|&gt;|&lt;)|&[A-Za-z\\.0-9-_]+;)#', '$1', $string);
     $removeSections = array();
     $removeSections[] = 'apd.installwin32';
     $removeSections[] = 'intl.intldateformatter-constants.calendartypes';
     foreach ($removeSections as $i) {
         $string = preg_replace('#'.preg_quote('<section xml:id="'.$i.'">').'.*?</section>#s', '', $string);
     }
     echo "reading documentation from {$file->getPathname()}\n";
 
     libxml_use_internal_errors(TRUE);
     $xml = simplexml_load_string($string,  "SimpleXMLElement",  LIBXML_NOCDATA);
 
     if ($xml === false) {
       echo "  parsing XMl failed!\n";
       return false;
     }
 
     if ( $file->getFilename() == 'versions.xml' ) {
         foreach ( $xml->xpath('/versions/function') as $f ) {
             $attrs = $f->attributes();
             $versions[strtolower($attrs['name'])] = (string) $attrs['from'];
         }
         return;
     }
 
     $xml->registerXPathNamespace('db', 'http://docbook.org/ns/docbook');
     $xml->registerXPathNamespace('phpdoc', 'http://php.net/ns/phpdoc');
     if ($vars = $xml->xpath('//phpdoc:varentry//db:refnamediv')) {
         foreach ($vars as $var) {
             foreach ($var->refname as $i) {
                 $i = (string)$i;
                 if ( isset($variables[$i]) ) {
                     $v = $variables[$i];
                 } else {
                     $v = array();
                 }
                 if (substr($i, 0, 1) != '$') continue;
                 if (substr($i, -10) == ' [removed]') continue;
 
                 if (substr($i, -13) == ' [deprecated]') {
                     $i = substr($i, 0, -13);
                     $v['deprecated'] = true;
                 } else {
                     $v['deprecated'] = false;
                 }
                 $v['desc'] = (string)$var->refpurpose;
                 $variables[$i] = $v;
             }
         }
     }
     if ($vars = $xml->xpath("//phpdoc:varentry[@xml:id='language.variables.superglobals']//db:member/db:varname")) {
         foreach ($vars as $var) {
             $variables[(string)$var]['superglobal'] = true;
         }
     }
     if (isset($xml->variablelist)) {
         foreach ($xml->variablelist as $list) {
             foreach ($list->varlistentry as $i=>$varlistentry) {
                 if ($c = (string)$varlistentry->term->constant) {
                     if (!isset($constants[$c])) {
                         if (strpos($c, '=')) {
                             $c = substr($c, 0, strpos($c, '='));
                         }
                         $ctype = $varlistentry->term->type;
                         if (!$ctype) {
                             $ctype = $varlistentry->term->link;
                         }
                         $constants[$c] = (string)$ctype;
                     }
                 }
             }
         }
     }
     // handle class constants (and their global aliases) not defined as fieldsynopsis
     $consts = $xml->xpath("db:partintro//db:varlistentry");
     foreach ($consts as $c) {
         foreach ($c->term as $t) {
             if ($name = (string)$t->constant) {
                 if (!isset($constants[$name])) {
                     if (strpos($name, '=')) {
                         $c = substr($name, 0, strpos($name, '='));
                     }
                     $constants[$name] = 'mixed';
                     $constants_comments[$name] = cleanupComment($c->listitem->para->asXML());
                 }
             }
         }
     }
     // handle constants under section
     if ($file->getFilename() == 'constants.xml') {
         $consts = $xml->xpath("db:section//db:varlistentry");
         foreach ($consts as $c) {
             if ($name = (string)$c->term->constant) {
                 if (!isset($constants[$name])) {
                     if (strpos($name, '=')) {
                         $c = substr($name, 0, strpos($name, '='));
                     }
                     $ctype = $c->term->type;
                     if (!$ctype) {
                         $ctype = $c->term->link;
                     }
                     $constants[$name] = (string)$ctype;
                 }
             }
         }
     }
     // handle constants within tables
     if ($file->getFilename() == 'constants.xml') {
         $consts = $xml->xpath("db:section//db:row");
         foreach ($consts as $c) {
             if (!$c->entry && !$c->entry[0] && !$c->entry[0]->constant) {
                 continue;
             }
             $name = (string)$c->entry[0]->constant;
             switch ($name) {
                 case '':
                     continue 2;
                 default:
                     if ($c->entry[2]) {
                         $constants[$name] = $c->term->type;
                         $constants_comments[$name] = cleanupComment($c->entry[2]->asXML());
                     } else if ($c->entry[1]) {
                         $constants[$name] = 'mixed';
                         $constants_comments[$name] = cleanupComment($c->entry[1]->asXML());
                     }
             }
         }
     }
     // handle constants within para
     if ($file->getFilename() == 'constants.xml') {
         $consts = $xml->xpath("db:para//db:varlistentry");
         foreach ($consts as $c) {
             if ($name = (string)$c->term->constant) {
                 if ($name == '__default') {
                     continue;
                 }
                 if (!isset($constants[$name])) {
                     if (strpos($name, '=')) {
                         $c = substr($name, 0, strpos($name, '='));
                     }
                     $ctype = $c->term->type;
                     if (!$ctype) {
                         $ctype = $c->term->link;
                     }
                     $constants[$name] = (string)$ctype;
                 }
             }
         }
     }
     if ($file->getFilename() == 'constants.xml') {
         $consts = $xml->xpath("db:para//db:simpara");
         foreach ($consts as $c) {
             if ($name = (string)$c->constant) {
                 if ($name[0] == '"') {
                     continue;
                 }
                 if (!isset($constants[$name])) {
                     $constants[$name] = 'mixed';
                 }
             }
         }
     }
     if ($file->getFilename() == 'ciphers.xml') {
         $consts = $xml->xpath("db:para//db:simpara");
         foreach ($consts as $c) {
             if ($name = (string)$c) {
                 $name = explode(' ', $name)[0];
                 $name = explode('(', $name)[0];
                 if (!isset($constants[$name])) {
                     $constants[$name] = 'mixed';
                 }
             }
         }
     }
     // handle constants in tables within refsect1
     if ($file->getFilename() != 'attr.xml') {
         $consts = $xml->xpath("db:refsect1//db:row");
         foreach ($consts as $c) {
             if (!$c->entry && !$c->entry[0] && !$c->entry[0]->constant) {
                 continue;
             }
             $name = (string)$c->entry[0]->constant;
             switch ($name) {
                 case '':
                 case '0':
                     continue 2;
                 case 'ABDAY_(1-7)':
                 case 'DAY_(1-7)':
                     for ($i=1; $i<8;$i++) {
                         $cname = substr($name, 0, strpos($name, '_') + 1) . $i;
                         $constants[$cname] = 'mixed';
                         if ($c->entry[1]) {
                             $constants_comments[$cname] = cleanupComment($c->entry[1]->asXML());
                         }
                     }
                     break;
                 case 'ABMON_(1-12)':
                 case 'MON_(1-12)':
                     for ($i=1; $i<13;$i++) {
                         $cname = substr($name, 0, strpos($name, '_') + 1) . $i;
                         $constants[$cname] = 'mixed';
                         if ($c->entry[1]) {
                             $constants_comments[$cname] = cleanupComment($c->entry[1]->asXML());
                         }
                     }
                     break;
                 default:
                     $constants[$name] = 'mixed';
                     if ($c->entry[1]) {
                         $constants_comments[$name] = cleanupComment($c->entry[1]->asXML());
                     }
             }
         }
     }
     // handle constants within file-upload.xml
     if ($file->getFilename() == 'file-upload.xml') {
         $consts = $xml->xpath("db:sect1//db:varlistentry");
         foreach ($consts as $c) {
             if ($name = (string)$c->term->constant) {
                 if (!isset($constants[$name])) {
                     if (strpos($name, '=')) {
                         $c = substr($name, 0, strpos($name, '='));
                     }
                     $ctype = $c->term->type;
                     if (!$ctype) {
                         $ctype = $c->term->link;
                     }
                     $constants[$name] = (string)$ctype;
                     $constants_comments[$name] = cleanupComment($c->listitem->para->asXML());
                 }
             }
         }
     }
     // handle constants within tokens.xml
     if ($file->getFilename() == 'tokens.xml') {
         $consts = $xml->xpath("db:table//db:row");
         foreach ($consts as $c) {
             if (!$c->entry && !$c->entry[0] && !$c->entry[0]->constant) {
                 continue;
             }
             $name = (string)$c->entry[0]->constant;
             switch ($name) {
                 case '':
                     continue 2;
                 default:
                     $constants[$name] = 'mixed';
             }
         }
     }
     // handle url-stat constants
     if ($file->getFilename() == 'url-stat.xml') {
         $consts = $xml->xpath("db:refsect1//db:informaltable//db:row");
         foreach ($consts as $c) {
             if (!$c->entry && !$c->entry[0]) {
                 continue;
             }
             $name = (string)$c->entry[0];
             switch ($name) {
                 case '':
                 case 'Flag':
                     continue 2;
                 default:
                     $constants[$name] = 'mixed';
                     $constants_comments[$name] = cleanupComment($c->entry[1]->asXML());
             }
         }
     }
     // handle constants.xml with different layout as those above
     if ( !isset($xml->variablelist) && $file->getFilename() == 'constants.xml' && $xml->xpath("//db:constant") ) {
         $consts = $xml->xpath("//db:entry");
         foreach ( $consts as $i=>$p ) {
             if ( isset($p->constant) ) {
                 if ( !isset($p->type) ) {
                     // default to integer constants
                     $p->type = 'integer';
                 } else {
                     // check for comment
                     // next entry is the value of the constant which is followed by the comment
                     if ( isset($consts[$i+2]) && !$consts[$i+2]->children() ) {
                         $comment = $consts[$i+2]->asXml();
                         if ( !empty($comment) ) {
                             $constants_comments[(string)$p->constant] = $comment;
                         }
                     }
                 }
                 $name = (string)$p->constant;
                 if ($name == 'LOG_LOCAL0 ... LOG_LOCAL7') {
                     for ($i=0; $i<8; $i++) {
                     $constants['LOG_LOCAL' . $i] = (string)$p->type;
                     }
                 } else {
                     $constants[$name] = (string)$p->type;
                 }
             }
         }
     } else if (!isset($xml->variablelist) && $file->getFilename() == 'commandline.xml') {
         // yay for non-unified xml structures :-X
         $consts = $xml->xpath("//db:row");
         foreach ( $consts as $i=>$p ) {
             $constant = "";
                     // default to integer constants
             $type = "integer";
             if ( isset($p->entry[0]) && isset($p->entry[0]->constant) ) {
                 $constant = trim((string) $p->entry[0]->constant);
                 if ( isset($p->entry[0]->constant->type) ) {
                     $type = (string)$p->entry[0]->constant->type;
                 }
             }
             if (empty($constant)) {
                 continue;
             }
             // check for comment
             // next entry is the comment
             if ( isset($p->entry[1]) ) {
                 $comment = $p->entry[1]->para->asXml();
                 if ( !empty($comment) ) {
                     $constants_comments[$constant] = $comment;
                 }
             }
             $constants[$constant] = $type;
         }
     }
     if ($list = $xml->xpath('//db:sect2[starts-with(@xml:id, "reserved.classes")]/db:variablelist/db:varlistentry')) {
         foreach ($list as $l) {
             $classname = newClassEntry((string)$l->term->classname);
 
             $classes[$classname]['desc'] = cleanupComment(removeTag($l->listitem->asXML(), 'listitem'));
         }
     }
 
     $cEls = $xml->xpath('//db:classsynopsis/db:classsynopsisinfo');
     if ($cEls) {
         foreach ($cEls as $class) {
             $class->registerXPathNamespace('db', 'http://docbook.org/ns/docbook');
             $className = (string)$class->ooclass->classname;
             if ((string)$class->ooclass->modifier === 'abstract') {
                 $isAbstractClass = true;
             }
             if ((string)$class->ooclass->modifier === 'final') {
                 $isFinalClass = true;
             }
             if (!$className) continue;
             $className = newClassEntry($className);
             if ($interfaces = $class->xpath('//db:oointerface/db:interfacename')) {
                 $key = $isInterface ? 'extends' : 'implements';
                 foreach ($interfaces as $if) {
                     $classes[$className][$key][] = (string)$if;
                 }
             }
             if ($extends = $class->xpath('//db:ooclass')) {
                 foreach ($extends as $c) {
                     if ($c->modifier == 'extends') {
                         if (array_key_exists('extends', $classes[$className]) && is_array($classes[$className]['extends'])) {
                             array_unshift($classes[$className]['extends'], (string)$c->classname);
                         } else {
                             $classes[$className]['extends'] = (string)$c->classname;
                         }
                     } elseif ($c->modifier == 'implements') {
                         if (array_key_exists('implements', $classes[$className]) && is_array($classes[$className]['implements'])) {
                             array_unshift($classes[$className]['implements'], (string)$c->classname);
                         } else {
                             $classes[$className]['implements'][] = (string)$c->classname;
                         }
                     }
                 }
             }
             if ($paras = $xml->xpath('//db:section[starts-with(@xml:id, "'.$className.'")]/db:para')) {
                 foreach ($paras as $p) {
                     $classes[$className]['desc'] .= "\n". cleanupComment(removeTag($p->asXML(), 'para'));
                 }
             } elseif ($paras = $xml->xpath('//db:section[starts-with(@xml:id, "'. str_replace('_', '-', $className) .'")]/db:para')) {
                 foreach ($paras as $p) {
                     $classes[$className]['desc'] .= "\n". cleanupComment(removeTag($p->asXML(), 'para'));
                 }
             }
         }
     }
 
     $addedSomething = false;
 
     if (isset($xml->partintro) && !isset($xml->refsect1)) {
         if (isset($xml->partintro->section[1]->classsynopsis->fieldsynopsis)) {
             $synopsis = $xml->partintro->section[1]->classsynopsis->fieldsynopsis;
             $class    = $xml->partintro->section[1]->classsynopsis->ooclass->classname;
 
             $classname = newClassEntry($class);
 
             foreach ($synopsis as $property){
                 $name  = $property->varname;
 
                 $modifiers = (array) $property->modifier;
                 $type = isset($property->type) ? $property->type : 'mixed';
                 $desc = '';
 
                 if (in_array('const', $modifiers)) {
                     $constantname = strtolower(substr((string) $name, strrpos((string) $name, '::') + 2));
                     if ($constant_descs = $xml->xpath('//db:section[@xml:id="' . $classname .'.constants"]//db:varlistentry[@xml:id="'. $classname .'.constants.'. $constantname .'"]') ) {
                         foreach ($constant_descs as $constant_desc) {
                             $desc .= getDocumentationFromPartIntro($constant_desc);
                         }
                     }
                     $constants_comments[(string) $name] = $desc;
                     $constants[(string) $name] = $type;
                 } else {
                     if ($property_descs = $xml->xpath('//db:section[@xml:id="' . $classname .'.props"]//db:varlistentry[@xml:id="'. $classname .'.props.'. $name .'"]') ) {
                         foreach ($property_descs as $property_desc) {
                             $desc .= getDocumentationFromPartIntro($property_desc);
                         }
                     }
                     newPropertyEntry($class, $name, $desc, $type, $modifiers);
                 }
             }
 
             $addedSomething = true;
         }
     }
 
     if (!isset($xml->refsect1)) return $addedSomething;
 
     $desc = getDocumentation($xml);
 
     // file could contain function + property
     if (isset($xml->refsect1->classsynopsis) && isset($xml->refsect1->classsynopsis->fieldsynopsis)) {
         $class = (string)$xml->refsect1->classsynopsis->ooclass->classname;
 
         foreach ( $xml->refsect1->classsynopsis->fieldsynopsis as $synopsis ) {
             newPropertyEntry($class, $synopsis->varname, $desc, $synopsis->type );
             $addedSomething = true;
         }
     }
     if (isset($xml->refsect1->fieldsynopsis)) {
         $synopsis = $xml->refsect1->fieldsynopsis;
         $class = substr($synopsis->varname, 0, strpos($synopsis->varname, '->'));
         $name  = substr($synopsis->varname, strpos($synopsis->varname, '->') + 2);
 
         newPropertyEntry($class, $name, $desc, $synopsis->type);
         $addedSomething = true;
     }
 
     if (isset($xml->refsect1->methodsynopsis)) {
         $skip = false;
         if ($funcOverload != "") {
             foreach( $xml->refsect1->methodsynopsis as $synopsis ) {
                 if (isset($synopsis->methodname->replaceable)) {
                     if ($funcOverload == (string) $synopsis->methodname->replaceable) {
                         $skip = true;
                     }
                 } else {
                     if ($funcOverload == (string) $synopsis->methodname) {
                         $skip = true;
                     }
                 }
             }
         }
         if (!$skip) {
             foreach( $xml->refsect1->methodsynopsis as $synopsis ) {
                 if (isset($synopsis->methodname->replaceable)) {
                     newMethodEntry('global', $synopsis->methodname->replaceable, $funcOverload, $synopsis, $desc, $xml, $classOverload);
                 } else {
                     newMethodEntry('global', $synopsis->methodname, $funcOverload, $synopsis, $desc, $xml, $classOverload);
                 }
 
                 $addedSomething = true;
             }
         }
     }
     if (isset($xml->refsect1->classsynopsis) && isset($xml->refsect1->classsynopsis->methodsynopsis)) {
         $methodsynopsis = $xml->refsect1->classsynopsis->methodsynopsis;
         $classOverloadName = $classOverload ?? $xml->refsect1->classsynopsis->ooclass->classname;
         if (isset($synopsis->methodname->replaceable)) {
             newMethodEntry($classOverloadName, $methodsynopsis->methodname->replaceable, $funcOverload, $methodsynopsis, $desc, $xml, $classOverload);
         } else {
             newMethodEntry($classOverloadName, $methodsynopsis->methodname, $funcOverload, $methodsynopsis, $desc, $xml, $classOverload);
         }
         $addedSomething = true;
     }
     if ( !$addedSomething && (isset($xml->refnamediv->refpurpose->function) || isset($xml->refnamediv->refpurpose->methodname)) ) {
         // This is function alias
         $functionNames[] = (string)$xml->refnamediv->refname;
         if ($xml->refnamediv->refpurpose->function) {
             $aliasName    = (string)$xml->refnamediv->refpurpose->function;
             switch ($aliasName) {
                 case 'mysqli_stmt_execute':
                     $baseFileName = dirname($file->getPathname()).'/../mysqli_stmt/execute.xml';
                     $overload = "global";
                     break;
                 case 'mysqli_options':
                     $functionNames[] = 'mysqli_set_opt';
                     $baseFileName = dirname($file->getPathname()).'/../mysqli/options.xml';
                     $overload = "global";
                     break;
                 case 'mysqli_real_escape_string':
                     $baseFileName = dirname($file->getPathname()).'/../mysqli/real-escape-string.xml';
                     $overload = "global";
                     break;
                 case 'sql_regcase':
                     $baseFileName = dirname($file->getPathname()).'/../../regex/functions/sql-regcase.xml';
                     $overload = "global";
                     break;
                 default:
                     $baseFileName = dirname($file->getPathname()).'/'.str_replace('_', '-', $aliasName).'.xml';
                     $overload = "";
             }
         } else {
             $aliasName    = (string)$xml->refnamediv->refpurpose->methodname;
             $baseFileName = dirname($file->getPathname()).'/'.strtolower(str_replace('::', '/', $aliasName)).'.xml';
             $baseFileName = str_replace('/functions/', '/', $baseFileName);
             $overload = "global";
         }
         if ( $baseFileName == $file->getPathname() || !file_exists($baseFileName) ) {
             return false;
         }
         foreach ($functionNames as $functionName) {
             parseFile(new SplFileInfo($baseFileName), $functionName, $overload);
         }
         $addedSomething = true;
     }
 
     return $addedSomething;
 } // end of function parseFile()
 
 /**
  * Create a new class entry if it not exists.
  *
  * Key in $classes will be the lower-case @p $name.
  * The prettyName member will be @p $name, if it contains non-lowercase chars.
  *
  * Returns the lower-cased @p $name
  */
 function newClassEntry($name) {
     global $classes, $isInterface, $isAbstractClass, $isFinalClass, $interfaceClasses, $abstractClasses;
     if (strpos($name, '\\') !== false) {
       $endpos = strrpos($name, '\\');
       $class = substr($name, $endpos + 1);
       $namespace = substr($name, 0, $endpos);
     } else {
       $class = $name;
       $namespace = null;
     }
     // This affects OCI-Collection and OCI-Log
     // Technically, this creates wrong class names, but they are otherwise illegal syntax...
     $class = str_replace('-','',$class);
     $lower = strtolower($name);
 
     if (!$isInterface && in_array($lower, $interfaceClasses)) {
         $isInterface = true;
     }
 
     if (!$isAbstractClass && in_array($lower, $abstractClasses)) {
         $isAbstractClass = true;
     }
 
     if (!isset($classes[$lower])) {
         $classes[$lower] = array(
             'functions' => array(),
             'properties' => array(),
             'namespace' => $namespace,
             'prettyName' => $class,
             'desc' => '',
             'isInterface' => $isInterface,
             'isAbstract' => $isAbstractClass,
             'isFinal' => $isFinalClass,
         );
     } else {
         if ( $lower != $class ) {
             $classes[$lower]['prettyName'] = $class;
         }
         if ( $isInterface ) {
             $classes[$lower]['isInterface'] = true;
         }
         if ( $isAbstractClass ) {
             $classes[$lower]['isAbstract'] = true;
         }
         if ( $isFinalClass ) {
             $classes[$lower]['isFinal'] = true;
         }
     }
     return $lower;
 }
 
 /**
  * get the documentation for an entry
  * @return string
  */
 function getDocumentation(SimpleXMLElement $xml) {
     global $skipComments;
 
     $descs = array();
 
     $purpose = $xml->refnamediv->refpurpose;
 
     if (!in_array($purpose, $skipComments)) {
         $descs[] = $purpose;
     }
 
     foreach ($xml->refsect1->para as $p ) {
         $p = removeTag($p->asXML(), 'para');
         if ( stripos($p, 'procedural style') !== false || stripos($p, 'procedure style') !== false
             || stripos($p, 'object oriented style') !== false ) {
             // uninteresting
             continue;
         }
         if (in_array($p, $skipComments)) {
             continue;
         }
         if ($p == $purpose || $p == "$purpose.") {
             // avoid duplicate comments
             continue;
         }
         $descs[] = $p;
     }
     return implode("\n\n", $descs);
 }
 
 /**
  * get the documentation for an entry
  * @return string
  */
 function getDocumentationFromPartIntro(SimpleXMLElement $xml) {
     global $skipComments;
 
     $descs = array();
 
     foreach ($xml->listitem->para as $p ) {
         $p = removeTag($p->asXML(), 'para');
         if (in_array($p, $skipComments)) {
             continue;
         }
         $descs[] = $p;
     }
     return implode("\n\n", $descs);
 }
 
 /**
  * create a new property entry for @p $class
  */
 function newPropertyEntry($class, $name, $desc, $type, $modifiers = []) {
     global $classes;
     $class = newClassEntry($class);
     $classes[$class]['properties'][] = array(
         'name' => (string) $name,
         'desc' => (string) $desc,
         'type' => (string) $type,
         'modifiers' => $modifiers
     );
 }
 
 /**
  * create a new method entry for @p $class
  */
 function newMethodEntry($class, $function, $funcOverload, $methodsynopsis, $desc, SimpleXMLElement $xml, $classOverload = "") {
     global $existingFunctions, $classes;
     $class = (string) $class;
     $function = (string) $function;
     $funcOverload = (string) $funcOverload;
 
     if (strpos($function, '::')) {
         if ($classOverload == '') {
             $class = substr($function, 0, strpos($function, '::'));
         }
         $function = substr($function, strpos($function, '::')+2);
         if (strpos($funcOverload, '::')) {
             $class = substr($funcOverload, 0, strpos($funcOverload, '::'));
             $funcOverload = substr($funcOverload, strpos($funcOverload, '::')+2);
         }
     } else if (strpos($funcOverload, '::')) {
         $class = substr($funcOverload, 0, strpos($funcOverload, '::'));
         $funcOverload = substr($funcOverload, strpos($funcOverload, '::')+2);
     } else if (strpos($function, '->')) {
         if ($classOverload == '') {
             $class = substr($function, 0, strpos($function, '->'));
         }
         $function = substr($function, strpos($function, '->')+2);
     } else {
         if ($function == '__halt_compiler') return false;
         if ($function == 'exit') return false;
         if ($function == 'die') return false;
         if ($function == 'eval') return false;
         if ($function == 'echo') return false;
         if ($function == 'print') return false;
         if ($function == 'array') return false;
         if ($function == 'list') return false;
         if ($function == 'isset') return false;
         if ($function == 'unset') return false;
         if ($function == 'empty') return false;
     }
 
     if (strpos($function, '-')) return false;
     if (strpos($class, '-')) return false;
     if ($function == 'isSet') return false; //todo: bug in lexer
     if ($function == 'clone') return false; //todo: bug in lexer
     if (substr($class, 0, 3) == 'DOM') $class = 'Dom'.substr($class, 3);
     $class = trim($class);
     if ($class == 'imagick') $class = 'Imagick';
     if (in_array($class.'::'.($funcOverload ? $funcOverload : $function), $existingFunctions)) return false;
     $existingFunctions[] = $class.'::'.($funcOverload ? $funcOverload : $function);
 
     $params = array();
     foreach ($methodsynopsis->methodparam as $param) {
         $paramName = $param->parameter;
         if (trim($paramName) == '...') {
             // Add a variable name for functions taking variable arguments
             $paramName = '...$vararg';
         }
         if (!trim($paramName)) continue;
         $paramName = str_replace('/', '', $paramName);
         $paramName = str_replace('-', '', $paramName);
         $paramName = str_replace('$', '', $paramName);
         $paramName = trim(trim(trim($paramName), '*'), '&');
         if ($pipe_pos = strpos($paramName, '|')) $paramName = substr($paramName, 0, $pipe_pos);
         if (is_numeric(substr($paramName, 0, 1))) $paramName = '_'.$paramName;
         $params[] = array(
             'name' => $paramName,
             'type' => (string)$param->type,
             'isRef' => isset($param->parameter->attributes()->role) ? ($param->parameter->attributes()->role == "reference") : false,
         );
     }
     // get description of params
     if ( $param_descs = $xml->xpath('db:refsect1[@role="parameters"]//db:varlistentry') ) {
         $i = 0;
         foreach ( $param_descs as $d ) {
             if ( !isset($params[$i]) ) {
                 continue;
             }
             $paramName = (string) $d->term->parameter;
             $params[$i]['desc'] = '';
             foreach ( $d->listitem->para as $p ) {
                 $p = removeTag($p->asXML(), 'para');
                 $params[$i]['desc'] .= $p . "\n";
             }
             ++$i;
         }
     }
 
     if ($return_desc = $xml->xpath('db:refsect1[@role="returnvalues"]//db:para')) {
         $return_desc = removeTag($return_desc[0]->asXML(), 'para');
     } else {
         $return_desc = '';
     }
 
     $class = newClassEntry($class);
     $classes[$class]['functions'][] = array(
         'name'        => $funcOverload ? $funcOverload : $function,
         'modifiers'   => (array) $methodsynopsis->modifier,
         'params'      => $params,
         'type'        => (string)$methodsynopsis->type,
         'desc'        => $funcOverload ? str_replace($function, $funcOverload, $desc) : $desc,
         'return_desc' => $return_desc,
     );
 }
 
 /* don't add a closing ?> here, we use this file in a benchmark as well */