From eaae8b3bec179726b277c31db8ce4470728a5cd8 Mon Sep 17 00:00:00 2001
From: bangerth <bangerth@0785d39b-7218-0410-832d-ea1e28bc413d>
Date: Wed, 19 Jan 2011 00:26:22 +0000
Subject: [PATCH] Merge r23211 from mainline.

git-svn-id: https://svn.dealii.org/branches/releases/Branch-7-0@23213 0785d39b-7218-0410-832d-ea1e28bc413d
---
 deal.II/doc/doxygen/tutorial/program2plain | 31 +++-------------------
 1 file changed, 4 insertions(+), 27 deletions(-)

diff --git a/deal.II/doc/doxygen/tutorial/program2plain b/deal.II/doc/doxygen/tutorial/program2plain
index 92ca48494b..d18bf8ca86 100644
--- a/deal.II/doc/doxygen/tutorial/program2plain
+++ b/deal.II/doc/doxygen/tutorial/program2plain
@@ -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
@@ -17,33 +17,10 @@
 
 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;
 }	
 
-- 
2.39.5