解决listings环境无法嵌套的问题

2019-07-30 阅读量

在LaTeX的摘录环境中，listings包提供的lstlisting环境无疑是最优秀的，它支持现在的多种计算机语言，提供了语法高亮功能，还有各种摘录设置。但是最近有群员询问有关lstlisting环境无法嵌套的问题：比如下面的问题，

如果使用两个lstlisting环境嵌套，会使得第一个\begin{lstlisting}匹配到第一个\end{lstlisting}而使得第二个报错。比较不错的解决方法就是把外层的摘录环境换成verbatim，不过由于个人比较喜欢listings包的风格，所以这里采用tcolorbox包的listings库提供的tcblisting环境。tcblisting环境其实就是调用的listings包，它一方面接受listings包的设置，另一方面还接受tcolorbox包的设置，简直一举两得。默认情况下，摘录的同时还执行摘录的代码，所以这里添加了listing only选项，仅仅作摘录使用。

\documentclass{ctexart}
\usepackage{tcolorbox}
\tcbuselibrary{listings}
\lstdefinestyle{mystyle}{
  basicstyle=%
    \ttfamily
    \lst@ifdisplaystyle\small\fi
}

\lstset{basicstyle=\ttfamily,style=mystyle}

\definecolor{structurecolor}{RGB}{0,120,2}%
\definecolor{winered}{rgb}{0.5,0,0}
\definecolor{lightgrey}{rgb}{0.9,0.9,0.9}
\definecolor{frenchplum}{RGB}{190,20,83}
\lstset{language=[LaTeX]TeX,
	texcsstyle=*\color{winered},
	numbers=none,
	breaklines=true,
	keywordstyle=\color{winered},
	commentstyle=\color{gray},
	emph={main,none,fontenc,fontspec,xeCJK,FiraMono,xunicode,newtxmath,figure,fig,image,img,table,itemize,enumerate,newtxtext,newtxtt,ctex,microtype,description,times,newtx,booktabs,tabular,PDFLaTeX,XeLaTeX,type1cm,BibTeX,device,color,mode,lang,amsthm,tcolorbox,titlestyle,cite,marginnote,ctex,listings},
	emphstyle={\color{frenchplum}},
	morekeywords={main,DeclareSymbolFont,SetSymbolFont,toprule,midrule,bottomrule,institute,version,includegraphics,setmainfont,setsansfont,setmonofont ,setCJKmainfont,setCJKsansfont,setCJKmonofont,RequirePackage,figref,tabref,email,maketitle,keywords,definecolor,extrainfo,logo,cover,subtitle,appendix,chapter,hypersetup,mainmatter,tableofcontents,elegantpar,numbers,authoryear,heiti,kaishu,lstset,pagecolor,zhnumber,marginpar,part,equote},
	frame=single,
	tabsize=2,
	rulecolor=\color{structurecolor},
	framerule=0pt,
	columns=flexible,
	% backgroundcolor=\color{lightgrey}
}
\begin{document}
\begin{tcblisting}{listing only,boxrule=-1pt,colback=white}
\begin{lstlisting}[language=Fortran,frame=single]
program main
implicit none
real(kind=8):: em,rmax,rkmax
end
\end{lstlisting}
\end{tcblisting}
\end{document}