From 79bc29a00a5a3e9df66192445b3001a1a2f1b747 Mon Sep 17 00:00:00 2001 From: guido Date: Tue, 22 Feb 2000 19:50:02 +0000 Subject: [PATCH] add new heads git-svn-id: https://svn.dealii.org/trunk@2473 0785d39b-7218-0410-832d-ea1e28bc413d --- deal.II/common/misc/head | 12 ++++++++++++ deal.II/common/misc/head_cc.pl | 28 ++++++++++++++++++++++++++++ deal.II/common/misc/head_h.pl | 34 ++++++++++++++++++++++++++++++++++ 3 files changed, 74 insertions(+) create mode 100644 deal.II/common/misc/head create mode 100644 deal.II/common/misc/head_cc.pl create mode 100644 deal.II/common/misc/head_h.pl 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; -- 2.39.5