From: wolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Date: Mon, 3 Feb 2003 16:54:32 +0000 (+0000)
Subject: Filter out classes in namespaces named 'internal' from the class overview, to keep... 
X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e2142d7caa7b5e01b346459285016e87121d7ef2;p=dealii-svn.git

Filter out classes in namespaces named 'internal' from the class overview, to keep it short.


git-svn-id: https://svn.dealii.org/trunk@7005 0785d39b-7218-0410-832d-ea1e28bc413d
---

diff --git a/deal.II/contrib/kdoc/src/kdocCxxHTML.pm b/deal.II/contrib/kdoc/src/kdocCxxHTML.pm
index dd90ff5f01..4d6a6f0800 100644
--- a/deal.II/contrib/kdoc/src/kdocCxxHTML.pm
+++ b/deal.II/contrib/kdoc/src/kdocCxxHTML.pm
@@ -109,7 +109,18 @@ sub writeClassList
 		# TODO: Perhaps display C-specific index.
 	}
 	else {
-		writeTable( *CLIST{IO}, \@clist, 
+	    # write out the class list. suppress all classes that
+	    # have a internal:: in their name, i.e. basically all
+	    # classes that are either declared themselves in a 
+	    # namespace or outer class "internal"
+	    my @filtered_clist;
+	    my $class;
+	    foreach $class (@clist) {
+		if ( ! (refNameFull($class) =~ /internal::/ )) {
+		    @filtered_clist = (@filtered_clist, $class);
+		}
+	    }
+	    writeTable( *CLIST{IO}, \@filtered_clist, 
 			exists $opt->{"html-cols"} ? $opt->{"html-cols"} : 3 );
 	}