From 0face3547d2c608576bd6ff2c0445365890c2883 Mon Sep 17 00:00:00 2001 From: Guido Kanschat Date: Mon, 14 Mar 2005 22:51:47 +0000 Subject: [PATCH] extract single files for checking git-svn-id: https://svn.dealii.org/trunk@10137 0785d39b-7218-0410-832d-ea1e28bc413d --- tests/scripts/grid_generator_extract.pl | 29 +++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 tests/scripts/grid_generator_extract.pl 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; +} -- 2.39.5