From 5239b60c590e2ff9c378d494cd2d21b1a109a93c Mon Sep 17 00:00:00 2001 From: wolf Date: Wed, 24 Feb 1999 13:06:35 +0000 Subject: [PATCH] Some more cosmetic changes. git-svn-id: https://svn.dealii.org/trunk@891 0785d39b-7218-0410-832d-ea1e28bc413d --- deal.II/deal.II/Make_forward_declarations | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/deal.II/deal.II/Make_forward_declarations b/deal.II/deal.II/Make_forward_declarations index 504c4a1bcb..79add620e4 100644 --- a/deal.II/deal.II/Make_forward_declarations +++ b/deal.II/deal.II/Make_forward_declarations @@ -10,10 +10,19 @@ while ($ARGV[0]) { # generate a guard for the file to disallow multiple inclusion $guard = `pwd`; +# in case the string gets longer than the number of significant +# positions for the preprocessor is, it is safer to use the +# last parts of the string fist. therefore, split the string +# at the slashes and assemble it again backwards +$guard = join("/", reverse(split(/\//, $guard))); $guard =~ s![^\w]!_!g; $guard .= "__guard"; print "#ifndef $guard\n"; print "#define $guard\n"; +print "\n"; + +print "/* this file is automatically generated from the Makefile; do not\n"; +print " * change it by hand. */\n"; print "\n\n"; foreach $file (@input_files) { -- 2.39.5