]> https://gitweb.dealii.org/ - dealii.git/commitdiff
The previous incarnation of the script did not work for code that looks like
authorWolfgang Bangerth <bangerth@math.tamu.edu>
Wed, 19 Jan 2011 00:23:32 +0000 (00:23 +0000)
committerWolfgang Bangerth <bangerth@math.tamu.edu>
Wed, 19 Jan 2011 00:23:32 +0000 (00:23 +0000)
this:
  void f (int /*value*/)
since it recognized the '/*' as the start of the block comment but did not
expect the '*/' on the same line. Consequently, it scanned forward to the next
place we have the '*/' marker, skipping all the text in between (or to the end
of the file).

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

deal.II/doc/doxygen/tutorial/program2plain

index 92ca48494ba92151d50d8d31f20310b852e36b1a..d18bf8ca864e28722c9acdc6b7887af1a30365c2 100644 (file)
@@ -2,7 +2,7 @@
 #    $Id$
 #    Version: $Name$
 #
-#    Copyright (C) 2010 by the deal.II authors
+#    Copyright (C) 2010, 2011 by the deal.II authors
 #
 #    This file is subject to QPL and may not be  distributed
 #    without copyright and license information. Please refer
 
 my $block_comment = 0;
 while (<>) {
-    # Eliminate comment lines
+    # Eliminate //-comment lines
     next if (m!^\s*//!);
-    if (s!^\s*/\*.*\*/!!g)
-    {
-       print unless (m/^\s*$/);
-       next;
-    }    
-    #Find begin of block comment
-    if (s!/\*.*!!)
-    {
-       $block_comment = 1;
-       # Print unless empty
-       print unless m/^\s*$/;
-       next;
-    }
-    
-    # Find end of block comment
-    if ($block_comment != 0)
-    {
-       if (s!.*\*/!!)
-       {
-           $block_comment = 0;
-            # Print unless empty
-           print unless m/^\s*$/;
-       }
-       next;
-    }
+
+    # Otherwise print the line
     print;
 }      
 

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.