view DESpecs/skripte/create_overview_text.pl @ 15:616f0379a3a0

Skripte
author Klaus Thoden <kthoden@mpiwg-berlin.mpg.de>
date Thu, 02 May 2013 11:50:41 +0200
parents
children 6fa5e8c4e0dd
line wrap: on
line source

#!/usr/bin/perl -w
use strict;
use warnings;

#
# create_overview_text.pl
#
# Wolfgang Schmidle, 2008-10-04
#


my @datei;

while (<>)
{
	push @datei, $_;
}


# Bestimme die neuen Dateinamen:
# Aus "dateiname.tex" wird "dateiname_overview.tex".
# Wenn der alte Dateiname nicht auf ".tex" endet, wird einfach "_neu.tex" angehängt.

$_ = $ARGV;
/^(.+?)(\.TEX|\.tex)?$/;
my $neuerDateiname = "$1_overview.tex";


my @neueDatei;

my $sollweg = 0;
my $leerzeile = 0;

my $unwichtig = ' mainruleLessImportant clarification note ';
$unwichtig .= ' example exampleTest sampleImage smallSampleImage ';
$unwichtig .= ' crossref exception ';
$unwichtig .= ' tabelle liste ';

foreach (@datei)
{
	next if (/^%/ && !(/%!TEX/)); # remove comment lines, keep the header lines,
	s/\.tex/_overview.tex/;       # but add _overview to the reference
	
	next if /^\\vspace/;
	next if /^\\tocspace/;

	# remove all unwanted enviromnents, e.g. clarification
	if (/\\begin\{(.+?)\}/)
	{
		if ($unwichtig =~ / $1 /) { $sollweg = 1; }
	}		
	unless ($sollweg)
	{
		if (/^ *$/) { $leerzeile++; } else { $leerzeile = 0; }
		push @neueDatei, $_ unless $leerzeile > 1;
	}
	if (/\\end\{(.+?)\}/)
	{
		if ($unwichtig =~ / $1 /) { $sollweg = 0; }
	}
}

for my $i (0..$#neueDatei-2)
{
	my $offset = 2;
	$_ = $neueDatei[$i+1];
	if (/\\label/) { $offset++; }
	
	$_ = $neueDatei[$i];
	if (/\\section/)
	{
		$_ = $neueDatei[$i+$offset];
		if (/^ *$/ || /\\section/)
		{
			$neueDatei[$i] =~ s/\{(.+?)\}/\{($1)\}/;
		}
	} 
	else 
	{
		if (/\\subsection/)
		{
			$_ = $neueDatei[$i+$offset];
			if (/^ *$/ || /\\section/ || /\\subsection/)
			{
				$neueDatei[$i] =~ s/\{(.+?)\}/\{($1)\}/;
			}
		} 
		else 
		{
			if (/\\subsubsection/)
			{
				$_ = $neueDatei[$i+$offset];
				if (/^ *$/ || /\\section/ || /\\subsection/ || /\\subsubsection/)
				{
					$neueDatei[$i] =~ s/\{(.+?)\}/\{($1)\}/;
				}
			}
		}
	}
}

# Schreibe das Ergebnis in die Datei $neuerDateiname im gleichen Verzeichnis wie die alte Datei. 
# Eine bereits vorhandene Datei mit gleichem Namen wird ohne Warnung überschrieben.

open (NEUEDATEI, ">$neuerDateiname");
print NEUEDATEI @neueDatei;
close (NEUEDATEI);