]> https://gitweb.dealii.org/ - dealii.git/commitdiff
Read the proper names of the code gallery programs, now that they are available.
authorWolfgang Bangerth <bangerth@math.tamu.edu>
Wed, 17 Feb 2016 03:09:18 +0000 (21:09 -0600)
committerWolfgang Bangerth <bangerth@math.tamu.edu>
Wed, 17 Feb 2016 03:09:18 +0000 (21:09 -0600)
doc/doxygen/scripts/code-gallery.pl

index f83aa6fdbce1d854469ad6a27366b7b3abc342fe..04a514828e9d3e686aab17d9cf8b8f4f9b896b16 100644 (file)
@@ -36,19 +36,28 @@ foreach my $gallery (sort @ARGV)
 {
     my $gallery_underscore = $gallery;
 
+    # Read the proper name of the program
+    open ENTRYNAME, "<$gallery_dir/$gallery/doc/entry-name";
+    my $entryname;
+    while (my $line = <ENTRYNAME>) {
+        chop $line;
+        $entryname .= $line . " ";
+    }
+    chop $entryname;
+
+    # Read the names of the authors, collate with commas, and at the
+    # end chop the last comma off
     open AUTHOR, "<$gallery_dir/$gallery/doc/author";
     my $authors;
     while (my $line = <AUTHOR>) {
         chop $line;
         $authors .= $line . ", ";
     }
-
-    # remove trailing whitespaces, as well as the trailing comma
     chop $authors;
     $authors =~ s/,$//;
 
     $gallery_underscore    =~ s/-/_/;
-    print "  <dt><b>\@ref code_gallery_${gallery_underscore} \"$gallery\"</b> (by $authors)</dt>\n";
+    print "  <dt><b>\@ref code_gallery_${gallery_underscore} \"$entryname\"</b> (by $authors)</dt>\n";
     print "    <dd>\n";
     open TOOLTIP, "<$gallery_dir/$gallery/doc/tooltip";
     while (my $line = <TOOLTIP>) {

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.