From 8ff88749b20d46fd36e5b0c1a8b902091ff1207f Mon Sep 17 00:00:00 2001
From: Michael Wallner <mike@php.net>
Date: Thu, 9 Sep 2021 15:19:52 +0200
Subject: [PATCH] ext2ref: check ref

---
 bin/ext2ref | 108 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 108 insertions(+)
 create mode 100755 bin/ext2ref

diff --git a/bin/ext2ref b/bin/ext2ref
new file mode 100755
index 0000000..978b427
--- /dev/null
+++ b/bin/ext2ref
@@ -0,0 +1,108 @@
+#!/usr/bin/env php
+<?php
+
+require_once __DIR__."/../vendor/autoload.php";
+
+use mdref\Repo;
+use mdref\Structure;
+use mdref\StructureOfClass;
+use mdref\StructureOfFunc;
+use mdref\StructureOfNs;
+
+if ($argc != 2) {
+	fprintf(STDERR, "Usage: cd ref-<extname> && %s <extname>\n", $argv[0]);
+	exit(1);
+}
+
+$repo = new Repo(".");
+$ext = new ReflectionExtension($argv[1]);
+
+$constants  = array();
+$functions  = array();
+$classes = array();
+
+// split up by namespace first
+foreach ($ext->getConstants() as $constant => $value) {
+	$ns_name = ($nsend = strrpos($constant, "\\")) ? substr($constant, 0, $nsend++) : "";
+	$cn = substr($constant, $nsend);
+	$constants[$ns_name][$cn] = $value;
+}
+foreach ($ext->getFunctions() as $f) {
+	/* @var $f ReflectionFunction */
+	$ns_name = $f->inNamespace() ? $f->getNamespaceName() : "";
+	$functions[$ns_name][$f->getShortName()] = $f;
+}
+foreach ($ext->getClasses() as $c) {
+	/* @var $c ReflectionClass */
+	$ns_name = $c->inNamespace() ? $c->getNamespaceName() : "";
+	$classes[$ns_name][$c->getShortName()] = $c;
+}
+
+$namespaces = array_unique(array_merge(
+	array_keys($constants),
+	array_keys($functions),
+	array_keys($classes)
+));
+
+// simple sort
+natsort($namespaces);
+
+foreach ($namespaces as $ns_name) {
+	$ns_path = strtr($ns_name, "\\", "/");
+	if (!$repo->hasEntry($ns_path, $cn_path)) {
+		fprintf(STDERR, "Missing namespace %s\t%s.md\n", $ns_name, $ns_path);
+	} else {
+		$ns_entry = $repo->getEntry($cn_path ?? $ns_path);
+		$ns_struct = Structure::of($ns_entry);
+		/** @var StructureOfNs $ns_struct */
+		if (isset($constants[$ns_name])) foreach ($constants[$ns_name] as $const => $value) {
+			if (!isset($ns_struct->consts[$const])) {
+				fprintf(STDERR, "Missing constant %s in namespace %s\t%s.md\n",
+					$const, $ns_name, $cn_path ?? $ns_path);
+			}
+		}
+		// FIXME: functions are unconditionally assumed to be class methods by \mdref\Structure
+		if (isset($classes[$ns_name])) foreach ($classes[$ns_name] as $class_name => $class) {
+			$class_path = ($cn_path ?? $ns_path) . "/$class_name";
+			if (!isset($ns_struct->classes[$class_name])) {
+				fprintf(STDERR, "Missing class %s in namespace %s\t%s.md\n",
+					$class_name, $ns_name, $class_path);
+			} else {
+				$class_entry = $repo->getEntry($class_path);
+				/** @var StructureOfClass $class_struct */
+				$class_struct = Structure::of($class_entry);
+				/** @var ReflectionClass $class */
+				foreach ($class->getReflectionConstants() as $const) {
+					if ($const->getDeclaringClass()->getName() !== $class_entry->getNsName()) {
+						continue;
+					}
+					if (!isset($class_struct->consts[$const->getName()])) {
+						fprintf(STDERR, "Missing constant %s in class %s\t%s.md\n",
+							$const->getName(), $class->getName(), $class_path);
+					}
+				}
+				foreach ($class->getMethods() as $meth) {
+					//fprintf(STDERR, "Checking %s !== %s\n", $meth->getDeclaringClass()->getName(), $class_entry->getNsName());
+					if ($meth->getDeclaringClass()->getName() !== $class_entry->getNsName()) {
+						continue;
+					}
+					$meth_path = $class_path ."/". $meth->getName();
+					if (!isset($class_struct->funcs[$meth->getName()])) {
+						fprintf(STDERR, "Missing method %s in class %s\t%s.md\n",
+							$meth->getName(), $class->getName(), $meth_path);
+					} else {
+						$meth_entry = $repo->getEntry($meth_path);
+						/** @var StructureOfFunc $meth_struct */
+						$meth_struct = Structure::of($meth_entry);
+						if (count($meth_struct->params) != $meth->getNumberOfParameters()) {
+							fprintf(STDERR, "Missing params in method %s(%s) != arginfo(%s)\t%s\n",
+								$meth->getName(), implode(", ", array_keys($meth_struct->params)),
+								implode(", ", array_map(function($p){return "\$".$p->getName();}, $meth->getParameters())),
+								$meth_path);
+						}
+					}
+				}
+			}
+		}
+	}
+}
-- 
2.30.2