From: wolf Date: Wed, 24 Feb 1999 13:06:35 +0000 (+0000) Subject: Some more cosmetic changes. X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5239b60c590e2ff9c378d494cd2d21b1a109a93c;p=dealii-svn.git Some more cosmetic changes. git-svn-id: https://svn.dealii.org/trunk@891 0785d39b-7218-0410-832d-ea1e28bc413d --- 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) {