From: guido <guido@0785d39b-7218-0410-832d-ea1e28bc413d>
Date: Tue, 22 Feb 2000 19:50:02 +0000 (+0000)
Subject: add new heads
X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=79bc29a00a5a3e9df66192445b3001a1a2f1b747;p=dealii-svn.git

add new heads


git-svn-id: https://svn.dealii.org/trunk@2473 0785d39b-7218-0410-832d-ea1e28bc413d
---

diff --git a/deal.II/common/misc/head b/deal.II/common/misc/head
new file mode 100644
index 0000000000..6fb7077475
--- /dev/null
+++ b/deal.II/common/misc/head
@@ -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
index 0000000000..e78a7bc7d3
--- /dev/null
+++ b/deal.II/common/misc/head_cc.pl
@@ -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
index 0000000000..e2cfc9ea48
--- /dev/null
+++ b/deal.II/common/misc/head_h.pl
@@ -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;