☰

列表的 lst@BeginWrite 从输入中吞噬 '->' 和 '=>'

tag-icon • tag-icon listings verbatim write-file
列表的 lst@BeginWrite 从输入中吞噬 '->' 和 '=>'

我正在尝试编写一个程序包，它接受逐字输入并将其附加到多个文件中。我目前的方法是基于Martin Scharrer 的回答类似的问题。困难在于输入中的所有=>和都不会输出到所需的文件。也就是说，对于->\jobname.xtr

\begin{extract}[foo.bel]
a -> b
\end{extract}

我们a b输出到文件而不是a -> b。我相信这可能是由于

\lstset{literate=%
                 {=>}{{$\Rightarrow~$}}2 %
                 {->}{{$\rightarrow~$}}2 %
}

在文档的前奏中，因为它没有与一起出现\lstset{literate={}}。除了取消设置literate选项外lstset，如何解决这个问题？

整个包包含在下面，因为它仅包含底部有问题的环境所需的宏（例如appendtofile，apendfiletofile等等） 。extract

%% This is file 'extract.sty'
%%
%% Copyright (C) 2012 Ryan Kavanagh <[email protected]>
%%
%% This work may be distributed and/or modified under the
%% conditions of the LaTeX Project Public License, either version 1.3
%% of this license or (at your option) any later version.
%% The latest version of this license is in
%%   http://www.latex-project.org/lppl.txt
%% and version 1.3 or later is part of all distributions of LaTeX
%% version 2003/12/01 or later.
%%
%% This work has the LPPL maintenance status ``author-maintained''.
%%
%% \appendfile is by Martin Scharrer and was obtained from https://tex.stackexchange.com/a/12414/6128
%% It too is distributed under the LLPL 1.3c or later.
%
% Usage:
%
% \begin{extract}[a,b,c,d]
%   Some verbatim text to be displayed using whichever lstlisting configurations
%   are active. This text will be appended to the files a, b, c, and d.
%
%   To set the listings options precede `\begin{extract}[files]' with a
%   '\lstset{listings options here}'.
% \end{extract}
%
% \begin{extract*}
%   Some text to be appended to the files a, b, c, and d, but not displayed.
% \end{extract*}
%
\NeedsTeXFormat{LaTeX2e}[1995/12/01]
\ProvidesPackage{extract}[2012/05/29 v0.1 extracts lstlistings to files]

\RequirePackage{catchfile}
\RequirePackage{ifthen}
\RequirePackage{listings}
\RequirePackage{pstricks}

\def\recordfile#1{appendtofile@seen@#1}
\def\srecordfile#1{\expandafter\csname appendtofile@seen@#1\endcsname}
\def\defrecordfile#1{%
  \expandafter\def\csname appendtofile@seen@#1\endcsname{defined}
}

\newwrite\appendwrite
\newcommand*\appendtofile[2]{%
  \begingroup
  \PackageWarning{extract}{\recordfile{#1}}
  % ifundefined takes command name *without the slash*
  \ifthenelse{\equal{\srecordfile{#1}}{defined}}{%
    % Keep existing EOL
    \CatchFileDef{\filecontent}{#1}{\endlinechar=`^^J\catcode\endlinechar=12\obeyspaces\relax}
  }{%
    % If we've not yet output to this file from this run, empty it
    % Prevents having files with multiple concatenations of the same thing, one
    % for each LaTeX run.
    \global\defrecordfile{#1}
    \let\filecontent\empty
  }
  \immediate\openout\appendwrite=#1\relax
  \immediate\write\appendwrite{\filecontent #2}%
  \immediate\closeout\appendwrite
  \endgroup
}

\newread\appendingfile
\newcommand*\appendfiletofile[2]{%
  \begingroup
  % ifundefined takes command name *without the slash*
  \ifthenelse{\equal{\srecordfile{#1}}{defined}}{%
    % Keep existing EOL
    \CatchFileDef{\filecontent}{#1}{\endlinechar=`^^J\catcode\endlinechar=12\obeyspaces\relax}
  }{%
    %\expandafter\ifcsundef{recordfile{#1}}{%
    % If we've not yet output to this file from this run, empty it
    % Prevents having files with multiple concatenations of the same thing, one
    % for each LaTeX run.
    \global\defrecordfile{#1}
    \let\filecontent\empty
  }
  \openin\appendingfile=#2
  \immediate\openout\appendwrite=#1\relax
  \endlinechar-1
  \immediate\write\appendwrite{\filecontent }
  \loop \unless\ifeof\appendingfile
      \readline\appendingfile to\line
      \immediate\write\appendwrite{\line}
  \repeat
  \immediate\closeout\appendwrite
  \immediate\closein\appendingfile
  \endgroup
}

\newcommand\firstunempty[3]{%
 \ifthenelse{\equal{#2}{}}{% Do nothing if empty
 }{
  #1#2#3
 }
}

\newcommand\appendtofilewrapper[2]{\firstunempty{\appendtofile}{#1}{#2}}
\newcommand\appendfiletofilewrapper[2]{\firstunempty{\appendfiletofile}{#1}{#2}}

\lst@RequireAspects{writefile}
\lstnewenvironment{extract}[1][]{%
  \ifthenelse{\equal{#1}{}}{%
    \PackageError{extract}{extract with no filenames passed!}
  }{}
  \lst@BeginWriteFile{\jobname.xtr}%
}{%
  \lst@EndWriteFile
  \psforeach{\F}{#1,}{\appendfiletofilewrapper{\F}{{\jobname.xtr}}}
  \lstinputlisting{\jobname.xtr}
}

\lstnewenvironment{extract*}[1][]{%
  \ifthenelse{\equal{#1}{}}{%
    \PackageError{extract}{extract* with no filenames passed!}
  }{}
  \lst@BeginWriteFile{\jobname.xtr}%
}{%
  \lst@EndWriteFile
  \psforeach{\F}{#1,}{\appendfiletofilewrapper{\F}{{\jobname.xtr}}}
}

\makeatother

答案1

很难理解你在那个包中做什么（请注意，已经有一个extract包）。

但是，删除全局\lstset设置并说

\lstinputlisting[literate={=>}{{$\Rightarrow~$}}2%
  {->}{{$\rightarrow~$}}2]{\jobname.xtr}

代替

\lstinputlisting{\jobname.xtr}

解决问题。也许你可以从这里开始。

你是真的pstricks只为了加载\psforeach？

相关内容