From: Guido Kanschat Date: Mon, 14 Mar 2005 22:51:47 +0000 (+0000) Subject: extract single files for checking X-Git-Tag: v8.0.0~14399 X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0face3547d2c608576bd6ff2c0445365890c2883;p=dealii.git extract single files for checking git-svn-id: https://svn.dealii.org/trunk@10137 0785d39b-7218-0410-832d-ea1e28bc413d --- diff --git a/tests/scripts/grid_generator_extract.pl b/tests/scripts/grid_generator_extract.pl new file mode 100644 index 0000000000..463478e472 --- /dev/null +++ b/tests/scripts/grid_generator_extract.pl @@ -0,0 +1,29 @@ +###################################################################### +# $Id$ +# Copyright 2005 by the deal.II authors +# +###################################################################### +# Extracts xfig and eps files from the output of +# bits/grid_generator_01.exe +###################################################################### +# call: +# perl thisfile outpufile +###################################################################### + +# Just open it in order to be able to close it +open OUT, ">0d-void.eps"; + +while (<>) +{ + if (m/DEAL:(\d)d-GridTest::(.+)/) + { + my $name = $2; + $name .= ".eps" if ($1==1); + $name .= ".fig" if ($1==2); + $name .= ".eps" if ($1==3); + close OUT; + open OUT, ">$1d-$name\n"; + next; + } + print OUT; +}