Mercurial > hg > mpdl-xml-content
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"; } } }