From: Wolfgang Bangerth <bangerth@math.tamu.edu>
Date: Tue, 8 Aug 2000 16:10:15 +0000 (+0000)
Subject: Sort the classes column wise rather than row wise, as this is better readable.
X-Git-Tag: v8.0.0~20183
X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=20aca3b36974166deec8a0a772dd32de5ddfb4b2;p=dealii.git

Sort the classes column wise rather than row wise, as this is better readable.


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

diff --git a/deal.II/doc/Makefile.in b/deal.II/doc/Makefile.in
index 32754076a0..47cc0a4e64 100644
--- a/deal.II/doc/Makefile.in
+++ b/deal.II/doc/Makefile.in
@@ -89,7 +89,7 @@ class_index.html: $(shell echo $D/base/include/base/*.h \
 		 "<h2><a href=\"auto/kdoc/$$dirbasename/index.html\""\
                  " target=\"body\">"                                 \
                  "$$dirbasename sub-library</a></h2>\n"              \
-		 "</td></tr>\n\n"                                    \
+		 "</td>\n</tr>\n\n"                                  \
 	       >> $@ ;                                               \
 	    $(PERL) ../common/scripts/forward_declarations.pl             \
 	            `echo $$dir/*.h |                                     \
@@ -100,17 +100,21 @@ class_index.html: $(shell echo $D/base/include/base/*.h \
 	       | uniq                                                     \
 	       | $(PERL) -pi -e 's/&/&amp;/g; s/</&lt;/g; s/>/&gt;/g;'    \
 	       | $(PERL) -pi -e 's/;\n/\n/g;'                             \
-	       | $(PERL) -e '$$i=0; while (<>) {                          \
-					chop;                             \
-					print "  <tr>\n" if $$i==0;       \
-					print "    <td>$$_</td>\n";       \
-					$$i++;                            \
-					if ($$i == 3) {                   \
-					  print "  </tr>\n\n";            \
-					  $$i = 0;                        \
-					}                                 \
-				   }                                      \
-			     if ($$i != 0) { print "  </tr>\n\n"; }'      \
+	       | $(PERL) -e '   @classes = ();                            \
+				while (<>) {                              \
+				  chop;                                   \
+				  @classes = (@classes, $$_);             \
+				}                                         \
+				print "  <tr>\n";                         \
+				$$n_classes = $$#classes + 1;             \
+				for ($$col=0; $$col<3; $$col++) {         \
+				  print "    <td>\n";                     \
+				  for ($$i=0; $$i<$$n_classes/3; $$i++) { \
+				    print "      $$classes[$$i+$$col*($$n_classes+1)/3]<br>\n";\
+				  }                                       \
+				  print "    </td>\n";                    \
+				}                                         \
+				print "  </tr>\n\n";'                     \
 	     >> $@ ;                                                      \
 	    echo "\n\n" >> $@ ;                                           \
 	  fi                                                              \