Add support for exclude-base value in --class-doc option

1 files changed, 13 insertions, 2 deletions

diff --git a/cli/html.cxx b/cli/html.cxx
index e8a43db..ccb023d 100644
--- a/cli/html.cxx
+++ b/cli/html.cxx
@@ -254,7 +254,7 @@ namespace
   //
   struct class_: traversal::class_, context
   {
-    class_ (context& c, bool& l): context (c), list_ (l)
+    class_ (context& c, bool& l): context (c), list_ (l), base_ (false)
     {
       *this >> inherits_ >> *this;
     }
@@ -264,11 +264,16 @@ namespace
     {
       class_doc_type cd (class_doc (c));
 
-      if (cd == cd_exclude)
+      if (cd == cd_exclude || (base_ && cd == cd_exclude_base))
         return;
 
       if (!options.exclude_base () && !options.include_base_last ())
+      {
+        bool ob (base_);
+        base_ = true;
         inherits (c);
+        base_ = ob;
+      }
 
       doc dc (*this, cd, list_);
       option op (*this, cd, list_);
@@ -278,11 +283,17 @@ namespace
       names (c, n);
 
       if (!options.exclude_base () && options.include_base_last ())
+      {
+        bool ob (base_);
+        base_ = true;
         inherits (c);
+        base_ = ob;
+      }
     }
 
   private:
     bool& list_;
+    bool base_;
     traversal::inherits inherits_;
   };
 }