]> https://gitweb.dealii.org/ - dealii-svn.git/commitdiff
Some more cosmetic changes.
authorwolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Wed, 24 Feb 1999 13:06:35 +0000 (13:06 +0000)
committerwolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Wed, 24 Feb 1999 13:06:35 +0000 (13:06 +0000)
git-svn-id: https://svn.dealii.org/trunk@891 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/deal.II/Make_forward_declarations

index 504c4a1bcb1c468618280942cd1d32ee6198437d..79add620e423d51fe6605c097d693cfafcbbea34 100644 (file)
@@ -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) {

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.