]> https://gitweb.dealii.org/ - dealii.git/commitdiff
extract single files for checking
authorGuido Kanschat <dr.guido.kanschat@gmail.com>
Mon, 14 Mar 2005 22:51:47 +0000 (22:51 +0000)
committerGuido Kanschat <dr.guido.kanschat@gmail.com>
Mon, 14 Mar 2005 22:51:47 +0000 (22:51 +0000)
git-svn-id: https://svn.dealii.org/trunk@10137 0785d39b-7218-0410-832d-ea1e28bc413d

tests/scripts/grid_generator_extract.pl [new file with mode: 0644]

diff --git a/tests/scripts/grid_generator_extract.pl b/tests/scripts/grid_generator_extract.pl
new file mode 100644 (file)
index 0000000..463478e
--- /dev/null
@@ -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;
+}

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.