From 226405344e6e2ae3ff3fffc487ca3d6f2ac88e92 Mon Sep 17 00:00:00 2001 From: Wolfgang Bangerth Date: Thu, 31 Dec 2015 16:50:19 -0600 Subject: [PATCH] Extend the stub to generate a page for each code gallery. --- doc/doxygen/scripts/make_gallery.pl | 47 +++++++++++++++++++++-------- 1 file changed, 35 insertions(+), 12 deletions(-) diff --git a/doc/doxygen/scripts/make_gallery.pl b/doc/doxygen/scripts/make_gallery.pl index a72a97cf52..5204cee63d 100644 --- a/doc/doxygen/scripts/make_gallery.pl +++ b/doc/doxygen/scripts/make_gallery.pl @@ -13,27 +13,50 @@ ## ## --------------------------------------------------------------------- -if ($#ARGV != 1) { - print "\nUsage: make_gallery.pl gallery cmake_source_dir\n"; +if ($#ARGV < 1) { + print "\nUsage: make_gallery.pl cmake_source_dir gallery_name gallery_dir gallery_src_files...\n"; exit; } -$gallery=$ARGV[0]; -$gallery_underscore=$gallery; -$gallery_underscore=~ s/-/_/; +my $cmake_source_dir = shift(@ARGV); -$cmake_source_dir=$ARGV[1]; +my $gallery = shift(@ARGV); +my $gallery_underscore = $gallery; +$gallery_underscore =~ s/-/_/; + +my $gallery_dir = shift(@ARGV); +my $author_file = "$gallery_dir/doc/author"; + +my @src_files = @ARGV; + +# read the names of authors; escape '<' and '>' as they +# appear in the email address. also trim trailing space and +# newlines +open AUTHORS, "<$author_file"; +my $authors = ; +$authors =~ s//>/g; +$authors =~ s/\s*$//g; print "/** * \@page code_gallery_$gallery_underscore The $gallery code gallery program \@htmlonly - - -
Table of contents
+

+ This program was contributed by $authors. +
+ It comes without any warranty or support by its authors or the authors of deal.II. +

+ \@endhtmlonly -"; -print -"*/ +This program consists of the following files (click to inspect): "; + +foreach my $file (@src_files) +{ + print "- $file\n"; +} +print "\n"; + +print "*/\n"; -- 2.39.5