]> https://gitweb.dealii.org/ - dealii-svn.git/commitdiff
Slight updates and fixes.
authorwolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Mon, 5 Nov 2001 08:44:53 +0000 (08:44 +0000)
committerwolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Mon, 5 Nov 2001 08:44:53 +0000 (08:44 +0000)
git-svn-id: https://svn.dealii.org/trunk@5180 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/doc/tutorial/chapter-2.step-by-step/program2html

index 41c836f8b390a8a87478524b5cf033eaa60ae87f..0b7cc35b5ea623402e613ea13121ce00ba22903b 100644 (file)
@@ -46,14 +46,16 @@ while (<>) {
     {
        # in comment mode: first skip leading whitespace and
        # comment // signs
-       s!\s*//\s*(.*)!$1!;
+       s!\s*//\s*(.*)\n!$1!;
 
        # second, replace section headers, and generate addressable
        # anchor
-       s!\@sect(\d)\{(.*)\}\s*$!<h$1>$2</h$1>!g;
-       $sect_name = $2;
-       $sect_name =~ s/\s/_/g;
-       $_ = "\n<a name=\"$sect_name\"></a>" . $_;
+       if ( /\@sect/ ) {
+          s!\@sect(\d)\{(.*)\}\s*$!<h$1>$2</h$1>!g;
+          $sect_name = $2;
+          $sect_name =~ s/\s/_/g;
+          $_ = "\n<a name=\"$sect_name\"></a>" . $_;
+       }
 
        # finally print this line
        print $_, "\n";

In the beginning the Universe was created. This has made a lot of people very angry and has been widely regarded as a bad move.

Douglas Adams


Typeset in Trocchi and Trocchi Bold Sans Serif.