From 6a25e9de103b88e9b9b4f08f0850b644a6c497f8 Mon Sep 17 00:00:00 2001
From: mirabilos <thorsten.glaser@teckids.org>
Date: Thu, 21 Dec 2017 22:02:57 +0100
Subject: [PATCH] add lstdump* environment to suppress counting (and the margin
note)
---
teckids2style.sty | 23 +++++++++++++++++++++++
1 file changed, 23 insertions(+)
diff --git a/teckids2style.sty b/teckids2style.sty
index c87fe84..509d5de 100644
--- a/teckids2style.sty
+++ b/teckids2style.sty
@@ -194,6 +194,29 @@
\csname\@lst @SaveFirstNumber\endcsname%
\xdef\lstdumpsection{\@currentlabel}%
}%
+\lstnewenvironment{lstdump*}[3][]%
+ {\lst@TestEOLChar{#3}%
+ \lstset{#1}%
+ \csname\@lst @SetFirstNumber\endcsname%
+ \renewcommand{\lstdumpname}{"#2"}%
+ \lst@BeginAlsoWriteFile{\jobname.lst}%
+ \ifx\lstdumpsection\@currentlabel\else%
+ \ifx\lstdumpsection\@empty%
+ \immediate\write\lst@WF{Listing dump for \jobname.tex}%
+ \immediate\write\lst@WF{}%
+ \fi%
+ \immediate\write\lst@WF{>>> (\@currentlabel) \@currentlabelname}%
+ \immediate\write\lst@WF{}%
+ \fi%
+ \immediate\write\lst@WF{-----BEGIN LISTING \lstdumpname-----}%
+ }%
+ {%
+ \immediate\write\lst@WF{-----END LISTING \lstdumpname-----}%
+ \immediate\write\lst@WF{}%
+ \endgroup%
+ \csname\@lst @SaveFirstNumber\endcsname%
+ \xdef\lstdumpsection{\@currentlabel}%
+ }%
\lstnewenvironment{lstdumpx}[2][]%
{\lst@TestEOLChar{#2}%
\lstset{#1}%
--
GitLab