summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/showexpl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-11-20 22:11:09 +0000
committerKarl Berry <karl@freefriends.org>2016-11-20 22:11:09 +0000
commitfe0d83a76a7ad6b8fdebb9edab209b23abedd9e2 (patch)
tree867b3f11c7ba31d39f67fd736639b05ed8ad3eb1 /Master/texmf-dist/source/latex/showexpl
parent1a8e8508c3a04b2368a4d81a58919e465c72d513 (diff)
showexpl (20nov16)
git-svn-id: svn://tug.org/texlive/trunk@42546 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/latex/showexpl')
-rw-r--r--Master/texmf-dist/source/latex/showexpl/showexpl.dtx52
1 files changed, 34 insertions, 18 deletions
diff --git a/Master/texmf-dist/source/latex/showexpl/showexpl.dtx b/Master/texmf-dist/source/latex/showexpl/showexpl.dtx
index 168b49ce3ad..ab8118255ac 100644
--- a/Master/texmf-dist/source/latex/showexpl/showexpl.dtx
+++ b/Master/texmf-dist/source/latex/showexpl/showexpl.dtx
@@ -1,6 +1,6 @@
% \iffalse meta-comment
%
-% Copyright (C) 2004 -- 2006 by Rolf Niepraschk <Rolf.Niepraschk@gmx.de>
+% Copyright (C) 2004 -- 2016 by Rolf Niepraschk <Rolf.Niepraschk@gmx.de>
% --------------------------------------------------------------------
%
% This file may be distributed and/or modified under the
@@ -22,7 +22,7 @@
%<package>\NeedsTeXFormat{LaTeX2e}[1999/12/01]
%<package>\ProvidesPackage{showexpl}
%<*package>
- [2016/08/05 v0.3m Typesetting example code (RN)]
+ [2016/11/20 v0.3n Typesetting example code (RN)]
%</package>
%
%<*driver>
@@ -39,7 +39,7 @@
%</driver>
% \fi
%
-% \CheckSum{873}
+% \CheckSum{891}
%
% \CharacterTable
% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
@@ -182,7 +182,7 @@
% \item[varwidth] Boolean valued key, default value is false. If set to
% true, the formatted text is set with its ``natural'' width instead of a
% fixed width as given by the value of the option |width|.
-% \item[hsep] Defines the vertical distance between the source code and the
+% \item[vsep] Defines the vertical distance between the source code and the
% formatted text.
% \item[wide] Boolean valued key, default value is false. If set to
% true, the source code and the formatted text overlap the print space
@@ -190,11 +190,19 @@
% \item[width] A \meta{dimen} value that defines the width of the
% formatted text. The default value depends of the relative positions of
% the source code and the formatted text.
-% \item[scaled] Without a value the formatted text will be scaled to fit
-% the given width of the result area. With a number as value the formatted
+% \item[scaled] Without a value the formatted text will be scaled to fit
+% the given width of the result area. With a number as value the formatted
% text will be scaled by this number.
% \end{description}
%
+% In addition to these options the kind of the result box (default: |\fbox|)
+% can be changed. For example:
+% \begin{verbatim}
+% \renewcommand\ResultBox{\fcolorbox{green}{lightgray}}
+% \setlength\ResultBoxSep{5mm}
+% \setlength\ResultBoxRule{2mm}
+% \end{verbatim}
+%
% \StopEventually{}
%
% \section{Implementation}
@@ -251,9 +259,9 @@
\newcommand*\SX@scaled{}
\lst@Key{scaled}{?}[!]{\def\SX@scaled{#1}}
% \end{macrocode}
-% \changes{v0.1h}{2005/06/03}{``lstpreset'' renamed to ``explpreset''
+% \changes{v0.1h}{2005/06/03}{``lstpreset'' renamed to ``explpreset''
% (RN).}
-% \changes{v0.3l}{2014/01/19}{Option ``scaled'' and \cmd{\SX@scaled}
+% \changes{v0.3l}{2014/01/19}{Option ``scaled'' and \cmd{\SX@scaled}
% added (RN).}
% \begin{macrocode}
\lst@Key{explpreset}\relax{\def\SX@explpreset{#1}}
@@ -271,6 +279,7 @@
% \changes{v0.2a}{2005/07/16}{``varwidth'' and ``justification'' added (RN).}
% \changes{v0.1l}{2005/06/19}{``graphic'' added (RN).}
% \changes{v0.3a}{2005/08/20}{``attachfile'' added (RN).}
+% \changes{v0.3n}{2016/11/20}{Define \cmd{\ResultBox} etc.}
% \begin{macrocode}
\lst@Key{varwidth}f[t]{\lstKV@SetIf{#1}\if@SX@varwidth}
\lst@Key{justification}\relax{\def\SX@justification{#1}}
@@ -283,6 +292,9 @@
}%
}%
\newbox\SX@ResBox
+\newcommand\ResultBox{} \let\ResultBox=\fbox
+\newdimen\ResultBoxSep \ResultBoxSep=\fboxsep
+\newdimen\ResultBoxRule \ResultBoxRule=\fboxrule
\newcommand*\SX@pos{}
\newcommand*\SX@width{}
\newcommand*\SX@hsep{}
@@ -425,11 +437,11 @@
% \end{macrocode}
% \end{macro}
%
-% \begin{environment}{LTXexample}
% \changes{v0.1h}{2005/06/03}{Renamed from ``example'' to ``LTXexample' (RN).}
+% \changes{v0.3n}{2016/11/20}{Prevent utf8 encoding errors}
+% \begin{environment}{LTXexample}
% \begin{macrocode}
-\lstnewenvironment{LTXexample}[1][]
-{%
+\lstnewenvironment{LTXexample}[1][]{%
\@temptokena{#1}%
\begingroup
% \end{macrocode}
@@ -445,11 +457,13 @@
\x
\xdef\SX@@explpreset{\the\@temptokena,codefile=\SX@codefile,
graphic={[\SX@graphicparam]{\SX@graphicname}}}%
- \setbox\@tempboxa=\hbox\bgroup% Warum noetig?
+ \begingroup
+ \let\UTFviii@defined=\@gobble
+ \let\@inpenc@undefined@=\@gobble
\lst@BeginWriteFile{\SX@codefile}%
-}
+}%
{%
- \lst@EndWriteFile\egroup
+ \lst@EndWriteFile\endgroup
\SX@put@code@result
}
% \end{macrocode}
@@ -506,12 +520,13 @@
\fi
% \end{macrocode}
% Correct \cmd{\SX@width} if a frame is requested.
+% \changes{v0.3n}{2016/11/20}{Use \cmd{\ResultBox}}
% \begin{macrocode}
\ifx\SX@rframe\@empty
\long\def\SX@frame##1{##1}%
\else
- \let\SX@frame\fbox
- \setlength\@tempdima{\SX@width-2\fboxsep-2\fboxrule}%
+ \let\SX@frame\ResultBox
+ \setlength\@tempdima{\SX@width-2\ResultBoxSep-2\ResultBoxRule}%
\edef\SX@width{\the\@tempdima}%
\fi
\isSX@odd{\def\@tempa{l}}{\def\@tempa{r}}%
@@ -519,12 +534,11 @@
\parbox{\linewidth+\SX@overhang}{%
% \end{macrocode}
% \cmd{\SX@codefile} (|\jobname.tmp|) is not nessesary for the filelist.
-% \changes{v0.3m}{2016/08/05}{Wrong assignement for \cmd{\lst@belowskip} (RN).}
+% \changes{v0.3m}{2016/08/05}{Wrong assignement for \cmd{\lst@belowskip} (RN).}
% \begin{macrocode}
\let\@addtofilelist\@gobble
\let\lst@ifdisplaystyle=\iftrue
\SX@KillAboveCaptionskip\lst@MakeCaption{t}%
- \lst@belowskip=\z@
\let\lst@belowskip=\z@
% \end{macrocode}
% Use the ``natural'' width of the result code if ``varwidth'' is
@@ -540,6 +554,8 @@
% varwidth environment. (Suggestions by Ulrike Fischer.).}
% \begin{macrocode}
\setbox\SX@ResBox\hbox{%
+ \fboxsep=\ResultBoxSep
+ \fboxrule=\ResultBoxRule
\SX@frame{%
\@nameuse{\if@SX@varwidth varwidth\else minipage\fi}%
\SX@width\relax