From 67a09220ad9eeb5624c66fcee12b3e0a99d6785e Mon Sep 17 00:00:00 2001
From: wolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Date: Mon, 15 Apr 2002 10:21:24 +0000
Subject: [PATCH] Generate the TOC in a more reasonable and sophisticated way.

git-svn-id: https://svn.dealii.org/trunk@5653 0785d39b-7218-0410-832d-ea1e28bc413d
---
 .../tutorial/chapter-2.step-by-step/Makefile  |  4 +--
 .../tutorial/chapter-2.step-by-step/head.html |  4 +--
 .../chapter-2.step-by-step/program2toc        | 34 +++++++++++++++++++
 3 files changed, 36 insertions(+), 6 deletions(-)
 create mode 100644 deal.II/doc/tutorial/chapter-2.step-by-step/program2toc

diff --git a/deal.II/doc/tutorial/chapter-2.step-by-step/Makefile b/deal.II/doc/tutorial/chapter-2.step-by-step/Makefile
index 4d386c386f..3a357bf9af 100644
--- a/deal.II/doc/tutorial/chapter-2.step-by-step/Makefile
+++ b/deal.II/doc/tutorial/chapter-2.step-by-step/Makefile
@@ -15,9 +15,7 @@ all: $(example-htmls)
 $(example-htmls):
 	@echo ================== Assembling $@
 	@TOC=`cat $D/examples/$(@:.html=)/$(@:.html=.cc) \
-	  | grep "@sect" \
-	  | perl -pi -e 's/.*\{(.*)\}.*/\1/; $$n=$$1; $$nn=$$1; \
-	    $$nn=~s/\s/_/g; $$_="<li><a href=\"#$$nn\">$$n</a></li>\n";' \
+	  | perl program2toc \
 	  | perl -pi -e 's/\"/\\\"/g;'` ; \
 	 cat head.html \
 	  | perl -pi -e '$$step="$@";                     \
diff --git a/deal.II/doc/tutorial/chapter-2.step-by-step/head.html b/deal.II/doc/tutorial/chapter-2.step-by-step/head.html
index 6e5cab2015..9d958c364a 100644
--- a/deal.II/doc/tutorial/chapter-2.step-by-step/head.html
+++ b/deal.II/doc/tutorial/chapter-2.step-by-step/head.html
@@ -21,9 +21,7 @@
 <ol>
   <li> <a href="#Intro">Introduction</a>
   <li> <a href="#CommProg">The commented program</a>
-       <ul>
-       TOC
-       </ul>
+TOC
   <li> <a href="#Results">Results</a>
   <li> <a href="#PlainProg">The plain program</a>
 </ol>
diff --git a/deal.II/doc/tutorial/chapter-2.step-by-step/program2toc b/deal.II/doc/tutorial/chapter-2.step-by-step/program2toc
new file mode 100644
index 0000000000..26b94bd426
--- /dev/null
+++ b/deal.II/doc/tutorial/chapter-2.step-by-step/program2toc
@@ -0,0 +1,34 @@
+print "    <ul>\n";
+
+$level = 3;
+while (<>) {
+    if ( /\@sect(.)\{(.*)\}/ ) {
+	$newlevel = $1;
+	$text = $2;
+	
+	# only allow header levels 3 and 4, since higher ones are
+	# reserved for top-level document headers
+	if (! ($newlevel =~ /[34]/)) {
+	    print STDERR "Only header levels 3 and 4 are allowed.\n";
+	    print STDERR "You had $newlevel.\n";
+	    die;
+	}
+
+	if ($newlevel > $level) {
+	    print "      <ul>\n";
+	} elsif ($newlevel < $level) {
+	    print "      </ul>\n";
+	}
+
+	$reftext = $text;
+	$reftext =~ s/\s/_/g;
+	print "        <li><a href=\"#$reftext\">$text</a>\n";
+
+	$level = $newlevel;
+    } 
+}
+
+if ( $level == 4) {
+    print "      </ul>\n";
+}
+print "    </ul>\n";
-- 
2.39.5