- Add new example

diff --git a/ext/spl/examples/class_tree.php b/ext/spl/examples/class_tree.php
new file mode 100755 (executable)
index 0000000..128eebe
--- /dev/null
+++ b/ext/spl/examples/class_tree.php
@@ -0,0 +1,84 @@
+<?php
+
+/** @file   class_tree.php
+ * @brief   Class Tree example
+ * @ingroup Examples
+ * @author  Marcus Boerger
+ * @date    2003 - 2005
+ *
+ * Usage: php class_tree.php \<class\>
+ *
+ * Simply specify the root class or interface to tree with parameter \<class\>.
+ */
+
+if ($argc < 2) {
+       echo <<<EOF
+Usage: php ${_SERVER['PHP_SELF']} <class>
+
+Displays a graphical tree for the given <class>.
+
+<class> The class or interface for which to generate the tree graph.
+
+
+EOF;
+       exit(1);
+}
+
+if (!class_exists("RecursiveTreeIterator", false)) require_once("recursivetreeiterator.inc");
+
+class SubClasses extends RecursiveArrayIterator
+{
+       function __construct($base, $check_interfaces = false)
+       {
+               foreach(get_declared_classes() as $cname)
+               {
+                       if (strcasecmp(get_parent_class($cname), $base) == 0)
+                       {
+                               $this->offsetSet($cname, new SubClasses($cname));
+                       }
+                       if ($check_interfaces)
+                       {
+                               foreach(class_implements($cname) as $iname)
+                               {
+                                       if (strcasecmp($iname, $base) == 0)
+                                       {
+                                               $this->offsetSet($cname, new SubClasses($cname));
+                                       }
+                               }
+                       }
+               }
+               if ($check_interfaces)
+               {
+                       foreach(get_declared_interfaces() as $cname)
+                       {
+                               foreach(class_implements($cname) as $iname)
+                               {
+                                       if (strcasecmp($iname, $base) == 0)
+                                       {
+                                               $this->offsetSet($cname, new SubClasses($cname, true));
+                                       }
+                               }
+                       }
+               }
+       }
+       
+       function getChildren()
+       {
+               return parent::current();
+       }
+       
+       function current()
+       {
+               return parent::key();
+       }
+}
+
+$it = new RecursiveTreeIterator(new SubClasses($argv[1], true));
+
+echo $argv[1]."\n";
+foreach($it as $c=>$v)
+{
+       echo "$v\n";
+}
+
+?>
\ No newline at end of file