From: Wolfgang Bangerth Date: Wed, 17 Feb 2016 03:09:18 +0000 (-0600) Subject: Read the proper names of the code gallery programs, now that they are available. X-Git-Tag: v8.5.0-rc1~1305^2~3 X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=894d0a424dcb4b801bdd3271d8f4d9199025869a;p=dealii.git Read the proper names of the code gallery programs, now that they are available. --- diff --git a/doc/doxygen/scripts/code-gallery.pl b/doc/doxygen/scripts/code-gallery.pl index f83aa6fdbc..04a514828e 100644 --- a/doc/doxygen/scripts/code-gallery.pl +++ b/doc/doxygen/scripts/code-gallery.pl @@ -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 = ) { + 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 = ) { chop $line; $authors .= $line . ", "; } - - # remove trailing whitespaces, as well as the trailing comma chop $authors; $authors =~ s/,$//; $gallery_underscore =~ s/-/_/; - print "
\@ref code_gallery_${gallery_underscore} \"$gallery\" (by $authors)
\n"; + print "
\@ref code_gallery_${gallery_underscore} \"$entryname\" (by $authors)
\n"; print "
\n"; open TOOLTIP, "<$gallery_dir/$gallery/doc/tooltip"; while (my $line = ) {