]> https://gitweb.dealii.org/ - dealii-svn.git/commitdiff
Ignore comments at the beginning of the program altogether, i.e. copyright notices...
authorwolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Fri, 23 Mar 2001 08:55:50 +0000 (08:55 +0000)
committerwolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Fri, 23 Mar 2001 08:55:50 +0000 (08:55 +0000)
git-svn-id: https://svn.dealii.org/trunk@4275 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/doc/tutorial/chapter-2.step-by-step/program2html

index 40feee80e473f1d768c65292a3b9f348bf7babf8..6e3c359e2c7e68c40b1d4147a1d0527581b6ea20 100644 (file)
@@ -3,9 +3,10 @@
 print "<a name=\"CommProg\"></a>\n";
 print "<h1> The commented program</h1>\n";
 
-# ignore cvs tag
+# ignore comments at the start of the program. this includes CVS
+# tags and copyright notices.
 $_ = <>;
-while ( m!^/[/\*]+\s*.Id:!) {
+while ( m!^/[/\*]!) {
     $_ = <>;
 }
 
@@ -18,9 +19,6 @@ $state =  $comment_mode;
 print "<p>\n";
 
 while (<>) {
-    # ignore cvs tag
-    next if m!^/[/\*]+\s*.Id:!;
-
     # substitute special characters
     s/&/&amp;/g;
     s/</&lt;/g;

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.