changeset 16:6fa5e8c4e0dd

new version
author Klaus Thoden <kthoden@mpiwg-berlin.mpg.de>
date Thu, 02 May 2013 11:52:14 +0200
parents 616f0379a3a0
children 9c3c82b4e517
files DESpecs/skripte/create_overview_text.pl
diffstat 1 files changed, 19 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/DESpecs/skripte/create_overview_text.pl	Thu May 02 11:50:41 2013 +0200
+++ b/DESpecs/skripte/create_overview_text.pl	Thu May 02 11:52:14 2013 +0200
@@ -3,9 +3,9 @@
 use warnings;
 
 #
-# create_overview_text.pl
+# create_overview_text2.pl
 #
-# Wolfgang Schmidle, 2008-10-04
+# Wolfgang Schmidle, 2008-10-06
 #
 
 
@@ -43,6 +43,11 @@
 	
 	next if /^\\vspace/;
 	next if /^\\tocspace/;
+	next if /^\\clearpage/;
+	next if /^\\mehrzeilen/;
+
+	s/^%overview //;    # commands for the overview document 
+						# that are ignored in the main document
 
 	# remove all unwanted enviromnents, e.g. clarification
 	if (/\\begin\{(.+?)\}/)
@@ -72,7 +77,10 @@
 		$_ = $neueDatei[$i+$offset];
 		if (/^ *$/ || /\\section/)
 		{
-			$neueDatei[$i] =~ s/\{(.+?)\}/\{($1)\}/;
+#			$neueDatei[$i] =~ s/\{(.+?)\}/\{($1)\}/;
+			$neueDatei[$i] = "% $neueDatei[$i]";
+			$neueDatei[$i] .= '\refstepcounter{section}';
+			$neueDatei[$i] .= "\n";	
 		}
 	} 
 	else 
@@ -82,7 +90,10 @@
 			$_ = $neueDatei[$i+$offset];
 			if (/^ *$/ || /\\section/ || /\\subsection/)
 			{
-				$neueDatei[$i] =~ s/\{(.+?)\}/\{($1)\}/;
+#				$neueDatei[$i] =~ s/\{(.+?)\}/\{($1)\}/;
+				$neueDatei[$i] = "% $neueDatei[$i]";
+				$neueDatei[$i] .= '\refstepcounter{subsection}';
+				$neueDatei[$i] .= "\n";	
 			}
 		} 
 		else 
@@ -92,7 +103,10 @@
 				$_ = $neueDatei[$i+$offset];
 				if (/^ *$/ || /\\section/ || /\\subsection/ || /\\subsubsection/)
 				{
-					$neueDatei[$i] =~ s/\{(.+?)\}/\{($1)\}/;
+#					$neueDatei[$i] =~ s/\{(.+?)\}/\{($1)\}/;
+				$neueDatei[$i] = "% $neueDatei[$i]";
+				$neueDatei[$i] .= '\refstepcounter{subsubsection}';
+				$neueDatei[$i] .= "\n";	
 				}
 			}
 		}