]> https://gitweb.dealii.org/ - dealii-svn.git/commitdiff
add new heads
authorguido <guido@0785d39b-7218-0410-832d-ea1e28bc413d>
Tue, 22 Feb 2000 19:50:02 +0000 (19:50 +0000)
committerguido <guido@0785d39b-7218-0410-832d-ea1e28bc413d>
Tue, 22 Feb 2000 19:50:02 +0000 (19:50 +0000)
git-svn-id: https://svn.dealii.org/trunk@2473 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/common/misc/head [new file with mode: 0644]
deal.II/common/misc/head_cc.pl [new file with mode: 0644]
deal.II/common/misc/head_h.pl [new file with mode: 0644]

diff --git a/deal.II/common/misc/head b/deal.II/common/misc/head
new file mode 100644 (file)
index 0000000..6fb7077
--- /dev/null
@@ -0,0 +1,12 @@
+//----------------------------  XXX  ---------------------------
+//    $Id$
+//    Version: $Name$
+//
+//    Copyright (C) 1998, 1999, 2000 by the deal.II authors
+//
+//    This file is subject to QPL and may not be  distributed
+//    without copyright and license information. Please refer
+//    to the file deal.II/doc/license.html for the  text  and
+//    further information on this license.
+//
+//----------------------------  XXX  ---------------------------
diff --git a/deal.II/common/misc/head_cc.pl b/deal.II/common/misc/head_cc.pl
new file mode 100644 (file)
index 0000000..e78a7bc
--- /dev/null
@@ -0,0 +1,28 @@
+$/='this should not appear in any of these stupid files';
+
+$fn = $ARGV;
+
+$head = << 'EOT'
+//----------------------------  XXX  ---------------------------
+//    $Id$
+//    Version: $Name$
+//
+//    Copyright (C) 1998, 1999, 2000 by the deal.II authors
+//
+//    This file is subject to QPL and may not be  distributed
+//    without copyright and license information. Please refer
+//    to the file deal.II/doc/license.html for the  text  and
+//    further information on this license.
+//
+//----------------------------  XXX  ---------------------------
+
+
+EOT
+    ;
+
+$head =~ s/XXX/$fn/g;
+
+s/^[^\#]+/$head\n\n\n/s;
+s/\/\*-+\s+$fn\s+-+\*\/\n//g;
+s/\/\*\s*end of.*H\s*\*\///g;
+s/\n[ \t]*\n[ \t]*\n\s*\n*/\n\n\n/g;
diff --git a/deal.II/common/misc/head_h.pl b/deal.II/common/misc/head_h.pl
new file mode 100644 (file)
index 0000000..e2cfc9e
--- /dev/null
@@ -0,0 +1,34 @@
+$/='this should not appear in any of these stupid files';
+
+$fn = $ARGV;
+$guard = '__deal2__' . $fn;
+
+$guard =~ s/\./_/g;
+
+$head = << 'EOT'
+//----------------------------  XXX  ---------------------------
+//    $Id$
+//    Version: $Name$
+//
+//    Copyright (C) 1998, 1999, 2000 by the deal.II authors
+//
+//    This file is subject to QPL and may not be  distributed
+//    without copyright and license information. Please refer
+//    to the file deal.II/doc/license.html for the  text  and
+//    further information on this license.
+//
+//----------------------------  XXX  ---------------------------
+#ifndef GGG
+#define GGG
+
+
+EOT
+    ;
+
+$head =~ s/XXX/$fn/g;
+$head =~ s/GGG/$guard/g;
+
+s/^.+\#define __[^\n]*/$head/s;
+s/\/\*-+\s+$fn\s+-+\*\/\n//g;
+s/\/\*\s*end of.*H\s*\*\///g;
+s/\n[ \t]*\n[ \t]*\n\s*\n*/\n\n\n/g;

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.